Prikazi cijelu temu 21.01.2013 13:28
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Fiskalizacija u Hrvatskoj
Poušavam iz svoje baze napravirt xml fail.
Priloženi kod mi naptavi 'RAC.xml' fail, ali kod otvaranja istig javlja se greška:
The operation completed successfully. Error processing resource 'file:///C:/Prodaja/RAC.XML'. Line 1, Position 16

<tns:Zaglavlje>

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub com_xml_Click()
  2.  
  3. Dim db As Database
  4. Dim rs As Recordset
  5. Set db = CurrentDb
  6. Set rs = db.OpenRecordset("tblFirma")
  7.  
  8. 'mySQL = "SELECT * FROM tblFirma"
  9. 'Set rs = db.OpenRecordset(mySQL)
  10.  
  11. Open "C:\Prodaja\RAC.XML" For Output As 1
  12.  
  13. Dim Tekst As String
  14.  
  15. Tekst = "<tns:Zaglavlje>"
  16. Print #1, Tekst
  17. Tekst = "<tns:IdPoruke>" & "f81d4fae-7dec-11d0-a765-00a0c91e6bf6" & "</tns:IdPoruke>"
  18. Print #1, Tekst
  19. Tekst = "<tns:DatumVrijeme>" & Now() & "</tns:DatumVrijeme>"
  20. Print #1, Tekst
  21. Tekst = "<tns:Zaglavlje>"
  22. Print #1, Tekst
  23. Tekst = "<tns:Racun>"
  24. Print #1, Tekst
  25. Tekst = "<tns:OIB>" & rs!OIB & "</tns:OIB>"
  26. Print #1, Tekst
  27. Tekst = "<tnsRacunZahtjev>" & Now() & "</tnsRacunZahtjev>"
  28. Print #1, Tekst
  29. Tekst = "<tnsFirma>" & rs!CompanyName & "</tnsFirma>"
  30. Print #1, Tekst
  31. Tekst = "<tnsNaselje>" & rs!PostBroj & ", " & rs!Mjesto & "</tnsNaselje>"
  32. Print #1, Tekst
  33.  
  34.  
  35. Close #1
  36. End Sub
Pozdrav