POSTING_INTERFACE_CLEARING-FB05，sgtxt，zuonr未在已清除的订单项上转移

2020-08-27 11:51发布

跨度 { 字体家族：" Courier New"；字体大小：10pt；颜色：#000000; 背景：#FFFFFF; } .L0S31 { 字体样式：斜体；颜色：#808080; } .L0S32 { 颜色：#3399FF; } .L0S33 { 颜色：#4DA619; } .L0S52 { 颜色：#0000FF; } .L0S55 { 颜色：#800080; } .L0S70 { 颜色：#808080; } WA_FTCLEAR-AGKOA ='D'。 WA_FTCLEAR-AGBUK = C_BUKRS。 WA_FTCLEAR-XNOPS ='X'。 WA_FTCLEAR-XFIFO ='X'。 WA_FTCLEAR-AGKON = l_kunnr。 WA_FTCLEAR-SELFD ='BELNR'。 WA_FTCLEAR-SELVON = INVOICE_NO。 WA_FTCLEAR-SELBIS = INVOICE_NO。将WA_FTCLEAR附加到T_FTCLEAR。 ****************************************** 清除：WA_FTPOST。 WA_FTPOST-STYPE ='K'。 "标题 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BKPF-BLDAT'。用""替换INVOICE_DATE中所有出现的"-"。年= INVOICE_DATE（4）。月= INVOICE_DATE + 4（2）。天= INVOICE_DATE + 6（2）。将日期月份年份INTO WA_FTPOST-FVAL分隔为"。"。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='K'。 "标题 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BKPF-BUDAT'。将日期月份年份INTO WA_FTPOST-FVAL分隔为"。"。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='K'。 "标题 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BKPF-BUKRS'。 WA_FTPOST-FVAL = C_BUKRS。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='K'。 "标题 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BKPF-XBLNR'。 WA_FTPOST-FVAL = tmp_billing。" C_XBLNR。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='K'。 "标题 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BKPF-BKTXT'。 WA_FTPOST-FVAL =说明。" C_BKTXT。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='K'。 "标题 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BKPF-BLART'。 WA_FTPOST-FVAL = C_BLART。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='K'。 "标题 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BKPF-WAERS'。 WA_FTPOST-FVAL = WA_LINEITEMS-CURRENCY。将WA_FTPOST附加到T_FTPOST。 *订单项清除：WA_FTPOST。 WA_FTPOST-STYPE ='P'。 "线 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='RF05A-NEWKO'。 WA_FTPOST-FVAL = C_CASH。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='P'。 "线 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='RF05A-NEWBS'。 WA_FTPOST-FVAL ='40'。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='P'。 "线 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BSEG-ZUONR'。 WA_FTPOST-FVAL = JCC。" C_ZUONR2。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='P'。 "线 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BSEG-VALUT'。将日期月份年份INTO WA_FTPOST-FVAL分隔为"。"。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='P'。 "线 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BSEG-SGTXT'。 WA_FTPOST-FVAL = name1。将WA_FTPOST附加到T_FTPOST。清除：WA_FTPOST。 WA_FTPOST-STYPE ='P'。 "线 WA_FTPOST-COUNT = 1。 WA_FTPOST-FNAM ='BSEG-WRBTR'。 WA_FTPOST-FVAL = tmp_amnt。将WA_FTPOST附加到T_FTPOST。清除WA_FTPOST。 WA_FTPOST-stype ='P'。 "订单项 WA_FTPOST-count = 2。 WA_FTPOST-fnam ='RF05A-NEWBS'。 WA_FTPOST-fval ='15'。将WA_FTPOST附加到T_FTPOST。清除WA_FTPOST。 WA_FTPOST-stype ='P'。 "订单项 WA_FTPOST-count = 2。 WA_FTPOST-fnam ='RF05A-NEWKO'。 WA_FTPOST-fval = l_kunnr。将WA_FTPOST附加到T_FTPOST。清除WA_FTPOST。 WA_FTPOST-stype ='P'。 "订单项 WA_FTPOST-count = 2。 WA_FTPOST-fnam ='BSEG-ZUONR'。 WA_FTPOST-fval = JCC。 "物流开票凭证将WA_FTPOST附加到T_FTPOST。清除WA_FTPOST。 WA_FTPOST-stype ='P'。 "订单项 WA_FTPOST-count = 2。 WA_FTPOST-fnam ='BSEG-SGTXT'。 WA_FTPOST-fval =说明。" C_SGTXT2。将WA_FTPOST附加到T_FTPOST。通话功能" POSTING_INTERFACE_START" 出口 I_CLIENT = SY-MANDT I_FUNCTION ='C' I_MODE ='N' 例外情况 CLIENT_INCORRECT = 1 FUNCTION_INVALID = 2 GROUP_NAME_MISSING = 3 MODE_INVALID = 4 UPDATE_INVALID = 5 其他= 6。如果SY-SUBRC <> 0。 IS_ERROR ='X'。 MSG_ERROR ='错误启动'。出口。万一。通话功能" POSTING_INTERFACE_CLEARING" 出口 I_AUGLV ='EINGZAHL'"'UMBUCHNG' I_TCODE ='FB05' I_SGFUNCT ='C' 输入 E_MSGID = E_MSGID E_MSGNO = E_MSGNO E_MSGTY = E_MSGTY E_MSGV1 = E_MSGV1 E_MSGV2 = E_MSGV2 E_MSGV3 = E_MSGV3 E_MSGV4 = E_MSGV4 E_SUBRC = E_SUBRC 桌子 T_BLNTAB = T_BLNTAB T_FTCLEAR = T_FTCLEAR T_FTPOST = T_FTPOST T_FTTAX = T_FTTAX 例外情况 CLEARING_PROCEDURE_INVALID = 1 CLEARING_PROCEDURE_MISSING = 2 TABLE_T041A_EMPTY = 3 TRANSACTION_CODE_INVALID = 4 AMOUNT_FORMAT_ERROR = 5 TOO_MANY_LINE_ITEMS = 6 COMPANY_CODE_INVALID = 7 SCREEN_NOT_FOUND = 8 NO_AUTHORIZATION = 9 其他= 10 。