Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml =================================================================== diff -u -r52027 -r52030 --- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml (.../BestandUploader.cls.xml) (revision 52027) +++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml (.../BestandUploader.cls.xml) (revision 52030) @@ -75,9 +75,12 @@ Kill ^ConsistCheckPrijzenKlantProduct(Node1) Do ..Console.WriteLine("De eventueel bestaande Global ^ConsistCheckPrijzenKlantProduct is gewist.") - Set ^ConsistCheckPrijzenKlantProduct(Node1,0,0,0) = "Persistentie van verwachte prijzen voor ConsistencyCheck volgens Check-RijInExcelBestand-Klant-Product" - Do ..FileReader.SetFirstDataRow(3) + + If (..FileReader.HasNext()) { + Set ^ConsistCheckPrijzenKlantProduct(Node1,0,0,0) = "Persistentie van verwachte prijzen voor ConsistencyCheck volgens Check-RijInExcelBestand-Klant-Product" + } + While ..FileReader.HasNext() { Do ..FileReader.Next() Set Lijn = ..FileReader.GetData(1) Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml =================================================================== diff -u -r52029 -r52030 --- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml (.../PrijzenVariatiesViaWebservice.cls.xml) (revision 52029) +++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml (.../PrijzenVariatiesViaWebservice.cls.xml) (revision 52030) @@ -49,8 +49,8 @@ #dim SalesPriceServiceEenheid, SalesPriceServiceInclBTW, SalesPriceServiceLijstPrijs, SalesPriceServiceNettoprijs As %String #dim Aantal, KLNr, PRNr As %Integer - If ..GlobalMultiDimIterator.AtEnd() { - Set Melding = "De Global die de te checken data hoort te bevatten is leeg. Gelieve een bestand te uploaden met volgende instructie: "_$$$CRLF + If (($Data(^ConsistCheckPrijzenKlantProduct)) = 0) { + Set Melding = "De Global die de te checken data hoort te bevatten bestaat niet. Gelieve een bestand te uploaden met volgende instructie: "_$$$CRLF _"Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().UploadBestandMetPrijzenNaarGlobal() "_$$$CRLF _"Het default pad is C:\temp\ en de default bestandsnaam is 'TST PrijzenControleren in bulk via webservice.csv'" } Else {