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