Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (72):1,2 ... 17,18,19,20,21 ... 71,72
 Prikazi prvu neprocitanu poruku

#181 18.01.2011 16:07
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#182 18.01.2011 16:13
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Fiskalizacija u FBiH
Evo ti objašnjenje na našem

Prilozi:
Informacije o tipu datoteke za:rar  HCP Fiscal Residential Gateway BA sr.rar
Preuzimanja:107
Velicina datoteke:232.26 KB

Miro
↑  ↓

#183 18.01.2011 17:40
Mirzo Van mreze
Clan
Registrovan od:28.12.2010
Postovi:54


Predmet:Re: Fiskalizacija u FBiH
Hvala puno na odgovoru,
kako u su se pokazali u praksi imal puno problema
↑  ↓

#184 19.01.2011 10:37
Mirzo Van mreze
Clan
Registrovan od:28.12.2010
Postovi:54


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
↑  ↓

#185 19.01.2011 16:50
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Fiskalizacija u FBiH
Ako si skino novi hcp server onda imaÅ¡ da označiÅ¡ opciju Test mode.
Miro
↑  ↓

#186 21.01.2011 13:59
Mirzo Van mreze
Clan
Registrovan od:28.12.2010
Postovi:54


Predmet:Re: Fiskalizacija u FBiH
U redu, može tako
kako se može dobiti broj fiskalnog računa iz HCP-a
Pozdrav,
↑  ↓

#187 22.01.2011 10:17
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#188 22.01.2011 10:17
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Fiskalizacija u FBiH
Vjerovatno pitaÅ¡ zbog reklamacije računa.
Miro
↑  ↓

#189 22.01.2011 11:59
Mirzo Van mreze
Clan
Registrovan od:28.12.2010
Postovi:54


Predmet:Re: Fiskalizacija u FBiH
@miro

Detaljnije sam pregledo forum i vidio da si o ovome dosta napisao, i bar meni dosta pomogao (ne zamjeri Å¡to sam ponavlajo pitanja).
I za ovaj reklamirani račun si dao ideju da se ide sa ispisom stvarnog broja računa u nefiskalnom tekstu kako bi se imala informacija o proceduri storno na kasi.
Hvala još jednom i svako dobro.

PS. Na putu mi je jedna instalacija sa HCP Best Ba pa nisam siguran kako će sve teći...
↑  ↓

#190 24.01.2011 09:18
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Fiskalizacija u FBiH
Evo od jednog mog kolege za best ba postavke sim kartice:
1. Pokrene te program HCP FISCAL, i izvrši te TEST KOMUNIKACIJE
"sada ste povezani sa kasom"

2. Sa lijeve strane u izborniku, odaberi te GPRS sa klikom na isti
"sada se nalazi te u GPRS settings"

3. klikni READ FORM REGISTER...zatim izmjeni postavke
NTP server: 10.0.110.10
upload address: izvještaj
download address: komande

APN: porezna.eronet.ba (za ERONET korsnike)
pufbih.bhmobile.ba (za BH Telecom korisnike)

APN username: (ostaje prazno polje)
APN password: (ostaje prazno polje)

ftp server ip address: ?
ftp server username: ?
ftp server password: ?

4. klik SAVE TO REGISTER
5. klik READ FORM REGISTER (provjeri te dali su ispravno unešene postavke)

6.klik na READ DATA
"ako je sve ispravno unešeno i SIM KARTICA AKTIVIRANA"

kod polja SIM number: trebalo bi da vam pokaže jačinu signala (obavezno postavi te antenu)
ispod polje pokazuje Seriski broj od SIM-kartice
Miro
↑  ↓

Stranice (72):1,2 ... 17,18,19,20,21 ... 71,72

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 9: 46 pm.