Prikazi cijelu temu 21.01.2013 20:17
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Fiskalizacija u Hrvatskoj
Napravio sam na on Click ovaj koda, ali stalno ista greška:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Command0_Click()
  2.  
  3. Dim db As Database
  4. Dim rs As DAO.Recordset
  5. Set db = CurrentDb
  6. Set rs = db.OpenRecordset("tblFirma")
  7.  
  8. Open "C:\RACUN.XML" For Output As 1
  9.  
  10. Dim Tekst As String
  11. Tekst = "<tns:RacunZahtjev>"
  12. Print #1, Tekst
  13. Tekst = "<tns:Zaglavlje>"
  14. Print #1, Tekst
  15. Tekst = "<tns:IdPoruke>" & "f81d4fae-7dec-11d0-a765-00a0c91e6bf6" & "</tns:IdPoruke>"
  16. Print #1, Tekst
  17. Tekst = "<tns:DatumVrijeme>" & Now() & "</tns:DatumVrijeme>"
  18. Print #1, Tekst
  19. Tekst = "</tns:Zaglavlje>"
  20. Print #1, Tekst
  21. Tekst = "<tns:Racun>"
  22. Print #1, Tekst
  23. Tekst = "<tns:OIB>" & rs!OIB & "</tns:OIB>"
  24. Print #1, Tekst
  25. Tekst = "<tns:RacunZahtjev>" & Now() & "</tns:RacunZahtjev>"
  26. Print #1, Tekst
  27. Tekst = "<tns:Firma>" & rs!CompanyName & "</tns:Firma>"
  28. Print #1, Tekst
  29. Tekst = "<tns:Naselje>" & rs!PostBroj & ", " & rs!Mjesto & "</tns:Naselje>"
  30. Print #1, Tekst
  31. Tekst = "</tns:Racun>"
  32. Print #1, Tekst
  33. Tekst = "</tns:RacunZahtjev>"
  34. Print #1, Tekst
  35.  
  36. Close #1
  37.  
  38. End Sub
Pozdrav