Index: CHUI/Flow/ConfiguratorHelper.cls.xml =================================================================== diff -u -r2189 -r2302 --- CHUI/Flow/ConfiguratorHelper.cls.xml (.../ConfiguratorHelper.cls.xml) (revision 2189) +++ CHUI/Flow/ConfiguratorHelper.cls.xml (.../ConfiguratorHelper.cls.xml) (revision 2302) @@ -29,10 +29,10 @@ Set Applicatie = ##class(APPS.common.dto.Applicatie).%New() Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern() Set Applicatie.Naam = ..#ApplicatieID - Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID - // FMA Hardcoded gebruiker - // Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr) - Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,1,WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr) + Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New() + Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie, KlantNr) + Set Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker($$USERID^vhUSER) + Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,Gebruiker.GeefID(),Winkelkar.WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr) Set Status = Parameters.%Save() Quit Parameters ]]> @@ -47,10 +47,10 @@ Set Applicatie = ##class(APPS.common.dto.Applicatie).%New() Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern() Set Applicatie.Naam = ..#ApplicatieID - Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID - // FMA Hardcode gebruiker - //Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId) - Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,1,WinkelkarID,DocumentType,DocumentId) + Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New() + Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie, KlantNr) + Set Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker($$USERID^vhUSER) + Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,Gebruiker.GeefID(),Winkelkar.WinkelkarID,DocumentType,DocumentId) Set Status = Parameters.%Save() Quit Parameters ]]>