Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101
Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
Function ProknjiziMS_U(ID As String) 'Medjuskladusna otpremnica ulaz
On Error GoTo Err_ProknjiziMS_U
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim Rs4 As Recordset
Dim SQL As String
Dim SQL1 As String
Set rcs = Nothing
Set db = CurrentDb()
SQL = "SELECT * FROM tblDokumenti WHERE ID='" & ID & "'"
SQL1 = "SELECT * FROM tblDokumentiStavke WHERE ID='" & ID & "'"
Set rs1 = db.OpenRecordset(SQL)
Set rs2 = db.OpenRecordset("tblTransakcije")
Set rs3 = db.OpenRecordset(SQL1)
Set Rs4 = db.OpenRecordset("tblUlazIzlaz")
' Upis u tbl_Transakcije
Do While Not rs1.EOF
rs2.AddNew
rs2!Datum = rs1!Datum
rs2!Skladiste = rs1!Skladiste_2
rs2!IDdokumenta = rs1!IDdokumenta
rs2!BrDokumenta = rs1!ID
rs2!PartnerID = rs1!PartnerID
rs2!OperID = tkoRadiIme() & " " & tkoRadiPrezime()
rs2!StatusTR = 1 'Ulaz
rs2.Update
rs1.MoveNext
Loop
' Upis u Tbl_UlazIzlaz
Do While Not rs3.EOF
Rs4.AddNew
Rs4!IDTransakcije = DLookup("[IDtransakcije]", "TblTransakcije", "[BrDokumenta] ='" & ID & "'And [Skladiste]='" & Skl & "'")
Rs4!Sifra = rs3!Sifra
Rs4!Ulaz = rs3!Kolici