Prikazi cijelu temu 08.07.2011 08:39
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Fiskalizacija u FBiH
Evo kako je kod mene pravljeme xml fajla koji ispisuje račun:
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim rs2
  2. Dim db As Database
  3. Set Tekst = New Stream''Ovde je to što pitaš
  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 & ";" & Me.SIFDJEL & """" & " " & ">" & 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!TvojNaziv & """" & " " & "Quantity" & "=" & """" & rs2!TvojaKolicina & """" & " " & "Price" & "=" & """" & rs2!TvojaCijena & """" & " " & "VatInfo" & "=" & """" & rs2!TvojPorez(PDV=2,AkoNijePDV=1) & """" & " " & "Department" & "=" & """" & rs2!TvojeOdjeljenje & """" & " " & "UnitName" & "=" & """" & rs2!TvojaJedinicaMjere & """" & " " & "Discount" & "=" & """" & rs2!TvojPopust & """" & " " & "/>" & 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.      
  25.       Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  26.    
  27.       Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf
  28.      
  29.    
  30.     Set db = Nothing
  31. Tekst.SaveToFile "C:\Prodaja\" & Me.BROIZD & " Racun.xml", adSaveCreateOverWrite
  32.  Tekst.Close
Ovo gore Å¡to je operator to ti moram posebno objasniti ako želiÅ¡ da tako napraviÅ¡.Imaju neka pravila.4 mjesta ta Å¡ifru operatera pa redni broj pa 10 mjesta ime operatera bez slova č,ć,Å¡ itd jer ta slova zauzimaju po dva mjesta.
Ovo new strem znači da definiraÅ¡ text u kodu koji stalno mjenjaÅ¡:
Text.WriteText nešto
Text.WriteText nešto1
Text.WriteText nešto2
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 08.07.2011 10:08 od strane zxz.