Index: vhDeploy/D20200515VoegToeNieuweDataVoorLBXzijkantenPicking.cls.xml
===================================================================
diff -u
--- vhDeploy/D20200515VoegToeNieuweDataVoorLBXzijkantenPicking.cls.xml (revision 0)
+++ vhDeploy/D20200515VoegToeNieuweDataVoorLBXzijkantenPicking.cls.xml (revision 60932)
@@ -0,0 +1,387 @@
+
+
+
+vhDeploy.Deploy
+
+
+
+Do ##class(vhDeploy.D20200515VoegToeNieuweDataVoorLBXzijkantenPicking).ExecCode()
+%String
+Nieuwe data voor 'picking: zijkanten' voor LBX toevoegen aan database zodat op volgorde (volgens volgorde van locatie van producten in gang) kan gepickt worden
+
+
+
+1
+
+
+
+
+1
+Korttekst:%String,IdentNr:%String,LoopvolgordeNr:%String
+
+
+
+
+
+
Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r60899 -r60932
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 60899)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 60932)
@@ -5,7 +5,7 @@
%Integer
-80
+80000
@@ -61,7 +61,10 @@
Set LadeZijkant.ProductId = Zijkant.GeefHalffab().GeefProductID()
If (..IsFureAMesureProduct(LadeZijkant)) { //fure a mesure producten zijn niet altijd op stock dus hebben geen vaste plaats
- Set LadeZijkant.LoopvolgordeNr = ..#FureAMesureLoopvolgordeNr
+ Set LadeZijkant.LoopvolgordeNr = ..GeefLoopVolgordeNr(LadeZijkant.ProductId)
+ If (LadeZijkant.LoopvolgordeNr) = 0 {
+ Set LadeZijkant.LoopvolgordeNr = ..#FureAMesureLoopvolgordeNr
+ }
} Else {
Set LadeZijkant.LoopvolgordeNr = ..GeefLoopVolgordeNr(LadeZijkant.ProductId)
}
@@ -209,7 +212,7 @@
If HulpLijst.Count() = 0 {
Do HulpLijst.Insert(LadeZijkantData)
Set HuidigTeVergelijkenLoopvolgordeNr = LadeZijkantData.LoopvolgordeNr
- } ElseIf ((HuidigTeVergelijkenLoopvolgordeNr = LadeZijkantData.LoopvolgordeNr) && (HulpLijst.Count() < ..#AantalZijkantenPerKar)) {
+ } ElseIf ((HuidigTeVergelijkenLoopvolgordeNr = LadeZijkantData.LoopvolgordeNr) && (HulpLijst.Count() < ..#AantalZijkantenPerKar) && ($$$Not(..IsNieuweBladzijde(Index)))) {
Do HulpLijst.Insert(LadeZijkantData)
} Else {
Set HulpLijst = ..SorteerLijstVolgensSequentieNummer(HulpLijst)
@@ -492,6 +495,20 @@
]]>
+
+Index:%Integer
+1
+%Boolean
+
+
+
ProductId:%String
1