GroepLijn.cls.xml

[DEF558] GeefOfferteSamenvattingenVoorKlant
- 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