创建预制发票BAPI(BAPI_INCOMINGINVOICE_PARK)

原创

wx60dd44933d0df 2022-02-18 17:59:32 博主文章分类：ABAP开发 ©著作权

文章标签 创建日期建表取值 文章分类 代码人生

©著作权归作者所有：来自51CTO博客作者wx60dd44933d0df的原创作品，请联系作者获取转载授权，否则将追究法律责任

*&---------------------------------------------------------------------*

*& Form ZBAPI

*&---------------------------------------------------------------------*

*& text

*&---------------------------------------------------------------------*

*& --> p1 text

*& <-- p2 text

*&---------------------------------------------------------------------*

FORM ZBAPI .

DATA HEADERDATA TYPE BAPI_INCINV_CREATE_HEADER.

DATA INVOICEDOCNUMBER LIKE BAPI_INCINV_FLD-INV_DOC_NO.

DATA FISCALYEAR LIKE BAPI_INCINV_FLD-FISC_YEAR.

DATA:ITEMDATA TYPE STANDARD TABLE OF BAPI_INCINV_CREATE_ITEM,

LS_ITEMDATA TYPE BAPI_INCINV_CREATE_ITEM.

DATA:TAXDATA TYPE STANDARD TABLE OF BAPI_INCINV_CREATE_TAX,

LS_TAXDATA TYPE BAPI_INCINV_CREATE_TAX.

DATA RETURN TYPE STANDARD TABLE OF BAPIRET2.

DATA:TM_ITEMDATA TYPE STANDARD TABLE OF BAPI_INCINV_CREATE_TM_ITEM,

LS_TM_ITEMDATA TYPE BAPI_INCINV_CREATE_TM_ITEM.

TYPES:BEGIN OF TY_ZDZD_SATNR,

ZDZD TYPE ZTMM_CGDZ-ZDZD,

SATNR TYPE ZTMM_CGDZ-SATNR,

END OF TY_ZDZD_SATNR.

DATA:LT_ZDZD_SATNR TYPE TABLE OF TY_ZDZD_SATNR,

LS_ZDZD_SATNR TYPE TY_ZDZD_SATNR,

LT_ZDZD_SATNR1 TYPE TABLE OF TY_ZDZD_SATNR,

LT_ZDZD_SATNR2 TYPE TABLE OF TY_ZDZD_SATNR,

LT_ZDZD_SATNR_TEMP TYPE TABLE OF TY_ZDZD_SATNR.

DATA:LT_OUTPUT TYPE TABLE OF TY_OUTPUT.

DATA:LT_OUTPUT1 TYPE TABLE OF TY_OUTPUT, "没有补款扣款的放在这里

LT_OUTPUT1_TEMP TYPE TABLE OF TY_OUTPUT, "没有补款扣款的放在这里

LT_OUTPUT2 TYPE TABLE OF TY_OUTPUT, "否则放在这里

LT_OUTPUT2_TEMP TYPE TABLE OF TY_OUTPUT, "否则放在这里

LT_OUTPUT2_LOOP TYPE TABLE OF TY_OUTPUT. "否则放在这里

DATA:LS_OUTPUT1 TYPE TY_OUTPUT,

LS_OUTPUT2 TYPE TY_OUTPUT.

DATA:LT_ZTMM_CGDZ TYPE TABLE OF ZTMM_CGDZ,

LS_ZTMM_CGDZ LIKE LINE OF LT_ZTMM_CGDZ.

DATA:L_TABIX TYPE SY-TABIX,

L_ROWS TYPE I.

DATA:L_ZDZJE TYPE ZZEZDZJE."对账金额

DATA:L_POSNR TYPE BAPI_INCINV_CREATE_TM_ITEM-INVOICE_DOC_ITEM.

DATA:L_CREATE TYPE C."是否创建

DATA:L_ZBKJE TYPE ZTMM_CGDZ-ZBKJE, "补款金额

L_ZZKJE TYPE ZTMM_CGDZ-ZZKJE. "折扣金额

DATA:L_ZITM TYPE ZTMM_CGDZ-ZITM.

CLEAR:HEADERDATA,

INVOICEDOCNUMBER,

FISCALYEAR,

ITEMDATA,

LS_ITEMDATA,

TAXDATA,

LS_TAXDATA,

RETURN,

TM_ITEMDATA,

LS_TM_ITEMDATA,

LT_OUTPUT,

LT_OUTPUT1,

LT_OUTPUT1_TEMP,

LT_OUTPUT2,

LT_OUTPUT2_TEMP,

LT_ZTMM_CGDZ.

*****************有折扣金额和折扣金额的放在一堆(1)，没有的放在另一丟(2)；接着(1)的按对账单号+款号生成预制发票，(2)是按对账单号生成预制发票

***************** ADD BY HANDLH 20180628

LOOP AT GT_OUTPUT ASSIGNING FIELD-SYMBOL(<FW_GS_OUTPUT>) WHERE CHECKBOX EQ 'X'.

MOVE-CORRESPONDING <FW_GS_OUTPUT> TO LS_ZDZD_SATNR.

SELECT SINGLE *

INTO LS_ZTMM_CGDZ

FROM ZTMM_CGDZ

WHERE ZDZD EQ LS_ZDZD_SATNR-ZDZD

AND SATNR EQ LS_ZDZD_SATNR-SATNR

AND ( ZBKJE NE 0 OR ZZKJE NE 0 OR ZJPF NE 0 OR ZTHFXYF NE 0 OR ZCWRJE NE 0 OR ZCLWTJE NE 0 OR ZQTKK NE 0 ).

IF SY-SUBRC NE 0.

APPEND LS_ZDZD_SATNR TO LT_ZDZD_SATNR1."没有补款扣款的生成一张

ELSE.

APPEND LS_ZDZD_SATNR TO LT_ZDZD_SATNR2."有补款扣款的

ENDIF.

ENDLOOP.

SORT LT_ZDZD_SATNR1.

DELETE ADJACENT DUPLICATES FROM LT_ZDZD_SATNR1.

SORT LT_ZDZD_SATNR2.

DELETE ADJACENT DUPLICATES FROM LT_ZDZD_SATNR2.

LOOP AT LT_ZDZD_SATNR1 INTO LS_ZDZD_SATNR.

LOOP AT GT_OUTPUT INTO GS_OUTPUT WHERE ZDZD EQ LS_ZDZD_SATNR-ZDZD AND SATNR EQ LS_ZDZD_SATNR-SATNR.

APPEND GS_OUTPUT TO LT_OUTPUT1.

APPEND GS_OUTPUT TO LT_OUTPUT1_TEMP.

ENDLOOP.

"(1)没有补款/折扣的过账规则

LOOP AT LT_OUTPUT1 ASSIGNING FIELD-SYMBOL(<FW_OUTPUT1>).

AT NEW ZDZD.

MOVE 0 TO L_ROWS.

PERFORM GET_HEAD1 TABLES TAXDATA USING <FW_OUTPUT1> CHANGING HEADERDATA .

ENDAT.

ADD 1 TO L_ROWS.

PERFORM GET_ITEM TABLES TAXDATA ITEMDATA USING <FW_OUTPUT1> HEADERDATA L_ROWS.

"300张对账单生成一张发票

IF L_ROWS EQ 300.

MOVE 'X' TO L_CREATE.

PERFORM CREATE_MBLNR TABLES TAXDATA ITEMDATA RETURN USING HEADERDATA CHANGING INVOICEDOCNUMBER FISCALYEAR.

PERFORM FILL_MESSAGE1 TABLES RETURN LT_ZTMM_CGDZ LT_OUTPUT1_TEMP USING <FW_OUTPUT1>-ZDZD INVOICEDOCNUMBER FISCALYEAR.

CLEAR:HEADERDATA,

INVOICEDOCNUMBER,

FISCALYEAR,

ITEMDATA,

LS_ITEMDATA,

TAXDATA,

LS_TAXDATA,

RETURN,

TM_ITEMDATA,

LS_TM_ITEMDATA,

L_ROWS

ENDIF.

"或者是最后一行生成一张发票

AT END OF ZDZD.

CLEAR:L_CREATE.

IF L_CREATE NE 'X'.

PERFORM CREATE_MBLNR TABLES TAXDATA ITEMDATA RETURN USING HEADERDATA CHANGING INVOICEDOCNUMBER FISCALYEAR.

PERFORM FILL_MESSAGE1 TABLES RETURN LT_ZTMM_CGDZ LT_OUTPUT1_TEMP USING <FW_OUTPUT1>-ZDZD INVOICEDOCNUMBER FISCALYEAR.

CLEAR:L_CREATE.

CLEAR:HEADERDATA,

INVOICEDOCNUMBER,

FISCALYEAR,

ITEMDATA,

LS_ITEMDATA,

TAXDATA,

LS_TAXDATA,

RETURN,

TM_ITEMDATA,

LS_TM_ITEMDATA,

L_ROWS

ENDIF.

ENDAT.

ENDLOOP.

LOOP AT LT_OUTPUT1_TEMP INTO LS_OUTPUT1.

READ TABLE GT_OUTPUT INTO GS_OUTPUT WITH KEY ZDZD = LS_OUTPUT1-ZDZD ZITM = LS_OUTPUT1-ZITM.

IF SY-SUBRC EQ 0.

MOVE '2' TO LS_OUTPUT1-ZFPZT."预制发票创建日期

MOVE SY-DATUM TO LS_OUTPUT1-ZFPRQ."发票状态

MODIFY GT_OUTPUT FROM LS_OUTPUT1 INDEX SY-TABIX.

ENDIF.

ENDLOOP.

SORT LT_ZDZD_SATNR2.

DELETE ADJACENT DUPLICATES FROM LT_ZDZD_SATNR2.

LOOP AT LT_ZDZD_SATNR2 INTO LS_ZDZD_SATNR.

CLEAR:LT_OUTPUT2,

LT_OUTPUT2_TEMP.

LOOP AT GT_OUTPUT INTO GS_OUTPUT WHERE ZDZD EQ LS_ZDZD_SATNR-ZDZD AND SATNR EQ LS_ZDZD_SATNR-SATNR.

APPEND GS_OUTPUT TO LT_OUTPUT2.

APPEND GS_OUTPUT TO LT_OUTPUT2_TEMP.

MOVE-CORRESPONDING GS_OUTPUT TO LS_ZDZD_SATNR.

ENDLOOP.

"(2)有补款/扣款的过账规则

CLEAR:LT_OUTPUT2_LOOP.

CLEAR:HEADERDATA,

INVOICEDOCNUMBER,

FISCALYEAR,

ITEMDATA,

LS_ITEMDATA,

TAXDATA,

LS_TAXDATA,

RETURN,

TM_ITEMDATA,

LS_TM_ITEMDATA,

L_ROWS,

LT_OUTPUT2_LOOP .

LOOP AT LT_OUTPUT2 ASSIGNING FIELD-SYMBOL(<FW_OUTPUT2>) WHERE ZDZD EQ LS_ZDZD_SATNR-ZDZD AND SATNR EQ LS_ZDZD_SATNR-SATNR.

APPEND <FW_OUTPUT2> TO LT_OUTPUT2_LOOP.

ENDLOOP.

"对账单 + 款号生成预制发票

LOOP AT LT_OUTPUT2_LOOP ASSIGNING FIELD-SYMBOL(<FW_OUTPUT2_LOOP>).

AT FIRST.

MOVE 0 TO L_ROWS.

PERFORM GET_HEAD2 TABLES TAXDATA CHANGING <FW_OUTPUT2_LOOP> HEADERDATA.

ENDAT.

ADD 1 TO L_ROWS.

PERFORM GET_ITEM TABLES TAXDATA ITEMDATA USING <FW_OUTPUT2_LOOP> HEADERDATA L_ROWS.

"300张对账单生成一张发票

IF L_ROWS EQ 300.

MOVE 'X' TO L_CREATE.

PERFORM CREATE_MBLNR TABLES TAXDATA ITEMDATA RETURN

USING HEADERDATA

CHANGING INVOICEDOCNUMBER FISCALYEAR.

PERFORM FILL_MESSAGE2 TABLES RETURN LT_ZTMM_CGDZ LT_OUTPUT2_TEMP

USING <FW_OUTPUT2_LOOP>-ZDZD <FW_OUTPUT2_LOOP>-SATNR INVOICEDOCNUMBER FISCALYEAR.

CLEAR:HEADERDATA,

INVOICEDOCNUMBER,

FISCALYEAR,

ITEMDATA,

LS_ITEMDATA,

TAXDATA,

LS_TAXDATA,

RETURN,

TM_ITEMDATA,

LS_TM_ITEMDATA,

L_ROWS

ENDIF.

"或者是最后一行生成一张发票

AT END OF SATNR.

CLEAR:L_CREATE.

IF L_CREATE NE 'X'.

PERFORM CREATE_MBLNR TABLES TAXDATA ITEMDATA RETURN

USING HEADERDATA

CHANGING INVOICEDOCNUMBER FISCALYEAR.

PERFORM FILL_MESSAGE2 TABLES RETURN LT_ZTMM_CGDZ LT_OUTPUT2_TEMP

USING <FW_OUTPUT2_LOOP>-ZDZD <FW_OUTPUT2_LOOP>-SATNR INVOICEDOCNUMBER FISCALYEAR.

CLEAR:L_CREATE.

CLEAR:HEADERDATA,

INVOICEDOCNUMBER,

FISCALYEAR,

ITEMDATA,

LS_ITEMDATA,

TAXDATA,

LS_TAXDATA,

RETURN,

TM_ITEMDATA,

LS_TM_ITEMDATA,

L_ROWS

ENDIF.

ENDAT.

ENDLOOP.

* ENDLOOP.

LOOP AT LT_OUTPUT2_TEMP INTO LS_OUTPUT2.

* MODIFY TABLE GT_OUTPUT FROM LS_OUTPUT2 ."WHERE ZDZD EQ LS_OUTPUT2-ZDZD AND ZITM EQ LS_OUTPUT2-ZITM..

LOOP AT GT_OUTPUT INTO GS_OUTPUT WHERE ZDZD = LS_ZDZD_SATNR-ZDZD AND SATNR = LS_ZDZD_SATNR-SATNR.

MOVE LS_OUTPUT2-MESSAGE TO GS_OUTPUT-MESSAGE."消息

MOVE LS_OUTPUT2-STATUS TO GS_OUTPUT-STATUS."状态灯

MOVE LS_OUTPUT2-BELNR TO GS_OUTPUT-BELNR."发票凭证的凭证编号

MOVE LS_OUTPUT2-GJAHR TO GS_OUTPUT-GJAHR."财年

MOVE '2' TO GS_OUTPUT-ZFPZT."预制发票创建日期

MOVE SY-DATUM TO GS_OUTPUT-ZFPRQ."发票状态

MODIFY GT_OUTPUT FROM GS_OUTPUT.

ENDLOOP.

"更新自建表

IF LT_ZTMM_CGDZ IS NOT INITIAL.

MODIFY ZTMM_CGDZ FROM TABLE LT_ZTMM_CGDZ.

ENDIF.

"刷新ALV

PERFORM REFRESH_ALV.

ENDFORM.

*&---------------------------------------------------------------------*

*& Form CREATE_MBLNR

*&---------------------------------------------------------------------*

*& text

*&---------------------------------------------------------------------*

*& --> HEADERDATA

*& --> TAXDATA

*& --> RETURN

*& <-- INVOICEDOCNUMBER

*& <-- FISCALYEAR

*&---------------------------------------------------------------------*

FORM CREATE_MBLNR TABLES TAXDATA STRUCTURE BAPI_INCINV_CREATE_TAX

ITEMDATA STRUCTURE BAPI_INCINV_CREATE_ITEM

RETURN STRUCTURE BAPIRET2

USING HEADERDATA

CHANGING INVOICEDOCNUMBER

FISCALYEAR.

CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'

EXPORTING

HEADERDATA = HEADERDATA

* ADDRESSDATA = ADDRESSDATA

IMPORTING

INVOICEDOCNUMBER = INVOICEDOCNUMBER

FISCALYEAR = FISCALYEAR

TABLES

ITEMDATA = ITEMDATA

* ACCOUNTINGDATA = ACCOUNTINGDATA

* GLACCOUNTDATA = GLACCOUNTDATA

* MATERIALDATA = MATERIALDATA

TAXDATA = TAXDATA

* WITHTAXDATA = WITHTAXDATA

* VENDORITEMSPLITDATA = VENDORITEMSPLITDATA

RETURN = RETURN

* EXTENSIONIN = EXTENSIONIN

* TM_ITEMDATA = TM_ITEMDATA

* NFMETALLITMS = NFMETALLITMS

* ASSETDATA = ASSETDATA

ENDFORM.

*&---------------------------------------------------------------------*

*& Form FILL_MESSAGE

*&---------------------------------------------------------------------*

*& text

*&---------------------------------------------------------------------*

*& --> RETURN

*&---------------------------------------------------------------------*

FORM FILL_MESSAGE1 TABLES RETURN STRUCTURE BAPIRET2

LT_ZTMM_CGDZ STRUCTURE ZTMM_CGDZ

LT_OUTPUT1_TEMP STRUCTURE GS_OUTPUT

USING P_ZDZD

INVOICEDOCNUMBER

FISCALYEAR.

DATA:LV_MSG TYPE STRING.

DATA:LS_OUTPUT1_TEMP TYPE TY_OUTPUT.

READ TABLE RETURN ASSIGNING FIELD-SYMBOL(<FW_RETURN>) WITH KEY TYPE = 'E'.

IF SY-SUBRC EQ 0."error

ROLLBACK WORK.

CLEAR:LV_MSG.

LOOP AT RETURN ASSIGNING <FW_RETURN> WHERE TYPE = 'E'.

CONCATENATE LV_MSG <FW_RETURN>-MESSAGE '；' INTO LV_MSG.

ENDLOOP.

CONCATENATE '创建失败' LV_MSG INTO LV_MSG.

LOOP AT LT_OUTPUT1_TEMP INTO LS_OUTPUT1_TEMP WHERE ZDZD EQ P_ZDZD.

MOVE LV_MSG TO LS_OUTPUT1_TEMP-MESSAGE.

MOVE GC_LIGHT_R TO LS_OUTPUT1_TEMP-STATUS.

MODIFY LT_OUTPUT1_TEMP FROM LS_OUTPUT1_TEMP.

ENDLOOP.

ELSE."right

COMMIT WORK AND WAIT.

LOOP AT LT_OUTPUT1_TEMP INTO LS_OUTPUT1_TEMP WHERE ZDZD EQ P_ZDZD.

CONCATENATE '预制凭证' INVOICEDOCNUMBER '财年' FISCALYEAR '创建成功' INTO LS_OUTPUT1_TEMP-MESSAGE.

MOVE INVOICEDOCNUMBER TO LS_OUTPUT1_TEMP-BELNR."凭证

MOVE FISCALYEAR TO LS_OUTPUT1_TEMP-GJAHR."财年

MOVE GC_LIGHT_G TO LS_OUTPUT1_TEMP-STATUS.

MODIFY LT_OUTPUT1_TEMP FROM LS_OUTPUT1_TEMP.

"重新取数，因为计算的值不写会自建表

SELECT SINGLE

INTO @DATA(LS_ZTMM_CGDZ)

FROM ZTMM_CGDZ

WHERE ZDZD EQ @LS_OUTPUT1_TEMP-ZDZD

AND ZITM EQ @LS_OUTPUT1_TEMP-ZITM.

MOVE 2 TO LS_ZTMM_CGDZ-ZFPZT .

MOVE INVOICEDOCNUMBER TO LS_ZTMM_CGDZ-BELNR."凭证

MOVE FISCALYEAR TO LS_ZTMM_CGDZ-GJAHR."财年

MOVE SY-DATUM TO LS_ZTMM_CGDZ-ZFPRQ ."预制发票创建日期

MOVE SY-UNAME TO LS_ZTMM_CGDZ-UPNAM ."最后更改者

MOVE SY-DATUM TO LS_ZTMM_CGDZ-UPDAT ."最后更改日期

MOVE SY-UZEIT TO LS_ZTMM_CGDZ-UPTIM ."最后更改时间

APPEND LS_ZTMM_CGDZ TO LT_ZTMM_CGDZ. "发票过账状态

ENDLOOP.

ENDIF.

ENDFORM.

*&---------------------------------------------------------------------*

*& Form GET_HEAD

*&---------------------------------------------------------------------*

*& text

*&---------------------------------------------------------------------*

*& --> <FW_OUTPUT>

*& <-- HEADERDATA

*&---------------------------------------------------------------------*

FORM GET_HEAD1 TABLES TAXDATA STRUCTURE BAPI_INCINV_CREATE_TAX

USING FW_OUTPUT TYPE TY_OUTPUT

CHANGING HEADERDATA TYPE BAPI_INCINV_CREATE_HEADER.

DATA: LS_TAXDATA TYPE BAPI_INCINV_CREATE_TAX.

IF FW_OUTPUT-ZYF GT 0.

HEADERDATA-INVOICE_IND = 'X'. "发票

HEADERDATA-DELIV_POSTING = 'S'.

HEADERDATA-RETURN_POSTING = 'H'.

HEADERDATA-GROSS_AMOUNT = FW_OUTPUT-ZYF.

ELSE.

HEADERDATA-INVOICE_IND = ''. "贷项凭证

HEADERDATA-DELIV_POSTING = 'H'.

HEADERDATA-RETURN_POSTING = 'H'.

HEADERDATA-GROSS_AMOUNT = FW_OUTPUT-ZYF * -1.

ENDIF.

HEADERDATA-DOC_DATE = SY-DATUM.

HEADERDATA-PSTNG_DATE = SY-DATUM.

HEADERDATA-BLINE_DATE = SY-DATUM.

** 公司代码取值逻辑

SELECT SINGLE

BUKRS

INTO HEADERDATA-COMP_CODE

FROM T001K

WHERE BWKEY EQ FW_OUTPUT-WERKS.

SELECT SINGLE

WAERS

INTO HEADERDATA-CURRENCY

FROM EKKO

WHERE EBELN EQ FW_OUTPUT-EBELN.

HEADERDATA-DEL_COSTS = 0.

SELECT SINGLE

LIFN2

INTO HEADERDATA-DIFF_INV

FROM WYT3

WHERE LIFNR EQ FW_OUTPUT-LIFNR

AND PARVW EQ 'RS'.

HEADERDATA-REF_DOC_NO = FW_OUTPUT-ZDZD. "对账单号

HEADERDATA-HEADER_TXT = FW_OUTPUT-ZHTBM. "采购合同号

HEADERDATA-ITEM_TEXT = FW_OUTPUT-ZINVOC. "供应商发票号

CASE FW_OUTPUT-MWSKZ.

WHEN 'J0'.

LS_TAXDATA-TAX_CODE = 'J0'.

LS_TAXDATA-TAX_AMOUNT = 0 .

WHEN 'J1'.

LS_TAXDATA-TAX_CODE = 'J1'.

LS_TAXDATA-TAX_AMOUNT = HEADERDATA-GROSS_AMOUNT * 17 / 117.

WHEN 'J2'.

LS_TAXDATA-TAX_CODE = 'J2'.

LS_TAXDATA-TAX_AMOUNT = HEADERDATA-GROSS_AMOUNT * 16 / 116.

WHEN 'J3'.

LS_TAXDATA-TAX_CODE = 'J3'.

LS_TAXDATA-TAX_AMOUNT = HEADERDATA-GROSS_AMOUNT * 11 / 111.

WHEN 'J4'.

LS_TAXDATA-TAX_CODE = 'J4'.

LS_TAXDATA-TAX_AMOUNT = HEADERDATA-GROSS_AMOUNT * 10 / 110.

WHEN 'J5'.

LS_TAXDATA-TAX_CODE = 'J5'.

LS_TAXDATA-TAX_AMOUNT = HEADERDATA-GROSS_AMOUNT * 6 / 106.

WHEN 'J6'.

LS_TAXDATA-TAX_CODE = 'J6'.

LS_TAXDATA-TAX_AMOUNT = HEADERDATA-GROSS_AMOUNT * 5 / 105.

WHEN 'J7'.

LS_TAXDATA-TAX_CODE = 'J6'.

LS_TAXDATA-TAX_AMOUNT = HEADERDATA-GROSS_AMOUNT * 3 / 103.

WHEN OTHERS.

ENDCASE.

APPEND LS_TAXDATA TO TAXDATA.

ENDFORM.

*&---------------------------------------------------------------------*

*& Form GET_ITEM

*&---------------------------------------------------------------------*

*& text

*&---------------------------------------------------------------------*

*& --> TAXDATA

*& --> <FW_OUTPUT>

*&---------------------------------------------------------------------*

FORM GET_ITEM TABLES TAXDATA STRUCTURE BAPI_INCINV_CREATE_TAX

ITEMDATA STRUCTURE BAPI_INCINV_CREATE_ITEM

USING FW_OUTPUT TYPE TY_OUTPUT

HEADERDATA TYPE BAPI_INCINV_CREATE_HEADER

P_L_ROWS

DATA:LS_ITEMDATA TYPE BAPI_INCINV_CREATE_ITEM.

DATA:L_ZDZJE TYPE ZZEZDZJE."对账金额

* "ITEM

MOVE P_L_ROWS TO LS_ITEMDATA-INVOICE_DOC_ITEM."行号

MOVE FW_OUTPUT-EBELN TO LS_ITEMDATA-PO_NUMBER.

MOVE FW_OUTPUT-EBELP TO LS_ITEMDATA-PO_ITEM.

MOVE FW_OUTPUT-ZDDZSL TO LS_ITEMDATA-QUANTITY.

LS_ITEMDATA-QUANTITY = ABS( LS_ITEMDATA-QUANTITY )."add by handlh 20180610 行项目存绝对值

MOVE FW_OUTPUT-MWSKZ TO LS_ITEMDATA-TAX_CODE.

LS_ITEMDATA-PO_UNIT = |{ FW_OUTPUT-MEINS ALPHA = IN }|.

CASE FW_OUTPUT-MWSKZ.

WHEN 'J0'.

MOVE ABS( FW_OUTPUT-ZDDZJE ) TO LS_ITEMDATA-ITEM_AMOUNT.

WHEN 'J1'.

L_ZDZJE = ABS( FW_OUTPUT-ZDDZJE ) * 100 / 117 .