Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r63349 -r63411
--- APPS/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 63349)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 63411)
@@ -239,6 +239,8 @@
Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
+ #dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductID)
+ Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
If $IsObject(Batch) {
Set DnaCode.BatchId = Batch.GeefID()
@@ -309,7 +311,7 @@
#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
While DnaCodeIterator.HasNext() {
Set DnaCode = DnaCodeIterator.Next()
- If ..MagDnaCodeBijgewerktWorden(DnaCode, ProductID, Herafdruk, IsKlantEtiketSpaceStep) {
+ If ..MagDnaCodeBijgewerktWorden(DnaCode, ProductID, Herafdruk) {
If $$$HasLength(SequentieNummer) {
Set DnaCode.SequentieNummer = SequentieNummer
}
@@ -332,14 +334,27 @@
DnaCode:DOM.Halux.AAP.DnaCode,ProductID:%String,Herafdruk:%Boolean,IsKlantEtiketSpaceStep:%Boolean=$$$False
1
+
+DnaCode:DOM.Halux.AAP.DnaCode,ProductID:%String
+1
+%Boolean
+
+
+
SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String