[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
