[ EmirSuvalic @ 19.07.2011. 21:22 ] @
Poštovana gospodo

Moj kompletan program je urađen u Access i sada je na red dosla fiskalizacija u FBiH. Moj uređaj je Tring Favourite +, na njihovoj stranici ima upustvu za integraciju (www.kase.ba) , export xml-a u određeni folder koji server skenira, (Uređaj je proizveden u Bugarskoj ceratelectronics). Ako može mala pomoć kako samo početi pošto stvarno nemam ideje...

Već 10 dana se mučim sa upustvom a nikako da uspijem, dosta je šturo, dali postoje neki parametri koji se moraju zadovoljiti, ili se može direktno poslati iz accessa naredba da se printa racun. Imaju tri vrste integracije: preko .dll fajla, preko http posta i ovaj koji ja pokusavam export u C:\Tring\xml to je zadani folder.


Svaka pomoć je dobro dosla...

Hvala unaprijed....
[ Getsbi @ 20.07.2011. 01:01 ] @
Pogledaj ove linkove:
http://www.elitesecurity.org/t...ss-baza-sa-fiskalnim-printerom
http://www.icentar.ba/showtopic.php?id=1002
http://www.icentar.ba/showtopic.php?id=227
http://www.icentar.ba/showtopic.php?id=919
Možda pomogne.
[ EmirSuvalic @ 20.07.2011. 13:42 ] @
Hvala puno na linkovima, ali mi nista ne pomaže, ipak hvala puno!
[ Daks @ 28.07.2011. 21:16 ] @
Postavi konkretno pitanje i pomoci cemo ti!

Evo ti kod za stampanje racuna:

Code:


Dim zah
Dim TextZR

zah = rst!BrojRacuna

TextZR = "<?xml version='1.0' encoding='utf-8'?><RacunZahtjev xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema'><BrojZahtjeva>" & zah & "</BrojZahtjeva><VrstaZahtjeva>0</VrstaZahtjeva><NoviObjekat><Kupac><IDbroj>" & rst!IDBroj & "</IDbroj><Naziv>" & rst!NazivKupca & "</Naziv><Adresa>" & rst!AdresaKupca & "</Adresa><PostanskiBroj>" & rst!Posta & "</PostanskiBroj><Grad>" & rst!Grad & "</Grad></Kupac><StavkeRacuna>"

Open "c:\tring\xml\stampatifiskalniracun." & zah & ".xml" For Output As #1

Print #1, TextZR

rst.MoveFirst
Do Until rst.EOF

StavkaR = "<RacunStavka><artikal><Sifra>" & Format(rst!Sifra, "0") & "</Sifra><Naziv>" & rst!OpisArt & "</Naziv> <JM>" & rst![J/M] & "</JM> <Cijena>" & Format(rst!MPC, "##0.00") & "</Cijena><Stopa>E</Stopa><Grupa>0</Grupa><PLU>" & rst!Sifra & "</PLU></artikal><Kolicina>" & Format(rst!SumOfKolicina, "##0.000") & "</Kolicina><Rabat>0</Rabat></RacunStavka>"

Print #1, StavkaR

rst.MoveNext

x = x + 1

Loop

Dim TextKRAJ

TextKRAJ = "</StavkeRacuna><VrstePlacanja><VrstaPlacanja><Oznaka>" & [NP] & "</Oznaka><Iznos>" & Format([Uplata], "###0.00") & "</Iznos></VrstaPlacanja></VrstePlacanja><Napomena>Software by Power Soft!</Napomena><BrojRacuna>" & BrojRacuna & "</BrojRacuna></NoviObjekat></RacunZahtjev>"
Print #1, TextKRAJ



Sve sto ti nije jasno slobodno pitaj.

Pozdrav, Omer.