Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub C_Racun_Click() On Error GoTo Err_C_Racun_Click Dim db As Database Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim rs3 As DAO.Recordset Dim SQL As String Dim o, OIB, OznakaPP, Operator, Fiskal, ZKI Dim JIR As String Dim datumVrijemeIzdavanja As Date Fiskal = Me.Fiskal If Fiskal = 0 Then MsgBox "Ovo nije fiskalni racun" Exit Sub ElseIf Fiskal = 1 Then Set db = CurrentDb Set o = CreateObject("Raverus.FiskalizacijaDEV.COM.CentralniInformacijskiSustav") SQL = "SELECT * FROM tblProdaja WHERE OrderID='" & OrderID & "'" Set rs1 = db.OpenRecordset("Q_Firma") Set rs2 = db.OpenRecordset("tblCis") Set rs3 = db.OpenRecordset(SQL, dbOpenDynaset) OIB = rs1!OIB datumVrijemeIzdavanja = Now OznakaPP = rs!OznakaPP rs1.Close Operator = OperatorOIB() ZKI = IzracunajZki(OIB, datumVrijemeIzdavanja, Me.Fiskal, OznakaPP, "1", Me.Suma) JIR = PosaljiRacun(OIB, datumVrijemeIzdavanja, "P", Me.Fiskal, OznakaPP, "1", 25, Me.iznos, Me.iznosPDV, Me.Suma, "G", Operator, "0") 'Upis u rs clone forme Me.ZKI = ZKI Me.JIR = JIR '------------------- rs3.Edit rs3!ZKI = ZKI rs3!JIR = JIR rs3.Update '---------------- rs2.AddNew rs2!OrderID = Me.OrderID rs2!FiskalniBroj = Me.FiskalniBroj rs2!OIB = Operator rs2!ZKI_1 = ZKI rs2!JIR_1 = JIR rs2!UUID = o.generirajuuid() rs2.Update rs2.slose rs3.Close Else MsgBox "Nije ništa odabrano ili mozda neki