Prikazi cijelu temu 12.07.2011 12:28
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Fiskalni uređaji nazivi artikala
Ovo je moj kod za kreiranje xml-a gdje i kako da ubacim ovu tvoju funkciju mislim da je pozovem:
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 = "UTF-8"
  7. Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  8.  
  9. Tekst.WriteText "<RECEIPT>" & vbCrLf
  10. Set db = CurrentDb()
  11. Set rs2 = db.OpenRecordset("SELECT * FROM qryIspisIzdFiskal WHERE Broj='" & Me.Broj & "'", dbOpenDynaset)
  12.     Do While Not rs2.EOF
  13.  
  14.  If (rs2!DS_VALUEBroj > 0) Then
  15.  Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!BrArt & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & rs2!NazArt & """" & " " & "PRC" & "=" & """" & rs2!PRCFiskal & """" & " " & "AMN" & "=" & """" & rs2!AMNFiskal & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>" & vbCrLf
  16. Else
  17. Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!BrArt & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & rs2!NazArt & """" & " " & "PRC" & "=" & """" & rs2!PRCFiskal & """" & " " & "AMN" & "=" & """" & rs2!AMNFiskal & """" & " " & "/>" & vbCrLf
  18. End If
  19.  
  20. rs2.MoveNext
  21.  
  22.     Loop
  23.    
  24.       rs2.Close
  25.      
  26.       Tekst.WriteText "<DATA PAY=""3"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  27.       'Tekst.WriteText "<DATA PAY=""0"" Amount=""0""/>" & vbCrLf
  28.       'Tekst.WriteText "<DATA PAY=""2"" Amount=""0""/>" & vbCrLf
  29.       'Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
  30.       'Tekst.WriteText "<AdditionalLine Message=" & """" & DLookup("PodRac2", "tblPod") & """" & " " & "/>" & vbCrLf
  31.       'Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  32.    Tekst.WriteText "</" & "RECEIPT" & ">" & vbCrLf
  33.       'Tekst.WriteText "<TremolFpServer>" & vbCrLf
  34.  
  35.    
  36.     Set db = Nothing
  37. Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.Broj & "Klijent" & ".XML", adSaveCreateOverWrite
  38. 'Tekst.SaveToFile "C:\HCP\TO_FP\RCP_104500.XML", adSaveCreateOverWrite
  39.  Tekst.Close
  40.  'Call OK_Click
  41.  Set Tekst3 = New Stream
  42. Tekst3.Open
  43. Tekst3.Position = 0
  44. Tekst3.Charset = "UTF-8"
  45. Tekst3.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  46.  
  47.     'Set db4 = Nothing
  48. Tekst3.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
  49.  Tekst3.Close
  50. DoCmd.SetWarnings False
  51.             DoCmd.RunSQL "UPDATE tblIzdatnica SET FiskalniIspis='" & "D" & "' WHERE Broj='" & Me.Broj & "'"
  52. DoCmd.SetWarnings True
  53. Me.FiskalniIspis = "D"
  54. ' Tekst.Close
  55.   'MsgBox "Izvještaj je uspješno poslan  na fiskalni ureaj!", vbExclamation, "Uspješno poslano"
  56.   ProvjeraKlient (Me.Broj)
  57.  'DoCmd.Close
Miro