Index: WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u -r72975 -r72976
--- WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 72975)
+++ WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 72976)
@@ -177,18 +177,18 @@
Quit "TAO"
}
- #dim LadeRegistraties As TECH.Iterator
+ #dim LadeRegsitratieIterator As TECH.Iterator
If $$$HasLength(DnaCode.Toelevering) {
- Set LadeRegistraties = ..RegistratieRepository.ZoekViaProductNrEnToelevering(DnaCode.ProductNummer, DnaCode.Toelevering)
+ Set LadeRegsitratieIterator = ..RegistratieRepository.ZoekViaProductNrEnToelevering(DnaCode.ProductNummer, DnaCode.Toelevering)
} Else {
- Set LadeRegistraties = ..RegistratieRepository.ZoekViaProductNr(DnaCode.ProductNummer)
+ Set LadeRegsitratieIterator = ..RegistratieRepository.ZoekViaProductNr(DnaCode.ProductNummer)
}
- If (LadeRegistraties.HasNext()) {
- Set Werkpost = LadeRegistraties.Next().Werkpost
+ If (LadeRegsitratieIterator.HasNext()) {
+ Set Werkpost = LadeRegsitratieIterator.Next().Werkpost
}
- If Werkpost = "" {
+ If $$$HasLength(Werkpost) {
Do ..Logger.Warning("GeefWerkpost", "Werkpost kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'")
}
@@ -206,6 +206,7 @@
While (DnaCodeIterator.HasNext() && $$$Not(Gevonden)) {
#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
#dim VolgendeTeGebruikenPrinter As %String = ..MapWerkpostOpPrinter(..GeefWerkpost(DnaCode))
+ Do ##class(Tools.Wlip).%New(26).String(VolgendeTeGebruikenPrinter)
If (($$$Not(VolgendeTeGebruikenPrinter = "Bartender")) && ($$$Not(TeGebruikenPrinter = VolgendeTeGebruikenPrinter))) {
Set TeGebruikenPrinter = VolgendeTeGebruikenPrinter
Index: vhUnitTest/WSimpl/Halux/AAP/EtiketAfdrukkenHelper/VervangPrinterDoorLijnPrinter/Test.cls.xml
===================================================================
diff -u -r72975 -r72976
--- vhUnitTest/WSimpl/Halux/AAP/EtiketAfdrukkenHelper/VervangPrinterDoorLijnPrinter/Test.cls.xml (.../Test.cls.xml) (revision 72975)
+++ vhUnitTest/WSimpl/Halux/AAP/EtiketAfdrukkenHelper/VervangPrinterDoorLijnPrinter/Test.cls.xml (.../Test.cls.xml) (revision 72976)
@@ -127,6 +127,30 @@
]]>
+
+
+
+
DnaCode:%String,Toelevering:%String,ProductNummer:%String
1