1 TECH.RegisteredObject,APPS.EC.Winkelkar.WinkelkarService APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden 1 APPS.EC.impl.WinkelkarPrijsUpdater 1 APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator 1 DOM.VKP.Maatwerk.BestelService 1 APPS.EC.impl.VroegsteLeverdatumBepaler 1 MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler 1 1 %Status 1 WinkelkarID:%String APPS.EC.Winkelkar.dto.Winkelkar WinkelkarID:%String APPS.EC.Winkelkar.dto.Winkelkar WinkelkarID:%String APPS.EC.Winkelkar.dto.Winkelkar Applicatie:APPS.common.dto.Applicatie,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality APPS.EC.Winkelkar.dto.Winkelkar WinkelkarID:%String,LijnID:%String APPS.EC.Winkelkar.dto.Winkelkar WinkelkarID:%String APPS.EC.Winkelkar.dto.Winkelkar WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String="" APPS.EC.Winkelkar.dto.Winkelkar WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String="" %String Maakt een groep aan indien deze niet bestaat. Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn 1 WinkelkarID:%String IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,Winkelkar:DOM.EC.Winkelkar.Winkelkar,ProjectReferentie:%String 1 DOM.EC.Winkelkar.MaatwerkLijn WinkelkarID:%String DOM.EC.Winkelkar.Winkelkar WinkelkarID:%String APPS.EC.Winkelkar.Parent Winkelkar:DOM.EC.Winkelkar.Winkelkar DOM.enu.Taal Winkelkar:DOM.EC.Winkelkar.Winkelkar,LijnID:%String 1 DOM.EC.Winkelkar.Lijn WinkelkarID:%String %ListOfDataTypes ELEMENTTYPE="%Date" WinkelKarID:%String,Verzendwijze:APPS.VKP.VerzendWijze="" %Date WinkelKarID:%String %Date WinkelkarID:%String,LijnID:%String APPS.EC.Winkelkar.dto.Lijn WinkelkarID:%String,LijnID:%String APPS.EC.Winkelkar.dto.Lijn WinkelkarID:%String,LijnID:%String,Aantal:%Integer WinkelkarID:%String,LijnID:%String,NieuweProjectReferentie:%String="" WinkelkarID:%String,LijnID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,GroepNaam:%String="",ProjectReferentie:%String="" APPS.EC.Winkelkar.dto.Winkelkar OorspronkelijkAantalVanLijn:%Integer,IngegevenKenmerkenStream:%Stream,GewijzigdeKenmerkenStream:%Stream,Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Winkelkar:DOM.EC.Winkelkar.Winkelkar 1 WinkelkarID:%String,MaatwerkLijnIngegevenKenmerkenLijst:%ListOfObjects(ELEMENTTYPE="APPS.EC.Winkelkar.WinkelkarService.dto.MaatwerkLijnIngegevenKenmerken") APPS.EC.Winkelkar.dto.Winkelkar WinkelkarImpl:DOM.EC.Winkelkar.Winkelkar 1 APPS.EC.Winkelkar.dto.Winkelkar WinkelkarImpl:DOM.EC.Winkelkar.Winkelkar 1 APPS.EC.Winkelkar.dto.Winkelkar WinkelkarImpl:DOM.EC.Winkelkar.Winkelkar 1 APPS.EC.Winkelkar.dto.Winkelkar Lijn:DOM.EC.Winkelkar.MaatwerkLijn,IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Winkelkar:DOM.EC.Winkelkar.Winkelkar 1 RugHoogte volgt niet */ if Winkelkar.GeefApplicatieType() = ##class(APPS.common.enu.ApplicatieType).Extern() { if ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) && ( IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure()) && ( IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade() ) { if $$$Not(IngegevenKenmerkenDto.LadeHoogte = IngegevenKenmerkenDto.RugHoogte) { do ##class(vhLib.Logger).%New().InfoMail("Data Correctie","Rughoogte '"_IngegevenKenmerkenDto.RugHoogte_"' gelijkgesteld aan LadeHoogte '"_IngegevenKenmerkenDto.LadeHoogte_"'") set IngegevenKenmerkenDto.RugHoogte = IngegevenKenmerkenDto.LadeHoogte } } } Do ..ControleerIKVolgensKenmerkMogelijkheden(IngegevenKenmerkenDto, Winkelkar) #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenDomeinObjectVanDto(IngegevenKenmerkenDto) Do Lijn.ZetIngegevenKenmerken(IngegevenKenmerken) ]]> IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Winkelkar:DOM.EC.Winkelkar.Winkelkar 1 Winkelkar:DOM.EC.Winkelkar.Winkelkar 1 APPS.EC.impl.ConfiguratorService.ConfiguratorServiceTemplate door onderscheid te maken tussen de externe/interne WinkelkarService ( = TO DO ) Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopConfiguratorService() ; .GeefInterneConfiguratorService() ]]> Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Aantal:%String,Winkelkar:DOM.EC.Winkelkar.Winkelkar 1 Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Winkelkar:DOM.EC.Winkelkar.Winkelkar IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken Winkelkar:DOM.EC.Winkelkar.Winkelkar,Lijn:DOM.EC.Winkelkar.Lijn,GroepNaam:%String 1 in nieuwe steken; er was een verkeerde groep=>uit oude halen en in nieuwe steken; er was een juiste groep=>niets #dim ZatNietInGroep As %Boolean = '$IsObject(Lijn.Groep) #dim ZatInVerkeerdeGroep As %Boolean = 'ZatNietInGroep && (GroepNaam '= Lijn.Groep.Naam) If (ZatInVerkeerdeGroep) { Do Lijn.Groep.Verwijder(Lijn) Do ..VerwijderGroepIndienLeeg(Lijn.Groep) } If (ZatNietInGroep || ZatInVerkeerdeGroep) { Do ..VoegToeAanGroep(Winkelkar, GroepNaam, Lijn) } ]]> GroepLijn:DOM.EC.Winkelkar.GroepLijn InputOK:%Boolean,BerichtIndienNietOK:%String="" 1 Status:%Status,StatusCodeIndienNietOK:TECH.enu.ExceptionCode="",BerichtIndienNietOK:%String="" 1 WinkelkarID:%String,Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,LijnIDIndienBestaandeLijn:%String="" APPS.EC.Winkelkar.dto.Winkelkar