Dim db As Database

Dim rs As DAO.Recordset

Dim SQL As String

Set db = CurrentDb

SQL = "SELECT * FROM tblProdaja WHERE OrderID='" & OrderID & "'"

Set rs = db.OpenRecordset(SQL, dbOpenDynaset)

 

' neki kod i onda

 

With rs

.Edit

rs!ZKI = ZKI

rs!JIR = JIR

.Update

End With

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