vhConsistency.Check %Integer 0 1 %String 1 %String 1 vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader 1 TECH.GlobalMultiDimIterator 1 AXimpl.Admin.VKP.SalesPriceService 1 Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice") 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 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. Een uitzondering hierop in de code steken, i.g.v. deze check, omhelsde teveel risico en werk, dus is gekozen voor volgende oplossing: In de mailbox van vhip_test@vanhoecke.be is er een forwording rule aangebracht... Mails met als onderwerp "Consistencycheck PrijzenVariatiesViaWebservice failed on [CACHEACCEPT2010]" worden geforward naar ICT_Meldingen@vanhoecke.be. In de mailbox van ICT_Meldingen@vanhoecke.be is er een uitzondering gemaakt op de rule dat mails van CACHEACCEPT2010 geredirect worden naar de folder "CacheAccept", waardoor deze, als ze van vhip_test@vanhoecke.be komen, uitzonderlijk toch gewoon in het "Postvak IN" terechtkomen. BestandUploader:vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader="",GlobalMultiDimIterator:TECH.GlobalMultiDimIterator="",SalesPriceService:AXimpl.Admin.VKP.SalesPriceService="",DecimalSeperatorInput:%String=",",ThousandSeperatorInput:%String="." 1 1 %Status 1 %Status 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 zijn met als lijstscheidingsteken ; ") Do ..VoegMeldingToe("3f. Open het bestand in Notepad++ om te controleren dat de seperator nog steeds ; is (soms maakt Excel er een tab van). ") Do ..VoegMeldingToe(" Indien Excel er in geslaagd is het lijstscheidingsteken te verknoeien en er TABs van gemaakt heeft... ") Do ..VoegMeldingToe(" Open dan het bestand in Notepad++ => ctrl-A => ctrl-H => vervang ""\t"" door "";"" en save. ") 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="" 1 DecimaalGetal:%String 1