Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Public Function fnDodadi_Izmena(izTabela As String, izPole As String, izID_Dokument As Long, izID_Naziv As String, izVrednost As String, _ izTip As Integer, izVraboten As Long, Optional Opis = "") Dim rsIzmeni As ADODB.Recordset Set rsIzmeni = New ADODB.Recordset rsIzmeni.Open "SELECT * FROM tblIzmeni WHERE ID_Izmena < 0", cn, adOpenStatic, adLockOptimistic rsIzmeni.AddNew rsIzmeni.Fields("izTabela") = izTabela rsIzmeni.Fields("izPole") = izPole rsIzmeni.Fields("izID_Dokument") = izID_Dokument rsIzmeni.Fields("izID_Naziv") = izID_Naziv rsIzmeni.Fields("izVrednost") = izVrednost rsIzmeni.Fields("izTip") = izTip ' 0=Nedefinirano 1=Izmena 2=NovZapis 3=Izbrisan zapis rsIzmeni.Fields("izData") = Format(fnServer_DateTime, "dd.MM.yyyy hh:mm:ss") rsIzmeni.Fields("izVraboten") = izVraboten rsIzmeni.Fields("izOpis") = Format$(Opis) rsIzmeni.Update Set rsIzmeni = Nothing End Function ' If rsKorisnk.Fields("kAdresa") <> txtAdresa.Text Then fnIma_Izmeni = True: Ca