#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"
; 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" !!!
*/