Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function UnosUlza(NalogID As String, Izlaz_Br As String) Dim DB As Database Dim Rs1 As Recordset Dim Rs2 As Recordset Dim SQL As String Dim I As Integer 'On Error GoTo Greska SQL = "SELECT K_Sirovine.SifraArt, K_Sirovine.Cena, [komada]*[Kolicina] AS Ukupno, K_Sirovine.Jed_M " _ & "FROM (K_Proizvodi INNER JOIN K_Sirovine ON K_Proizvodi.Sifra_P = K_Sirovine.Sifra_P) " _ & "INNER JOIN T_StavkeN ON K_Proizvodi.Sifra_P = T_StavkeN.IdProizvoda " _ & "WHERE T_StavkeN.Sifra_N='" & NalogID & "'" Set DB = CurrentDb Set Rs1 = DB.OpenRecordset(SQL) Set Rs2 = DB.OpenRecordset("SELECT * FROM T_Transakcije WHERE RedniBroj like 'I*'") If Rs2.RecordCount > 0 Then Rs2.MoveLast I = Val(Mid(Rs2!RedniBroj, 2)) End If If Rs1.RecordCount = 0 Then GoTo Kraj Do While Not Rs1.EOF I = I + 1 Rs2.AddNew Rs2!RedniBroj = "I" & Format(I, "00000000") Rs2!Sifra_Transakcije = Izlaz_Br Rs2!SifraArtikla = Rs1!SifraArt Rs2!Jed_M = Rs1!Jed_M Rs2!CenaUlaza = Rs1!Cena Rs2!Status = 2 Rs2!Kolicina = Rs1!Ukupno Rs2.Update Rs1.MoveNext Loop I