WS_DELIVERY_UPDATE_2 - Atualização lote fornecedor

Flag padrão para criação de lote

        <ls_item>-taqui = 'X'.
        <ls_item>-lianp = 'X'.

Tive q fazer uma inclusão na exit de remessa MV50AFZ1

Form userexit_save_document_prepare

FIELD-SYMBOLS <lfs_tab_vbpok> TYPE ANY TABLE.

DATA: lt_vbpok_tab TYPE TABLE OF vbpok.

ASSIGN ('(SAPLV50S)VBPOK_TAB[]') TO <lfs_tab_vbpok>.

IF sy-subrc = 0.

  lt_vbpok_tab[] = <lfs_tab_vbpok>.

  LOOP AT xlips ASSIGNING FIELD-SYMBOL(<lfs_xlips).

    READ TABLE lt_vbpok_tab INTO DATA(ls_vbpok)

                                WITH KEY posnr_vl = <lfs_xlips>-posnr.

    IF sy-subrc = 0 AND ls_vbpok-lichn IS NOT INITIAL.

      <lfs_xlips>-lichn = ls_vbpok-lichn.

    ENDIF.

  ENDLOOP.

ENDIF.