FUNCTION ZRFC_WMS_LIPS_CREATE .
*"----------------------------------------------------------------------
*"*"Local interface:
*" TABLES
*" ET_LOG STRUCTURE BAPIRET2
*"----------------------------------------------------------------------
DATA:
EP_EBELN LIKE EKKO-EBELN,
EP_FRGKX TYPE FRGKX,
* EX_VLELN LIKE EKKO-EBELN,
IP_VBELN LIKE LIPS-VBELN,
EP_SUBRC0 TYPE SY-SUBRC.
DATA:
******** VL10B
EX_VBELN LIKE LIPS-VBELN,
IP_INPUT LIKE ZWMS_VL10B_INPUT OCCURS 0 WITH HEADER LINE,
ET_LOG_1 LIKE BAPIRET2 occurs 0 with header line,
IT_EBELN LIKE ZWMS_CONVERT OCCURS 0 WITH HEADER LINE.
SELECT * FROM ZWMS_CONVERT AS C INTO TABLE IT_EBELN WHERE C~VBELN = '' and C~ISOK <> 'X'.
****2.将采购订单转为交货单
*------------CHA JWY_20170811
SORT IT_EBELN.
*------------CHA JWY_20170811
LOOP AT IT_EBELN.
* IP_INPUT-ST_RESWK_LOW = '8100'. "调整到8100
IP_INPUT-ST_EBELN_LOW = IT_EBELN-EBELN.
APPEND IP_INPUT.
CLEAR: EX_VBELN.
CALL FUNCTION 'ZRFC_WMS_VL10B'
IMPORTING
EP_SUBRC = EP_SUBRC0
EX_VBELN = EX_VBELN
TABLES
IP_INPUT = IP_INPUT
ET_LOG = ET_LOG_1.
WAIT UP TO 10 SECONDS.
UPDATE ZWMS_CONVERT SET VBELN = EX_VBELN
VBELN_DAT = SY-DATUM
FLAG = EP_SUBRC0
WHERE BILLNO = IT_EBELN-BILLNO .
ENDLOOP.
* WAIT UP TO 3 SECONDS.
*
*******3.对交货单进行过帐
* CLEAR:
* IT_EBELN[].
*
*
* SELECT * FROM ZWMS_CONVERT AS C INTO TABLE IT_EBELN WHERE C~FLAG <> '0' AND VBELN <> ''.
*
* DATA : SV(10).
*
*
* LOOP AT IT_EBELN.
*
* SV = IT_EBELN-VBELN.
* PERFORM F_ADD_ZERO USING SV.
* EP_SUBRC0 = -1.
*
* CALL FUNCTION 'ZRFC_WMS_CONVER2'
* EXPORTING
* IP_CHARG = IT_EBELN-CHARG
* IPX_VBELN = sv
* IMPORTING
* EP_SUBRC = EP_SUBRC0
* TABLES
* ET_LOG = ET_LOG_1.
* WAIT UP TO 1 SECONDS.
* APPEND LINES OF ET_LOG_1 TO ET_LOG.
* CLEAR ET_LOG_1[].
* IF EP_SUBRC0 = 0 .
* UPDATE ZWMS_CONVERT SET FLAG = EP_SUBRC0
* WHERE BILLNO = IT_EBELN-BILLNO .
* ELSE.
* UPDATE ZWMS_CONVERT SET FLAG = ET_LOG_1-MESSAGE
* WHERE BILLNO = IT_EBELN-BILLNO .
* ENDIF.
*
* ENDLOOP.
ENDFUNCTION.