Prikazi cijelu temu 10.02.2013 11:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Write conflict
Da si bar jos formu zakacio.
Poruka ti se javlja zbog ovog koda:
Me.ZKI = ZKI
Me.JIR = JIR
Znaci na rs forme unosis podatke a vjerovatno ih mijenjas i sa gore navedenim kodom te posto su jednom vec uneseni pita te sta da radi.

Malo sam ti prepravio i proceduru ali ne zbog toga da bi otklonio gresku nego eto da malo bude urednija.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub C_Racun_Click()
  2. On Error GoTo Err_C_Racun_Click
  3.  
  4. Dim db As Database
  5. Dim rs1 As DAO.Recordset
  6. Dim rs2 As DAO.Recordset
  7. Dim rs3 As DAO.Recordset
  8. Dim SQL As String
  9. Dim o, OIB, OznakaPP, Operator, Fiskal, ZKI
  10. Dim JIR As String
  11. Dim datumVrijemeIzdavanja As Date
  12.  
  13. Fiskal = Me.Fiskal
  14. If Fiskal = 0 Then
  15. MsgBox "Ovo nije fiskalni racun"
  16. Exit Sub
  17. ElseIf Fiskal = 1 Then
  18. Set db = CurrentDb
  19. Set o = CreateObject("Raverus.FiskalizacijaDEV.COM.CentralniInformacijskiSustav")
  20. SQL = "SELECT * FROM tblProdaja WHERE OrderID='" & OrderID & "'"
  21. Set rs1 = db.OpenRecordset("Q_Firma")
  22. Set rs2 = db.OpenRecordset("tblCis")
  23. Set rs3 = db.OpenRecordset(SQL, dbOpenDynaset)
  24.  
  25. OIB = rs1!OIB
  26. datumVrijemeIzdavanja = Now
  27. OznakaPP = rs!OznakaPP
  28. rs1.Close
  29. Operator = OperatorOIB()
  30. ZKI = IzracunajZki(OIB, datumVrijemeIzdavanja, Me.Fiskal, OznakaPP, "1", Me.Suma)
  31. JIR = PosaljiRacun(OIB, datumVrijemeIzdavanja, "P", Me.Fiskal, OznakaPP, "1", 25, Me.iznos, Me.iznosPDV, Me.Suma, "G", Operator, "0")
  32. 'Upis u rs clone forme
  33. Me.ZKI = ZKI
  34. Me.JIR = JIR
  35. '-------------------
  36. rs3.Edit
  37. rs3!ZKI = ZKI
  38. rs3!JIR = JIR
  39. rs3.Update
  40. '----------------
  41.  
  42. rs2.AddNew
  43. rs2!OrderID = Me.OrderID
  44. rs2!FiskalniBroj = Me.FiskalniBroj
  45. rs2!OIB = Operator
  46. rs2!ZKI_1 = ZKI
  47. rs2!JIR_1 = JIR
  48. rs2!UUID = o.generirajuuid()
  49. rs2.Update
  50.  
  51. rs2.slose
  52. rs3.Close
  53. Else
  54. MsgBox "Nije ništa odabrano ili mozda neki drugi tekst"
  55. End If
  56.  
  57. Exit_C_Racun_Click:
  58.     Exit Sub
  59.  
  60. Err_C_Racun_Click:
  61.     MsgBox Err.Description
  62.     Resume Exit_C_Racun_Click
  63.    
  64. End Sub

Variable:
OIB, OznakaPP, Operator, Fiskal, ZKI treba dimenzionisati onako kako su dimenzionisane u tabelama.
Ja to nisam znao pa sam ostavio kao variant.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.