Imports DunaComputers.Fiscal.Razvigorec
Dim comPort As Integer = 1
Dim FiskalenAparat As New clsRazvigorec(comPort)
Dim Smetka As New List(Of Stavka)
Dim Stavka As New Stavka
Stavka.Artikal = “0782 =0 0@B8:0;”
Stavka.Kolicina = 12.353
Stavka.Cena = 250.00
Stavka.DDV = clsRazvigorec.VATgroup.A
Stavka.MakedonskiProizvod = clsRazvigorec.MacedonianProduct.Yes
Stavka.MineralnoMaslo = clsRazvigorec.MineralOil.No
Smetka.Add(Stavka)
FiskalenAparat.FiskalnaSmetka(Smetka.ToArray, _
clsRazvigorec.PaymentType.VoGotovo)