[es] - Access i fiskalizacija TringFavourite +

EmirSuvalic
Student FIT
Mostar, BiH

Član broj: 279359
Poruke: 23
*.PPPoE-5201.sa.bih.net.ba.

Profil

Access i fiskalizacija TringFavourite +

^{19.07.2011. u 21:22 - pre 155 meseci}

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....

Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
92.36.252.*

Profil

Re: Access i fiskalizacija TringFavourite +

^{28.07.2011. u 21:16 - pre 154 meseci}

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.

Odgovor na temu