總帳憑証：BAPI_ACC_DOCUMENT_POST參數

FORM FILL_IN_TABLES USING PF_AUTOMESS.
data: WA_ZEXTEN LIKE ZEXTEN014.

PF_AUTOMESS = ''.
* ---初始化參數
CLEAR: gd_documentheader, it_accountgl, it_currencyamount,
it_accvendap, it_acccustar, it_ext2, it_return.
CLEAR: it_accountgl[], it_currencyamount[], it_accvendap[],
it_acccustar[], it_ext2[], it_return[].
SELECT SINGLE * FROM T001 WHERE BUKRS = IT_UPDATA-CCDE. "求取公司
的本位幣
* ----gd_documentheader
gd_documentheader-USERNAME = SY-UNAME.
gd_documentheader-DOC_DATE = IT_UPDATA-INV_DATE.
gd_documentheader-DOC_TYPE = IT_UPDATA-DOC_TYPE.
gd_documentheader-COMP_CODE = IT_UPDATA-CCDE.
gd_documentheader-PSTNG_DATE = IT_UPDATA-PST_DATE.
gd_documentheader-REF_DOC_NO = IT_UPDATA-REF_NO.
gd_documentheader-HEADER_TXT = IT_UPDATA-HD_TXT.
gd_documentheader-bus_act = 'RFBU'.
* --根據IT_UPDATA-PK1&IT_UPDATA-PK2按借貸分別求參數
* >>>>IT_UPDATA-
PK1>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>BEGIN
SELECT SINGLE * FROM TBSL WHERE BSCHL = IT_UPDATA-PK1. "求取post
key的借or貸
IF TBSL-SHKZG = 'S'.
IT_UPDATA-FCAMT1 = ABS( IT_UPDATA-FCAMT1 ).
"IT_UPDATA-LCAMT1 = ABS( IT_UPDATA-LCAMT1 ).
ELSEIF TBSL-SHKZG = 'H'.
IT_UPDATA-FCAMT1 = ABS( IT_UPDATA-FCAMT1 ) * -1.
"IT_UPDATA-LCAMT1 = ABS( IT_UPDATA-LCAMT1 ) * -1.
ENDIF.
* >>----it_currencyamount(10)
it_currencyamount-ITEMNO_ACC = 10.
it_currencyamount-CURRENCY = IT_UPDATA-CUR.
it_currencyamount-AMT_DOCCUR = IT_UPDATA-FCAMT1.
IF T001-WAERS <> IT_UPDATA-CUR. "--不是本位幣時，求匯率(因參數問
題，改為傳匯率)
IF IT_UPDATA-LCAMT1 IS NOT INITIAL.
it_currencyamount-EXCH_RATE = IT_UPDATA-LCAMT1.
ELSE. "如果用戶沒有錄入本位值，則取系統最近的匯率
PERFORM CONVERT_CURRENCY USING IT_UPDATA-FCAMT1 IT_UPDATA-
CUR T001-WAERS it_currencyamount-EXCH_RATE.
ENDIF.
* IF IT_UPDATA-FCAMT1 <> 0 AND IT_UPDATA-LCAMT1 IS NOT INITIAL.
* it_currencyamount-EXCH_RATE = IT_UPDATA-LCAMT1 /
IT_UPDATA-FCAMT1.
* ELSE. "如果用戶沒有錄入本位值，則取系統最近的匯率
* PERFORM CONVERT_CURRENCY USING IT_UPDATA-FCAMT1
IT_UPDATA-CUR T001-WAERS it_currencyamount-EXCH_RATE.
* ENDIF.
ENDIF.
APPEND it_currencyamount.
CLEAR it_currencyamount.
* >>----it_ext2(10)
CLEAR: WA_ZEXTEN.
WA_ZEXTEN-POSNR = 10. "??行?目
WA_ZEXTEN-BSCHL = IT_UPDATA-PK1. "post key1
IF TBSL-XSONU = 'X'.
WA_ZEXTEN-UMSKZ = IT_UPDATA-SPGL. "Special G/L Indicator
ENDIF.
it_ext2-STRUCTURE = 'ZEXTEN014'.
it_ext2-VALUEPART1 = WA_ZEXTEN.
APPEND it_ext2.
CLEAR it_ext2.
*CASE1
CASE TBSL-KOART.
WHEN 'K'. "VENDOR
* >>----it_accvendap(10)
it_accvendap-ITEMNO_ACC = 10.
it_accvendap-COMP_CODE = IT_UPDATA-CCDE.
it_accvendap-VENDOR_NO = IT_UPDATA-ACCT1.
PERFORM ADD_PRE_ZERO USING it_accvendap-VENDOR_NO. "前導加0
"-it_accvendap-GL_ACCOUNT = IT_UPDATA-ACCT1. "-'1310111010'
it_accvendap-SP_GL_IND = IT_UPDATA-SPGL.
it_accvendap-TAX_CODE = IT_UPDATA-TAXCODE.
IF TBSL-SHKZG = 'S'.
it_accvendap-BLINE_DATE = IT_UPDATA-DUEON.
ENDIF.
it_accvendap-ALLOC_NMBR = IT_UPDATA-ASSGN1.
it_accvendap-ITEM_TEXT = IT_UPDATA-ITEM_TXT1.
it_accvendap-BUS_AREA = IT_UPDATA-BUSAR1.
* ---LFB1
select single * from LFB1 where lifnr = it_accvendap-VENDOR_NO
and
bukrs = IT_UPDATA-CCDE.
IF IT_UPDATA-ZTERM IS NOT INITIAL.
it_accvendap-PMNTTRMS = IT_UPDATA-ZTERM. "Payment Key
ELSE.
it_accvendap-PMNTTRMS = LFB1-ZTERM.
ENDIF.
select single * from T052 where zterm = LFB1-ZTERM.
IF IT_UPDATA-ZBD1T IS NOT INITIAL.
it_accvendap-DSCT_DAYS1 = IT_UPDATA-ZBD1T. "Cash discount
days 1
ELSE.
it_accvendap-DSCT_DAYS1 = T052-ZTAG1.
ENDIF.
IF IT_UPDATA-ZFBDT IS NOT INITIAL.
it_accvendap-BLINE_DATE = IT_UPDATA-ZFBDT. "Baseline Date
for Due Date Calculation
ELSE.
it_accvendap-BLINE_DATE = IT_UPDATA-INV_DATE. "--SY-DATUM.
ENDIF.
* --- end
APPEND it_accvendap.
CLEAR it_accvendap.
WHEN 'D'. "CUSTOMER
* >>----it_acccustar(10)
it_acccustar-ITEMNO_ACC = 10.
it_acccustar-COMP_CODE = IT_UPDATA-CCDE.
it_acccustar-CUSTOMER = IT_UPDATA-ACCT1.
PERFORM ADD_PRE_ZERO USING it_acccustar-CUSTOMER. "前導加0
"-it_acccustar-GL_ACCOUNT = IT_UPDATA-ACCT1.
it_acccustar-SP_GL_IND = IT_UPDATA-SPGL.
it_acccustar-TAX_CODE = IT_UPDATA-TAXCODE.
IF TBSL-SHKZG = 'S'.
it_acccustar-BLINE_DATE = IT_UPDATA-DUEON.
ENDIF.
it_acccustar-ALLOC_NMBR = IT_UPDATA-ASSGN1.
it_acccustar-ITEM_TEXT = IT_UPDATA-ITEM_TXT1.
it_acccustar-BUS_AREA = IT_UPDATA-BUSAR1.
* --KNB1
select single * from KNB1 where kunnr = it_acccustar-CUSTOMER
and
bukrs = IT_UPDATA-CCDE.
IF IT_UPDATA-ZTERM IS NOT INITIAL.
it_acccustar-PMNTTRMS = IT_UPDATA-ZTERM. "Payment Key
ELSE.
it_acccustar-PMNTTRMS = KNB1-ZTERM.
ENDIF.
select single * from T052 where zterm = KNB1-ZTERM.
IF IT_UPDATA-ZBD1T IS NOT INITIAL.
it_acccustar-DSCT_DAYS1 = IT_UPDATA-ZBD1T. "Cash discount
days 1
ELSE.
it_acccustar-DSCT_DAYS1 = T052-ZTAG1.
ENDIF.
IF IT_UPDATA-ZFBDT IS NOT INITIAL.
it_acccustar-BLINE_DATE = IT_UPDATA-ZFBDT. "Baseline Date
for Due Date Calculation
ELSE.
it_acccustar-BLINE_DATE = IT_UPDATA-INV_DATE. "--SY-DATUM.
ENDIF.
* -- end
APPEND it_acccustar.
CLEAR it_acccustar.
WHEN OTHERS. "STANDARD(40/50)
SELECT SINGLE * FROM SKB1 WHERE BUKRS = IT_UPDATA-CCDE AND
SAKNR = IT_UPDATA-ACCT1.
* >>----it_accountgl(10)
it_accountgl-ITEMNO_ACC = 10.
it_accountgl-GL_ACCOUNT = IT_UPDATA-ACCT1.
it_accountgl-ALLOC_NMBR = IT_UPDATA-ASSGN1.
it_accountgl-ITEM_TEXT = IT_UPDATA-ITEM_TXT1.
it_accountgl-COSTCENTER = IT_UPDATA-CCTR1.
it_accountgl-PROFIT_CTR = IT_UPDATA-PCTR1.
it_accountgl-BUS_AREA = IT_UPDATA-BUSAR1.
IF SKB1-MWSKZ IS NOT INITIAL. "會計科目需不需要Tax code
it_accountgl-TAX_CODE = IT_UPDATA-TAXCODE.
ENDIF.
IF SKB1-XINTB = 'X'.
CONCATENATE '[' IT_UPDATA-ACCT1 ']' TEXT-E02 INTO
PF_AUTOMESS.
ENDIF.
APPEND it_accountgl.
CLEAR it_accountgl.
ENDCASE.
*ENDCASE1
* >>>>IT_UPDATA-
PK1>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>END
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
=
* >>>>IT_UPDATA-
PK2>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>BEGIN
SELECT SINGLE * FROM TBSL WHERE BSCHL = IT_UPDATA-PK2. "求取post
key的借or貸
IF TBSL-SHKZG = 'S'.
IT_UPDATA-FCAMT2 = ABS( IT_UPDATA-FCAMT2 ).
"IT_UPDATA-LCAMT2 = ABS( IT_UPDATA-LCAMT2 ).
ELSEIF TBSL-SHKZG = 'H'.
IT_UPDATA-FCAMT2 = ABS( IT_UPDATA-FCAMT2 ) * -1.
"IT_UPDATA-LCAMT2 = ABS( IT_UPDATA-LCAMT2 ) * -1.
ENDIF.
* ----it_currencyamount(20)
it_currencyamount-ITEMNO_ACC = 20.
it_currencyamount-CURRENCY = IT_UPDATA-CUR.
it_currencyamount-AMT_DOCCUR = IT_UPDATA-FCAMT2.
*----
IF T001-WAERS <> IT_UPDATA-CUR. "--不是本位幣時，求匯率(因參數問
題，改為傳匯率)
IF IT_UPDATA-LCAMT2 IS NOT INITIAL.
it_currencyamount-EXCH_RATE = IT_UPDATA-LCAMT2.
ELSE. "如果用戶沒有錄入本位值，則取系統最近的匯率
PERFORM CONVERT_CURRENCY USING IT_UPDATA-FCAMT2 IT_UPDATA-
CUR T001-WAERS it_currencyamount-EXCH_RATE.
ENDIF.
* IF IT_UPDATA-FCAMT2 <> 0 AND IT_UPDATA-LCAMT2 IS NOT INITIAL.
* it_currencyamount-EXCH_RATE = IT_UPDATA-LCAMT2 /
IT_UPDATA-FCAMT2.
* ELSE. "如果用戶沒有錄入本位值，則取系統最近的匯率
* PERFORM CONVERT_CURRENCY USING IT_UPDATA-FCAMT2
IT_UPDATA-CUR T001-WAERS it_currencyamount-EXCH_RATE.
* ENDIF.
ENDIF.
*----
APPEND it_currencyamount.
CLEAR it_currencyamount.
* >>----it_ext2(20)
CLEAR: WA_ZEXTEN.
WA_ZEXTEN-POSNR = 20. "??行?目
WA_ZEXTEN-BSCHL = IT_UPDATA-PK2. "post key2
IF TBSL-XSONU = 'X'.
WA_ZEXTEN-UMSKZ = IT_UPDATA-SPGL. "Special G/L Indicator
ENDIF.
"--WA_ZEXTEN-DMBTR = IT_UPDATA-LCAMT2. "---07/05
it_ext2-STRUCTURE = 'ZEXTEN014'.
it_ext2-VALUEPART1 = WA_ZEXTEN.
APPEND it_ext2.
CLEAR it_ext2.
*CASE2
CASE TBSL-KOART.
WHEN 'K'. "VENDOR
* >>----it_accvendap(20)
it_accvendap-ITEMNO_ACC = 20.
it_accvendap-COMP_CODE = IT_UPDATA-CCDE.
it_accvendap-VENDOR_NO = IT_UPDATA-ACCT2.
PERFORM ADD_PRE_ZERO USING it_accvendap-VENDOR_NO. "前導加0
"-it_accvendap-GL_ACCOUNT = IT_UPDATA-ACCT2.
it_accvendap-SP_GL_IND = IT_UPDATA-SPGL.
it_accvendap-TAX_CODE = IT_UPDATA-TAXCODE.
IF TBSL-SHKZG = 'S'.
it_accvendap-BLINE_DATE = IT_UPDATA-DUEON.
ENDIF.
it_accvendap-ALLOC_NMBR = IT_UPDATA-ASSGN2.
it_accvendap-ITEM_TEXT = IT_UPDATA-ITEM_TXT2.
it_accvendap-BUS_AREA = IT_UPDATA-BUSAR2.
* ---LFB1
select single * from LFB1 where lifnr = it_accvendap-VENDOR_NO
and
bukrs = IT_UPDATA-CCDE.
IF IT_UPDATA-ZTERM IS NOT INITIAL.
it_accvendap-PMNTTRMS = IT_UPDATA-ZTERM. "Payment Key
ELSE.
it_accvendap-PMNTTRMS = LFB1-ZTERM.
ENDIF.
select single * from T052 where zterm = LFB1-ZTERM.
IF IT_UPDATA-ZBD1T IS NOT INITIAL.
it_accvendap-DSCT_DAYS1 = IT_UPDATA-ZBD1T. "Cash discount
days 1
ELSE.
it_accvendap-DSCT_DAYS1 = T052-ZTAG1.
ENDIF.
IF IT_UPDATA-ZFBDT IS NOT INITIAL.
it_accvendap-BLINE_DATE = IT_UPDATA-ZFBDT. "Baseline Date
for Due Date Calculation
ELSE.
it_accvendap-BLINE_DATE = IT_UPDATA-INV_DATE. "--SY-DATUM.
ENDIF.
* --- end
APPEND it_accvendap.
CLEAR it_accvendap.
WHEN 'D'. "CUSTOMER
* >>----it_acccustar(20)
it_acccustar-ITEMNO_ACC = 20.
it_acccustar-COMP_CODE = IT_UPDATA-CCDE.
it_acccustar-CUSTOMER = IT_UPDATA-ACCT2.
PERFORM ADD_PRE_ZERO USING it_acccustar-CUSTOMER. "前導加0
"-it_acccustar-GL_ACCOUNT = IT_UPDATA-ACCT2.
it_acccustar-SP_GL_IND = IT_UPDATA-SPGL.
it_acccustar-TAX_CODE = IT_UPDATA-TAXCODE.
IF TBSL-SHKZG = 'S'.
it_acccustar-BLINE_DATE = IT_UPDATA-DUEON.
ENDIF.
it_acccustar-ALLOC_NMBR = IT_UPDATA-ASSGN2.
it_acccustar-ITEM_TEXT = IT_UPDATA-ITEM_TXT2.
it_acccustar-BUS_AREA = IT_UPDATA-BUSAR2.
* --KNB1
select single * from KNB1 where kunnr = it_acccustar-CUSTOMER
and
bukrs = IT_UPDATA-CCDE.
IF IT_UPDATA-ZTERM IS NOT INITIAL.
it_acccustar-PMNTTRMS = IT_UPDATA-ZTERM. "Payment Key
ELSE.
it_acccustar-PMNTTRMS = KNB1-ZTERM.
ENDIF.
select single * from T052 where zterm = KNB1-ZTERM.
IF IT_UPDATA-ZBD1T IS NOT INITIAL.
it_acccustar-DSCT_DAYS1 = IT_UPDATA-ZBD1T. "Cash discount
days 1
ELSE.
it_acccustar-DSCT_DAYS1 = T052-ZTAG1.
ENDIF.
IF IT_UPDATA-ZFBDT IS NOT INITIAL.
it_acccustar-BLINE_DATE = IT_UPDATA-ZFBDT. "Baseline Date
for Due Date Calculation
ELSE.
it_acccustar-BLINE_DATE = IT_UPDATA-INV_DATE. "--SY-DATUM.
ENDIF.
* -- end
APPEND it_acccustar.
CLEAR it_acccustar.
WHEN OTHERS. "STANDARD(40/50)
SELECT SINGLE * FROM SKB1 WHERE BUKRS = IT_UPDATA-CCDE AND
SAKNR = IT_UPDATA-ACCT2.
* >>----it_accountgl(20)
it_accountgl-ITEMNO_ACC = 20.
it_accountgl-GL_ACCOUNT = IT_UPDATA-ACCT2.
it_accountgl-ALLOC_NMBR = IT_UPDATA-ASSGN2.
it_accountgl-ITEM_TEXT = IT_UPDATA-ITEM_TXT2.
it_accountgl-COSTCENTER = IT_UPDATA-CCTR2.
it_accountgl-PROFIT_CTR = IT_UPDATA-PCTR2.
it_accountgl-BUS_AREA = IT_UPDATA-BUSAR2.
IF SKB1-MWSKZ IS NOT INITIAL. "會計科目需不需要Tax code
it_accountgl-TAX_CODE = IT_UPDATA-TAXCODE.
ENDIF.
IF SKB1-XINTB = 'X'.
CONCATENATE PF_AUTOMESS '[' IT_UPDATA-ACCT2 ']' TEXT-E02
INTO PF_AUTOMESS.
ENDIF.
APPEND it_accountgl.
CLEAR it_accountgl.
ENDCASE.
*ENDCASE2
* >>>>IT_UPDATA-
PK2>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>END
ENDFORM.