<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub cmdRoba_Vozilo_Click()
      gridPrometi.Visible = False
      gridLager.Visible = True
      TStart = GetTickCount
  If (txtDataOD) = "__.__.____" Then Me.txtDataOD.Text = "01.01." & Format(Now(), "yyyy")
  If (txtDataDO) = "__.__.____" Then Me.txtDataDO.Text = "31.12." & Format(Now(), "yyyy")
  ' ovde bi trebalo da zapocniva progresbarot  

    Set rsLager = New ADODB.Recordset
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
        cmd.ActiveConnection = cn
        cmd.CommandType = adCmdStoredProc
        cmd.CommandText = "spLagerVoziloKorisnik"
        cmd.Parameters.Refresh
        cmd.Parameters("@Korisnik") = rsKorisnici.Fields("ID_Korisnik")
        cmd.Parameters("@OdData") = txtDataOD
        cmd.Parameters("@DoData") = txtDataDO
    Set rsLager = cmd.Execute()
    Set cmd = Nothing
   ' ovde treba da zavrsuva progresbarot
  
   Set gridLager.DataSource = rsLager
          gridLager.ReBind
          gridLager.Refresh
          gridLager.Caption = "ЛАГЕР ЛИСТА НА СУРОВИНИ ВО ВОЗИЛО ЗА : " & rsKorisnici.Fields("Ime")