VERSION 5.00
Begin VB.UserControl ctlSelectWithdrawals 
   ClientHeight    =   4152
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8520
   ScaleHeight     =   4152
   ScaleWidth      =   8520
   Begin VB.CheckBox chkCP 
      Caption         =   "WD - Withdrawal"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   4800
      TabIndex        =   21
      Tag             =   "WD"
      ToolTipText     =   "Canal/Pipeline Withdrawal"
      Top             =   2640
      Width           =   2412
   End
   Begin VB.CheckBox chkCP 
      Caption         =   "WA - Withdrawal NOT for immediate use"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   4800
      TabIndex        =   23
      Tag             =   "WA"
      ToolTipText     =   "Canal/Pipeline Withdrawal NOT for immediate use"
      Top             =   2880
      Width           =   3732
   End
   Begin VB.CheckBox chkCP 
      Caption         =   "LG - Loss-Gain"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   4800
      TabIndex        =   32
      Tag             =   "LG"
      ToolTipText     =   "Any Canal/Pipeline Loss-Gain"
      Top             =   3840
      Width           =   1548
   End
   Begin VB.CheckBox chkCP 
      Caption         =   "WB - Branch Withdrawals"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   4800
      TabIndex        =   26
      Tag             =   "WB"
      ToolTipText     =   "Branch Withdrawals Along a Canal or Pipeline"
      Top             =   3360
      Width           =   2772
   End
   Begin VB.CheckBox chkCP 
      Caption         =   "DL - Delivery"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   4800
      TabIndex        =   29
      Tag             =   "DL"
      ToolTipText     =   "Any Canal/Pipeline Delivery"
      Top             =   3600
      Width           =   2268
   End
   Begin VB.CheckBox chkCanalsPipelines 
      Caption         =   "CP - Along Canals and Pipelines"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   192
      Left            =   4800
      TabIndex        =   17
      Tag             =   "CP"
      Top             =   2304
      Width           =   3372
   End
   Begin VB.CheckBox chkRS 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   4320
      TabIndex        =   22
      Tag             =   "WA"
      ToolTipText     =   "Reservoir WA"
      Top             =   2880
      Width           =   192
   End
   Begin VB.CheckBox chkRS 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   4320
      TabIndex        =   31
      Tag             =   "LG"
      ToolTipText     =   "Any Reservoir Loss-Gain"
      Top             =   3840
      Width           =   192
   End
   Begin VB.CheckBox chkRS 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   4320
      TabIndex        =   28
      Tag             =   "DL"
      ToolTipText     =   "Any Delivery Along Chain"
      Top             =   3600
      Width           =   192
   End
   Begin VB.CheckBox chkRS 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   4320
      TabIndex        =   20
      Tag             =   "WD"
      ToolTipText     =   "Reservoir Withdrawl"
      Top             =   2640
      Width           =   192
   End
   Begin VB.CheckBox chkReservoirs 
      Caption         =   "RS - Along Chain of Reservoirs"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   192
      Left            =   4320
      TabIndex        =   16
      Tag             =   "RS"
      Top             =   1980
      Width           =   3492
   End
   Begin VB.CheckBox chkWD 
      Caption         =   " "
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   3840
      TabIndex        =   19
      Tag             =   "WD"
      ToolTipText     =   "Site specific and aggreate withdrawals from a hydrologic source."
      Top             =   2640
      Width           =   192
   End
   Begin VB.CheckBox chkWD 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   3840
      TabIndex        =   30
      Tag             =   "LG"
      ToolTipText     =   "WD Loss-Gain"
      Top             =   3840
      Width           =   192
   End
   Begin VB.CheckBox chkWD 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   3840
      TabIndex        =   27
      Tag             =   "DL"
      ToolTipText     =   "WD Delivery"
      Top             =   3600
      Width           =   192
   End
   Begin VB.Frame fraWaterType 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1500
      Left            =   2880
      TabIndex        =   1
      Tag             =   "WaterQuantity.ir_method_cd"
      Top             =   0
      Width           =   5532
      Begin VB.CheckBox chkIrrigation 
         Caption         =   "Micro"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   2
         Left            =   3480
         TabIndex        =   13
         Tag             =   "MI"
         ToolTipText     =   "Micro Irrigation (MI)"
         Top             =   1160
         Width           =   945
      End
      Begin VB.CheckBox chkWaterType 
         Caption         =   "Surface-Water"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   1
         Left            =   3480
         TabIndex        =   4
         Tag             =   "SW"
         ToolTipText     =   "Surface-Water (SW)"
         Top             =   240
         Width           =   1695
      End
      Begin VB.CheckBox chkIrrigation 
         Caption         =   "Flood"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   1
         Left            =   2520
         TabIndex        =   12
         Tag             =   "FL"
         ToolTipText     =   "Flood Irrigation (FL)"
         Top             =   1160
         Width           =   885
      End
      Begin VB.CheckBox chkSalinity 
         Caption         =   "Unspecified"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   3
         Left            =   3480
         TabIndex        =   9
         Tag             =   "N"
         ToolTipText     =   "Salinity Unspecified (N)"
         Top             =   800
         Width           =   1455
      End
      Begin VB.CheckBox chkSalinity 
         Caption         =   "Unknown"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   2
         Left            =   3480
         TabIndex        =   8
         Tag             =   "U"
         ToolTipText     =   "Salinity Unknown"
         Top             =   600
         Width           =   1215
      End
      Begin VB.CheckBox chkWaterType 
         Caption         =   "Ground-Water"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   0
         Left            =   1680
         TabIndex        =   3
         TabStop         =   0   'False
         Tag             =   "GW"
         ToolTipText     =   "Ground-water (GW)"
         Top             =   240
         Width           =   1695
      End
      Begin VB.CheckBox chkSalinity 
         Caption         =   "Saline"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   1
         Left            =   2520
         TabIndex        =   7
         Tag             =   "S"
         ToolTipText     =   "Saline Water (S)"
         Top             =   600
         Width           =   975
      End
      Begin VB.CheckBox chkSalinity 
         Caption         =   "Fresh"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   0
         Left            =   1680
         TabIndex        =   6
         Tag             =   "F"
         ToolTipText     =   "Fresh Water (F)"
         Top             =   600
         Width           =   855
      End
      Begin VB.CheckBox chkIrrigation 
         Caption         =   "Spray"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   0
         Left            =   1680
         TabIndex        =   11
         Tag             =   "SP"
         ToolTipText     =   "Spray Irrigation (SP)"
         Top             =   1160
         Width           =   915
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         Caption         =   "Water Type:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   7
         Left            =   480
         TabIndex        =   2
         Top             =   240
         Width           =   1092
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         Caption         =   "Salinity:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   6
         Left            =   600
         TabIndex        =   5
         Top             =   600
         Width           =   972
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         Caption         =   "Irrigation Method:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.8
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   5
         Left            =   120
         TabIndex        =   10
         Top             =   1160
         Width           =   1452
      End
   End
   Begin VB.CheckBox chkWithdrawals 
      Caption         =   "WD - Site Specific and Aggregate Withdrawals"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   192
      Left            =   3840
      TabIndex        =   15
      Top             =   1680
      Width           =   4524
   End
   Begin Swuds.ctlNatWaterUse ctlNatWaterUse1 
      Height          =   3612
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   2772
      _ExtentX        =   4890
      _ExtentY        =   6371
   End
   Begin VB.CheckBox chkRS 
      Caption         =   "          WT - Withdrawal for transfer"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   4320
      TabIndex        =   25
      Tag             =   "WT"
      ToolTipText     =   "Reservoir Withdrawl for Transfer"
      Top             =   3120
      Width           =   192
   End
   Begin VB.Line Line7 
      X1              =   3720
      X2              =   8400
      Y1              =   1608
      Y2              =   1608
   End
   Begin VB.Line Line6 
      X1              =   4620
      X2              =   8400
      Y1              =   2232
      Y2              =   2232
   End
   Begin VB.Line Line5 
      X1              =   4140
      X2              =   8400
      Y1              =   1920
      Y2              =   1920
   End
   Begin VB.Line Line4 
      X1              =   3720
      X2              =   3720
      Y1              =   1608
      Y2              =   4080
   End
   Begin VB.Label lblWT 
      Caption         =   "WT - Withdrawal for transfer"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   5028
      TabIndex        =   24
      Top             =   3132
      Width           =   2892
   End
   Begin VB.Line Line3 
      X1              =   4620
      X2              =   4620
      Y1              =   2232
      Y2              =   4082
   End
   Begin VB.Line Line2 
      X1              =   4140
      X2              =   4140
      Y1              =   1920
      Y2              =   4080
   End
   Begin VB.Label lbl_cn_qnty_cd 
      Caption         =   "Water Quantity:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   492
      Left            =   2880
      TabIndex        =   18
      Top             =   3120
      Width           =   852
   End
   Begin VB.Line Line1 
      X1              =   2880
      X2              =   8400
      Y1              =   2544
      Y2              =   2544
   End
   Begin VB.Label lblPrimaryAction 
      Caption         =   "Primary Action:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   492
      Left            =   2880
      TabIndex        =   14
      Top             =   1920
      Width           =   732
   End
End
Attribute VB_Name = "ctlSelectWithdrawals"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
' Control **************************************************************
' Name:        ctlSelectWithdrawls
' Purpose:     Selection control for selecting withdrawl values.
'
' Author:      Mark Gray, Todd Augenstein, USGS
' Date:        9/25/2001
'
'Dependencies:
'Changes:
'
' Notes:
Private m_varWidthPreferred As Long
Private m_varHeightPreferred As Long
Private m_varCriteria As String
Private m_varCaption As String
Private m_varSettingBoxes As Boolean 'True if we are in the middle of setting checkbox values

Private Const SQL_prim_act_WD = "WaterQuantity.prim_action_cd = 'WD'"
Private Const SQL_prim_act_RS = "WaterQuantity.prim_action_cd = 'RS'"
Private Const SQL_prim_act_CP = "WaterQuantity.prim_action_cd = 'CP'"

'Public Event change(keyChanged$, newvalue As Variant)
Public Event change()
Public Event resizeRequest(newWidth&, newHeight&)

Private Sub chkCanalsPipelines_Click()
  If Not m_varSettingBoxes Then
    m_varSettingBoxes = True
    Dim chk As Integer
    For chk = 0 To chkCP.Count - 1
      chkCP(chk).value = chkCanalsPipelines.value
    Next
    RaiseEvent change
    m_varSettingBoxes = False
  End If
End Sub

Private Sub chkCP_Click(Index As Integer)
  If Not m_varSettingBoxes Then
    m_varSettingBoxes = True
    If chkCP(Index).value = vbChecked Then
      chkCanalsPipelines.value = vbChecked
    End If
    RaiseEvent change
    m_varSettingBoxes = False
  End If
End Sub

Private Sub chkIrrigation_Click(Index As Integer)
  If Not m_varSettingBoxes Then RaiseEvent change
End Sub

Private Sub chkReservoirs_Click()
  If Not m_varSettingBoxes Then
    m_varSettingBoxes = True
    Dim chk As Integer
    For chk = 0 To chkRS.Count - 1
      chkRS(chk).value = chkReservoirs.value
    Next
    RaiseEvent change
    m_varSettingBoxes = False
  End If
End Sub

Private Sub chkRS_Click(Index As Integer)
  If Not m_varSettingBoxes Then
    m_varSettingBoxes = True
    If chkRS(Index).value = vbChecked Then
      chkReservoirs.value = vbChecked
    End If
    RaiseEvent change
    m_varSettingBoxes = False
  End If
End Sub

Private Sub chkSalinity_Click(Index As Integer)
  If Not m_varSettingBoxes Then RaiseEvent change
End Sub

Private Sub chkWaterType_Click(Index As Integer)
  If Not m_varSettingBoxes Then RaiseEvent change
End Sub

Private Sub chkWD_Click(Index As Integer)
  If Not m_varSettingBoxes Then
    m_varSettingBoxes = True
    If chkWD(Index).value = vbChecked Then
      chkWithdrawals.value = vbChecked
    End If
    RaiseEvent change
    m_varSettingBoxes = False
  End If
End Sub

Private Sub chkWithdrawals_Click()
  If Not m_varSettingBoxes Then
    m_varSettingBoxes = True
    Dim chk As Integer
    For chk = 0 To chkWD.Count - 1
      chkWD(chk).value = chkWithdrawals.value
    Next
    RaiseEvent change
    m_varSettingBoxes = False
  End If
End Sub

Private Sub ctlNatWaterUse1_change()
  RaiseEvent change
End Sub

Private Sub UserControl_Initialize()
  m_varWidthPreferred = 8520
  m_varHeightPreferred = 4152
  m_varCaption = "Withdrawal"
  ctlNatWaterUse1.dbField = "WaterQuantity.nat_water_use_cd"
  ctlNatWaterUse1.caption = "Withdrawals From:"
End Sub

Public Property Let heightPreferred(ByVal newValue As Long)
  m_varHeightPreferred = newValue
End Property

Public Property Get heightPreferred() As Long
  heightPreferred = m_varHeightPreferred
End Property

Public Property Let widthPreferred(ByVal newValue As Long)
  m_varWidthPreferred = newValue
End Property

Public Property Get widthPreferred() As Long
  widthPreferred = m_varWidthPreferred
End Property

Public Property Let caption(ByVal newValue As String)
  m_varCaption = newValue
End Property

Public Property Get caption() As String
  caption = m_varCaption
End Property

Public Property Get valid() As Boolean
  valid = True
End Property

Public Sub clear()
  Dim alreadySettingBoxes As Boolean
  Dim chk&
  alreadySettingBoxes = m_varSettingBoxes
  m_varSettingBoxes = True
  
  ctlNatWaterUse1.clear
  
  For chk = 0 To chkWaterType.Count - 1
    chkWaterType(chk).value = vbUnchecked
  Next
  For chk = 0 To chkSalinity.Count - 1
    chkSalinity(chk).value = vbUnchecked
  Next
  For chk = 0 To chkIrrigation.Count - 1
    chkIrrigation(chk).value = vbUnchecked
  Next
  
  chkWithdrawals.value = vbUnchecked
  chkReservoirs.value = vbUnchecked
  chkCanalsPipelines.value = vbUnchecked
      
  For chk = 0 To chkWD.Count - 1
     chkWD(chk).value = vbUnchecked
  Next
  For chk = 0 To chkRS.Count - 1
     chkRS(chk).value = vbUnchecked
  Next
  For chk = 0 To chkCP.Count - 1
     chkCP(chk).value = vbUnchecked
  Next
    
  If Not alreadySettingBoxes Then
    RaiseEvent change
    m_varSettingBoxes = False
  End If
End Sub

''Searches through dicValues and sets parts of this control to match values in the Dictionary
'Public Sub SetValues(ByRef dicValues As scripting.Dictionary)
'  If dicValues.Exists(keyWhereData) Then
'     SetCriteria dicValues.item(keyWhereData)
'  End If
'End Sub
'
'Sub SetCriteria(newvalue$)
'  If newvalue <> m_varCriteria Then
'    ctlNatWaterUse1.value = newvalue
'    CheckboxesFromSQL newvalue, chkWaterQntyCd, "WaterQuantity.cn_qnty_cd"
'    CheckboxesFromSQL newvalue, chkSalinityCd, "WaterQuantity.salinity_cd"
'    CheckboxesFromSQL newvalue, chkWaterTypeCd, "WaterQuantity.water_type_cd"
'   'CheckboxesFromSQL newvalue, chkIrrigation, "WaterQuantity.water_type_cd"
'  End If
'End Sub
'
'Returns a where clause that describes which criteria are selected
Public Property Get value() As String
  Dim crit As String
  Dim PrimCnCrit(3) As String 'prim_action_cd and cn_qnty_cd
  
  If chkWithdrawals.value = vbChecked Then
    PrimCnCrit(1) = MakeWhere(SQL_AND, _
                              SQL_prim_act_WD, _
                              CheckboxesToSQL(chkWD, "WaterQuantity.cn_qnty_cd", SQL_IN))
  End If
  If chkReservoirs.value = vbChecked Then
    PrimCnCrit(2) = MakeWhere(SQL_AND, _
                              SQL_prim_act_RS, _
                              CheckboxesToSQL(chkRS, "WaterQuantity.cn_qnty_cd", SQL_IN))
  End If
  If chkCanalsPipelines.value = vbChecked Then
    PrimCnCrit(3) = MakeWhere(SQL_AND, _
                              SQL_prim_act_CP, _
                              CheckboxesToSQL(chkCP, "WaterQuantity.cn_qnty_cd", SQL_IN))
  End If
  
  crit = MakeWhere(SQL_OR, PrimCnCrit(1), PrimCnCrit(2), PrimCnCrit(3))
  If Len(crit) > 0 Then 'we have a valid value only if at least one primary action code is selected
    crit = MakeWhere(SQL_AND, crit, _
      ctlNatWaterUse1.value, _
      CheckboxesToSQL(chkWaterType, "WaterQuantity.water_type_cd", SQL_IN), _
      CheckboxesToSQL(chkSalinity, "WaterQuantity.salinity_cd", SQL_IN), _
      CheckboxesToSQL(chkIrrigation, "WaterQuantity.irrigation_cd", SQL_IN))
  End If
  value = crit
End Property
Public Property Let value(newValue As String)
  Dim sqlPos As Integer
  Dim lNewValue As String
  Dim chk As Integer
  Dim snip As String
  Dim FirstPrimActPos As Long
  Dim EndAndPos As Long
  Dim nClosedParens As Long
  
  m_varSettingBoxes = True
  clear
  
  'prim_action and cn_qnty_cd
  lNewValue = LCase(newValue)
  sqlPos = InStr(lNewValue, LCase(SQL_prim_act_WD))
  If sqlPos > 0 Then
    If sqlPos < FirstPrimActPos Or FirstPrimActPos = 0 Then FirstPrimActPos = sqlPos
    chkWithdrawals.value = vbChecked
    sqlPos = sqlPos + Len(SQL_prim_act_WD) + 2
    chk = InStr(sqlPos, lNewValue, ")")
    If chk > 0 Then
      snip = Mid(lNewValue, sqlPos, chk - sqlPos)
      For chk = 0 To chkWD.Count - 1
        If InStr(snip, "'" & LCase(chkWD(chk).Tag) & "'") > 0 Then chkWD(chk).value = vbChecked
      Next
    End If
  End If
  
  sqlPos = InStr(lNewValue, LCase(SQL_prim_act_RS))
  If sqlPos > 0 Then
    If sqlPos < FirstPrimActPos Or FirstPrimActPos = 0 Then FirstPrimActPos = sqlPos
    chkReservoirs.value = vbChecked
    sqlPos = sqlPos + Len(SQL_prim_act_RS) + 2
    chk = InStr(sqlPos, lNewValue, ")")
    If chk > 0 Then
      snip = Mid(lNewValue, sqlPos, chk - sqlPos)
      For chk = 0 To chkRS.Count - 1
        If InStr(snip, "'" & LCase(chkRS(chk).Tag) & "'") > 0 Then chkRS(chk).value = vbChecked
      Next
    End If
  End If
  
  sqlPos = InStr(lNewValue, LCase(SQL_prim_act_CP))
  If sqlPos > 0 Then
    If sqlPos < FirstPrimActPos Or FirstPrimActPos = 0 Then FirstPrimActPos = sqlPos
    chkCanalsPipelines.value = vbChecked
    sqlPos = sqlPos + Len(SQL_prim_act_CP) + 2
    chk = InStr(sqlPos, lNewValue, ")")
    If chk > 0 Then
      snip = Mid(lNewValue, sqlPos, chk - sqlPos)
      For chk = 0 To chkCP.Count - 1
        If InStr(snip, "'" & LCase(chkCP(chk).Tag) & "'") > 0 Then chkCP(chk).value = vbChecked
      Next
    End If
  End If
  
  If FirstPrimActPos > 0 Then
    EndAndPos = FirstPrimActPos
    While nClosedParens < 2 And EndAndPos < Len(lNewValue)
      EndAndPos = EndAndPos + 1
      Select Case Mid(lNewValue, EndAndPos, 1)
        Case "(": nClosedParens = nClosedParens - 1
        Case ")": nClosedParens = nClosedParens + 1
      End Select
    Wend
    lNewValue = Mid(newValue, FirstPrimActPos, EndAndPos - FirstPrimActPos)
    ctlNatWaterUse1.value = lNewValue
    CheckboxesFromSQL lNewValue, chkWaterType, "WaterQuantity.water_type_cd"
    CheckboxesFromSQL lNewValue, chkSalinity, "WaterQuantity.salinity_cd"
    CheckboxesFromSQL lNewValue, chkIrrigation, "WaterQuantity.irrigation_cd"
  End If
  m_varSettingBoxes = False

End Property