Index: APPS/Halux/Docs/EtiketBuilder.cls.xml
===================================================================
diff -u -r71677 -r71681
--- APPS/Halux/Docs/EtiketBuilder.cls.xml (.../EtiketBuilder.cls.xml) (revision 71677)
+++ APPS/Halux/Docs/EtiketBuilder.cls.xml (.../EtiketBuilder.cls.xml) (revision 71681)
@@ -48,8 +48,13 @@
1
+
+APPS.algemeen.BarcodeService
+1
+
+
-OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI=""
+OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI="",BarcodeService:APPS.algemeen.BarcodeService=""
1
1
%Status
@@ -65,6 +70,7 @@
Set ..VHossService = ##class(APPS.Halux.common.impl.VHossService).%New()
Set ..DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
Set ..ProjectSettingsAPI = ##class(DOM.common.impl.ProjectSettingsAPI).%New()
+ Set ..BarcodeService = $$$Inject(BarcodeService, ##class(APPS.algemeen.BarcodeService).%New())
Quit $$$OK
]]>
@@ -125,7 +131,7 @@
-DnaCode:%String="",LadeCode:%String="",Layout:%String,Device:%String
+DnaCode:%String="",ProductId:%String,Layout:%String,Device:%String
BL.Etiket.LadeKlantEtiket
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r71677 -r71681
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 71677)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 71681)
@@ -190,7 +190,7 @@
#dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket()
#dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchID, SequenceInfo.SequenceNr)
- Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, Product.GeefLadeCode(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
+ Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
}
} Else {
Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn)
@@ -217,9 +217,9 @@
-DnaCode:%String,LadeCode:%String,Layout:%String,Device:%String
+DnaCode:%String,ProductId:%String,Layout:%String,Device:%String
-
-DnaCode:DOM.Halux.AAP.DnaCode,LadeCode:%String,Layout:%String,Device:%String
-1
-
-
-
Batch:APPS.Halux.common.Batch,SequenceInfo:APPS.Halux.common.dto.ProductieSequentie
1
Index: vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml
===================================================================
diff -u -r71677 -r71681
--- vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml (.../TestEtiketBuilder.cls.xml) (revision 71677)
+++ vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml (.../TestEtiketBuilder.cls.xml) (revision 71681)
@@ -262,24 +262,29 @@
Index: APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml
===================================================================
diff -u -r71677 -r71681
--- APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml (.../MaatwerkProductEtiketten.cls.xml) (revision 71677)
+++ APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml (.../MaatwerkProductEtiketten.cls.xml) (revision 71681)
@@ -133,7 +133,7 @@
Try {
#dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
- #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenter(DnaCode, Product.GeefLadeCode(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
+ #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
Do ..Etiketten.Insert(Etiket)
} Catch {
#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()