Predmet:Re: Gotova rješenja za fiskalne uređaje

---

Evo sada gotov primjer za HCP uređaje a to su HCP BestBa i HCP FP555Ba.
Primjer sadrži kreiranje xml fajla za ispis računa.
Ima funkciju za kontrolu naziva artikla a to znači ukoliko u nazivu artikla imate znakove:"+*-/& funkcija to ukloni iz naziva.Isto tako ako je naziv duži od 20 mjesta funkcija to skrati na 19 mjesta i na kraju stavi jednu točku.Ukoliko želite da povećate naziv na 32 mjesta jer vam to treba za ovaj pisač FP555Ba onda u tabeli Serials polje BrojZnakova promjenite na 32.
Druga funkcija se zove ProvjeraKlient i ona služi da provjeri da li je račun ispisan na fisk.uređaj.Pošto nemate spojen uređaj uvjek bi vam javljalo grešku odnosno poruku "Račun nije ispisan na fisk.uređaj".
Možete to isključiti u codu na ovom mjestu:
Tekst3.Position = 0
Tekst3.Charset = "UTF-8"
Tekst3.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf

'Set db4 = Nothing
Tekst3.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
Tekst3.Close
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tblIzdatnica SET FiskalniIspis='" & "D" & "' WHERE Broj='" & Me.Broj & "'"
DoCmd.SetWarnings True

ProvjeraKlient (Me.Broj)
Ne zaboravite na svom računalu napraviti ove putanje:
C:\HCP\TO_FP
C:\HCP\FROM_FP

Prilozi:

---