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:"") }