<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > English > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Customer Exits Examples > Project ZWMWS001 > Funtions Exits  > Function Group XLTO  > ZXLTOF03

*----------------------------------------------------------------------*
***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