Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub Inventura_Click()
Dim Baza As Database
Dim Sl_Pocetna As Recordset
Dim Sl_Prelazna As Recordset
Dim Sl_Zavrsna As Recordset
Dim Kolicina As Double
Set Baza = CurrentDb()
Set Sl_Pocetna = Baza.OpenRecordset("Q_Inventura", dbOpenDynaset)
Set Sl_Prelazna = Baza.OpenRecordset("Inventura", dbOpenDynaset)
Set Sl_Zavrsna = Baza.OpenRecordset("Ulaz", dbOpenDynaset)
MsgBox "podaci e biti kopirani", vbOKCancel
If vbOK Then
CurrentDb.Execute "DELETE*FROM [Inventura]"
If Sl_Pocetna.RecordCount > 0 Then
Sl_Pocetna.MoveFirst
While Not Sl_Pocetna.EOF
Kolicina = Sl_Pocetna![Ulaz]
With Sl_Prelazna
.AddNew
![Sifra] = Sl_Pocetna![Sifra]
![Datum] = Sl_Pocetna![Datum]
![Skl] = Sl_Pocetna![Skl]
![IDdokumenta] = 4
![Predatnica] = ""
![Dobavljac] = 1
![Nalog] = ""
![Regal] = ""
If Kolicina < 0 Then
![Ulaz] = 0
Else
![Ulaz] = Sl_Pocetna![Ulaz]
End If
.Update
End With
Sl_Pocetna.MoveNext
Wend
End If
CurrentDb.Execute "DELETE*FROM [Ulaz]"
CurrentDb.Execute "DELETE*FROM [Izlazi]"
If Sl_Prelazna.RecordCount > 0 Then
Sl_Prelazna.MoveFirst
While Not Sl_Prelazna.EOF
With Sl_Zavrsna
.AddNew
![ŠifraUlaz] = Sl_Prelazna![Sifra]
![Datum] = Sl_Prelazna![Datum]
![Skl] = Sl_Prelazna![Skl]
![Ulaz] = Sl_Prelazna![Ulaz]
![IDdokumenta] = Sl_Prelazna![IDdokumenta]
![Predatnica] = Sl_Prelazna![Predatnica]
![Dobavljac] = Sl_Prelazna![Dobavljac]
![Nalog] = Sl_Prelazna![Nalog]
![Regal] = Sl_Prelazna![Regal]
.Update
End With