#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