Index: vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml
===================================================================
diff -u -r29836 -r29887
--- vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml (.../AssemblageKarRepository.cls.xml) (revision 29836)
+++ vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml (.../AssemblageKarRepository.cls.xml) (revision 29887)
@@ -21,6 +21,13 @@
]]>
+
+BatchID:TECH.String
+%Boolean
+
+
+
BatchID:TECH.String
TECH.Integer
Index: APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml
===================================================================
diff -u -r29836 -r29887
--- APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml (.../AssemblageKarRepository.cls.xml) (revision 29836)
+++ APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml (.../AssemblageKarRepository.cls.xml) (revision 29887)
@@ -74,6 +74,16 @@
]]>
+
+BatchID:TECH.String
+%Boolean
+
+
+
BatchID:TECH.String,SequentieNummer:TECH.Integer
TECH.Integer
Index: vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml
===================================================================
diff -u -r29836 -r29887
--- vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml (.../AssemblageKarRepository.cls.xml) (revision 29836)
+++ vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml (.../AssemblageKarRepository.cls.xml) (revision 29887)
@@ -17,6 +17,13 @@
0
+
+BatchID:TECH.String
+%Boolean
+
+
+
BatchID:TECH.String,SequentieNummer:TECH.Integer
TECH.Integer
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml
===================================================================
diff -u -r29883 -r29887
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml (.../EtiketInfoBepaler.cls.xml) (revision 29883)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml (.../EtiketInfoBepaler.cls.xml) (revision 29887)
@@ -109,7 +109,11 @@
#dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ..AssemblageKarRepository.GetUsingConditions(Condities)
#dim AssemblageKarString As TECH.String = ""
- If AssemblageKar.BatchID '= "" {
+ If ..AssemblageKarRepository.GebruiktAssemblageKar(UitvoeringInfo.BatchID) {
+ set Condities = ##class(TECH.KeyValue.List).%New()
+ do Condities.InsertKeyValue("BatchID",UitvoeringInfo.BatchID)
+ do Condities.InsertKeyValue("SequentieNummer",UitvoeringInfo.SequentieNummer)
+ #dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ..AssemblageKarRepository.GetUsingConditions(Condities)
Set AssemblageKarString = "KAR "_AssemblageKar.Kar_":"_..AssemblageKarRepository.GeefAantalKarren(UitvoeringInfo.BatchID)_..#Delimiter_
AssemblageKar.Vak_$Select(..AssemblageKarRepository.IsLaatsteItemInKar(AssemblageKar):"*", 1:"")
}