Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml =================================================================== diff -u -r53066 -r53455 --- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml (.../PrijzenVariatiesViaWebservice.cls.xml) (revision 53066) +++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml (.../PrijzenVariatiesViaWebservice.cls.xml) (revision 53455) @@ -3,6 +3,12 @@ vhConsistency.Check + +%Integer +0 +1 + + %String 1 @@ -33,7 +39,7 @@ Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().VoerUit() NIEUW BESTAND UPLOADEN: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().UploadBestandMetPrijzenNaarGlobal() OF RECHTSTREEKS MET EIGEN KLASSE: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader).%New().PopuleerGlobalVolgensBestand() -OPGELET: Maak eerst van het Excel-bestand een csv! +OPGELET: Maak eerst van het Excel-bestand een csv met ; als lijstscheidingsteken! BETREFFENDE CACHEACCEPT2010: Uitzonderlijk loopt deze check ook op CacheAccept2010, we willen in een zo vroeg mogelijk stadium weten of er iets met de prijzen aan de hand is. De mailafhandeling op CacheAccept2010 is echter niet zo vriendelijk, ze redirect ALLE mails die via een backgroundjob verstuurd worden naar vhip_test@vanhoecke.be. @@ -91,13 +97,13 @@ If $$$Not(##class(Derde.Klant.Klant).%ExistsId(KLNr)) { Set Melding = "Klant '"_KLNr_"' bestaat niet." - Do ..VoegMeldingToe(Melding) + Do ..VoegVolgendeMeldingToe(Melding) Continue } If $$$Not(##class(Prod.Product).%ExistsId(PRNr)) { Set Melding = "Product '"_PRNr_"' bestaat niet." - Do ..VoegMeldingToe(Melding) + Do ..VoegVolgendeMeldingToe(Melding) Continue } @@ -110,32 +116,83 @@ If $$$Not(NettoPrijs = SalesPriceServiceNettoprijs) { Set Melding = "Voor Klant '"_KLNr_"'"_KlantNaam_"' komt de SalesPriceService-Nettoprijs niet overeen voor product '"_PRNr_"'-'"_Identnummer_"'-'"_Korttekst_"'. Bestand: '"_NettoPrijs_"' t.o.v. SalesPriceService: '"_SalesPriceServiceNettoprijs_"'." - Do ..VoegMeldingToe(Melding) + Do ..VoegVolgendeMeldingToe(Melding) } If $$$Not(LijstPrijs = SalesPriceServiceLijstPrijs) { Set Melding = "Voor Klant '"_KLNr_"'"_KlantNaam_"' komt de SalesPriceService-LijstPrijs niet overeen voor product '"_PRNr_"'-'"_Identnummer_"'-'"_Korttekst_"'. Bestand: '"_LijstPrijs_"' t.o.v. SalesPriceService: '"_SalesPriceServiceLijstPrijs_"'." - Do ..VoegMeldingToe(Melding) + Do ..VoegVolgendeMeldingToe(Melding) } If $$$Not(Eenheid = SalesPriceServiceEenheid) { Set Melding = "Voor Klant '"_KLNr_"'"_KlantNaam_"' komt de SalesPriceService-Eenheid niet overeen voor product '"_PRNr_"'-'"_Identnummer_"'-'"_Korttekst_"'. Bestand: '"_Eenheid_"' t.o.v. SalesPriceService: '"_SalesPriceServiceEenheid_"'." - Do ..VoegMeldingToe(Melding) + Do ..VoegVolgendeMeldingToe(Melding) } If $$$Not(InclBTW = SalesPriceServiceInclBTW) { Set Melding = "Voor Klant '"_KLNr_"'"_KlantNaam_"' komt de SalesPriceService-InclBTW niet overeen voor product '"_PRNr_"'-'"_Identnummer_"'-'"_Korttekst_"'. Bestand: '"_InclBTW_"' t.o.v. SalesPriceService: '"_SalesPriceServiceInclBTW_"'." - Do ..VoegMeldingToe(Melding) + Do ..VoegVolgendeMeldingToe(Melding) } } } - Do ..GlobalMultiDimIterator.Reset() Quit (..GeefAantalMeldingen()=0) ]]> + +Melding:%String="" +1 + + + + +1 + Zij moeten verifiëren/confirmeren of de wijziging al dan niet terecht is. ") + Do ..VoegMeldingToe("") + Do ..VoegMeldingToe("2a..Indien de wijziging onterecht is => Debuggen wat de wijziging veroorzaakt heeft en dit rechtzetten. ") + Do ..VoegMeldingToe(" Daarna deze check opnieuw laten lopen (Zie bovenaan in deze mail). ALLE VERDERE PUNTEN NEGEREN ! ") + Do ..VoegMeldingToe("2b..Indien de wijziging terecht is => Aanpassen van deze check, als volgt... ") + Do ..VoegMeldingToe("") + Do ..VoegMeldingToe("3...AANPASSEN CSV-BESTAND: ") + Do ..VoegMeldingToe("3a. LOCATIE: \\notes01\shared\Ict\ConsistencyChecks\DOM\PM\PrijzenVariatiesViaWebservice ") + Do ..VoegMeldingToe(" OPGELET: Twee submappen (Cache01 en CacheAccept2010) met gelijknamige bestanden erin, die echter kunnen VERSCHILLEN QUA INHOUD! ") + Do ..VoegMeldingToe("3b. WAT AANPASSEN: Enkel kolommen A t/m K zijn van tel. Meestal zal er enkel iets gewijzigd moeten worden ergens tussen kolommen H t/m K. ") + Do ..VoegMeldingToe("3c. Zoek de aan te passen lijn volgens de combinatie: Klant/Product. ") + Do ..VoegMeldingToe("3d. Pas de nodige waarden aan (LET OP: Gebruik komma's om decimalen mee te geven!) ") + Do ..VoegMeldingToe("3e. Sla het bestand op (LET OP: Wijzig de extensie NIET. Het MOET een csv-bestand blijven met als lijstscheidingsteken ;) ") + Do ..VoegMeldingToe("3f. Indien, om welke reden ook, Excel er toch in geslaagd is het lijstscheidingsteken te verknoeien en er TABs van te maken... ") + Do ..VoegMeldingToe(" Open dan het bestand in Notepad++ => ctrl-A => ctrl-H => vervang ""\t"" door "";"". ") + Do ..VoegMeldingToe("") + Do ..VoegMeldingToe("4...AANGEPASTE BESTAND OP DE JUISTE LOCATIE ZETTEN VOOR UPLOAD: ") + Do ..VoegMeldingToe("4a. Kopieer het bestand!! (LET OP: Het bestand op Notes01 MOET de laatste versie zijn en blijven, om voorgaande wijzigingen niet te overschrijven.) ") + Do ..VoegMeldingToe("4b. Plak het gekopieerde bestand in de c:\temp folder op de juiste omgeving (Cache01 of CacheAccept2010). ") + Do ..VoegMeldingToe(" Om te weten op welke omgeving het bestand dient gewijzigd te worden => Check het onderwerp van deze mail. ") + Do ..VoegMeldingToe("") + Do ..VoegMeldingToe("5...UPLOAD HET GEWIJZIGDE BESTAND: ") + Do ..VoegMeldingToe("5a. Open een PuTTy naar de juiste omgeving (zie ook punt 4b. om te weten welke omgeving.) ") + Do ..VoegMeldingToe("5b. Run volgende instructie: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().UploadBestandMetPrijzenNaarGlobal() ") + Do ..VoegMeldingToe(" De PuTTy geeft het resultaat weer. ") + Do ..VoegMeldingToe("") + Do ..VoegMeldingToe("6...CONTROLE: ") + Do ..VoegMeldingToe(" Deze check opnieuw laten lopen (Zie bovenaan in deze mail). ") + Do ..VoegMeldingToe("") +]]> + + FullPath:%String="",Filename:%String=""