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

Set rs1 = db.OpenRecordset("Q_Firma")

Set rs2 = db.OpenRecordset("tblCis")

 

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

Me.ZKI = ZKI

Me.JIR = JIR

 

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

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