Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function UnosStavki(TransakcijaID As Integer, Order As Integer) Dim Db As Database Dim Rs1 As Recordset Dim Rs2 As Recordset Dim SQL As String If TransakcijaID = 0 Or Order = 0 Then GoTo Kraj Set Db = CurrentDb() SQL = "SELECT * FROM tblProdajaStavke WHERE OrderID=" & Order Set Rs1 = Db.OpenRecordset(SQL) Set Rs2 = Db.OpenRecordset("TblUlazIzlaz") Do While Not Rs1.EOF Rs2.AddNew Rs2!IDTransakcije = TransakcijaID Rs2!Sifra = Rs1!Sifra Rs2!Skl = DLookup("[skladiste]", "TblProdaja", "[orderID] =" & Order) Rs2!Status = -1 Rs2!Izlaz = Rs1!Kolici