TECH.Mockable DOM.Halux.AAP.DnaCodeRepository DOM.PM.impl.ProductTypeAPIimpl APPS.Halux.AAP.DnaCodeGenerator DOM.common.ProjectSettingsAPI 1 TECH.DateTime.DateTimeAPI 1 DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="" 1 1 %Status 1 Batch:APPS.Halux.common.impl.BatchImpl %ListOfDataTypes BatchId:%String ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,BatchId:%String="" %ListOfDataTypes 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 ToeleveringID:%String,ProductID:%String,SequentieNummer:%String="" %String