Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function ProknjiziMS_I(ID As String) 'Medjuskladusna otpremnica izlaz On Error GoTo Err_ProknjiziMS_I 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 rs2!IDdokumenta = rs1!IDdokumenta rs2!BrDokumenta = rs1!ID rs2!PartnerID = rs1!PartnerID rs2!OperID = tkoRadiIme() & " " & tkoRadiPrezime() rs2!StatusTR = 2 'Izlaz 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!Izlaz = rs3!Kolicina Rs4.Update rs3.MoveNext Loop rs3.Close Rs4.Close Set db = Nothing Izlaz: Exit Function Err_ProknjiziMS_I: MsgBox "Gr