Dim StrSql As String
       Dim rs As ADODB.Recordset

Private Sub cmbFunc_AfterUpdate()
       g_Func = Trim(cmbFunc)
End Sub
Private Sub cmbFunc_Change()
       g_Func = Trim(cmbFunc)
End Sub

Private Sub cmbGRNDate1_AfterUpdate()
        cmbGRNDate1.Value = form_date(cmbGRNDate1.Value)
        g_GRNDate1 = Trim(cmbGRNDate1.Value)
End Sub

Private Sub cmbGRNDate2_AfterUpdate()
        cmbGRNDate2.Value = form_date(cmbGRNDate2.Value)
        g_GRNDate2 = Trim(cmbGRNDate2.Value)
End Sub

Private Sub cmbManfac_AfterUpdate()
       g_Manfac = Trim(cmbManfac)
End Sub

Private Sub txtDateFrom_AfterUpdate()
       txtDateFrom.Value = form_date(txtDateFrom.Value)
       g_DateFrom = form_date(txtDateFrom.Value)
End Sub

Private Sub txtDateTo_AfterUpdate()
       txtDateTo.Value = form_date(txtDateTo.Value)
       g_DateTo = form_date(txtDateTo.Value)
End Sub

Private Sub cmbCancel_Click()
       g_Cancel = True
       Unload Me
End Sub

Private Sub cmbOk_Click()
       Save_params
       Unload Me
End Sub

Private Sub cmbTabN_AfterUpdate()
       g_TabN = cmbTabN.Value
End Sub

Public Sub UserForm_Activate()
       If cmbManfac.ListCount <= 0 Then
           If Not rs Is Nothing Then If rs.State Then rs.Close
           cmbManfac.AddItem "*"
           StrSql = " SELECT DISTINCT usotr.usotr_manfac " & _
                    " FROM zeie:maxmast.usotr usotr"
           Set rs = dbdll.rec(client, Forward, StrSql)
           With cmbManfac
              .List = Application.Transpose(rs.GetRows)
              .AddItem "*", 0
              .Value = g_Manfac
           End With
       End If
        '-------------
       cmbFunc.List = Array("*", "pu10", "pu10", "pu10", "pu12", "nv00", "oe", "nv17", "nv13", _
                            "nv17", "pv12", "nv15", "oe", "nv00", "nv10", "pv12", "nv12", 0)
       '------------
       g_Func = cmbFunc.Value
End Sub
Private Sub cmbTabN_Change()
       FilterFio Array(array("usotr_manfac", g_Manfac))
       Application.SendKeys "{right}"
End Sub
Private Sub cmbTabN_Change()
       Application.SendKeys "{right}"
End Sub
Private Sub FilterFio(criteria As Variant)
       StrSql = " SELECT distinct usotr.usotr_manfac,usotr.usotr_tabnum, " & _
                            "trim(" & IIf(criteria(1) = "*", "usotr.usotr_manfac&' - '&", "") & _
                            "usotr.usotr_tabnum&' - '&usotr.usotr_fio) as F1" & _
                            " FROM zeie:maxmast.usotr usotr order by usotr.usotr_manfac,usotr.usotr_tabnum"
       Set rs = dbdll.rec(client, Forward, StrSql)
       rs.Filter = IIf(criteria(1) = "*", 0, criteria(0) & " like '" & criteria(1) & "'")
       With cmbTabN
           .List = Application.Transpose(rs.GetRows(-1, 0, 2))
           .AddItem "*", 0
           .Listindex = 0
       End With
       rs.Close
End Sub

.List = Application.Transpose(rs.GetRows)

.Column = rs.GetRows

     Dim StrSql As String
     Dim rs As ADODB.Recordset
     Dim n As Integer

Private Sub cmbFunc_AfterUpdate()
     g_Func = Trim(cmbFunc)
End Sub

Private Sub cmbFunc_Change()
     g_Func = Trim(cmbFunc)
End Sub

Private Sub cmbGRNDate1_AfterUpdate()
      cmbGRNDate1.Value = form_date(cmbGRNDate1.Value)
      g_GRNDate1 = Trim(cmbGRNDate1.Value)
End Sub

Private Sub cmbGRNDate2_AfterUpdate()
      cmbGRNDate2.Value = form_date(cmbGRNDate2.Value)
      g_GRNDate2 = Trim(cmbGRNDate2.Value)
End Sub

Private Sub cmbManfac_AfterUpdate()
     g_Manfac = Trim(cmbManfac)
End Sub

Private Sub txtDateFrom_AfterUpdate()
     txtDateFrom.Value = form_date(txtDateFrom.Value)
     g_DateFrom = form_date(txtDateFrom.Value)
End Sub

Private Sub txtDateTo_AfterUpdate()
     txtDateTo.Value = form_date(txtDateTo.Value)
     g_DateTo = form_date(txtDateTo.Value)
End Sub

Private Sub cmbTabN_DropButtonClick()

     If cmbTabN.ListCount > 0 Then cmbTabN.Clear
     cmbTabN.AddItem "*"
     StrSql = " SELECT DISTINCT usotr.usotr_tabnum, usotr.usotr_fio " & _
              " FROM zeie:maxmast.usotr usotr where usotr.usotr_manfac matches '" & g_Manfac & "' "
     Set rs = dbdll.rec(client, Forward, StrSql)
     Do While Not rs.EOF
        cmbTabN.AddItem Trim(rs!usotr_tabnum) & " - " & Trim(rs!usotr_fio)
         DoEvents
         rs.MoveNext
  '       cmbTabN = g_TabN
     Loop
      
End Sub

Private Sub cmbCancel_Click()
     g_Cancel = True
     Unload Me
End Sub

Private Sub cmbOk_Click()
     Save_params
     Unload Me
End Sub

Private Sub cmbTabN_AfterUpdate()
     g_TabN = Trim(cmbTabN)
End Sub

Public Sub UserForm_Activate()
      
     If cmbManfac.ListCount <= 0 Then
     If Not rs Is Nothing Then If rs.State Then rs.Close
'   If cmbTabN.ListCount > 0 Then cmbTabN.Clear
      
     cmbManfac.AddItem "*"
     StrSql = " SELECT DISTINCT usotr.usotr_manfac " & _
              " FROM zeie:maxmast.usotr usotr"
     Set rs = dbdll.rec(client, Forward, StrSql)
      Do While Not rs.EOF
         cmbManfac.AddItem Trim(rs!usotr_manfac)
         DoEvents
         rs.MoveNext
     Loop
     cmbManfac = g_Manfac

'   If cmbTabN.ListCount > 0 Then cmbTabN.Clear
'    cmbTabN.AddItem "*"
'    StrSql = " SELECT DISTINCT usotr.usotr_tabnum, usotr.usotr_fio " & _
'             " FROM zeie:maxmast.usotr usotr WHERE usotr_manfac matches '" & g_Manfac & "' "
'    Set rs = dbdll.rec(client, Forward, StrSql)
'    Do While Not rs.EOF
'        cmbTabN.AddItem Trim(rs!usotr_tabnum) & " - " & Trim(rs!usotr_fio)
'        DoEvents
'        rs.MoveNext
          
'    Loop
   End If
   cmbTabN = g_TabN
          '-------------
         cmbFunc.AddItem "*"
     '    cmbFunc.AddItem "pu10"
     '    cmbFunc.AddItem "pu10"
         cmbFunc.AddItem "pu10"
         cmbFunc.AddItem "pu12"
         cmbFunc.AddItem "nv00"
         cmbFunc.AddItem "oe"
    '     cmbFunc.AddItem "nv17"
         cmbFunc.AddItem "nv13"
         cmbFunc.AddItem "nv17"
         cmbFunc.AddItem "pv12"
         cmbFunc.AddItem "nv15"
         cmbFunc.AddItem "oe"
         cmbFunc.AddItem "nv00"
         cmbFunc.AddItem "nv10"
         cmbFunc.AddItem "pv12"
         cmbFunc.AddItem "nv12"
         cmbFunc.ListIndex = 0
         '------------
         g_Func = cmbFunc.Value
End Sub