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 As String, OznakaPP As String, Operator As String, Fiskal As String, ZKI As String
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 = rs1!OznakaPP
rs1.Close
Operator = "1234567890"
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.Close
'rs3.Close
Else
MsgBox "Nije ništa odabrano ili mozda neki drugi tekst"
End If

Exit_C_Racun_Click:
    Exit Sub
 
Err_C_Racun_Click:
    MsgBox err.Description
    Resume Exit_C_Racun_Click
    
End Sub