BAPI:BAPI_BILLINGDOC_CREATEMULTIPLE (TCODE:VF01 - 销售发票预制)

r囧r小猫 2022-07-15 01:48 220阅读 0赞

FORM frm\_billingdoc\_create  TABLES   tp\_din\_item STRUCTURE zrmxsds006  
\*                                     tp\_din\_cond STRUCTURE zrmxsds007  
                                     tp\_msg      STRUCTURE zifsret01  
                                     tp\_dou\_item STRUCTURE zrmxsds008  
                            CHANGING cp\_eind TYPE c  
                                     cp\_vbeln TYPE c.

DATA: lt\_billingdatain   TYPE TABLE OF bapivbrk,  
        ls\_billingdatain   TYPE bapivbrk,  
\*        lt\_conditiondatain TYPE TABLE OF bapikomv,  
\*        ls\_conditiondatain TYPE bapikomv,  
        lt\_success         TYPE TABLE OF bapivbrksuccess,  
        ls\_success         TYPE bapivbrksuccess,  
        lt\_return          TYPE TABLE OF bapiret1,  
        ls\_return          TYPE bapiret1.

DATA: lt\_din\_item   TYPE TABLE OF zifrmx\_datain\_013p01-item,  
        ls\_din\_item   TYPE LINE  OF zifrmx\_datain\_013p01-item,

\*        lt\_din\_cond   TYPE TABLE OF zifrmx\_datain\_013p01-conds,  
\*        ls\_din\_cond   TYPE LINE  OF zifrmx\_datain\_013p01-conds,

lt\_dou\_item   TYPE TABLE OF zifrmx\_dataout\_013p01-item,  
        ls\_dou\_item   TYPE LINE  OF zifrmx\_dataout\_013p01-item,  
        ls\_msg        TYPE zifsret01,  
        lv\_fkart      TYPE vbrk-fkart VALUE 'ZR1',  
        lv\_vbtyp      TYPE vbrk-vbtyp VALUE 'C',  
        lv\_index      TYPE i.

CLEAR: lv\_index.

\* BAPI赋值  
  LOOP AT tp\_din\_item INTO ls\_din\_item.  
    lv\_index = lv\_index + 1.  
    ls\_billingdatain-doc\_number    = ls\_din\_item-vbeln.  
    ls\_billingdatain-itm\_number    = ls\_din\_item-posnr.  
    ls\_billingdatain-ref\_doc       = ls\_din\_item-vbeln.  
    ls\_billingdatain-ref\_item      = ls\_din\_item-posnr.  
    ls\_billingdatain-ordbilltyp    = lv\_fkart.  
    ls\_billingdatain-ref\_doc\_ca    = lv\_vbtyp.  
    ls\_billingdatain-salesorg      = ls\_din\_item-vkorg.  
    ls\_billingdatain-distr\_chan    = ls\_din\_item-vtweg.  
    ls\_billingdatain-division      = ls\_din\_item-spart.  
    ls\_billingdatain-sold\_to       = ls\_din\_item-kunnr\_ag.  "售达方  
    ls\_billingdatain-ship\_to       = ls\_din\_item-kunnr\_we.  "送达方  
    ls\_billingdatain-bill\_to       = ls\_din\_item-kunnr\_re.  "开票方  
    ls\_billingdatain-payer         = ls\_din\_item-kunnr\_rg.  "付款方  
    ls\_billingdatain-payment\_terms = ls\_din\_item-zterm.  
    ls\_billingdatain-incoterms1    = ls\_din\_item-inco1.  
    ls\_billingdatain-incoterms2    = ls\_din\_item-inco2.  
    ls\_billingdatain-plant         = ls\_din\_item-werks.  
    ls\_billingdatain-material      = ls\_din\_item-matnr.  
    ls\_billingdatain-req\_qty       = ls\_din\_item-menge.  
    ls\_billingdatain-sales\_unit    = ls\_din\_item-meins.  
    APPEND ls\_billingdatain TO lt\_billingdatain.

\*    LOOP AT tp\_din\_cond INTO ls\_din\_cond WHERE posnr = ls\_din\_item-posnr.  
\*      ls\_conditiondatain-data\_index = lv\_index.  
\*      ls\_conditiondatain-cond\_type  = ls\_din\_cond-kschl.  
\*      ls\_conditiondatain-cond\_value = ls\_din\_cond-kbetr.  
\*      ls\_conditiondatain-cond\_curr  = ls\_din\_cond-koein.  
\*      ls\_conditiondatain-cond\_p\_unt = ls\_din\_cond-kpein.  
\*      ls\_conditiondatain-cond\_d\_unt = ls\_din\_cond-kmein.  
\*  
\*      APPEND ls\_conditiondatain TO lt\_conditiondatain.  
\*      CLEAR: ls\_conditiondatain.  
\*    ENDLOOP.

CLEAR: ls\_billingdatain.  
  ENDLOOP.

CALL FUNCTION 'BAPI\_BILLINGDOC\_CREATEMULTIPLE'  
    TABLES  
      billingdatain         = lt\_billingdatain  
\*     conditiondatain       = lt\_conditiondatain  
\*     CCARDDATAIN           =  
\*     TEXTDATAIN            =  
\*     ERRORS                =  
      return                = lt\_return  
      success               = lt\_success  
            .

IF lt\_success IS INITIAL.  
    cp\_eind = 'X'.  
  ENDIF.

IF cp\_eind EQ 'X'.  
    CALL FUNCTION 'BAPI\_TRANSACTION\_ROLLBACK'.  
  ELSE.  
    CALL FUNCTION 'BAPI\_TRANSACTION\_COMMIT'  
      EXPORTING  
        wait = 'X'.

"返回成功的发票号  
    LOOP AT lt\_success INTO ls\_success.  
      CLEAR: ls\_dou\_item.  
      ls\_dou\_item-vbeln = ls\_success-bill\_doc.  
      ls\_dou\_item-posnr = ls\_success-bill\_doc\_item.  
      APPEND ls\_dou\_item TO tp\_dou\_item.

cp\_vbeln = ls\_success-bill\_doc.  
    ENDLOOP.

ENDIF.

LOOP AT lt\_return INTO ls\_return.  
    ls\_msg-class   = 'BUS'.  
    ls\_msg-msgtyp  = ls\_return-type.  
    ls\_msg-msgno   = ls\_return-number.  
    ls\_msg-msgtxt  = ls\_return-message.  
    APPEND ls\_msg TO tp\_msg.  
    CLEAR ls\_msg.  
  ENDLOOP.

ENDFORM.                    " FRM\_BILLINGDOC\_CREATE

由于销售发票预制从销售订单复制数据及价格条件，若需要修改价格条件，则该BAPI会插入新的条件，无法直接修改复制过来的价格条件，因此，将配置设置为不从销售订单复制数据，使用BAPI可以价格价格条件行项目，但是价格为0，无法加入。

最终，BAPI创建时不使用价格条件，完成后使用BDC加入价格条件。

\*&---------------------------------------------------------------------\*  
\*&      Form  FRM\_BILLINGDOC\_COND\_BDC  
\*&---------------------------------------------------------------------\*  
\*       使用BDC修改价格条件  
\*----------------------------------------------------------------------\*  
\*      -->P\_LT\_DIN\_COND  text  
\*      -->P\_LT\_DOU\_ITEM  text  
\*      -->P\_LT\_MSG  text  
\*      <--P\_LV\_EIND  text  
\*----------------------------------------------------------------------\*  
FORM frm\_billingdoc\_cond\_bdc TABLES  tp\_item      STRUCTURE zrmxsds006  
                                      tp\_cond      STRUCTURE zrmxsds007  
\*                                      tp\_item\_out  STRUCTURE zrmxsds008  
                                      tp\_msg       STRUCTURE zifsret01  
                              USING    up\_vbeln TYPE c  
                              CHANGING cp\_eind TYPE c  
                              .

DATA: ls\_item   TYPE LINE OF zifrmx\_datain\_013p01-item,  
        ls\_cond   TYPE LINE OF zifrmx\_datain\_013p01-conds,  
\*        ls\_item\_out   TYPE LINE OF zifrmx\_dataout\_013p01-item,  
        ls\_msg    TYPE zifsret01.

DATA:  
        lv\_field(14) TYPE c,  
        lv\_kbetr(16) TYPE c,  
        lv\_kpein(5)  TYPE c.

CONSTANTS: cns\_lines\_per\_page TYPE i VALUE 15.

DATA: lv\_total\_lines  TYPE i,  
        lv\_curr\_line(2) TYPE n,  
        lv\_index        TYPE i,  
        lv\_top\_line     TYPE i,  
        lv\_pages        TYPE i,  
        lv\_next         TYPE i,  
        lv\_total\_page   TYPE i,  
        lv\_total\_next   TYPE i.

REFRESH: gt\_bdcdata\[\],  
           gt\_bdcmsg\[\].

CLEAR: vbrk.  
  DO 10 TIMES.  
    SELECT SINGLE \* FROM vbrk  
      WHERE vbeln = up\_vbeln.  
    IF sy-subrc EQ 0.  
      EXIT.  
    ELSE.  
      WAIT UP TO 1 SECONDS.  
    ENDIF.  
  ENDDO.

IF vbrk IS INITIAL.  
    CLEAR ls\_msg.  
    ls\_msg-class  = 'BUS'.  
    ls\_msg-msgtyp = 'W'.  
    ls\_msg-msgno  = '102'.  
    ls\_msg-msgtxt = '发票的价格条件没有写入!'.  
    APPEND ls\_msg TO tp\_msg.  
    RETURN.  
  ENDIF.

"第一屏：输入发票号  
  PERFORM frm\_fill\_bdc USING: 'X' 'SAPMV60A'   '0101',  
                              ''  'VBRK-VBELN' up\_vbeln,  
                              ''  'BDC\_OKCODE' '/00'.        "回车

DESCRIBE TABLE tp\_item LINES lv\_total\_lines.  
  lv\_total\_page = lv\_total\_lines DIV cns\_lines\_per\_page.  "总页码  
  lv\_total\_next = lv\_total\_lines MOD cns\_lines\_per\_page.  "

LOOP AT tp\_item INTO ls\_item.  
    lv\_index = sy-tabix.  
    lv\_pages = lv\_index DIV cns\_lines\_per\_page.  
    lv\_next  = lv\_index MOD cns\_lines\_per\_page.  
    lv\_curr\_line = lv\_index - lv\_top\_line.

CONCATENATE 'VBRP-POSNR(' lv\_curr\_line ')' INTO lv\_field.

\* 第二屏：双击第n行  
    PERFORM frm\_fill\_bdc USING: 'X' 'SAPMV60A'   '0104',  
                                ''  'BDC\_CURSOR' lv\_field,     "'VBRP-POSNR(01)',  
                                ''  'BDC\_OKCODE' '=PFDE'.        "双击

\* 选择价格调价标签页  
    PERFORM frm\_fill\_bdc USING: 'X' 'SAPMV60A'   '6002',  
                                ''  'BDC\_OKCODE' '=PFKO'.        "标签页：条件

\* 循环添加价格条件行  
    LOOP AT tp\_cond INTO ls\_cond WHERE posnr = ls\_item-posnr.  
      lv\_kbetr = ls\_cond-kbetr.  
      lv\_kpein = ls\_cond-kpein.

PERFORM frm\_fill\_bdc USING: 'X' 'SAPMV60A'   '6002',  
                                  ''  'BDC\_OKCODE' '=V69A\_KOAN'.        "新增行

PERFORM frm\_fill\_bdc USING: 'X' 'SAPMV60A'   '6002',  
                                  ''  'KOMV-KSCHL(02)'  ls\_cond-kschl,   "  
                                  ''  'KOMV-KBETR(02)'  lv\_kbetr,        "  
                                  ''  'RV61A-KOEIN(02)' ls\_cond-koein,   "  
                                  ''  'KOMV-KPEIN(02)'  lv\_kpein,   "  
                                  ''  'KOMV-KMEIN(02)'  ls\_cond-kmein,   "  
                                  ''  'BDC\_OKCODE' '/00'.        "  
    ENDLOOP.

\* 返回第一屏  
    PERFORM frm\_fill\_bdc USING: 'X' 'SAPMV60A'   '6002',  
                                ''  'BDC\_OKCODE' '=BACK'.

IF lv\_pages > 0 AND lv\_next = 0.  
      "翻页  
      PERFORM frm\_fill\_bdc USING: 'X' 'SAPMV60A'   '0104',  
                                  ''  'BDC\_OKCODE' '=P+'.  
    ENDIF.

"翻页后，最后一行在TabControl的最底部  
    lv\_top\_line = lv\_pages \* cns\_lines\_per\_page.  
    IF lv\_pages = lv\_total\_page AND lv\_pages > 0.  
      lv\_top\_line = lv\_top\_line - ( cns\_lines\_per\_page - lv\_total\_next ).  
    ENDIF.

ENDLOOP.

\* save  
  PERFORM frm\_fill\_bdc USING: 'X' 'SAPMV60A'   '0104',  
                              ''  'BDC\_OKCODE' '=SICH'.

CALL TRANSACTION 'VF02'  USING gt\_bdcdata  
                           MODE  gv\_mode  
                           UPDATE 'S'  
                           MESSAGES INTO gt\_bdcmsg.

COMMIT WORK AND WAIT.

DATA: lv\_msg TYPE string.  
  LOOP AT gt\_bdcmsg.  
    IF gt\_bdcmsg-msgtyp = 'A' OR gt\_bdcmsg-msgtyp = 'E'.  
      gt\_bdcmsg-msgtyp = 'W'.  
    ENDIF.

MESSAGE ID sy-msgid  
            TYPE gt\_bdcmsg-msgtyp  
            NUMBER gt\_bdcmsg-msgnr  
            WITH gt\_bdcmsg-msgv1 gt\_bdcmsg-msgv2 gt\_bdcmsg-msgv3 gt\_bdcmsg-msgv4  
            INTO lv\_msg.

CLEAR ls\_msg.  
    ls\_msg-class = 'BUS'.  
    ls\_msg-msgtyp = gt\_bdcmsg-msgtyp.  
    ls\_msg-msgno  = gt\_bdcmsg-msgnr.  
    ls\_msg-msgtxt = lv\_msg.  
    APPEND ls\_msg TO tp\_msg.  
  ENDLOOP.

ENDFORM.                    " FRM\_BILLINGDOC\_COND\_BDC

\*&---------------------------------------------------------------------\*  
\*&      Form  frm\_fill\_bdc  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*      -->P\_1        text  
\*      -->P\_2        text  
\*      -->P\_3        text  
\*----------------------------------------------------------------------\*  
FORM frm\_fill\_bdc USING p\_1 p\_2 p\_3.  
  IF p\_1 = 'X'.  
    gt\_bdcdata-program  = p\_2.  
    gt\_bdcdata-dynpro   = p\_3.  
    gt\_bdcdata-dynbegin = 'X'.  
  ELSE.  
    gt\_bdcdata-fnam     = p\_2.  
    gt\_bdcdata-fval     = p\_3.  
  ENDIF.

APPEND gt\_bdcdata.  
  CLEAR  gt\_bdcdata.  
ENDFORM.                    " frm\_fill\_bdc