rivate 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
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)

Select Case Me.Fiskal
Case 0
MsgBox "Ovo nije fiskalni racun"

Exit Sub

Case 1

Dim ZKI

ZKI = IzracunajZki(rs1!OIB, Now, Me.Fiskal, rs1!OznakaPP, "1", Me.Suma)

Dim JIR As String
Dim datumVrijemeIzdavanja As Date

datumVrijemeIzdavanja = Now

JIR = PosaljiRacun(rs1!OIB, datumVrijemeIzdavanja, "P", Me.Fiskal, rs1!OznakaPP, "1", 25, Me.iznos, Me.iznosPDV, Me.Suma, "G", OperatorOIB(), "0")
Me.ZKI = ZKI
Me.JIR = JIR

With rs3
.Edit
rs3!ZKI = ZKI
rs3!JIR = JIR
.Update
End With

rs2.AddNew
       rs2!OrderID = Me.OrderID
        rs2!FiskalniBroj = Me.FiskalniBroj
        rs2!OIB = OperatorOIB()
        rs2!ZKI_1 = ZKI
        rs2!JIR_1 = JIR
        rs2!UUID = o.generirajuuid()
rs2.Update

End Select
Exit_C_Racun_Click:
    Exit Sub

Err_C_Racun_Click:
    MsgBox err.Description
    Resume Exit_C_Racun_Click
    
End Sub