miro35 15.01.2011 10:38
Predmet:Re: Fiskalizacija u FBiH

Laughing Dok traje fiskalizacija nema odmora!

Mirzo 18.01.2011 15:11
Predmet:Re: Fiskalizacija u FBiH

Pozdrav,
ako neko može napisati primjere XML za HCP
Hvala

miro35 18.01.2011 16:07
Predmet:Re: Fiskalizacija u FBiH

Evo primjer računa.Ovo staviÅ¡ na on_Click nekog dugmeta:
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 qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
  12.     Do While Not rs2.EOF
  13.  
  14.  Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DESC" & "=" & """" & rs2!ArtNaz & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
  15.  
  16. rs2.MoveNext
  17.  
  18.     Loop
  19.    
  20.       rs2.Close
  21.      
  22.       Tekst.WriteText "<DATA PAY=""0"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  23.       Tekst.WriteText "<DATA PAY=""1"" Amount=""0""/>" & vbCrLf
  24.       Tekst.WriteText "<DATA PAY=""2"" Amount=""0""/>" & vbCrLf
  25.       'Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
  26.       'Tekst.WriteText "<AdditionalLine Message=" & """" & DLookup("PodRac2", "tblPod") & """" & " " & "/>" & vbCrLf
  27.       'Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  28.    Tekst.WriteText "</" & "RECEIPT" & ">" & vbCrLf
  29.       'Tekst.WriteText "<TremolFpServer>" & vbCrLf
  30.  
  31.    
  32.     Set db = Nothing
  33. Tekst.SaveToFile "C:\HCP\TO_FP\RCP_104500.XML", adSaveCreateOverWrite
  34.  Tekst.Close
Zatim pošalješ ovo:
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.     Set db = Nothing
  9. Tekst.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
  10.  Tekst.Close
Ovo zadnje pokreće prvu komandu za račun da uređaj to printa.

miro35 18.01.2011 16:13
Predmet:Re: Fiskalizacija u FBiH

Evo ti objašnjenje na našem
Prilozi:
HCP Fiscal Residential Gateway BA sr.rar (Velicina datoteke:232.26 KB)

Mirzo 18.01.2011 17:40
Predmet:Re: Fiskalizacija u FBiH

Hvala puno na odgovoru,
kako u su se pokazali u praksi imal puno problema

Mirzo 19.01.2011 10:37
Predmet:Re: Fiskalizacija u FBiH

Pozdrav,
kako mogu testirati HCP bez uređaja,
instalirao sam HCp server, pripremio racun u XML formi (RCP_104500.xml i CMD.OK) na folder c:\HCP\TO_FP server to obradi i prebaci mi na folder c:\HCP\From_FP
fajlove RCP_104500.OK i CMD .OK ali prazni
Ne znam jel ovo dobro,nema poruke da je greška

miro35 19.01.2011 16:50
Predmet:Re: Fiskalizacija u FBiH

Ako si skino novi hcp server onda imaÅ¡ da označiÅ¡ opciju Test mode.

Mirzo 21.01.2011 13:59
Predmet:Re: Fiskalizacija u FBiH

U redu, može tako
kako se može dobiti broj fiskalnog računa iz HCP-a
Pozdrav,

miro35 22.01.2011 10:17
Predmet:Re: Fiskalizacija u FBiH

Ja mislim da to nemožeÅ¡.U stvari možeÅ¡ ali je zabranjeno.Tako su bar rekli na prezentaciji kad sam bio.Sigurno imaju kod kako da se vidi ali neće da kažu.Znači uređaj sam dodjeljuje broj.

miro35 22.01.2011 10:17
Predmet:Re: Fiskalizacija u FBiH

Vjerovatno pitaÅ¡ zbog reklamacije računa.