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

2020-08-27 11:51发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)你好 我正在使用POSTING...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


你好

我正在使用POSTING_INTERFACE_CLEARING,但一切都很好,但是由于某些原因,已清除的订单项中的文本和分配为空。 尚未清除的项目中的文本正常。

有什么想法吗?

谢谢

 跨度 {
 字体家族:" 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

               。