TECH.Mockable DOM.Halux.AAP.DnaCodeRepository DOM.PM.impl.ProductTypeAPIimpl APPS.Halux.AAP.DnaCodeGenerator DOM.common.ProjectSettingsAPI 1 TECH.DateTime.DateTimeAPI 1 DOM.PM.ProductAPI 1 APPS.Halux.common.SequentieService 1 vhLib.Logger 1 DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService="",Logger:vhLib.Logger="" 1 1 %Status 1 Batch:APPS.Halux.common.impl.BatchImpl %ListOfDataTypes BatchId:%String DnaCodes:%ListOfDataTypes %Status ToeleveringId:%String,ToeleveringLijnCode:%String ToeleveringLijn:DOM.AKP.ProductToeleveringLijn ToeleveringLijn.GeefAantal() { Do ..DnaCodeRepository.VerwijderDnaCodeVoorToeleveringId(ToeleveringId, DnaCode.DnaCode) } } While DnaCodeTeller < ToeleveringLijn.GeefAantal() { Do ..DnaCodeRepository.Bewaar(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn)) Set DnaCodeTeller = DnaCodeTeller + 1 } ]]> Batch:APPS.Halux.common.impl.BatchImpl ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl="" 1 DOM.Halux.AAP.DnaCode DnaCode:DOM.Halux.AAP.DnaCode,Batch:APPS.Halux.common.impl.BatchImpl="" 1 %String ToeleveringID:%String,ProductID:%String,SequentieNummer:%String="",Herafdruk:%Boolean=$$$False,BatchId:%String="" %String SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String