Prod.Product,BL.Derde.LevSpecifiek 1 %RegisteredObject TECH.FileReader zTryout.PV.WMS.OpslagDefinitie D ##class(zTryout.PV.WMS.OpslagImport).%New().Import() SortKey Dubbels PRNr IdentNr KortTekst LocTrans Pallet Stock Gewicht/st LEVNr LEVNm Aantal/doos PalQty LaagQty TrayQty Doos2Qty DoosQty DoosType Fragiel StabilDoos Glad Krasgevoelig StabilPallet Reden Lengte Breedte Hoogte ZijdeVoor ZijdeHoogte PerPaar GebruikBeslag GebruikHalux GebruikOrgalux MaxStock GemStock Opmerking (fragiel,glad,krasgevoelig,stabiel) Check Stock2 Elke Cnt VerpakDoos Qty2 { Set Verpak=##class(emVerpakking).%New("PalletLayer","CalcL1",VerpakDoos.Aantal*Qty1,120,80,H) } Else { Set Verpak=##class(emVerpakking).%New("PalletLayer","CalcL2",VerpakDoos.Aantal*Qty2,120,80,H) } Quit Verpak ]]> VerpakLayer VolgNr PropName,NewValue ",NewValue,! Set $zobjProperty(..Opslag,PropName)=NewValue ]]> %Integer Zakje, BodemDeksel,DoosMetFlappen, Buit %String %String %String %String %String %String %String %String