Prikazi cijelu temu 24.03.2011 10:59
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Gotova rjeÅ¡enja za fiskalne uređaje
Evo primjer računa za HCP uređaje zajedno sa kontrolom (funkcijom) za greÅ¡ke koje se mogu desiti prilikom komunikacije kompjutera i fiskalnog uređaja:
PreuzmiIzvorni kôd (Text):
  1. 'DEFINISANJE PROMENLJIVIH
  2. '...........................
  3. Dim rs2
  4. Dim db As Database
  5. Set Tekst = New Stream
  6. Tekst.Open
  7. Tekst.Position = 0
  8. Tekst.Charset = "UTF-8"
  9. Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  10.  
  11. Tekst.WriteText "<RECEIPT>" & vbCrLf
  12. Set db = CurrentDb()
  13. Set rs2 = db.OpenRecordset("SELECT * FROM qryProba WHERE Broj='" & Me.Broj & "'", dbOpenDynaset)
  14.     Do While Not rs2.EOF
  15.  
  16.  Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & rs2!ArtNaz & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
  17.  
  18. rs2.MoveNext
  19.  
  20.     Loop
  21.    
  22.       rs2.Close
  23.      
  24.       Tekst.WriteText "<DATA PAY=""0"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  25.      
  26.      
  27.    Tekst.WriteText "</" & "RECEIPT" & ">" & vbCrLf
  28.      
  29.  
  30.    
  31.     Set db = Nothing
  32. Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.BrojRac & ".XML", adSaveCreateOverWrite
  33.  Tekst.Close
  34.  Dim rs4
  35. Dim db4 As Database
  36. Set Tekst4 = New Stream
  37. Tekst4.Open
  38. Tekst4.Position = 0
  39. Tekst4.Charset = "UTF-8"
  40. Tekst4.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  41.  
  42.     'Set db4 = Nothing
  43. Tekst4.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
  44.  Tekst4.Close
  45.  ProvjeraP (Me.Broj)
Miro