; Blum Dynalog ; Aanvullen van de Dynalog produktenlijst via =ceRoutine("$$HAENDLERNR^BLDynalog";$A21) GETPRNR(IdentNr) Set IdentNr=0_IdentNr_" " Set PRNr=$P($G(^KPR2(IdentNr)),"\") Quit PRNr HAENDLERNR(IdentNr) Set PRNr=$$GETPRNR(IdentNr) Quit:PRNr="" " - VRAAG INFO - " Quit $P(^KPR(PRNr,0),"\",1) PREIS(IdentNr) Quit 1 ; Beheer minimum en huidige versie van Dynalog, Dynaplug VersieBeheer New %TC,R,sFL,OldDynaData,From,To,Subject,Body Do ADD^vhLock("Versiebeheer") If '%TC Do LDISP^vhLock("Versiebeheer") Quit Set (sFL(1),OldDynaData)=$G(^KPR(0,"DYNAPLUG")) Do EDIT^vhScherm("DYNAPLUG") If %SC,sFL(1)'=$G(^KPR(0,"DYNAPLUG")) Do . Quit:$$^vhTXTPOP("FILE","SAVE2")'="J" . Set ^KPR(0,"DYNAPLUG")=sFL(1) . Set From=$ZUTIL(110)_"@VANHOECKE.BE" . Set To=$$MailTo^vhUSER("FMA;JCL;CW",1) . Set Subject="Versiebeheer Dynalog - Dynaplug" . Set strmBody=$$GetHTML(OldDynaData,sFL(1)) . Set R=$$SendMiniMail^vhLib(From,To,Subject,strmBody,1,1) Quit ; GetHTML(OldDynaData,NewDynaData) New strmBody,NextRec,NLZRec,KLNr,Node,Palet,Colli,LangGoed,Beloofd,Rembours,VerzW,KlRec,KlNaam,WoonPlaats,Regio,ExtraTeBet #define fmtBeginHtml "" #define fmtBeginTable "" #define fmtEndTable "

" #define fmtEndHtml "" Set strmBody=##class(%GlobalCharacterStream).%New() Do strmBody.Write($$$fmtBeginHtml) Do strmBody.Write("Gewijzigd door: "_$$USERNAME^vhUSER(,2)_" - "_$$EXTDATE^vhDTyp()) Do strmBody.Write("
") Do strmBody.Write("
") Do strmBody.Write($$$fmtBeginTable) Do strmBody.Write("") Do strmBody.Write("Oud") Do strmBody.Write("Nieuw") Set NextRec="" For xx=1:1:4 { Set NextRec=$O(NLZ(NextRec)) Do strmBody.Write("") Do strmBody.Write(""_$P("Dynalog minimum versie\Dynalog laatste versie\Dynaplug minimum versie\Dynaplug laatste versie",D,xx)_"") Do strmBody.Write(""_$P(OldDynaData,D,xx)_"") Do strmBody.Write(""_$S($P(OldDynaData,D,xx)=$P(NewDynaData,D,xx):"",1:"")_$P(NewDynaData,D,xx)_"") Do strmBody.Write("") } Do strmBody.Write($$$fmtEndTable) Do strmBody.Write($$$fmtEndHtml) Quit strmBody