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