#include vhLib.Macro // CSP-HTML-URL (macro's uit %VHMacro.inc) #define HTML(%v) $$ConvertToHTML^vhRtn1(%v) #define HTML2(%v) $ZCVT(%v,"O","HTML") #define QuoteJS(%v) ##class(%CSP.Page).QuoteJS(%v) #define URL(%v) $ZCVT(%v,"O","URL") #define XML(%v) $ZCVT(%v,"O","UTF8") ; +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ ; | Constanten voor het algemene GAData.Product: | ; +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ ; Package: Prod.GAMeta.* + Prod.GAData.* ; Consistency Check (cc): mogelijke onderdelen van GA.Product die kunnen gecontroleerd worden op inconsistente data #define ccChildExpr 1 #define ccVolgNrDItem 2 #define ccVolgNrKost 3 #define ccItemLabel 4 #define ccProgLabel 5 #define ccKolomNrParam 6 #define ccParamMode 7 #define ccExecutes 8 ; ImageDir constanten #define SharedCommonDir "\\Notes01\Shared\Common\" #define ImageDirGA(%v) "\\Notes01\Shared\Common\Images\GAProd\"_%v_"\" ; +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ ; | Constanten voor specifieke toepassingen van GA.Product: | ; +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ ; Package: BL.PR.GA.* + UI.PR.GA.* ; + + + + + + + + ; + TandemBOX + ; + + + + + + + + ; Losse constanten #define tbxCodeStdLade "Std" ; PropagatieType (pt) #define ptNone 0 #define ptEmpty 1 #define ptAll 2 ; Of: hoe waarden van andere kenmerken gewijzigd (gepropageerd) worden wanneer de keuzelijst ervan groter of kleiner wordt, ; t.g.v beperkingen opgelegd door bovenliggende kenmerkwaarden ; ptNone 0 ; Waarden worden niet aangepast aan de mogelijke waarden ; ptEmpty 1 ; Als waarde niet in lijst, waarde wordt gewist ; ptAll 2 ; ptEmpty + als slechts één item in lijst, dan wordt deze geselecteerd ; RunMode (rm): Opstart-setting voor de applicatie UI.PR.GA.TandemBox #define rmNewTemplate 1 #define rmViewTemplate 2 #define rmEditTemplate 3 #define rmNewFromTemplate 4 #define rmNewFromProduct 5 #define rmViewProduct 6 #define rmEditProduct 7 ; Constanten voor WebApp #define mmToggleHistOrd 0 #define mmAllowTogether 1 #define QSREFReplace "$$HashedREF$$" #define KLNrListAll "#ALL#" ; + + + + + + + + + ; + Verlichting + ; + + + + + + + + + #define MaxTLPos 100 ; +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ ; | Constanten voor TandemBox WEB-applicaties: | ; +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ ; Package: csp.TBX.* + WS.TBX.* ; Storage Global for Klant Data #define GlobalKLData ^WS.TBX.KlantData ; Delimiters voor JS-communicatie via HyperEvents // OPGELET 1 : !!! moeten dus in sync zijn met de javascript-files op de webserver dir /VHISIE/TBX/ // OPGELET 2 : !!! deze macro's worden ZEKER nog niet op alle plaatsen gebruikt. Alle code extra controleren op hard-coded delimiters !!! #define DelimWSOrderHfd "`" #define DelimWSOrderLijn "\" ; UserType (ut): Uit de URL wordt het type gebruiker (UserType) bepaald die de web-applicatie opent/bekijkt/wijzigt. #define utKlantAnon 1 #define utKlantAnonWP 2 #define utKlantKnown 3 #define utVerwSub 5 #define utVerwDomain 8 #define utVerwAdmin 9 ; Status Hist (sh): Show In Historiek : Numerieke waarde die aangeeft of een order al dan niet moet getoond worden. #define shHiddenForAll 0 #define shHiddenByDynaPlug 5 #define shShownForVHEPN 10 #define shShownForVERW 30 #define shShownForKlant 80 ; #define shShownForAll 99 ; Niet gebruiken, want orders zijn klantgebonden #define shShownForAll 99 ; Encryptie-sleutel voor de DATAOPT parameter (QueryString in URL) for Klant Data #define HeinKey "WN-uQ4n6tS61dHJ1" #define OptimaKey "vanhoeckeOPTIMAL" #define SfsOptKey "SFS.unimarket2VH" #define MBHollandOptKey "NL_MeuHo.VH!lAdE" #define HafeleBEOptKey "BE-tbx.H@fele&VH" #define HafeleNLOptKey "CtHFLdaT:U-NL2vH" #define KischOptKey "tBx&_KiSCH-nl2VH" #define VanRaemdonckOptKey "beShop-V.RaEM!VH" #define DaroOptKey "u7D@r0;CJm2Wx5KM" #define GalimbertiOptKey "5Y.OOD@z7&TveHs7" #define PavanelloOptKey "~6/2#Y8_tXLbrC+m" #define FerexpertOptKey "TdXA{Du(Xqy7L`J\" #define BeslagteknikkOptKey "F8zan2R/MXQ#Ts7L" #define JBarthKey "m57!p#}a)t6gbTHJ" #define BiemarBoisKey "PAh*Zu~naLnv#7#.qdus?dG7_2*" #define FurnifitKey "GHN)Cf2RD3[b_?M9" #define YachtSupplierKey "J5DY*g,Lf){$Y}pwYN" #define HafeleFIKey "Qv/Tz-(]u$k6!u@$" #define HafeleITKey "HG`CYLK*49FsH" #define BlumPLKey "bv[Q)@8uBg]bYMT<" #define MeurerKey "p_vTG$PfT&1r3cJe" #define HafeleESKey "(2Fmid?w5=8Go&!d" #define OPODeKey "C9vDMJk:,!3y+eT-" #define BlumCZKey "7zMXr9L694+c@ati" #define OstermannBEKey "J#7nHOcSfRz*5I4p" ; Toegang voor OptimaFIX page : beperkt via controle op IP-adres ; !!! Te compileren in routines : ; - csp.vhisie.TBX.BuildRef.tmpDev.MAC ; - csp.vhisie.TBX.Main.tmpDev.MAC #define OptimaAccess (sDomVERW="LMC")&&(%RemoteIP?1(1"92.103.129.165",1"92.103.129.172",1"92.103.129.174",1"192.168.1."1.3N)) // OptimaAccess PREVIOUS IP's : (%RemoteIP?1(1"212.103.4.85") ; No longer in use by Optima ; Toegang voor de TestDataOpt page : beperkt via controle op IP-adres ; !!! Te compileren in routines : ; - csp.vhisie.TBX.BuildRef.tmpDev.MAC #define AccessTestPageDataOptLMC(%ip) (%ip?1(1"92.103.129.165",1"212.103.4.85")) #define AccessTestPageDataOptSFS(%ip) (%ip?1(1"77.59.193.234",1"195.141.221.1")) #define AccessTestPageDataOptMBHO(%ip) (%ip?1(1"217.21.251.83")) #define AccessTestPageDataOptHFLB(%ip) (%ip?1(1"194.78.193.29",1"195.110.61.246")) ; Munt pariteit voor vreemde munten ; --------------------------------- // CHF : Zwitserse Frank (voor SFS) 1 EUR = 1.513 CHF #define MuntParCHF 0.6609 /* !!! IMPORTANT !!! ========= !!! After changing the exchange rates, also compile the routine "cspBasis.Library.MAC" !!! */