Citanje komitenata iz 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 || status == StatusUredjaja.Test)
                {
                    //nastavak koda
                    KupacList listaKupaca = new KupacList();
                    listaKupaca = printer.CitajSveKupce();
                    for (int i = 0; i less listaKupaca.Ukupno; i++)
                    {
                        Debug.WriteLine(listaKupaca.kupac(i).Naziv);
                    }
                }
            }
            else
            {
                //greška
            }
            printer = null;
            odgovor = null;

CopyVB 5,6

   Dim printer As TringFiskalniPrinter
Dim odgovor As KasaOdgovor
Dim status As StatusUredjaja
Dim listaKupaca As KupacList
Dim i As Long

Set printer = New TringFiskalniPrinter
Set odgovor = New KasaOdgovor
'Set listaArtikala = New ArtikalList


'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 Or status = StatusUredjaja_Test Then
        'nastavak koda


        'učitavanje kupaca iz printera
        Set listaKupaca = printer.CitajSveKupce()
        For i = 0 To listaKupaca.Ukupno - 1
            If Not listaKupaca.kupac(i) Is Nothing Then
                Debug.Print listaKupaca.kupac(i).Naziv
            End If
        Next i
    End If
Else
    'greška
    '....
End If
Set listaKupaca = Nothing
Set printer = Nothing
Set odgovor = Nothing

PRIMJERI