TECH.Mockable DOM.Halux.AAP.DnaCodeRepository DOM.PM.impl.ProductTypeAPIimpl APPS.Halux.AAP.DnaCodeGenerator DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="" 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