|
*&---------------------------------------------------------------------*
*& Include ZXLTOU03 *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Globale Schnittstelle:
*" IMPORTING
*" I_LTAK LIKE LTAK STRUCTURE LTAK
*" I_LTAP LIKE LTAP STRUCTURE LTAP
*" I_MLVS LIKE MLVS STRUCTURE MLVS
*" I_MGEF LIKE MGEF STRUCTURE MGEF
*" I_T331 LIKE T331 STRUCTURE T331
*" I_T333 LIKE T333 STRUCTURE T333
*" I_T340D LIKE T340D STRUCTURE T340D
*" I_VORGA LIKE LTAP-VORGA
*" EXPORTING
*" E_NLPLA LIKE LTAP-NLPLA
*" E_NPPOS LIKE LTAP-NPPOS
*" E_NKDYN LIKE LTAP-NKDYN
*" E_NLENR LIKE LTAP-NLENR
*" E_SUBRC LIKE SY-SUBRC
*" E_MSGID LIKE SY-MSGID
*" E_MSGNO LIKE SY-MSGNO
*" E_MSGV1 LIKE SY-MSGV1
*" E_MSGV2 LIKE SY-MSGV2
*" E_MSGV3 LIKE SY-MSGV3
*" E_MSGV4 LIKE SY-MSGV4
*"----------------------------------------------------------------------
break sol_budi.
if I_T331-LGTYP eq 'ZYY'.
PERFORM putaway_ECERAN
CHANGING
I_LTAK
I_LTAP
I_MLVS
I_MGEF
I_T331
I_T333
I_T340D
I_VORGA
E_NLPLA
E_NPPOS
E_NKDYN
E_NLENR
E_SUBRC
E_MSGID
E_MSGNO
E_MSGV1
E_MSGV2
E_MSGV3
E_MSGV4.
endif.
check 1 = 2.
PERFORM putaway_ZONA
CHANGING
I_LTAK
I_LTAP
I_MLVS
I_MGEF
I_T331
I_T333
I_T340D
I_VORGA
E_NLPLA
E_NPPOS
E_NKDYN
E_NLENR
E_SUBRC
E_MSGID
E_MSGNO
E_MSGV1
E_MSGV2
E_MSGV3
E_MSGV4.
|