Index: zTryout/PV/WMS/OpslagDefinitie.cls.xml
===================================================================
diff -u
--- zTryout/PV/WMS/OpslagDefinitie.cls.xml (revision 0)
+++ zTryout/PV/WMS/OpslagDefinitie.cls.xml (revision 2228)
@@ -0,0 +1,498 @@
+
+
+
+persistent
+%VHMacro,%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
+
+
+
+
+
Index: zTryout/PV/WMS/OpslagImport.cls.xml
===================================================================
diff -u
--- zTryout/PV/WMS/OpslagImport.cls.xml (revision 0)
+++ zTryout/PV/WMS/OpslagImport.cls.xml (revision 2228)
@@ -0,0 +1,137 @@
+
+
+
+%Prod.Product
+1
+%RegisteredObject
+0
+
+
+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
+
+
+
+
+
+
+
+
+
+
+
+
+PropName,NewValue
+ ",NewValue,!
+
+ Quit:NewValue=OldValue
+ Set $zobjProperty(..Opslag,PropName)=NewValue
+]]>
+
+
+
+%Integer
+
+
+
+
+Zakje, BodemDeksel,DoosMetFlappen, Buit
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
Index: zTryout/PV/WMS/MoveRcpExport.cls.xml
===================================================================
diff -u
--- zTryout/PV/WMS/MoveRcpExport.cls.xml (revision 0)
+++ zTryout/PV/WMS/MoveRcpExport.cls.xml (revision 2228)
@@ -0,0 +1,85 @@
+
+
+
+%Prod.Product,%VHMacro,BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek
+1
+%RegisteredObject
+0
+
+
+
+D ##class(zTryout.PV.WMS.MoveRcpExport).%New().Export()
+KillOpslagDef
+0)
+ {
+ Set KType=$S($$$ProductGet(MPRNr,$$$LeveranciersNr)=$$$LevHalux:"HAL",$$ISORGAL^ORGALUX(MPRNr):"OL",1:"BSL")
+ ;
+ Kill Cache
+ Set STLNr=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr,""))
+ While STLNr'=""
+ {
+ Set STLRec=^RCP("D",RCPNr,"D",TOENr,TLUNr,STLNr)
+ Set KPRNr=$P(STLRec,"\",1)
+ Set KQty=$P(STLRec,"\",3)
+ If (KPRNr?4.8N),$D(^KPR(KPRNr)),(KQty>0)
+ {
+ Set Cache(KPRNr)=$G(Cache(KPRNr))+KQty
+ }
+ ;
+ Set STLNr=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr,STLNr))
+ }
+ Set KPRNr=$O(Cache(""))
+ While KPRNr'=""
+ {
+ Set KQty=Cache(KPRNr)
+ Do ..WriteBeslag(RCPNr,TOENr,Tijdstip,MType,MPRNr,MQty,KType,KPRNr,KQty)
+ ;
+ Set KPRNr=$O(Cache(KPRNr))
+ }
+ }
+ Set TLUNr=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr))
+
+ }
+ Set TOENr=$O(^RCP("D",RCPNr,"D",TOENr))
+ }
+ Set RCPNr=$O(^RCP("D",RCPNr))
+ }
+
+ Do CLOSE^vhDEV(Dev)
+ Quit
+]]>
+
+
+
+CONSNr,ORDNr,Tijdstip,VerzendW,MPRNr,MQty,KType,KPRNr,KQty
+
+
+
+
Index: zTryout/PV/WMS/OpslagExport.cls.xml
===================================================================
diff -u
--- zTryout/PV/WMS/OpslagExport.cls.xml (revision 0)
+++ zTryout/PV/WMS/OpslagExport.cls.xml (revision 2228)
@@ -0,0 +1,49 @@
+
+
+
+%Prod.Product
+1
+%RegisteredObject
+0
+
+
+
+D ##class(zTryout.PV.WMS.OpslagExport).%New().ExportOpslagDefinitie()
+KillOpslagDef
+100
+ . Quit:$$$PRGet($$$NONAktief)=1
+ . Quit:$P(^KPR(PRNr,0),"\",6) ; uitverkoop
+ . Quit:$P(^KPR(PRNr,0),"\",6) ; uitverkoop
+ . Set dtoOpslag=##class(zTryout.PV.WMS.dtoOpslag).%New(PRNr)
+ . Quit:$E(dtoOpslag.IdentNr)="7" ; DO's
+ . Quit:'..IsAfgeleid(PRNr,dtoOpslag)
+ . ;Quit:dtoOpslag.GeefMagazijn()'?1(1"M",1"P",1"K")
+ . Do dtoOpslag.Write()
+ . Write !
+ . Set Cnt=Cnt+1
+ Do CLOSE^vhDEV(Dev)
+ Quit
+]]>
+
+
+
+1
+PRNr,dtoOpslag
+
+
+
+
Index: zTryout/PV/WMS/dtoMove.cls.xml
===================================================================
diff -u
--- zTryout/PV/WMS/dtoMove.cls.xml (revision 0)
+++ zTryout/PV/WMS/dtoMove.cls.xml (revision 2228)
@@ -0,0 +1,114 @@
+
+
+
+%VHMacro,%Prod.Product
+1
+%RegisteredObject
+0
+
+
+%String
+
+
+
+%Integer
+
+
+
+%Date
+
+
+
+%Time
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+OpslagDefinitie
+
+
+
+Batch,OrderNr,Datum,Tijd,MType,MPRNr,MQty,KType,KPRNr,KQty
+%Status
+
+
+
+
+
+
+
+
+1
+
+
+
+
Index: zTryout/PV/WMS/dtoOpslag.cls.xml
===================================================================
diff -u
--- zTryout/PV/WMS/dtoOpslag.cls.xml (revision 0)
+++ zTryout/PV/WMS/dtoOpslag.cls.xml (revision 2228)
@@ -0,0 +1,138 @@
+
+
+
+%VHMacro,%Prod.Product
+1
+%RegisteredObject
+0
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%Integer
+
+
+
+OpslagDefinitie
+
+
+
+
+
+
+
+PRNr
+%Status
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+1
+
+
+
+
Index: zTryout/PV/WMS/MoveMagExport.cls.xml
===================================================================
diff -u
--- zTryout/PV/WMS/MoveMagExport.cls.xml (revision 0)
+++ zTryout/PV/WMS/MoveMagExport.cls.xml (revision 2228)
@@ -0,0 +1,86 @@
+
+
+
+%Prod.Product,%VHMacro,BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek
+1
+%RegisteredObject
+0
+
+
+
+D ##class(zTryout.PV.WMS.MoveMagExport).%New().Export()
+KillOpslagDef
+0)
+ {
+ Set KType=$S($$$ProductGet(MPRNr,$$$LeveranciersNr)=$$$LevHalux:"HAL",$$ISORGAL^ORGALUX(MPRNr):"OL",1:"BSL")
+ ;
+ Kill Cache
+ Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,""))
+ While SOLNr'=""
+ {
+ Set SOLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)
+ Set KPRNr=$P(SOLRec,"\",1)
+ Set KQty=$P(SOLRec,"\",3)
+ If (KPRNr?4.8N),$D(^KPR(KPRNr)),(KQty>0)
+ {
+ Set Cache(KPRNr)=$G(Cache(KPRNr))+KQty
+ }
+ ;
+ Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr))
+ }
+ Set KPRNr=$O(Cache(""))
+ While KPRNr'=""
+ {
+ Set KQty=Cache(KPRNr)
+ Do ..WriteBeslag(CONSNr,ORDNr,Tijdstip,VerzendW,MPRNr,MQty,KType,KPRNr,KQty)
+ ;
+ Set KPRNr=$O(Cache(KPRNr))
+ }
+ }
+ Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr))
+
+ }
+ Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr))
+ }
+ Set CONSNr=$O(^ORDW("D",CONSNr))
+ }
+
+ Do CLOSE^vhDEV(Dev)
+ Quit
+]]>
+
+
+
+CONSNr,ORDNr,Tijdstip,VerzendW,MPRNr,MQty,KType,KPRNr,KQty
+
+
+
+
Index: zTryout/PV/WMS/MoveHaluxExport.cls.xml
===================================================================
diff -u
--- zTryout/PV/WMS/MoveHaluxExport.cls.xml (revision 0)
+++ zTryout/PV/WMS/MoveHaluxExport.cls.xml (revision 2228)
@@ -0,0 +1,226 @@
+
+
+
+%Prod.Product,%VHMacro,BL.Derde.LevSpecifiek
+1
+%RegisteredObject
+0
+
+
+
+D ##class(zTryout.PV.WMS.MoveHaluxExport).%New().Export()
+KillOpslagDef
+
+
+
+
+Batch,Cache
+
+
+
+
+Batch,TOENr,MType,MPRNr,MQty,KPRNr
+
+
+
+
+Batch,Cache
+
+
+
+
+Batch,TOENr,MType,MPRNr,MQty,KPRNr
+
+
+
+
+Batch
+
+
+
+
+Batch
+
+
+
+
+Batch,Cache
+
+
+
+
+Batch,TOENr,MType,MPRNr,MQty,KPRNr,KQty
+
+
+
+
+MPRNr
+
+
+
+