Predmet:Re: Write conflict
PreuzmiIzvorni kôd (Visual Basic):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
Evo probaj sa ovim kodom.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.