Provjera statusa fiskalnog uredjaja

Note
Preporučujemo da prije svake naredbe prethodno provjerite dostupnost Tring.Fiscal.Servera i status Tring fiskalnog uređaja !

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)
    {
        //nastavak koda
    }       
} 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
    End If
Else
    'greška
    '....
End If

Set printer = Nothing
Set odgovor = Nothing

Primjeri