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):'DEFINISANJE PROMENLJIVIH
'...........................
Dim rs2
Dim db As Database
Set Tekst = New Stream
Tekst.Open
Tekst.Position = 0
Tekst.Charset = "UTF-8"
Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
Tekst.WriteText "<RECEIPT>" & vbCrLf
Set db = CurrentDb()
Set rs2 = db.OpenRecordset("SELECT * FROM qryProba WHERE Broj='" & Me.Broj & "'", dbOpenDynaset)
Do While Not rs2.EOF
Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & rs2!ArtNaz & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
rs2.MoveNext
Loop
rs2.Close
Tekst.WriteText "<DATA PAY=""0"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
Tekst.WriteText "</" & "RECEIPT" & ">" & vbCrLf
Set db = Nothing
Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.BrojRac & ".XML", adSaveCreateOverWrite
Tekst.Close
Dim rs4
Dim db4 As Database
Set Tekst4 = New Stream
Tekst4.Open
Tekst4.Position = 0
Tekst4.Charset = "UTF-8"
Tekst4.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
'Set db4 = Nothing
Tekst4.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
Tekst4.Close
ProvjeraP (Me.Broj)
Miro