Winkelkar.cls.xml

- Op winkelkar kunnen opvragen of er HerbestellingMetProbleem maatwerklijn aanwezig is

- Probleem "andere winkelkarren" opvragen in de configurator. Hiervoor was reeds een try catch voorzien. Nu werd ook de data vervolledigd op cache01 en dit voor 5 winkelkarren. (fout opgetreden tot 19 febr 2017, daarna niet meer gezien.) 4 van de 5 winkelkarren zijn reeds besteld.

- Deze code was nodig om de data recht te zetten. -> stap 1 groeplijn toevoegen in ^DOM.EC.Winkelkar.WinkelkarD(xxxxx,"Inhoud",xxxxx), daarna groep corrigeren adhv ztryout klasse van JWI.

[KCA] uitgevoerd

voor Cache01

*** Queries to find maatwerk without groep !!!!

Select ID, lijst->aangemaaktop,lijst->klantid,Groep,Groep->Naam,* from "DOM_EC_WINKELKAR"."LIJN" where ID [ '180372';

Select ID, lijst->aangemaaktop,lijst->klantid,Groep,Groep->Naam,* from "DOM_EC_WINKELKAR"."LIJN" where groep->naam is null and len(groep)>0

Select klantid,id, BestelStatus from APPS_VKP_impl.Offerte where winkelkarid in (180372,181670,182355,182443,182854)

Select Naam from DOM_EC_Winkelkar.GroepLijn where naam = null

*** Zoeken in de globals

^DOM.EC.Winkelkar.WinkelkarD(180372

*** updaten in globals

Lijn "180372||823402"

Set ^DOM.EC.Winkelkar.WinkelkarD(180372,"Inhoud",823411) = $lb("~DOM.EC.Winkelkar.GroepLijn~","180372||823394",,,,,1,"")

Set ^DOM.EC.Winkelkar.WinkelkarD(180372,"Inhoud",823411,"GroepLijn") = $lb("Geen groepnaam",$lb($lb("180372||823402")))

Do ##class(zTryout.JWI.GroupnaamCorrectie).%New().VerwerkSubLijnByID("180372||823402")

181670||829937

Set ^DOM.EC.Winkelkar.WinkelkarD(181670,"Inhoud",830157) = $lb("~DOM.EC.Winkelkar.GroepLijn~","181670||823394",,,,,1,"")

Set ^DOM.EC.Winkelkar.WinkelkarD(181670,"Inhoud",830157,"GroepLijn") = $lb("Geen groepnaam",$lb($lb("181670||829937")))

Do ##class(zTryout.JWI.GroupnaamCorrectie).%New().VerwerkSubLijnByID("181670||829937")

182443||833947

Set ^DOM.EC.Winkelkar.WinkelkarD(182443,"Inhoud",833954) = $lb("~DOM.EC.Winkelkar.GroepLijn~","182443||833945",,,,,1,"")

Set ^DOM.EC.Winkelkar.WinkelkarD(182443,"Inhoud",833954,"GroepLijn") = $lb("Geen groepnaam",$lb($lb("182443||833947")))

Do ##class(zTryout.JWI.GroupnaamCorrectie).%New().VerwerkSubLijnByID("182443||833947")

Lijn 182854||835880

Groeplijn : 182854||835881

Set ^DOM.EC.Winkelkar.WinkelkarD(182854,"Inhoud",835881) = $lb("~DOM.EC.Winkelkar.GroepLijn~","182854||835878",,,,,1,"")

Set ^DOM.EC.Winkelkar.WinkelkarD(182854,"Inhoud",835881,"GroepLijn") = $lb("Geen groepnaam",$lb($lb("182854||835880")))

Do ##class(zTryout.JWI.GroupnaamCorrectie).%New().VerwerkSubLijnByID("182854||835880")

Lijn 182335||833395

Groeplijn 182335||833406

Set ^DOM.EC.Winkelkar.WinkelkarD(182335,"Inhoud",833406) = $lb("~DOM.EC.Winkelkar.GroepLijn~","182335||833370",,,,,1,"")

Set ^DOM.EC.Winkelkar.WinkelkarD(182335,"Inhoud",833406,"GroepLijn") = $lb("Geen groepnaam",$lb($lb("182335||833395")))

Do ##class(zTryout.JWI.GroupnaamCorrectie).%New().VerwerkSubLijnByID("182335||833395")

DONE - DONE - DONE - DONE - DONE - DONE - DONE - DONE - DONE - DONE

- ExterneId index unique