Difference between revisions of "SAP SD BAPI"

From SapWiki
Line 768: Line 768:
 
   endif.
 
   endif.
 
  endform.                    "DELIVERY_CREATENOREF</nowiki>
 
  endform.                    "DELIVERY_CREATENOREF</nowiki>
 +
 +
==Crear Contacto==
 +
</nowiki> FORM crea_contacto USING p_vbeln
 +
                CHANGING p_subrc.
 +
 +
  DATA: vl_vbeln LIKE vbak-vbeln.
 +
 +
  DATA: lt_salesactivityidout LIKE bapi_vbka_boidref OCCURS 0 WITH HEADER LINE,
 +
        lt_return            LIKE bapiret2          OCCURS 0,
 +
        ls_return            LIKE LINE OF lt_return.
 +
 +
* BAPI_BPCONTACT_CREATEFROMDATA Declarations
 +
  DATA: lv_sys                  TYPE bapi_sender,
 +
        lt_generaldata          LIKE bapi_bus1037_vbkakom_cr OCCURS 0,
 +
        ls_generaldata          LIKE LINE OF lt_generaldata,
 +
        lt_businesspartner      LIKE bapi_vbka_vbpa2kom      OCCURS 0,
 +
        ls_businesspartner      LIKE LINE OF lt_businesspartner,
 +
        lt_text                  LIKE bapi_vbka_tlinekom      OCCURS 0,
 +
        ls_text                  LIKE LINE OF lt_text,
 +
        lt_object_reference_list LIKE bapi_vbka_objref_cr OCCURS 0,
 +
        ls_object_reference_list LIKE LINE OF lt_object_reference_list.
 +
  DATA: ls_notes LIKE tline OCCURS 0 WITH HEADER LINE.
 +
  DATA: lt_vbpa TYPE TABLE OF vbpa,
 +
        ls_vbpa TYPE vbpa,
 +
        ls_vbka TYPE vbka.
 +
 +
    DATA: t_vbka LIKE vbka,
 +
          ld_atype(3) TYPE n,
 +
          ld_date LIKE sy-datum,
 +
          w_table(30).
 +
 +
  FIELD-SYMBOLS: <field>.
 +
 +
* Obtiene data necesaria
 +
  vl_vbeln = p_vbeln.
 +
  SELECT SINGLE * INTO ls_vbka FROM vbka WHERE vbeln = vl_vbeln.
 +
  CHECK sy-subrc = 0.
 +
 +
  CLEAR: t_vbka.
 +
  w_table = '(SAPLV43D)XVBKA'.
 +
  ASSIGN (w_table) TO <field>.
 +
  IF sy-subrc EQ 0.
 +
    MOVE <field> TO t_vbka.
 +
    ld_date = t_vbka-ktaen.
 +
  ELSE.
 +
*  ld_date = sy-datum .
 +
    ld_date = ls_vbka-ktaen.
 +
  ENDIF.
 +
 +
  DO 7 TIMES.
 +
    ld_date = ld_date + 1.
 +
 +
    CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
 +
      EXPORTING
 +
        correct_option              = '+'
 +
        date                        = ld_date
 +
        factory_calendar_id          = 'CL'
 +
      IMPORTING
 +
        date                        = ld_date
 +
      EXCEPTIONS
 +
        calendar_buffer_not_loadable = 1
 +
        correct_option_invalid      = 2
 +
        date_after_range            = 3
 +
        date_before_range            = 4
 +
        date_invalid                = 5
 +
        factory_calendar_not_found  = 6
 +
        OTHERS                      = 7.
 +
    IF sy-subrc <> 0.
 +
      CLEAR ld_date.
 +
      EXIT.
 +
    ENDIF.
 +
  ENDDO.
 +
 +
  MOVE ls_vbka-ktaar+1(3) TO ld_atype.
 +
 +
  ADD 1 TO ld_atype.
 +
 +
  CONCATENATE 'Z' ld_atype INTO  ls_generaldata-activity_type .
 +
 +
  ls_generaldata-doc_number      = ls_vbka-vbeln.
 +
  ls_generaldata-salesorg        = ls_vbka-vkorg.
 +
  ls_generaldata-distr_chan      = ls_vbka-vtweg.
 +
  ls_generaldata-sales_off        = ls_vbka-vkbur.
 +
  ls_generaldata-sales_grp        = ls_vbka-vkgrp.
 +
  ls_generaldata-division        = ls_vbka-spart.
 +
  ls_generaldata-from_date        = ld_date.
 +
  ls_generaldata-to_date          = ld_date.
 +
  ls_generaldata-from_time        = sy-uzeit.
 +
  ls_generaldata-to_time          = sy-uzeit.
 +
  ls_generaldata-follow_up_date  = ld_date.
 +
  ls_generaldata-reason          = 'Z01'.
 +
  ls_generaldata-result          = ''.
 +
  ls_generaldata-direction        = '1'.
 +
  ls_generaldata-state            = '0'.
 +
  ls_generaldata-activity_comment = ls_vbka-ktext. "ls_VBKA-VBELN.
 +
  ls_generaldata-partn_role      = 'AG'.
 +
  ls_generaldata-partn_id        = ls_vbka-kunnr.
 +
  ls_generaldata-langu            = 'D'.
 +
 +
  IF ls_vbka-ktast EQ '7' AND ls_vbka-ktaer EQ 'Z02'.
 +
    ls_generaldata-activity_type    = 'Z010'.
 +
    ls_generaldata-reason          = 'Z02'.
 +
  ENDIF.
 +
 +
  SELECT * INTO TABLE lt_vbpa FROM vbpa
 +
                              WHERE vbeln = vl_vbeln.
 +
  CLEAR ls_vbpa.
 +
  READ TABLE lt_vbpa INTO ls_vbpa WITH KEY parvw = 'AP'.
 +
  IF sy-subrc = 0.
 +
** Contact
 +
    ls_generaldata-contact          = ls_vbpa-parnr.
 +
    ls_generaldata-contact_role    = 'AP'.
 +
 +
    ls_businesspartner-doc_number  = vl_vbeln.
 +
    ls_businesspartner-itm_number  = '000000'.
 +
    ls_businesspartner-partn_role  = 'AP'.  "GERMAN = AP ENGLISH = CP
 +
    ls_businesspartner-partn_id    = ls_vbpa-parnr.
 +
    APPEND ls_businesspartner TO lt_businesspartner.
 +
  ENDIF.
 +
 +
  CLEAR ls_vbpa.
 +
  READ TABLE lt_vbpa INTO ls_vbpa  WITH KEY parvw = 'AG'.
 +
* Sold to party
 +
  ls_businesspartner-doc_number  = vl_vbeln.
 +
  ls_businesspartner-itm_number  = '000000'.
 +
  ls_businesspartner-partn_role  = 'AG'. "GERMAN = AG ENGLISH = SP
 +
  ls_businesspartner-partn_id    = ls_vbpa-kunnr.
 +
  APPEND ls_businesspartner TO lt_businesspartner.
 +
 +
  CLEAR ls_vbpa.
 +
  READ TABLE lt_vbpa INTO ls_vbpa  WITH KEY parvw = 'VE'.
 +
* Sold to party
 +
  ls_businesspartner-doc_number  = vl_vbeln.
 +
  ls_businesspartner-itm_number  = '000000'.
 +
  ls_businesspartner-partn_role  = 'VE'. "GERMAN = AG ENGLISH = SP
 +
  ls_businesspartner-partn_id    = ls_vbpa-pernr.
 +
  APPEND ls_businesspartner TO lt_businesspartner.
 +
 +
  CLEAR ls_vbpa.
 +
  READ TABLE lt_vbpa INTO ls_vbpa  WITH KEY parvw = 'AP'.
 +
* Sold to party
 +
  ls_businesspartner-doc_number  = vl_vbeln.
 +
  ls_businesspartner-itm_number  = '000000'.
 +
  ls_businesspartner-partn_role  = 'AP'. "GERMAN = AG ENGLISH = SP
 +
  ls_businesspartner-partn_id    = ls_vbpa-pernr.
 +
  APPEND ls_businesspartner TO lt_businesspartner.
 +
 +
  CLEAR ls_vbpa.
 +
  READ TABLE lt_vbpa INTO ls_vbpa WITH KEY parvw = 'ZM'.
 +
* Employee Responsible
 +
  ls_businesspartner-doc_number  = vl_vbeln.
 +
  ls_businesspartner-itm_number  = '000000'.
 +
  ls_businesspartner-partn_role  = 'ZM'.  "GERMAN = ZM ENGLISH = ER
 +
  ls_businesspartner-partn_id    = ls_vbpa-pernr.
 +
  APPEND ls_businesspartner TO lt_businesspartner.
 +
 +
* Object Reference
 +
  ls_object_reference_list-doc_number = vl_vbeln.
 +
  ls_object_reference_list-roletype_ab = 'A'.
 +
  APPEND ls_object_reference_list TO lt_object_reference_list.
 +
 +
  APPEND ls_generaldata TO lt_generaldata.
 +
 +
  ls_notes-tdformat = '*'.
 +
  ls_notes-tdline  = 'Copy of signed agreement'.
 +
 +
  ls_text-text_id  = '0001'.
 +
  ls_text-function  = '009'.
 +
  ls_text-langu    =  sy-langu.
 +
  ls_text-text_line =  ls_notes.
 +
 +
  APPEND ls_text TO lt_text.
 +
 +
  CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
 +
    IMPORTING
 +
      own_logical_system            = lv_sys
 +
    EXCEPTIONS
 +
      own_logical_system_not_defined = 1
 +
      OTHERS                        = 2.
 +
 +
*Call BAPI
 +
  CALL FUNCTION 'BAPI_BPCONTACT_CREATEFROMDATA'
 +
    EXPORTING
 +
      sender          = lv_sys
 +
    TABLES
 +
      generaldata    = lt_generaldata
 +
      businesspartner = lt_businesspartner
 +
      text            = lt_text
 +
*    object_reference_list = lt_object_reference_list
 +
      return          = lt_return.
 +
 +
  IF sy-subrc EQ 0.
 +
    REFRESH lt_return.
 +
    CALL FUNCTION 'BAPI_BPCONTACT_SAVEFROMMEMORY'
 +
      TABLES
 +
        salesactivityidout = lt_salesactivityidout
 +
        return            = lt_return.
 +
*error
 +
    LOOP AT lt_return INTO ls_return WHERE type = 'E'
 +
                  OR type = 'A'.
 +
    ENDLOOP.
 +
    IF sy-subrc = 0.
 +
      RETURN.
 +
    ENDIF.
 +
 +
    DATA lt_vbfa TYPE TABLE OF vbfa WITH HEADER LINE.
 +
 +
    SELECT SINGLE vbtyp INTO @DATA(ld_vbtyp)
 +
                  FROM vbak WHERE vbeln = @vl_vbeln.
 +
    LOOP AT lt_salesactivityidout.
 +
      lt_vbfa-vbelv  = vl_vbeln.
 +
      lt_vbfa-vbeln  = lt_salesactivityidout-doc_number.
 +
      lt_vbfa-vbtyp_n = '1'.
 +
      lt_vbfa-vbtyp_v = ld_vbtyp. "'L'.
 +
      lt_vbfa-erdat  = sy-datum.
 +
      lt_vbfa-erzet  = sy-uzeit.
 +
      APPEND lt_vbfa.
 +
    ENDLOOP.
 +
    LOOP AT lt_vbfa.
 +
      MODIFY vbfa FROM lt_vbfa.
 +
    ENDLOOP.
 +
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
 +
  ENDIF.
 +
 +
ENDFORM.</nowiki>

Revision as of 17:33, 4 April 2020

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.

Crear entrega con referencia

 FORM crear_entrega_2 USING i_vbeln.  
  DATA: lt_request like table of bapideliciousrequest with header line,
        lt_items like table of bapideliciouscreateditems with header line,
        lt_return like table of bapiret2 with header line,
        lt_vbap LIKE TABLE OF vbap WITH HEADER LINE,
        ls_vbak LIKE vbak.
 
  SELECT SINGLE * INTO ls_vbak FROM vbak
                             WHERE vbeln = i_vbeln.
  CHECK sy-subrc EQ 0.

  SELECT * INTO TABLE lt_vbap FROM vbap
                             WHERE vbeln = i_vbeln.

  LOOP AT lt_vbap.
    CLEAR lt_request.
    lt_request-document_numb = lt_vbap-vbeln.
    lt_request-document_item = lt_vbap-posnr.
    lt_request-ship_to = ls_vbak-kunnr.
    lt_request-sold_to = ls_vbak-kunnr.
    lt_request-sales_organisation = ls_vbak-vkorg.
    lt_request-distribution_channel = ls_vbak-vtweg.
    lt_request-division = ls_vbak-spart.
    lt_request-plant = lt_vbap-werks.
    lt_request-quantity_sales_uom = lt_vbap-KWMENG.
    lt_request-quantity_base__uom = lt_vbap-KWMENG.
    lt_request-sales_unit = lt_vbap-vrkme.
    lt_request-base_uom = lt_vbap-meins.
    lt_request-material = lt_vbap-matnr.
    lt_request-delivery_date = ls_vbak-bstdk.
    lt_request-transp_plan_date = ls_vbak-bstdk.
    lt_request-loading_date = ls_vbak-bstdk.
    lt_request-goods_issue_date = ls_vbak-bstdk.
    lt_request-document_type = 'A'. "Delivery
    lt_request-document_type_predecessor = 'A'. "Sales Ord
    lt_request-document_type_delivery = 'LF'.

    APPEND lt_request.
  ENDLOOP.

  CALL FUNCTION 'BAPI_DELIVERYPROCESSING_EXEC'
    TABLES
      request      = lt_request
      createditems = lt_items
      return       = lt_return.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
   EXPORTING
     wait          = 'X'
 * IMPORTING
 *   RETURN        =
            .
 endform.

Crear Entrega Sin Referencia

* BAPI for VL01NO
 form DELIVERY_CREATENOREF using i_vbeln
                                 i_werks
                                 i_vstel
                                 i_commit
                                 i_dlv_items type any TABLE
                        changing o_vbeln
                                 o_created_items type ANY TABLE
                                 o_return type BAPIRET2_T
                                 of_rc type sysubrc.
  data: ls_likp type likp,
        lt_lips type table of lips,
        ls_lips like line of lt_lips,
        ls_t001w like t001w.

  data: lt_dates type table of BAPIDLVDEADLN,
        ls_dates like line of lt_dates,
        lt_DLV_ITEMS type table of BAPIDLVNOREFITEM,
        ls_dlv_items like line of lt_DLV_ITEMS.

  data: ls_return type bapiret2,
        lt_return type table of bapiret2,
        ld_par1 type SY-MSGV1 ,
        ld_par2 type SY-MSGV1 .

  data: lt_CREATED_ITEMS like TABLE OF  BAPIDLVITEMCREATED,
        ls_created_items LIKE LINE OF lt_CREATED_ITEMS.
  data ld_vbtyv like lips-vbtyv.

  data: ld_prctr type prctr,
        ld_kostl like zsdceco_centro-kostl,
        ld_werks like lips-werks,
        ld_werks_o like lips-werks.

  clear of_rc.
  clear o_vbeln.

  select single * into ls_likp from likp
                              where vbeln = i_vbeln.
  if sy-subrc ne 0.
 * error entrega no existe
    move i_vbeln to ld_par1.

    CALL FUNCTION 'BALW_BAPIRETURN_GET2'
      EXPORTING
        TYPE   = 'E'
        CL     = 'VL'
        NUMBER = 559
        PAR1   = ld_par1
      IMPORTING
        RETURN = ls_return.

    append ls_return to o_return.
    of_rc = 1.
    return.
  endif.

  select * into table lt_lips from lips
                             where vbeln = i_vbeln.
 ***
  select single * into ls_t001w from T001W where WERKS = I_WERKS.

 ***
  ls_dates-timetype = 'WSHDRWADAT'. "WS GOODS ISSUE

  data ls_time(14).
  concatenate sy-datlo sy-timlo into ls_time.

  move ls_time to ls_dates-timestamp_utc.
  ls_dates-timezone = 'CHILE'.

  append ls_dates to lt_dates.

  if i_dlv_items[] is not initial.
 * si las posiciones son entregadas=>tomar, si no,
 * tomar todas las posiciones de la entrega
    FIELD-SYMBOLS <wa> type any.

    loop at i_dlv_items ASSIGNING <wa>.
      MOVE-CORRESPONDING <wa> to ls_dlv_items.
      append ls_dlv_items to lt_DLV_ITEMS.
    ENDLOOP.
  else.
    loop at lt_lips into ls_lips.
 *DATES -TIMESTAMP_UTC = SY-UNAME
      ls_DLV_ITEMS-REF_ITem = ls_LIPS-POSNR.
      ls_DLV_ITEMS-MATERIAL  = ls_LIPS-MATNR.
      ls_DLV_ITEMS-ITEM_categ = 'ZREF'.
      ls_DLV_ITEMS-DLV_QTY = ls_LIPS-LFIMG.
      ls_DLV_ITEMS-sales_unit = ls_lips-meins.
 *    ls_DLV_ITEMS-plant = i_werks.

      append ls_DLV_ITEMS to lt_DLV_ITEMS.
    endloop.
  endif.

 *  select single * into ls_t001w from T001W where WERKS = i_WERKS.
 *  data ld_ship_to type KUNWE.
 *  ld_ship_to = i_werks.

  CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATENOREF'
    EXPORTING
      SHIP_POINT           = i_vstel "ls_LIKP-VSTEL
      DLV_TYPE             = 'ZREF'
      SALESORG             = ls_t001w-vkorg
      DISTR_CHAN           = ls_t001w-vtweg
      DIVISION             = ls_t001w-spart
      SHIP_TO              = ls_t001w-kunnr
     DATE_USAGE           = '0'
 *     DEBUG_FLG            =
   IMPORTING
     DELIVERY             = o_vbeln
 *     NUM_DELIVERIES       =
    TABLES
      DATES                = lt_dates
      DLV_ITEMS            = lt_dlv_items
 *     SERIAL_NUMBERS       =
 *     EXTENSION_IN         =
 *     DELIVERIES           =
      CREATED_ITEMS        = lt_created_items
 *     EXTENSION_OUT        =
      RETURN               = o_return
            .
  o_created_items[] = lt_created_items[].

  if o_vbeln is not initial
    and i_commit is not initial.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT   = 'X'
      IMPORTING
        RETURN = ls_return.

    if ls_return is INITIAL.
 * actualizar entrega creada(LIPS) con documento y pos de referencia y KOSTL
      loop at lt_CREATED_ITEMS into ls_CREATED_ITEMS .
        select single vbtyp into ld_vbtyv from likp
                             where vbeln = i_vbeln. "entrega entrada
 *                              and posnr  = ls_created_items-REF_ITem.

 * obtiene centro de entrega salida creada
        select single werks into ld_werks from lips
                                   where vbeln = o_vbeln "entrega  salida creada
                                     and posnr = ls_created_items-DELIV_ITEM.

        select single prctr into ld_prctr
                      from marc where matnr = ls_CREATED_ITEMS-material
                                 and werks  = ld_werks.
        if sy-subrc = 0.
 * obtiene centro de entrega entrada
          select single werks into ld_werks_o from lips
                           where vbeln = i_vbeln "entrega entrada
                             and posnr = ls_created_items-REF_ITEM.

          select single kostl into ld_kostl
                         from zsdceco_centro
                              where werks = ld_werks_o
                                and prctr = ld_prctr.
          if sy-subrc ne 0.
            clear ld_kostl.
          endif.
        endif.

        UPDATE lips
               set kostl   = ld_kostl
                   zzvbeln = i_vbeln
                   zzposnr = ls_created_items-REF_ITem
                   zzvbtyv = ld_vbtyv
         where vbeln = o_vbeln
            and posnr = ls_created_items-deliv_item.

      endloop.
      commit WORK AND WAIT.
    endif.

  endif.
 endform.                    "DELIVERY_CREATENOREF

Crear Contacto

</nowiki> FORM crea_contacto USING p_vbeln
                CHANGING p_subrc.

  DATA: vl_vbeln LIKE vbak-vbeln.

  DATA: lt_salesactivityidout LIKE bapi_vbka_boidref OCCURS 0 WITH HEADER LINE,
        lt_return             LIKE bapiret2          OCCURS 0,
        ls_return             LIKE LINE OF lt_return.

* BAPI_BPCONTACT_CREATEFROMDATA Declarations
  DATA: lv_sys                   TYPE bapi_sender,
        lt_generaldata           LIKE bapi_bus1037_vbkakom_cr OCCURS 0,
        ls_generaldata           LIKE LINE OF lt_generaldata,
        lt_businesspartner       LIKE bapi_vbka_vbpa2kom      OCCURS 0,
        ls_businesspartner       LIKE LINE OF lt_businesspartner,
        lt_text                  LIKE bapi_vbka_tlinekom      OCCURS 0,
        ls_text                  LIKE LINE OF lt_text,
        lt_object_reference_list LIKE bapi_vbka_objref_cr OCCURS 0,
        ls_object_reference_list LIKE LINE OF lt_object_reference_list.
  DATA: ls_notes LIKE tline OCCURS 0 WITH HEADER LINE.
  DATA: lt_vbpa TYPE TABLE OF vbpa,
        ls_vbpa TYPE vbpa,
        ls_vbka TYPE vbka.

    DATA: t_vbka LIKE vbka,
          ld_atype(3) TYPE n,
          ld_date LIKE sy-datum,
          w_table(30).

  FIELD-SYMBOLS: <field>.

* Obtiene data necesaria
  vl_vbeln = p_vbeln.
  SELECT SINGLE * INTO ls_vbka FROM vbka WHERE vbeln = vl_vbeln.
  CHECK sy-subrc = 0.

  CLEAR: t_vbka.
  w_table = '(SAPLV43D)XVBKA'.
  ASSIGN (w_table) TO <field>.
  IF sy-subrc EQ 0.
    MOVE <field> TO t_vbka.
    ld_date = t_vbka-ktaen.
  ELSE.
*  ld_date = sy-datum .
    ld_date = ls_vbka-ktaen.
  ENDIF.

  DO 7 TIMES.
    ld_date = ld_date + 1.

    CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
      EXPORTING
        correct_option               = '+'
        date                         = ld_date
        factory_calendar_id          = 'CL'
      IMPORTING
        date                         = ld_date
      EXCEPTIONS
        calendar_buffer_not_loadable = 1
        correct_option_invalid       = 2
        date_after_range             = 3
        date_before_range            = 4
        date_invalid                 = 5
        factory_calendar_not_found   = 6
        OTHERS                       = 7.
    IF sy-subrc <> 0.
      CLEAR ld_date.
      EXIT.
    ENDIF.
  ENDDO.

  MOVE ls_vbka-ktaar+1(3) TO ld_atype.

  ADD 1 TO ld_atype.

  CONCATENATE 'Z' ld_atype INTO   ls_generaldata-activity_type .

  ls_generaldata-doc_number       = ls_vbka-vbeln.
  ls_generaldata-salesorg         = ls_vbka-vkorg.
  ls_generaldata-distr_chan       = ls_vbka-vtweg.
  ls_generaldata-sales_off        = ls_vbka-vkbur.
  ls_generaldata-sales_grp        = ls_vbka-vkgrp.
  ls_generaldata-division         = ls_vbka-spart.
  ls_generaldata-from_date        = ld_date.
  ls_generaldata-to_date          = ld_date.
  ls_generaldata-from_time        = sy-uzeit.
  ls_generaldata-to_time          = sy-uzeit.
  ls_generaldata-follow_up_date   = ld_date.
  ls_generaldata-reason           = 'Z01'.
  ls_generaldata-result           = .
  ls_generaldata-direction        = '1'.
  ls_generaldata-state            = '0'.
  ls_generaldata-activity_comment = ls_vbka-ktext. "ls_VBKA-VBELN.
  ls_generaldata-partn_role       = 'AG'.
  ls_generaldata-partn_id         = ls_vbka-kunnr.
  ls_generaldata-langu            = 'D'.

  IF ls_vbka-ktast EQ '7' AND ls_vbka-ktaer EQ 'Z02'.
    ls_generaldata-activity_type    = 'Z010'.
    ls_generaldata-reason           = 'Z02'.
  ENDIF.

  SELECT * INTO TABLE lt_vbpa FROM vbpa
                             WHERE vbeln = vl_vbeln.
  CLEAR ls_vbpa.
  READ TABLE lt_vbpa INTO ls_vbpa WITH KEY parvw = 'AP'.
  IF sy-subrc = 0.
** Contact
    ls_generaldata-contact          = ls_vbpa-parnr.
    ls_generaldata-contact_role     = 'AP'.

    ls_businesspartner-doc_number   = vl_vbeln.
    ls_businesspartner-itm_number   = '000000'.
    ls_businesspartner-partn_role   = 'AP'.  "GERMAN = AP ENGLISH = CP
    ls_businesspartner-partn_id     = ls_vbpa-parnr.
    APPEND ls_businesspartner TO lt_businesspartner.
  ENDIF.

  CLEAR ls_vbpa.
  READ TABLE lt_vbpa INTO ls_vbpa  WITH KEY parvw = 'AG'.
* Sold to party
  ls_businesspartner-doc_number   = vl_vbeln.
  ls_businesspartner-itm_number   = '000000'.
  ls_businesspartner-partn_role   = 'AG'. "GERMAN = AG ENGLISH = SP
  ls_businesspartner-partn_id     = ls_vbpa-kunnr.
  APPEND ls_businesspartner TO lt_businesspartner.

  CLEAR ls_vbpa.
  READ TABLE lt_vbpa INTO ls_vbpa  WITH KEY parvw = 'VE'.
* Sold to party
  ls_businesspartner-doc_number   = vl_vbeln.
  ls_businesspartner-itm_number   = '000000'.
  ls_businesspartner-partn_role   = 'VE'. "GERMAN = AG ENGLISH = SP
  ls_businesspartner-partn_id     = ls_vbpa-pernr.
  APPEND ls_businesspartner TO lt_businesspartner.

  CLEAR ls_vbpa.
  READ TABLE lt_vbpa INTO ls_vbpa  WITH KEY parvw = 'AP'.
* Sold to party
  ls_businesspartner-doc_number   = vl_vbeln.
  ls_businesspartner-itm_number   = '000000'.
  ls_businesspartner-partn_role   = 'AP'. "GERMAN = AG ENGLISH = SP
  ls_businesspartner-partn_id     = ls_vbpa-pernr.
  APPEND ls_businesspartner TO lt_businesspartner.

  CLEAR ls_vbpa.
  READ TABLE lt_vbpa INTO ls_vbpa WITH KEY parvw = 'ZM'.
* Employee Responsible
  ls_businesspartner-doc_number   = vl_vbeln.
  ls_businesspartner-itm_number   = '000000'.
  ls_businesspartner-partn_role   = 'ZM'.  "GERMAN = ZM ENGLISH = ER
  ls_businesspartner-partn_id     = ls_vbpa-pernr.
  APPEND ls_businesspartner TO lt_businesspartner.

* Object Reference
  ls_object_reference_list-doc_number = vl_vbeln.
  ls_object_reference_list-roletype_ab = 'A'.
  APPEND ls_object_reference_list TO lt_object_reference_list.

  APPEND ls_generaldata TO lt_generaldata.

  ls_notes-tdformat = '*'.
  ls_notes-tdline   = 'Copy of signed agreement'.

  ls_text-text_id   = '0001'.
  ls_text-function  = '009'.
  ls_text-langu     =  sy-langu.
  ls_text-text_line =  ls_notes.

  APPEND ls_text TO lt_text.

  CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
    IMPORTING
      own_logical_system             = lv_sys
    EXCEPTIONS
      own_logical_system_not_defined = 1
      OTHERS                         = 2.

*Call BAPI
  CALL FUNCTION 'BAPI_BPCONTACT_CREATEFROMDATA'
    EXPORTING
      sender          = lv_sys
    TABLES
      generaldata     = lt_generaldata
      businesspartner = lt_businesspartner
      text            = lt_text
*     object_reference_list = lt_object_reference_list
      return          = lt_return.

  IF sy-subrc EQ 0.
    REFRESH lt_return.
    CALL FUNCTION 'BAPI_BPCONTACT_SAVEFROMMEMORY'
      TABLES
        salesactivityidout = lt_salesactivityidout
        return             = lt_return.
*error
    LOOP AT lt_return INTO ls_return WHERE type = 'E'
                  OR type = 'A'.
    ENDLOOP.
    IF sy-subrc = 0.
      RETURN.
    ENDIF.

    DATA lt_vbfa TYPE TABLE OF vbfa WITH HEADER LINE.

    SELECT SINGLE vbtyp INTO @DATA(ld_vbtyp)
                  FROM vbak WHERE vbeln = @vl_vbeln.
    LOOP AT lt_salesactivityidout.
      lt_vbfa-vbelv   = vl_vbeln.
      lt_vbfa-vbeln   = lt_salesactivityidout-doc_number.
      lt_vbfa-vbtyp_n = '1'.
      lt_vbfa-vbtyp_v = ld_vbtyp. "'L'.
      lt_vbfa-erdat   = sy-datum.
      lt_vbfa-erzet   = sy-uzeit.
      APPEND lt_vbfa.
    ENDLOOP.
    LOOP AT lt_vbfa.
      MODIFY vbfa FROM lt_vbfa.
    ENDLOOP.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
  ENDIF.

ENDFORM.</nowiki>
Retrieved from "http://sapwiki.cl/wiki/index.php?title=SAP_SD_BAPI&oldid=367"