TECH.RegisteredObject 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 ToeleveringLijn:DOM.AKP.ProductToeleveringLijn %ListOfDataTypes DnaCodes:%ListOfDataTypes %Status ToeleveringLijn:DOM.AKP.ProductToeleveringLijn ToeleveringLijn:DOM.AKP.ProductToeleveringLijn ToeleveringLijn.GeefAantal() { Do ..DnaCodeRepository.VerwijderDnaCodeVoorToeleveringId(ToeleveringLijn.GeefID(), DnaCode.DnaCode) } } While DnaCodeTeller < ToeleveringLijn.GeefAantal() { Do ..DnaCodeRepository.Bewaar(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn)) Set DnaCodeTeller = DnaCodeTeller + 1 } ]]> ToeleveringLijn:DOM.AKP.ProductToeleveringLijn 1 DOM.Halux.AAP.DnaCode