Prikazi cijelu temu 28.12.2010 09:31
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Fiskalizacija u FBiH
Evo moj code s kojim ja pravim xml fajl koji se tove Miro.xml i ovo radi probano na uređaju:
PreuzmiIzvorni kôd (Text):
  1. Dim rs2
  2. Dim db As Database
  3. Set Tekst = New Stream
  4. Tekst.Open
  5. Tekst.Position = 0
  6. Tekst.Charset = "IBM852"
  7. Tekst.WriteText "<?xml version=""1.0"" encoding=""IBM852""?>" & vbCrLf
  8. Tekst.WriteText "<TremolFpServer Command=""Receipt"" " & "Operator" & "=" & """" & Me.RedniBroj & """" & " " & ">" & vbCrLf
  9.  
  10. Set db = CurrentDb()
  11. Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
  12.     Do While Not rs2.EOF
  13.  
  14.  Tekst.WriteText "<" & "Item Description" & "=" & """" & rs2!ArtNaz & """" & " " & "Quantity" & "=" & """" & rs2!KOLICINASAD & """" & " " & "Price" & "=" & """" & rs2!Cijena & """" & " " & "VatInfo" & "=" & """" & rs2!ArtGPorez & """" & " " & "Department=""1"" " & "UnitName" & "=" & """" & rs2!FISKAL & """" & " " & "Discount" & "=" & """" & rs2!DiscSad & """" & " " & "/>" & vbCrLf
  15.  
  16. rs2.MoveNext
  17.  
  18.     Loop
  19.    
  20.       rs2.Close
  21.       Tekst.WriteText "<Payment Type=""Virman"" Amount=""0""/>" & vbCrLf
  22.       Tekst.WriteText "<Payment Type=""Gotovina"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  23.       'Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
  24.       Tekst.WriteText "<AdditionalLine Message=" & """" & DLookup("PodRac2", "tblPod") & """" & " " & "/>" & vbCrLf
  25.       Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  26.    Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf
  27.       'Tekst.WriteText "<TremolFpServer>" & vbCrLf
  28.  
  29.    
  30.     Set db = Nothing
  31. Tekst.SaveToFile "C:\Prodaja\Miro.xml", adSaveCreateOverWrite
  32.  Tekst.Close
Miro