Prikazi cijelu temu 05.11.2010 10:40
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Fiskalizacija u FBiH
Evo moj code za dnevni promet po operaterima na fiskalni printer tremol t260F.Ovaj code kreira xml fajl u nekoj mapi koju vi odredite na fp serveru da vam služi za kupljenje podataka na fiskalni printer.
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 = "IBM852"
  7. Tekst.WriteText "<?xml version=""1.0"" encoding=""IBM852""?>" & vbCrLf
  8. Tekst.WriteText "<TremolFpServer Command=""Report"" Type=""OperatorX;" & Me.SIFDJEL1 & """ > " & vbCrLf
  9.  
  10. Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf
  11.       'Tekst.WriteText "<TremolFpServer>" & vbCrLf
  12.  
  13.    
  14.     Set Db = Nothing
  15. Tekst.SaveToFile "C:\Prodaja\OperatorX.xml", adSaveCreateOverWrite
  16.  Tekst.Close
  17.  MsgBox "Izvještaj je uspješno poslan na fiskalni ureaj!", vbExclamation, "Uspješno poslano"
Ako hoćete da nulirate promet onda stavite umjesto "Type=""OperatorX" stavite "Type=""OperatorZ"
Miro