SAP SD BAPI

Crear Factura VF01

 FUNCTION z_sd_crea_factura.
 *"----------------------------------------------------------------------
 *"*"Interfase local
 *"  IMPORTING
 *"     REFERENCE(I_VBELN) TYPE  LIKP-VBELN
 *"     REFERENCE(I_FKART) TYPE  RV60A-FKART
 *"     REFERENCE(I_REF_DOC_CA) TYPE  VBTYP_V
 *"     REFERENCE(I_DOC_TYPE) TYPE  AUART
 *"  EXPORTING
 *"     REFERENCE(E_VBELN) TYPE  VBRK-VBELN
 *"     REFERENCE(E_RETURN) TYPE  BAPIRET2_T
 *"----------------------------------------------------------------------
   data lt_return1 type bapiret1_tab.
 
   DATA ld_mode(1) VALUE 'A'. " 'N'.
 
   DATA lt_mtxt LIKE TABLE OF bdcmsgcoll WITH HEADER LINE.
   DATA ls_return TYPE bapiret2.
   DATA ls_return1 TYPE bapiret1.
 
   CLEAR: e_return[],
          bdcdata[],
          lt_mtxt[],
          e_vbeln.
 
   PERFORM crea_factura USING i_fkart
                              i_vbeln
                              i_ref_doc_ca
                              i_doc_type
                       CHANGING e_vbeln
                                lt_return1[].
 
 loop at lt_return1 into ls_return1.
     MOVE-CORRESPONDING ls_return1 TO ls_return.
     APPEND ls_return TO e_return.
 ENDLOOP.
 
 ENDFUNCTION.
 
 FORM crea_factura USING p_fkart
                         p_vbeln
                         p_ref_doc_ca
                         p_doc_type
                CHANGING p_vbeln_factuta
                         p_return TYPE bapiret1_tab.
 
   DATA lt_datain TYPE STANDARD TABLE OF bapivbrk WITH HEADER LINE.
   DATA lt_return TYPE STANDARD TABLE OF bapiret1 WITH HEADER LINE.
   DATA lt_success TYPE STANDARD TABLE OF bapivbrksuccess WITH HEADER LINE.
 
   CLEAR: lt_datain, lt_datain[],
          lt_return, lt_return[],
          lt_success, lt_success[].
 
   lt_datain-ref_doc    = p_vbeln.
   lt_datain-ref_doc_ca = p_ref_doc_ca. " ls_likp-vbtyp.
   lt_datain-doc_type   = p_doc_type.    "ls_likp-lfart.
   lt_datain-ordbilltyp = p_fkart.
   APPEND lt_datain.
 
   CALL FUNCTION 'BAPI_BILLINGDOC_CREATEMULTIPLE'
     TABLES
       billingdatain = lt_datain
       return        = lt_return
       success       = lt_success.
   READ TABLE lt_success INDEX 1.
   IF sy-subrc = 0.
     p_vbeln_factuta = lt_success-bill_doc.
 
     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT          = 'X'
               .
   endif.
     p_return[] = lt_return[].
 
 ENDFORM.

Contabilizar SM - VL02N->Contabilizar SM

 FUNCTION Z_SD_CONT_SAL_MERC.
 *"----------------------------------------------------------------------
 *"*"Interfase local
 *"  IMPORTING
 *"     REFERENCE(I_VBELN) TYPE  LIKP-VBELN
 *"  EXPORTING
 *"     REFERENCE(E_VBELN) TYPE  LIKP-VBELN
 *"     REFERENCE(E_RETURN) TYPE  BAPIRET2_T
 *"----------------------------------------------------------------------
   CLEAR: e_RETURN[],
          bdcdata[],
          lt_mtxt[],
          e_vbeln.
 
   perFORM cont_sm USING i_vbeln CHANGING e_return.
  
 ENDFUNCTION.
 
 FORM cont_sm USING p_vbeln CHANGING p_return type bapiret2_t.
   DATA: ls_likp       TYPE likp,
         ls_vbkok      TYPE vbkok,
         lv_fail,
         lt_prott      TYPE STANDARD TABLE OF prott
         WITH HEADER LINE.
 
   data ls_return type bapiret2.
 
   SELECT SINGLE * INTO ls_likp FROM likp
                               WHERE vbeln = p_vbeln.
   
   CHECK NOT ls_likp IS INITIAL.     
   
   ls_vbkok-vbeln_vl = ls_likp-vbeln.
   ls_vbkok-wabuc    = 'X'.
   SET UPDATE TASK LOCAL.
   
   CALL FUNCTION 'WS_DELIVERY_UPDATE'
   EXPORTING
     vbkok_wa                 = ls_vbkok
     synchron                 = 'X'
     no_messages_update       = ' '
     update_picking           = 'X'
     COMMIT                   = ' '
     delivery                 = ls_likp-vbeln
     nicht_sperren            = 'X'
     if_error_messages_send_0 = 'X'
   TABLES
     prot                     = lt_prott
   EXCEPTIONS
     error_message            = 1
     OTHERS                   = 2.
 
   IF sy-subrc <> 0.
     ROLLBACK WORK.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO ls_return-message.
     append ls_return to p_return.
     EXIT.
   ELSE.
     LOOP AT lt_prott.
       CHECK lt_prott-msgty = 'E' OR
       lt_prott-msgty = 'A'.
       lv_fail = 'X'.
     ENDLOOP.
     IF lv_fail IS INITIAL.
       COMMIT WORK AND WAIT.
     ELSE.
       ROLLBACK WORK.
       MOVE lt_prott-msgid TO ls_return-ID.
       MOVE lt_prott-msgty TO ls_return-TYPE.
       MOVE lt_prott-msgno TO ls_return-NUMBER.
       MOVE lt_prott-msgv1  TO ls_return-MESSAGE_v1.
       MOVE lt_prott-msgv2  TO ls_return-MESSAGE_v2.
       MOVE lt_prott-msgv3  TO ls_return-MESSAGE_v3.
       MOVE lt_prott-msgv4  TO ls_return-MESSAGE_v4.
       
       MESSAGE ID lt_prott-MSGID TYPE lt_prott-MSGTY NUMBER lt_prott-MSGNo
       WITH lt_prott-MSGV1 lt_prott-MSGV2 lt_prott-MSGV3 lt_prott-MSGV4
       INTO ls_return-MESSAGE.
       
       APPEND ls_return TO p_return.
       EXIT.
     ENDIF.
   ENDIF.
 
 ENDFORM.

Cambiar Lote de Entrega

 FUNCTION z_sd_cambia_lote.
 *"----------------------------------------------------------------------
 *"*"Interfase local
 *"  IMPORTING
 *"     REFERENCE(I_VBELN) TYPE  LIKP-VBELN
 *"     REFERENCE(I_VBELN_FACTURA) TYPE  VBRK-VBELN
 *"  EXPORTING
 *"     REFERENCE(E_RETURN) TYPE  BAPIRET2_T
 *"----------------------------------------------------------------------
 
   PERFORM clear_entrega USING  i_vbeln i_vbeln_factura CHANGING e_return[].
   
   LOOP AT e_return ASSIGNING FIELD-SYMBOL(<return>) where type = 'E' OR type = 'A'.
     MESSAGE ID <return>-ID TYPE <return>-TYPE NUMBER <return>-NUMBER
     WITH <return>-message_v1 <return>-message_v2 <return>-message_v3 <return>-message_v4
     INTO <return>-MESSAGE.
   ENDLOOP.
   IF sy-subrc = 0.
     ROLLBACK WORK.
   ELSE.
     IF NOT line_exists( e_return[ type = 'S' id = 'Z' number = '999' ] ).
       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
         EXPORTING
           wait = 'X'
         .
     ENDIF.
   ENDIF.
 
 ENDFUNCTION.
 
 types: BEGIN OF ty_lote,
   vbeln type vbfa-vbeln,
   posnn type vbfa-posnn,
   charg type lips-charg,
   UECHA type lips-UECHA,
   umvkz TYPE lips-umvkz,
   umvkn TYPE lips-umvkn,
   umrev TYPE lips-umrev,
   lfimg TYPE lips-lfimg,
   lgmng TYPE lips-lgmng,
   END OF ty_lote.
 types ty_lote_t type TABLE OF ty_lote.
 
 data gt_lote type ty_lote_t.
   
 FORM buscar_lote USING p_vbeln_factura p_lips TYPE lips CHANGING p_lote TYPE ty_lote_t .
 * buscar pedido
 
   CLEAR p_lote[].
 
   SELECT SINGLE vbelv INTO @DATA(l_vbelv) FROM vbfa WHERE vbeln = @p_vbeln_factura AND
                                                           vbtyp_v = 'C' AND
                                                           vbtyp_n = 'M'.
 * buscar entregas
   SELECT * INTO CORRESPONDING FIELDS OF TABLE p_lote FROM vbfa WHERE vbelv = l_vbelv AND vbtyp_n = 'J'.
 
   LOOP AT p_lote ASSIGNING FIELD-SYMBOL(<ls_lote>).
     SELECT SINGLE charg
                   uecha
                   umvkz
                   umvkn
                   umrev
                   lfimg
                   lgmng
                   INTO CORRESPONDING FIELDS OF <ls_lote> FROM lips WHERE vbeln = <ls_lote>-vbeln
                                               AND posnr = <ls_lote>-posnn.
   ENDLOOP.
 
 ENDFORM.
 
 FORM clear_entrega USING p_delivery p_vbeln_factura CHANGING p_return TYPE bapiret2_t.
   DATA delivery LIKE  bapiobdlvhdrchg-deliv_numb.
   DATA header_data LIKE      bapiobdlvhdrchg.
   DATA header_control LIKE   bapiobdlvhdrctrlchg.
   DATA item_data TYPE bapiobdlvitemchg OCCURS 1 WITH HEADER LINE.
   DATA item_control TYPE bapiobdlvitemctrlchg OCCURS 1 WITH HEADER LINE.
   DATA return TYPE bapiret2 OCCURS 1 WITH HEADER LINE.
   DATA ti_lips LIKE lips OCCURS 1 WITH HEADER LINE.
 
   delivery = p_delivery.
 
 *header_control
   header_control-deliv_numb  = p_delivery.
   header_data-deliv_numb  = p_delivery.
 
   REFRESH ti_lips.
 
   PERFORM buscar_lote USING p_vbeln_factura ti_lips CHANGING gt_lote[].
   LOOP AT gt_lote TRANSPORTING NO FIELDS WHERE charg IS NOT INITIAL.
   ENDLOOP.
   IF sy-subrc <> 0.
 * sin lotes, nada que hacer
     return-type = 'S'.
     return-id = 'Z'.
     return-number = '999'.
     APPEND return TO p_return.
     RETURN.
   ENDIF.
 
   SELECT * FROM lips INTO TABLE ti_lips WHERE vbeln EQ p_delivery.
 
   CHECK ti_lips[] IS NOT INITIAL.
 
   DATA f_lote(1).
 
   CLEAR f_lote.
 
 * verificar si entrega generada debería tener lotes en base a entrega de salida
 * original
   LOOP  AT ti_lips WHERE charg IS INITIAL AND posnr < 900000.
 * verificar posicion tiene Part.lotes en entrega de salida original
     IF line_exists( gt_lote[ uecha = ti_lips-posnr ] ).
       f_lote = 'X'.
     ELSE.
 * verificar posicion tiene lotes en entrega de salida original
       LOOP AT gt_lote TRANSPORTING NO FIELDS WHERE posnn = ti_lips-posnr
                                                AND charg <> ''.
       ENDLOOP.
       IF sy-subrc = 0.
         f_lote = 'X'.
       ENDIF.
     ENDIF.
   ENDLOOP.
 
   IF f_lote <> 'X'.
 * entrega generada ya tiene lotes, nada que hacer
     return-type = 'S'.
     return-id = 'Z'.
     return-number = '999'.
     APPEND return TO p_return.
     RETURN.
   ENDIF.
 
   LOOP AT ti_lips WHERE charg IS INITIAL AND posnr < 900000.
 *item_data
 
 *** buscar si tiene particion de lotes
     LOOP AT gt_lote INTO DATA(ls_lote) WHERE uecha = ti_lips-posnr.
       item_data-deliv_numb      = ti_lips-vbeln.
       item_data-deliv_item      = ls_lote-posnn.
       item_data-fact_unit_nom = ls_lote-umvkz .
       item_data-fact_unit_denom = ls_lote-umvkn.
       item_data-conv_fact = ls_lote-umrev.
       item_data-dlv_qty         = ls_lote-lfimg.
       item_data-dlv_qty_imunit  = ls_lote-lgmng .
       item_data-batch = ls_lote-charg.
       item_data-hieraritem = ti_lips-posnr. "The batch split record below delivery item hierary
       item_data-usehieritm = '1'.
 
       APPEND item_data.
       CLEAR item_data.
 
       item_control-deliv_numb  = ti_lips-vbeln.
       item_control-deliv_item  = ls_lote-posnn.
       item_control-chg_delqty   = 'X'.
       APPEND item_control.
       CLEAR item_control.
     ENDLOOP.
     IF sy-subrc <> 0.
       item_data-dlv_qty         = ti_lips-lfimg.
       item_data-dlv_qty_imunit  = ti_lips-lgmng .
     ENDIF.
 
     item_data-deliv_numb      = ti_lips-vbeln.
     item_data-deliv_item      = ti_lips-posnr.
     item_data-fact_unit_nom = ti_lips-umvkz .
     item_data-fact_unit_denom = ti_lips-umvkn.
     item_data-conv_fact = ti_lips-umrev.
 
     READ TABLE gt_lote INTO ls_lote WITH KEY posnn = ti_lips-posnr.
     item_data-batch = ls_lote-charg.
 *  PERFORM buscar_lote USING p_vbeln_factura ti_lips CHANGING ITEM_DATA-batch.
 
     APPEND item_data.
     CLEAR item_data.
 
 *item_control
     item_control-deliv_numb  = ti_lips-vbeln.
     item_control-deliv_item  = ti_lips-posnr.
     item_control-chg_delqty   = 'X'.
     APPEND item_control.
     CLEAR item_control.
 
   ENDLOOP.
 
   CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
     EXPORTING
       header_data    = header_data
       header_control = header_control
       delivery       = delivery
     TABLES
       item_data      = item_data
       item_control   = item_control
       return         = p_return
     EXCEPTIONS
       OTHERS         = 1.
 
 ENDFORM.                    " CLEAR_ENTREGA

Crear pedido con referencia VA01

 FUNCTION z_sd_crea_pedido_con_ref_fact.
 *"----------------------------------------------------------------------
 *"*"Interfase local
 *"  IMPORTING
 *"     REFERENCE(I_VBELN) TYPE  VBRK-VBELN
 *"     REFERENCE(I_AUART) TYPE  VBAK-AUART
 *"     REFERENCE(I_SAVE) TYPE  XFELD DEFAULT 'X'
 *"     REFERENCE(I_AUGRU) TYPE  VBAK-AUGRU
 *"  EXPORTING
 *"     REFERENCE(E_VBELN) TYPE  VBAK-VBELN
 *"     REFERENCE(E_VBELN_ENTREGA) TYPE  LIKP-VBELN
 *"     REFERENCE(E_RETURN) TYPE  BAPIRET2_T
 *"----------------------------------------------------------------------
   DATA ld_mode(1) VALUE 'N'. " 'N'.
 
   DATA lt_mtxt LIKE TABLE OF bdcmsgcoll WITH HEADER LINE.
   DATA ls_return TYPE bapiret2.
 
   CLEAR: e_return[],
          bdcdata[],
          lt_mtxt[],
          e_vbeln.
 
   IF i_save <> 'X'.
     ld_mode = 'E'.
   ENDIF.
 
   SELECT SINGLE vkbur INTO @DATA(l_vkbur) FROM vbrp WHERE vbeln EQ @i_vbeln.
 
 
   PERFORM bdc_dynpro      USING 'SAPMV45A' '0101'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                 '=COPY'.
   PERFORM bdc_field       USING 'VBAK-AUART'
                                  i_auart.
   PERFORM bdc_field       USING 'VBAK-VKORG'
                                 ''.
   PERFORM bdc_field       USING 'VBAK-VTWEG'
                                 ''.
   PERFORM bdc_field       USING 'VBAK-SPART'
                                  ''.
   PERFORM bdc_field       USING 'VBAK-VKBUR'
                                  l_vkbur.
 
   PERFORM bdc_dynpro      USING 'SAPLV45C' '0100'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                 '=UEBR'.
   PERFORM bdc_field       USING 'VBRK-VBELN'
                                  i_vbeln.
 
   IF i_save = 'X'.
 *    PERFORM bdc_dynpro      USING 'SAPMV45A' '4001'.
 *    PERFORM bdc_field       USING 'BDC_OKCODE'
 *                                   '/00'.
 
     PERFORM bdc_dynpro      USING 'SAPMV45A' '4001'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '=HEAD'.
     if i_augru is NOT INITIAL.
     PERFORM bdc_field       USING 'VBAK-AUGRU'
                                   i_augru.
     endif.
 
     PERFORM bdc_dynpro      USING 'SAPMV45A' '4002'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '=T\10'.
 
     PERFORM bdc_dynpro      USING 'SAPMV45A' '4002'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '=SICH'.
     PERFORM bdc_field       USING 'VBKD-BSARK'
                                   '1'.
   ENDIF.
 
   CALL TRANSACTION 'VA01'
   USING bdcdata
         MODE  ld_mode
         UPDATE 'S'
         MESSAGES INTO lt_mtxt.
 
   IF i_auart = 'ZD02'.
 * &1 &2 se ha grabado (se ha creado entrega &3)
     READ TABLE lt_mtxt WITH KEY msgnr = '260'
                                 msgid = 'V1'.
   ELSE.
 * &1 &2 se ha grabado
     READ TABLE lt_mtxt WITH KEY msgnr = '311'
                               msgid = 'V1'.
   ENDIF.
   IF sy-subrc EQ 0.
     e_vbeln = lt_mtxt-msgv2.
     e_vbeln_entrega = lt_mtxt-msgv3.
 
     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
         input  = e_vbeln
       IMPORTING
         output = e_vbeln.
 
     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
         input  = e_vbeln_entrega
       IMPORTING
         output = e_vbeln_entrega.
 
     MOVE lt_mtxt-msgid TO ls_return-id.
     MOVE lt_mtxt-msgtyp TO ls_return-type.
     MOVE lt_mtxt-msgnr TO ls_return-number.
     MOVE lt_mtxt-msgv1  TO ls_return-message_v1.
     MOVE lt_mtxt-msgv2  TO ls_return-message_v2.
     MOVE lt_mtxt-msgv3  TO ls_return-message_v3.
     MOVE lt_mtxt-msgv4  TO ls_return-message_v4.
 
     MESSAGE ID lt_mtxt-msgid TYPE lt_mtxt-msgtyp NUMBER lt_mtxt-msgnr
     WITH lt_mtxt-msgv1 lt_mtxt-msgv2 lt_mtxt-msgv3 lt_mtxt-msgv4
     INTO ls_return-message.
 
     APPEND ls_return TO e_return.
   ELSE.
 
     LOOP AT lt_mtxt.
       MOVE lt_mtxt-msgid TO ls_return-id.
       MOVE lt_mtxt-msgtyp TO ls_return-type.
       MOVE lt_mtxt-msgnr TO ls_return-number.
       MOVE lt_mtxt-msgv1  TO ls_return-message_v1.
       MOVE lt_mtxt-msgv2  TO ls_return-message_v2.
       MOVE lt_mtxt-msgv3  TO ls_return-message_v3.
       MOVE lt_mtxt-msgv4  TO ls_return-message_v4.
 
       MESSAGE ID lt_mtxt-msgid TYPE lt_mtxt-msgtyp NUMBER lt_mtxt-msgnr
       WITH lt_mtxt-msgv1 lt_mtxt-msgv2 lt_mtxt-msgv3 lt_mtxt-msgv4
       INTO ls_return-message.
 
       APPEND ls_return TO e_return.
     ENDLOOP.
   ENDIF.
 
 ENDFUNCTION.
 
 *       Batchinputdata of single transaction
 DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
 *       Nodata-Character
 DATA:   NODATA_CHARACTER VALUE '/'.
 
 *----------------------------------------------------------------------*
 *        Start new screen                                              *
 *----------------------------------------------------------------------*
 FORM BDC_DYNPRO USING PROGRAM DYNPRO.
   CLEAR BDCDATA.
   BDCDATA-PROGRAM  = PROGRAM.
   BDCDATA-DYNPRO   = DYNPRO.
   BDCDATA-DYNBEGIN = 'X'.
   APPEND BDCDATA.
 ENDFORM.
 
 *----------------------------------------------------------------------*
 *        Insert field                                                  *
 *----------------------------------------------------------------------*
 FORM BDC_FIELD USING FNAM FVAL.
   IF fval <> NODATA_CHARACTER.
     CLEAR BDCDATA.
     BDCDATA-FNAM = FNAM.
     BDCDATA-FVAL = FVAL.
     APPEND BDCDATA.
   ENDIF.
 ENDFORM.