|
*----------------------------------------------------------------------*
***INCLUDE ZXLTOF03 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form putaway_ECERAN
*&---------------------------------------------------------------------*
FORM putaway_ECERAN CHANGING
I_LTAK STRUCTURE LTAK
I_LTAP STRUCTURE LTAP
I_MLVS STRUCTURE MLVS
I_MGEF STRUCTURE MGEF
I_T331 STRUCTURE T331
I_T333 STRUCTURE T333
I_T340D STRUCTURE T340D
I_VORGA LIKE LTAP-VORGA
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.
*Stock Placement di Zona Eceran
*break sol_budi.
if i_ltap-VSOLM ge I_MLVS-LHMG2.
exit.
endif.
DATA: BEGIN OF dum_tab OCCURS 1,
dumdum(1) TYPE c,
END OF dum_tab.
tables: MTCOM, MLVST, MTCOR.
clear: MTCOM, MLVST, MTCOR.
MOVE: 'MLVST' TO MTCOM-KENNG,
I_LTAP-MATNR TO MTCOM-MATNR,
I_LTAP-LGNUM TO MTCOM-LGNUM,
I_T331-LGTYP TO MTCOM-LGTYP.
CALL FUNCTION 'MATERIAL_READ'
EXPORTING
SCHLUESSEL = MTCOM
IMPORTING
MATDATEN = MLVST
RETURN = MTCOR
TABLES
SEQMAT01 = DUM_TAB
EXCEPTIONS
SLOCTYPE_NOT_FOUND = 01.
MOVE: MLVST-LGPLA TO E_NLPLA.
ENDFORM. " putaway_ECERAN
*&---------------------------------------------------------------------*
*& Form putaway_ZONA
*&---------------------------------------------------------------------*
FORM putaway_ZONA CHANGING
I_LTAK STRUCTURE LTAK
I_LTAP STRUCTURE LTAP
I_MLVS STRUCTURE MLVS
I_MGEF STRUCTURE MGEF
I_T331 STRUCTURE T331
I_T333 STRUCTURE T333
I_T340D STRUCTURE T340D
I_VORGA LIKE LTAP-VORGA
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.
**copy from program LL03AF9J
* DO 30 TIMES VARYING SAV_LGBER FROM T334B-LGBE0 NEXT T334B-LGBE1.
*
* CHECK SAV_LGBER NE INIT_LGBER.
* PERFORM BEREICH_SETZEN USING SAV_LGBER.
*
**........Schleife über die Lagerplatztypen aus der T334P...............
*
* DO 30 TIMES VARYING SAV_LPTYP FROM T334P-LPTY0 NEXT T334P-LPTY1.
* CHECK SAV_LPTYP NE INIT_LPTYP.
* PERFORM PLATZTYP_SETZEN USING SAV_LPTYP.
*
* CASE P_T331-STEIN.
* WHEN CON_STEIN_C.
* PERFORM LEERKZ_SETZEN USING MASK1.
* PERFORM AUFTEILUNG_SETZEN USING MASK1.
* PERFORM VOLLKZ_SETZEN USING MASK1.
* PERFORM PLATZ_SETZEN USING INIT_LGPLA.
* PERFORM PROT_LAGERPLATZFINDUNG_C.
* PERFORM LAGERPLATZFINDUNG_2
* USING P_LGTYP P_T331 P_EINME P_LGPLA P_PLPOS.
* PERFORM PROT_LAGERPLATZFINDUNG_*_FIN USING P_LGTYP P_LGPLA.
* ENDCASE.
*
* IF P_LGPLA NE INIT_LGPLA. EXIT. ENDIF.
* ENDDO.
*
* IF P_LGPLA NE INIT_LGPLA. EXIT. ENDIF.
* ENDDO.
ENDFORM. " putaway_ZONA
|