VERSION 5.00
Begin VB.Form Form29 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "FILTERS WINDOWS"
   ClientHeight    =   4485
   ClientLeft      =   45
   ClientTop       =   300
   ClientWidth     =   7470
   LinkTopic       =   "Form29"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4485
   ScaleWidth      =   7470
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command4 
      Caption         =   "APPLY (SpaceBar)"
      Height          =   375
      Left            =   5640
      TabIndex        =   1
      Top             =   3960
      Width           =   1575
   End
   Begin VB.CommandButton Command3 
      Caption         =   "REMOVE ALL FILTERS"
      Height          =   375
      Left            =   3600
      TabIndex        =   3
      Top             =   3960
      Width           =   1920
   End
   Begin VB.CommandButton Command2 
      Caption         =   "REMOVE FILTER"
      Height          =   375
      Left            =   1680
      TabIndex        =   2
      Top             =   3960
      Width           =   1800
   End
   Begin VB.CommandButton Command1 
      Caption         =   "ADD FILTER"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   3960
      Width           =   1320
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   8
      Left            =   4800
      TabIndex        =   33
      Top             =   3600
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   8
      Left            =   2880
      TabIndex        =   32
      Top             =   3600
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   8
      Left            =   240
      TabIndex        =   31
      Top             =   3600
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   7
      Left            =   4800
      TabIndex        =   30
      Top             =   3240
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   7
      Left            =   2880
      TabIndex        =   29
      Top             =   3240
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   7
      Left            =   240
      TabIndex        =   28
      Top             =   3240
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   6
      Left            =   4800
      TabIndex        =   27
      Top             =   2880
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   6
      Left            =   2880
      TabIndex        =   26
      Top             =   2880
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   6
      Left            =   240
      TabIndex        =   25
      Top             =   2880
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   5
      Left            =   4800
      TabIndex        =   24
      Top             =   2520
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   5
      Left            =   2880
      TabIndex        =   23
      Top             =   2520
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   5
      Left            =   240
      TabIndex        =   22
      Top             =   2520
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   4
      Left            =   4800
      TabIndex        =   21
      Top             =   2160
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   4
      Left            =   2880
      TabIndex        =   20
      Top             =   2160
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   4
      Left            =   240
      TabIndex        =   19
      Top             =   2160
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   3
      Left            =   4800
      TabIndex        =   18
      Top             =   1800
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   3
      Left            =   2880
      TabIndex        =   17
      Top             =   1800
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   3
      Left            =   240
      TabIndex        =   16
      Top             =   1800
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   2
      Left            =   4800
      TabIndex        =   15
      Top             =   1440
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   2
      Left            =   2880
      TabIndex        =   14
      Top             =   1440
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   2
      Left            =   240
      TabIndex        =   13
      Top             =   1440
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   1
      Left            =   4800
      TabIndex        =   12
      Top             =   1080
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   1
      Left            =   2880
      TabIndex        =   11
      Top             =   1080
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   1
      Left            =   240
      TabIndex        =   10
      Top             =   1080
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   0
      Left            =   4800
      TabIndex        =   9
      Top             =   720
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   0
      Left            =   2880
      TabIndex        =   8
      Top             =   720
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   7
      Top             =   720
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H008080FF&
      Caption         =   "VALUE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   4800
      TabIndex        =   6
      Top             =   360
      Width           =   2415
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H008080FF&
      Caption         =   "OPERATION"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   2880
      TabIndex        =   5
      Top             =   360
      Width           =   1695
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H008080FF&
      Caption         =   "ELEMENT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   360
      Width           =   2415
   End
End
Attribute VB_Name = "Form29"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

Form29.Command4.SetFocus

FilSelect = 0

For i = 1 To NumElem1
Form34.Combo1.AddItem Elementi(i)
Next i

Form34.Show
Form34.SetFocus


Form29.Hide

End Sub



Private Sub Command2_Click()

Form29.Command4.SetFocus

If FilSelect = 0 Then
Exit Sub
End If

For i = FilSelect To NumFilter - 1
FiltOp(i) = FiltOp(i + 1)


FiltVal(i) = FiltVal(i + 1)
FiltElem(i) = FiltElem(i + 1)
Next i

NumFilter = NumFilter - 1


For i = 1 To NumFilter

'--------------------

If FiltOp(i) = 1 Then
Form29.Label5(i - 1).Caption = ">"
End If
If FiltOp(i) = 2 Then
Form29.Label5(i - 1).Caption = "<"
End If
If FiltOp(i) = 3 Then
Form29.Label5(i - 1).Caption = "="
End If

'------------------

Label4(i - 1).Caption = FiltElem(i)

Label6(i - 1).Caption = FiltVal(i)
Next i

For i = NumFilter To 8
Label4(i).Visible = False
Label5(i).Visible = False
Label6(i).Visible = False
Next i

End Sub


Private Sub Command3_Click()

Form29.Command4.SetFocus

Erase SimbFilter
Erase FiltOp
NumFilter = 0
Erase FiltVal
Erase FiltElem

For i = 0 To 8

Label4(i).Visible = False
Label5(i).Visible = False
Label6(i).Visible = False

Next i

End Sub



Private Sub Command4_Click()

INP.Filtri

Form29.Hide

End Sub



Private Sub Form_Load()
FilSelect = 0
End Sub

Private Sub Label4_Click(Index As Integer)

FilSelect = Index + 1
For i = 0 To 8
Label4(i).BackColor = &HC0E0FF
Label5(i).BackColor = &HC0E0FF
Label6(i).BackColor = &HC0E0FF
Next i

Label4(FilSelect - 1).BackColor = QBColor(1)
Label5(FilSelect - 1).BackColor = QBColor(1)
Label6(FilSelect - 1).BackColor = QBColor(1)

End Sub

Private Sub Label4_DblClick(Index As Integer)

FilSelect = Index + 1
Form34.Option1(FiltOp(FilSelect) - 1).Value = True


Form34.Text1.Text = FiltVal(FilSelect)
Form34.Combo1.Text = FiltElem(FilSelect)


Form29.Hide
Form34.Show
Form34.SetFocus


End Sub

Private Sub Label5_Click(Index As Integer)

FilSelect = Index
For i = 0 To 8
Label4(i).BackColor = &HC0E0FF
Label5(i).BackColor = &HC0E0FF
Label6(i).BackColor = &HC0E0FF
Next i

Label4(Index).BackColor = QBColor(1)
Label5(Index).BackColor = QBColor(1)
Label6(Index).BackColor = QBColor(1)

End Sub

Private Sub Label5_DblClick(Index As Integer)
FilSelect = Index + 1
Form34.Option1(FiltOp(FilSelect) - 1).Value = True


Form34.Text1.Text = FiltVal(FilSelect)
Form34.Combo1.Text = FiltElem(FilSelect)


Form29.Hide
Form34.Show
Form34.SetFocus
End Sub

Private Sub Label6_Click(Index As Integer)

FilSelect = Index
For i = 0 To 8
Label4(i).BackColor = &HC0E0FF
Label5(i).BackColor = &HC0E0FF
Label6(i).BackColor = &HC0E0FF
Next i

Label4(Index).BackColor = QBColor(1)
Label5(Index).BackColor = QBColor(1)
Label6(Index).BackColor = QBColor(1)

End Sub

Private Sub Label6_DblClick(Index As Integer)
FilSelect = Index + 1
Form34.Option1(FiltOp(FilSelect) - 1).Value = True


Form34.Text1.Text = FiltVal(FilSelect)
Form34.Combo1.Text = FiltElem(FilSelect)


Form29.Hide
Form34.Show
Form34.SetFocus
End Sub