Tecnologias

AUTO_RELEASE_OPT

STORAGE_AREA

UNIT_MEASURE_PICK

Declare Function concat_phys_keys PeopleCode DEMAND_PHYS_INV.BUSINESS_UNIT FieldFormula;

Declare Function Set_Storage_Display PeopleCode FUNCLIB_IN.STOR_LEVEL_DISPLAY FieldFormula;

Local Record &recDerived, &recDmndPhysInv, &recStorlocInvWrk, &recDmndPickVw, &recInstIn;

Local Field &storlvl;

Local string &STOR_AREA, &LEVEL1, &LEVEL2, &LEVEL3, &LEVEL4;

Local number &ROW1, &ROW2;

&recDmndPhysInv = GetRecord();

&recDerived = GetRecord(Record.DERIVED);

&recStorlocInvWrk = GetLevel0()(1).STORLOC_INV_WRK;

&recDmndPickVw = &recDmndPhysInv.ParentRow.ParentRowset.ParentRow.DEMAND_PICK_VW;

&recInstIn = GetLevel0()(1).INSTALLATION_IN;

&ROW1 = CurrentRowNumber(1);

&ROW2 = CurrentRowNumber(2);

/********************************************************************************/

/* Backfill Storage_Area and Levels 1 - 4 if this is Direct Container Selection */

/********************************************************************************/

If &recDerived.EDITTABLE8.Value = "DMND_CNTR_BU_VW" Or

&recDerived.EDITTABLE8.Value = "DMD_CNTR_BU_VW2" Then

SQLExec("Select STORAGE_AREA, STOR_LEVEL_1, STOR_LEVEL_2, STOR_LEVEL_3, STOR_LEVEL_4 from PS_PHYSICAL_INV where BUSINESS_UNIT = :1 and INV_ITEM_ID = :2 and CONTAINER_ID = :3 and QTY > 0 and (AVAIL_STATUS = '1' or AVAIL_STATUS = '2')", &recDmndPhysInv.BUSINESS_UNIT.Value, &recDmndPhysInv.INV_ITEM_ID.Value, &recDmndPhysInv.CONTAINER_ID.Value, &STOR_AREA, &LEVEL1, &LEVEL2, &LEVEL3, &LEVEL4);

&recDmndPhysInv.STORAGE_AREA.Value = &STOR_AREA;

&recDmndPhysInv.STOR_LEVEL_1.Value = &LEVEL1;

&recDmndPhysInv.STOR_LEVEL_2.Value = &LEVEL2;

&recDmndPhysInv.STOR_LEVEL_3.Value = &LEVEL3;

&recDmndPhysInv.STOR_LEVEL_4.Value = &LEVEL4;

/* APRD R-HGILBE-SA4CV Changed the storage level display to the new coding standard */

&storlvl = GetField(BUS_UNIT_DSP_IN.ST_LEVEL_DISPLAY);

Set_Storage_Display(GetField(STOR_AREA_INV.ST_LEVEL_DISPLAY), &storlvl, GetField(DEMAND_PHYS_INV.STOR_LEVEL_1), GetField(DEMAND_PHYS_INV.STOR_LEVEL_2), GetField(DEMAND_PHYS_INV.STOR_LEVEL_3), GetField(DEMAND_PHYS_INV.STOR_LEVEL_4));

/* the following 4 IF statements were COPIED from STORAGE_AREA.FieldChange */

If &recDmndPickVw.INV_ITEM_ID.GetRelated(MASTER_ITEM_TBL.LOT_CONTROL).Value <> "Y" Then

&recDmndPhysInv.INV_LOT_ID.Value

...