�

VERSION =   3.00
!Arial, 0, 9, 5, 15, 12, 13, 3, 0

cboarray
Pixels
Class

1
combobox
cboarray
^avalues[1,0] 
*fillarray 

)PROCEDURE Init
THIS.FillArray
ENDPROC

combobox
!Arial, 0, 9, 5, 15, 12, 13, 3, 0

txtvalue
Pixels
!Arial, 0, 9, 5, 15, 12, 13, 3, 0

opgandor
Pixels
Class

1
optiongroup
opgandor
�PROCEDURE InteractiveChange
THISFORM.cboField2.Enabled = .T.
THISFORM.cboRelation2.Enabled = .T.
THISFORM.txtValue2.Enabled = .T.
THISFORM.BldSQL
ENDPROC

optiongroup
Class

1
textbox
txtvalue
*setdatatype 


���� 
�
�
xF
%,
W
?
�U����!%�CC�lcAliasb�
C�
N�
��4�T��C���%�C������pR,���
�?���XA table needs to be open in the current work area before the combo box can be refreshed.��B����C�
����
��
��ULCALIASTHISAVALUESREQUERY	fillarray,��1q�A�AA��1
D

)�

!Arial, 0, 9, 5, 15, 12, 13, 3, 0

bld_expr
Pixels
Class

4
	container

fPROCEDURE GotFocus
IF THIS.Format = "M"
	THIS.Parent.lblToggle.Visible = .T.
ENDIF
ENDPROC
PROCEDURE setdatatype
LPARAMETERS lcType
THIS.Value = ""
DO CASE
	CASE lcType = "D"	
		THIS.Format = "D"
	CASE lcType = "L"
		THIS.Inputmask = ".T.,.F."
		THIS.Format = "M"
	CASE lcType = "T"
		THIS.Inputmask = "99/99/99 99:99:99"
ENDCASE

ENDPROC

YFontBold = .F.
FontSize = 9
Height = 24
TabIndex = 3
Width = 113
Name = "txtvalue"

textbox
!Arial, 0, 9, 5, 15, 12, 13, 3, 0

cbooperators
Pixels
Class

1
combobox
cbooperators
�FontBold = .F.
FontSize = 9
ColumnCount = 1
ColumnWidths = "25"
RowSourceType = 1
RowSource = "<>,<,<=,>,>=,=,=="
Value = ("=")
FirstElement = 1
Height = 21
Style = 2
TabIndex = 2
Width = 45
Name = "cbooperators"

combobox
!Arial, 0, 9, 5, 15, 12, 13, 3, 0

	cbofields
Pixels
Class

1
iButtonCount = 2
BackStyle = 0
BorderStyle = 0
Value = 0
Height = 21
Left = 161
Top = 54
Width = 104
TabIndex = 4
Name = "opgOperand1"
Option1.FontBold = .F.
Option1.FontSize = 9
Option1.BackStyle = 0
Option1.Caption = "\<AND"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 8
Option1.Top = 2
Option1.Width = 43
Option1.AutoSize = .T.
Option1.Name = "AND"
Option2.FontBold = .F.
Option2.FontSize = 9
Option2.BackStyle = 0
Option2.Caption = "\<OR"
Option2.Value = 0
Option2.Height = 17
Option2.Left = 59
Option2.Top = 2
Option2.Width = 36
Option2.AutoSize = .T.
Option2.Name = "OR"

���� 
���
%Nb\�U

���
�UTHIS	FILLARRAYInit,��1�1

)�
bld_expr
6Height = 21
Left = 183
Top = 0
Name = "Txtvalue1"

bld_expr
	Txtvalue1
textbox
bldquery.vcx
txtvalue
:Height = 21
Left = 132
Top = 0
Name = "Cbooperators2"

bld_expr

Cbooperators2
combobox
bldquery.vcx
bld_expr
�FontBold = .F.
FontSize = 9
RowSourceType = 5
RowSource = "THIS.aValues"
Height = 21
Style = 2
TabIndex = 1
Width = 125
Name = "cboarray"

cboarray
	cbofields

8��� 


�
%����U@T��
��a��T����a��T����a��
����UTHISFORM	CBOFIELD2ENABLEDCBORELATION2	TXTVALUE2BLDSQLInteractiveChange,��1


�1
�
)

cbooperators
5Height = 21
Left = 1
Top = 1
Name = "Cbofields1"


Cbofields1
combobox

OPROCEDURE fillarray
LPARAMETERS lcAlias
IF !INLIST(TYPE("lcAlias"), "C", "N")
	lcAlias = ALIAS()
ENDIF
IF EMPTY(lcAlias)
	#DEFINE MSG_LOC "A table needs to be open in the current work area before the combo box can be refreshed."
	WAIT WINDOW MSG_LOC TIMEOUT 1.5
	RETURN
ENDIF

=AFIELDS(THIS.aValues)
THIS.Requery
ENDPROC

Name = "cbofields"

combobox
bldquery.vcx
,��� 
,�%q
�
�
�U0%���
�
M��)�T�����a���UTHISFORMATPARENT	LBLTOGGLEVISIBLE����T�
�����
H�$������
D��G�T�
���
D�����
L����T�
���.T.,.F.��T�
���
M�����
T����!T�
���99/99/99 99:99:99���ULCTYPETHISVALUEFORMAT	INPUTMASKGotFocus,��setdatatype���1Q
A
A2q

�!

!
q

!
A2
U
w[
)
bldquery.vcx
	cbofields
OWidth = 298
Height = 22
BackStyle = 0
BorderWidth = 0
Name = "expression"

	container