persistent vhLib.Macro,Prod.Product,BL.Derde.LevSpecifiek 1 %Persistent 0 25 40 80 25 S= Systeem, M = Manueel %String Prod.Product %Float %String %Integer %Integer %String %Integer %Integer %Integer %Integer %Integer %Integer %Integer %Integer Zakje, BodemDeksel,DoosMetFlappen, Buit %String %String %String %String %String %String %String %String %Float %Float %Float Welke zijde voorraan de bak moet liggen om eenvoudig de goederen te rapen : L,B of H %String Welke zijde in de hoogte moet liggen voor stabiliteit : L,B of H %String Blum.Product 1 1 1 Product 1 s x=##class(zTryout.PV.WMS.OpslagDefinitie).Open(472015) d DumpObject^%apiOBJ(x) 1 ProductID 1 ProductID %Status PRNr ..#MaxTrayGewicht Do . . Set ..Reden="Gewicht" . . Set ..Magazijn="P" . Else If OpslagZone'=1 Do . . Set ..Reden="Opslagzone" . . Set ..Magazijn="U" . Else Do . . Set ..Reden="Niet blum" . . Set ..Magazijn="M" ; Blum If LEVNr=$$$LevBlum Do Quit . If (..GVerpakHoogte>..#MaxTrayHoogte)||(..GVerpakLengte>..#MaxTrayLengte) Do . . Set ..Reden="TeGroot" . . Set ..Magazijn="P" . Else If TotGewicht>..#MaxTrayGewicht Do . . Set ..Reden="TeZwaar" . . Set ..Magazijn="P" . Else If '..GVerpakBreedte||'..GVerpakLengte do . . Set ..Reden="ZonderAfmeting" . . Set ..Magazijn="M" . . Set BakQty=..GVerpakQty . Else If (..GVerpakBreedte<..#MinDoosDim)||(..GVerpakLengte<..#MinDoosDim) Do . . Set BakQty=(60*40)\(..GVerpakBreedte*..GVerpakLengte)*..GVerpakQty . . For Quit:BakQty*..Gewicht/1000<50 Set BakQty=BakQty-..GVerpakQty . . Set:BakQty<1 BakQty=1 . . Set ..Reden="TeKlein" . . Set ..Magazijn="M" . . Set ..TrayQty=BakQty . Else Do . . Set ..Reden="Doos" . . Set ..Magazijn="M" . . Set ..DoosQty=..GVerpakQty ]]> PRNr Einde . Quit:$P(Rec,"\",4)'?1(1"U",1"H") ; actie . Set MPRNr=$P(Rec,"\",15) . If MPRNr,$D(^KPR(MPRNr)),$$ISORGAL^ORGALUX(MPRNr) Set ..GebruikOrgalux=..GebruikOrgalux+1 . Else If MPRNr,$D(^KPR(MPRNr,"J6332")) Set ..GebruikHalux=..GebruikHalux+1 . Else Set ..GebruikBeslag=..GebruikBeslag+1 ]]> PRNr 1 %Library.CacheStorage ^PV.WMS.OpslagD OpslagDefinitieDefaultData ^PV.WMS.OpslagD ^PV.WMS.OpslagI ^zTryout.PV50A.OpslagDefini5F7S %%CLASSNAME Breedte Doos2Qty DoosQty DoosType Fragiel Glad GrootVerpakking Hoogte Krasgevoelig LaagQty Lengte Magazijn NormVerpakking PalQty Product Reden StabilDoos StabilPallet Tray6x4Qty Tray8x6Qty GVerpakBreedte GVerpakHoogte GVerpakLengte GVerpakQty NVerpakQty PalletQty PerPaar Gewicht TrayQty WaarGebruikt ZijdeHoogte ZijdeVooraan GebruikBeslag GebruikHalux GebruikOrgalux CreatieWijze StockType