Looking for the code for MALA

Logistics : SD and its sub-modules (Inquires, Quotes, Order Entry, SIS, Sales Contacts, Dist. & Billing)

Moderators: Snowy, thx4allthefish, mike_ac, Lost Identity

Post Reply
Marlboro
Posts: 198
Joined: Fri Dec 27, 2002 8:56 am
Location: Europe

Looking for the code for MALA

Post by Marlboro » Fri Aug 05, 2011 6:42 am

Hello,

Does anyone know where I can find the source code for the MALA routine? (program or function name?) This is the routine to determine the storage location when you create a delivery. I know the logic for the routine, I am looking for the actual source code itself.

Regards,

Sharpshooter
Posts: 1172
Joined: Wed Mar 17, 2010 12:01 pm
Location: In the dark

Re: Looking for the code for MALA

Post by Sharpshooter » Fri Aug 05, 2011 10:34 am

Have a look in SD_STORAGE_LOCATION_DETERMINE

Code: Select all

* Lagerortfindung gemäß Regel
  CASE ILAGOF-REGLG.
    WHEN 'MALA'.
      SELECT SINGLE * FROM TVKOL WHERE VSTEL = ILAGOF-VSTEL
                                   AND WERKS = ILAGOF-WERKS
                                   AND RAUBE = ILAGOF-RAUBE.
      IF SY-SUBRC = 0.
        ELGORT = TVKOL-LGORT.
      ENDIF.

* Findungsprotokoll*****************************************************
* lgort        - ( reglg, vstel, werks, raube , x )
       if flepad_pakti ca 'L'.
             CALL FUNCTION 'LE_PAD_PUT' EXPORTING
                  FIELD1  = 'LIPS-LGORT'  VALUE1  = ELGORT
                  FIELD2  = 'LAGOF-REGLG' VALUE2  = ILAGOF-REGLG.
             CALL FUNCTION 'LE_PAD_PUT' EXPORTING
                  FIELD1  = 'LIPS-LGORT'  VALUE1  = ELGORT
                  FIELD2  = 'LAGOF-VSTEL' VALUE2  = ILAGOF-VSTEL.
             CALL FUNCTION 'LE_PAD_PUT' EXPORTING
                  FIELD1  = 'LIPS-LGORT'  VALUE1  = ELGORT
                  FIELD2  = 'LAGOF-WERKS' VALUE2  = ILAGOF-WERKS.
             CALL FUNCTION 'LE_PAD_PUT' EXPORTING
                  FIELD1  = 'LIPS-LGORT' VALUE1  = ELGORT
                  FIELD2  = 'LAGOF-RAUBE' VALUE2  = ILAGOF-RAUBE
                  TUERZU  = 'X'.
      ENDIF.
************************************************************************
    WHEN 'RETA'.
Good luck!

Marlboro
Posts: 198
Joined: Fri Dec 27, 2002 8:56 am
Location: Europe

Re: Looking for the code for MALA

Post by Marlboro » Tue Aug 09, 2011 11:13 pm

Cheers!

Post Reply