TECH.RegisteredObject,APPS.VKP.Korting.KortingService APPS.VKP.Korting.KortingParser 1 APPS.VKP.Korting.impl.KortingVerwijderaar 1 KortingParser:APPS.VKP.Korting.KortingParser,KortingVerwijderaar:APPS.VKP.Korting.impl.KortingVerwijderaar 1 1 %Status 1 BestandNaam:%String,PersonalityID:DOM.common.enu.Personality in één OperatieScope plaatsen Do ..KortingVerwijderaar.Verwijder(PersonalityID) #dim VerkoopAPI As APPS.VKP.VerkoopPrijsAPI = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopPrijsAPI() Do VerkoopAPI.StelInKortingenVoorKlant(KortingConfiguratieLijst) ]]> VERKONDIG HET GOEDE VOORBEELD !!! ]]> XMLCustomerInfo:APPS.VKP.Korting.xml.CustomerInfo,PersonalityID:DOM.common.enu.Personality APPS.VKP.dto.KortingConfiguratieLijst I see a refactor coming up :-) #dim KortingConfiguratieArraySpecifiek As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieLijstSpecifiek(ReductionIt,KlantID,PersonalityID) // Deze 3 lijnen zijn puur Array- en List-verwerking. // Iedereen die hier passeert moet uitzoeken wat hier gebeurt, tenzij jij dit documenteert (=commentaar) of in method met een duidelijke naam steekt. #dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(TECH.ListUtils).CopyArrayOfObjects(KortingConfiguratieArraySpecifiek,KortingConfiguratieArrayAlgemeen) #dim KCL As APPS.VKP.dto.KortingConfiguratieLijst = ..GeefKortingConfiguratieLijstVanArray(KortingConfiguratieArray) Do ##class(TECH.ListUtils).CopyListOfObjects(KCL,KortingConfiguratieLijst) } Quit KortingConfiguratieLijst ]]> KortingConfiguratieArray:%ArrayOfObjects 1 APPS.VKP.dto.KortingConfiguratieLijst ReductionIt:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality 1 %ArrayOfObjects Het stinkt hier naar code-duplicatie :-P ReductionIt:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality 1 %ArrayOfObjects KlantID:DOM.VKP.VanHoeckeKlantID,Variant:DOM.PM.enu.Variant,KortingPercentage:TECH.Percentage,PersonalityID:DOM.common.enu.Personality 1 APPS.VKP.dto.KortingConfiguratie Reduction:%Numeric 1 TECH.Percentage Variant:%String 1 DOM.PM.enu.Variant