WikiSysop: Created page with " FUNCTION z_sd_picking. "---------------------------------------------------------------------- "*"Interfase local " IMPORTING " REFERENCE(I_VBELN) TYPE LIKP..."

2026-06-24T22:29:56Z

Created page with " <nowiki>FUNCTION z_sd_picking. *"---------------------------------------------------------------------- *"*"Interfase local *" IMPORTING *" REFERENCE(I_VBELN) TYPE LIKP..."

New page

<nowiki>FUNCTION z_sd_picking.
*"----------------------------------------------------------------------
*"*"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 TRANSPORTING NO FIELDS WHERE type = 'E' OR type = 'A'.
* ENDLOOP.
* IF sy-subrc = 0.
* ROLLBACK WORK.
* ENDIF.

PERFORM f_picking USING i_vbeln i_vbeln_factura CHANGING e_return[].

ENDFUNCTION.

FORM f_picking USING p_vbeln p_vbeln_factura CHANGING p_return TYPE bapiret2_t.
DATA lt_lips TYPE TABLE OF lips.
DATA lt_prott TYPE TABLE OF prott WITH HEADER LINE.
DATA ls_lips TYPE lips.
DATA ls_vbkok TYPE vbkok.
DATA ls_return TYPE bapiret2.
DATA lt_vbpok TYPE TABLE OF vbpok.
DATA ls_vbpok LIKE LINE OF lt_vbpok.

SELECT * INTO TABLE lt_lips FROM lips
WHERE vbeln = p_vbeln.

LOOP AT lt_lips INTO ls_lips.
ls_vbkok-vbeln_vl = ls_lips-vbeln.
ls_vbkok-vbeln = ls_lips-vbelv.

SELECT SINGLE vbelv posnv INTO (ls_vbpok-vbeln,ls_vbpok-posnn) FROM vbfa WHERE vbeln = ls_lips-vbeln
AND vbtyp_v = 'H'
AND vbtyp_n = 'T'
AND posnn = ls_lips-posnr.
ls_vbpok-vbeln_vl = ls_lips-vbeln.
ls_vbpok-posnr_vl = ls_lips-posnr.
* ls_vbpok-vbeln = ls_lips-vbelv.
* ls_vbpok-posnn = ls_lips-posnv.
ls_vbpok-matnr = ls_lips-matnr. "MATERIAL(CBARRA)
* ls_VBPOK-CHARG = ls_lips-charg. "LOTE(CBARRA)

* PERFORM buscar_lote USING p_vbeln_factura ls_lips CHANGING ls_vbpok-charg. "!!!!!

ls_vbpok-lfimg = ls_lips-lfimg.
APPEND ls_vbpok TO lt_vbpok.
ENDLOOP.

CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
EXPORTING
vbkok_wa = ls_vbkok
* SYNCHRON = 'X'
* NO_MESSAGES_UPDATE = ' '
nicht_sperren = 'X'
aufrufer_t = 'X'
* IF_ERROR_MESSAGES_SEND = 'X'
TABLES
vbpok_tab = lt_vbpok
prot = lt_prott
EXCEPTIONS
error_message = 99
OTHERS = 01.
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.
ls_return-type = 'E'.
APPEND ls_return TO p_return.
EXIT.
ELSE.

* error occurred.
LOOP AT lt_prott WHERE msgty = 'E' OR msgty = 'A'.
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.
ENDLOOP.
IF sy-subrc <> 0.
COMMIT WORK AND WAIT.
* MESSAGE s000(0K) WITH 'Picking procesado con xto' into p_mensaje.

ENDIF.
ENDIF.
ENDFORM. "f_picking</nowiki>

SAP SD DELIVERY UPDATE PICKING - Revision history

WikiSysop: Created page with " FUNCTION z_sd_picking. *"---------------------------------------------------------------------- *"*"Interfase local *" IMPORTING *" REFERENCE(I_VBELN) TYPE LIKP..."

WikiSysop: Created page with " FUNCTION z_sd_picking. "---------------------------------------------------------------------- "*"Interfase local " IMPORTING " REFERENCE(I_VBELN) TYPE LIKP..."