Do ##class(APPS.VKP.impl.RegioInstellingImporteur).%New().ImporteerRegioInstellingen("E:\regio.csv",1) vhLib.Macro %RegisteredObject TECH.FileReader %ArrayOfDataTypes %ArrayOfObjects Vervang de regio-instellingen op basis van de data in een ;-separated tekstbestand. Normale werkwijze is het editeren van dit bestand: http://subversion:81/svn/Files/trunk/Excel/APPS/VKP/IndelingRegioVertegenwoordigers.xlsx Dat dan opslaan als CSV, en dan meegeven als parameter van deze method. @Param InclusiefKlantAanpassingen: flag om het "migreren" van klanten tussen regios wel of niet te doen. Exceptions: "Gedrag Regio is veranderd, naar het gedrag van een andere NIEUWE REGIO over te nemen !! = " betekent dat je bij het toevoegen van een nieuwe regio de kolom "GedragRegio" verplicht moet invullen. Path:%String,InclusiefKlantAanpassingen:%Boolean Path:%String 1 InclusiefAndereDataAanpassing:%Boolean "_NieuweExterneVerantwoordelijke.GeefNaam() Do Regio.ZetExterneVerantwoordelijke(NieuweExterneVerantwoordelijke) } If ##class(TECH.StringUtils).ToUpper(..GeefData("InitialenInterneVerantwoordelijke")) '= "GEEN" { #dim Interne As %String = $$USERID^vhUSER(..GeefData("InitialenInterneVerantwoordelijke")) Do ..ControleerGebruiker(Interne,..GeefData("InitialenInterneVerantwoordelijke"),"Interne Verantwoordelijke") #dim NieuweInterneVerantwoordelijke = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker(Interne) #dim InterneVerantwoordelijke = Regio.GeefInterneVerantwoordelijke() W $$$If($IsObject(InterneVerantwoordelijke)," "_InterneVerantwoordelijke.GeefNaam()," ")_" --> "_NieuweInterneVerantwoordelijke.GeefNaam() Do Regio.ZetInterneVerantwoordelijke(NieuweInterneVerantwoordelijke) } Do:InclusiefAndereDataAanpassing Regio.Save() } ]]> InclusiefAndereDataAanpassing:%Boolean 1 Gebruiker:%String,GebruikerInitialen:%String,Label:%String 1 vhUserID:%String,RegioID:%String 1 NieuweRegioMetGedragVan:%ArrayOfDataTypes 1 1 1 1 GebruikerInitialen 1 DOM.common.Gebruiker ID:%String 1 %String