JWI

- 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

- GLS specifieke code verplaatsen naar submap

- code om te zien of er buiten APPS.TRANSP.dto.LeveringInfo en APPS.TRANSP.GLS.Bericht.enu.VerzendWijze nog dependencies

- Er verschijnt toch nog informatie op de volledige KAL (niet op de verschil lijst) van toeleveringen waarvan alles is geleverd, maar nog niet is ingeboekt.

- controleken toegevoegd : zien of toeleveringen in KTO ook in BLOrdRsp zitten (opgelet, niet geconfirmeerde toeleveringen zitten terecht nog niet in BLOrdRsp)

- Opkuisen van zaken die nog in KAL staan, maar niet meer in KTO zitten

- typfoutjes

- routine die statements genereert om in BLOrdRsp toeleveringen te verwijderen indien de toelevering niet meer in KTO zit. opgelet geeft ook de manuele aan als te verwijderen want die zitten nooit in ^KTO.