#include vhLib.Macro
 
	// CSP-HTML-URL  (macro's uit vhLib.Macro.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 OptimaKey                  "vanhoeckeOPTIMAL"
	#define SfsOptKey                  "SFS.unimarket2VH"
	#define MBHollandOptKey            "NL_MeuHo.VH!lAdE"
	#define HafeleBEOptKey             "BE-tbx.H@fele&VH"
	
	; 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"  !!! 
 */