Prikazi cijelu temu 14.03.2011 09:26
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Ne ostaju fajlovi na ovoj putanji C:\HCP\TO_FP ako su ispravno izvrÅ¡eni.I kreiram RCP_000001.xml pa onda sljedeći račun RCP_000002.xml . Svaki put uz račun Å¡alje se CMD.OK i ovaj CMD.OK je izvrÅ¡na datoteka koja izvrÅ¡ava ovaj račun RCP.Evo kod kako ga kreiram i Å¡aljem.Napomena:Ovo je za HCP BestBa.
PreuzmiIzvorni kôd (Text):
  1. If IsNull(DLookup("BROULIZ", "STAVKEMP1", "BROULIZ='" & Me.BROIZD & "'")) Then
  2. MsgBox "Ne postoje podaci za ispis,niste unijeli artikle za prodaju!", vbExclamation, "Obavijest"
  3. Exit Sub
  4. End If
  5.  
  6.  
  7. 'DEFINISANJE PROMENLJIVIH
  8. '...........................
  9. Dim rs2
  10. Dim db As Database
  11. Set Tekst = New Stream
  12. Tekst.Open
  13. Tekst.Position = 0
  14. Tekst.Charset = "UTF-8"
  15. Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  16.  
  17. Tekst.WriteText "<RECEIPT>" & vbCrLf
  18. Set db = CurrentDb()
  19. Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
  20.     Do While Not rs2.EOF
  21.  
  22.  Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & rs2!ArtNaz & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
  23.  
  24. rs2.MoveNext
  25.  
  26.     Loop
  27.    
  28.       rs2.Close
  29.      
  30.       Tekst.WriteText "<DATA PAY=""0"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  31.       'Tekst.WriteText "<DATA PAY=""1"" Amount=""0""/>" & vbCrLf
  32.       'Tekst.WriteText "<DATA PAY=""2"" Amount=""0""/>" & vbCrLf
  33.       'Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
  34.       'Tekst.WriteText "<AdditionalLine Message=" & """" & DLookup("PodRac2", "tblPod") & """" & " " & "/>" & vbCrLf
  35.       'Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  36.    Tekst.WriteText "</" & "RECEIPT" & ">" & vbCrLf
  37.       'Tekst.WriteText "<TremolFpServer>" & vbCrLf
  38.  
  39.    
  40.     Set db = Nothing
  41. Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML", adSaveCreateOverWrite
  42.  Tekst.Close
  43.  Dim rs4
  44. Dim db4 As Database
  45. Set Tekst4 = New Stream
  46. Tekst4.Open
  47. Tekst4.Position = 0
  48. Tekst4.Charset = "UTF-8"
  49. Tekst4.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  50.  
  51.     'Set db4 = Nothing
  52. Tekst4.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
  53.  Tekst4.Close
Miro