[This is preliminary documentation and is subject to change.]
PRIMJERI
CopyC#
TringFiskalniPrinter printer = new TringFiskalniPrinter(); KasaOdgovor odgovor = new KasaOdgovor(); StatusUredjaja status; //vrsta fiskalnog uređaja printer.VrstaUredjaja = VrsteFiskalnihUredjaja.TringTF1; //promijeni režim u emulator printer.PromjeniRezimRada(RezimRada.Emulator); //postavka ip adrese Tring.Fiscal.Server //localhost za slučaj lokalnog server //ip adresa ili mrežni naziv računala u slučaju da je server lociran u mreži printer.IPadresa("localhost"); //testiranje dostupnosti Tring.Fiscal.Server odgovor = printer.TestirajTringFiscalServer(); if (odgovor.VrstaOdgovora == VrsteOdgovora.OK) { //server dostupan //provjera statusa uredjaja status = printer.ProvjeriStatusUredjaja(); if (status == StatusUredjaja.Normalan || status == StatusUredjaja.Test) { //nastavak koda odgovor = printer.StampatiDnevniIzvjestaj(); if (odgovor.VrstaOdgovora == VrsteOdgovora.OK ) { Debug.WriteLine("OK"); } } } else { //greška } printer = null; odgovor = null;
CopyVB 5,6
Dim printer As TringFiskalniPrinter Dim odgovor As KasaOdgovor Dim status As StatusUredjaja Set printer = New TringFiskalniPrinter Set odgovor = New KasaOdgovor 'vrsta fiskalnog uređaja printer.VrstaUredjaja = VrsteFiskalnihUredjaja_TringTF1 'promijeni režim u emulator printer.PromjeniRezimRada (RezimRada_Emulator) 'postavka ip adrese Tring.Fiscal.Server 'localhost za slučaj lokalnog server 'ip adresa ili mrežni naziv računala u slučaju da je server lociran u mreži printer.IPadresa ("localhost") 'testiranje dostupnosti Tring.Fiscal.Server Set odgovor = printer.TestirajTringFiscalServer() If odgovor.VrstaOdgovora = VrsteOdgovora_OK Then 'server dostupan status = printer.ProvjeriStatusUredjaja() 'provjera statusa uredjaj If status = StatusUredjaja_Normalan Then 'nastavak koda Set odgovor = printer.StampatiDnevniIzvjestaj() If odgovor.VrstaOdgovora = VrsteOdgovora_OK Then MsgBox "OK" End If End If Else 'greška '.... End If Set printer = Nothing Set odgovor = Nothing