Predmet:Re: Write conflict
Evo kompletan kod i tablica u koju se upisuje.
PreuzmiIzvorni kôd (vbnet):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
Prilozi:
PrimjerM.rar
Preuzimanja:358
Velicina datoteke:16.03 KB
Pozdrav