Index: vhDeploy/D20200429VoegToeDataVoorLBXzijkantenPicking.cls.xml
===================================================================
diff -u
--- vhDeploy/D20200429VoegToeDataVoorLBXzijkantenPicking.cls.xml (revision 0)
+++ vhDeploy/D20200429VoegToeDataVoorLBXzijkantenPicking.cls.xml (revision 60785)
@@ -0,0 +1,206 @@
+
+
+
+vhDeploy.Deploy
+
+
+
+Do ##class(vhDeploy.D20200429VoegToeDataVoorLBXzijkantenPicking).ExecCode()
+%String
+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: vhTest/Fake/APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml (revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml (revision 60785)
@@ -0,0 +1,67 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+1
+APPS.Halux.PPS.Document.impl.LBX.LadeZijkantenRepository
+
+
+ID:%String
+%Boolean
+
+
+
+
+Data:TECH.Persistent
+
+
+
+
+Data:TECH.Persistent,Deep:%Boolean=0
+TECH.Persistent
+
+
+
+
+ProductId:%String
+TECH.Persistent
+
+
+
+
+ID:%String
+TECH.Persistent
+
+
+
+
+TECH.Persistent
+
+
+
+
+ID:%String
+
+
+
+
+Data:TECH.Persistent
+
+
+
+
+TECH.Iterator
+
+
+
+
+
+
Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml (revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml (revision 60785)
@@ -0,0 +1,20 @@
+
+
+
+TECH.Persistentie.impl.Repository,TECH.Mockable
+
+
+%String
+DOM.Halux.LBXPickingZijkantenLoopvolgorde
+
+
+
+ProductId:%String
+TECH.Persistent
+
+
+
+
+
+
Index: vhTest/Mock/APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml (revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/Document/impl/LBX/LadeZijkantenRepository.cls.xml (revision 60785)
@@ -0,0 +1,78 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+1
+APPS.Halux.PPS.Document.impl.LBX.LadeZijkantenRepository,Tools.Mock.MockClassBase
+right
+
+
+Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI=""
+%Status
+
+
+
+
+ID:%String
+%Boolean
+
+
+
+
+Data:TECH.Persistent
+
+
+
+
+Data:TECH.Persistent,Deep:%Boolean=0
+TECH.Persistent
+
+
+
+
+ProductId:%String
+TECH.Persistent
+
+
+
+
+ID:%String
+TECH.Persistent
+
+
+
+
+TECH.Persistent
+
+
+
+
+ID:%String
+
+
+
+
+Data:TECH.Persistent
+
+
+
+
+TECH.Iterator
+
+
+
+
+
+
Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r60773 -r60785
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 60773)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 60785)
@@ -3,9 +3,9 @@
APPS.Halux.PPS.Document.impl.common.LadeZijkantenPickingLijst
-
+
%Integer
-4
+8
@@ -18,6 +18,23 @@
LBX pickinglijst zijkanten
+
+APPS.Halux.PPS.Document.impl.LBX.LadeZijkantenRepository
+
+
+
+1
+1
+%Status
+1
+
+
+
1
@@ -34,7 +51,7 @@
Set LadeZijkant.ProductId = Zijkant.GeefHalffab().GeefProductID()
If (##class(TECH.StringUtils).Contains(LadeZijkant.Korttekst, "R+L")) { //fure a mesure producten (zijn niet altijd op stock dus hebben geen vaste plaats)
- Set LadeZijkant.LoopvolgordeNr = 8
+ Set LadeZijkant.LoopvolgordeNr = ..#FureAMesureLoopvolgordeNr
} Else {
Set LadeZijkant.LoopvolgordeNr = ..GeefLoopVolgordeNr(LadeZijkant.ProductId)
}
@@ -146,65 +163,29 @@
#dim RijenLijst As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = Rijen
If $$$Not(HuidigeKar = AantalKarrenNodig) {
- Do RijenLijst.Insert(..GeefLegeLadeZijkantDataLijn())
+ Do RijenLijst.Insert(##class(APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten).%New())
}
Quit RijenLijst
]]>
-
-1
-APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten
-
-
-
ProductId:%String
1
%Integer
-
-
-ProductId:%String
-1
-TECH.ResultSet
-
-