;Data Owner Constants
 ;~~~~~~~~~~~~~~~~~~
 ; 
 #Define doGrafiek                               "GRAFIEK"
 #Define doTabel                                 "TABEL"
 #Define doGrid                                  "GRID"
         
 ;Tabel Options Constants
 ;~~~~~~~~~~~~~~~~~~
 ;       
 #Define toBgColor                               0
 #Define toWarningColor                          1
 #Define toWarningStyle                          2
 #Define toWarningIcon                           3
 #Define toIcon                                  4
 
 #Define myIcons                                 "ICON_Checked1\ICON_Error1\ICON_Information1\ICON_LightOff1\ICON_LightOn1\ICON_NoAccess1\ICON_Question1\ICON_Question2\ICON_LightRed1\ICON_Unchecked1"
 
 ;Grafiek Options Constants
 ;~~~~~~~~~~~~~~~~~~
 ;       
 #Define goBgColor                               100
         
 ;Doelstelling Constants
 ;~~~~~~~~~~~~~~~~~~
 ; 
 #Define dsTotal                                 200
 #Define dsDivisie                               201
 #Define dsPoolRegio                             202
 #Define dsRegio                                 203
 
 #Define ddDoelstelling                          300
 
 ;Color Constants
 ;~~~~~~~~~~~~~~~~~~
 ; 
 #Define clReferenceDark                         $ZH("005E92FF")
 #Define clReferenceLight                        $ZH("0077A4FF")
 #Define clPresentDark                           $ZH("00C5A7B0")
 #Define clPresentLight                          $ZH("00CDB4BC")
 #Define clLightGray                             $ZH("00E0E0E0")
 
 ;Routine Shortcuts
 ;~~~~~~~~~~~~~~~~~~
 ;
 ;Convert %H to DMC date format 
 #Define ToDMC(%H)                               $$EXTDATE^vhDTyp(%H,"DMC")
 ;
 ;Decrement %H with one month
 #Define DecMonth(%H)                            $H-$ZD(%H,5," 28 31 30 31 30 31 31 30 31 30 31 31 ") 
 ;
 ;Increment %H with one month                          
 #Define IncMonth(%H)                            $H+$ZD(%H,5," 31 28 31 30 31 30 31 31 30 31 30 31 ")   
 ;
 ;Wrapper for msgbox                                     
 #Define alert(%H)                               Do MApplication.MessageBox(%H)