Prikazi cijelu temu 17.10.2014 20:40
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:VB.NET Cod vo VB6 Cod
Imam edna DLL datoteka za komunikacija so edna fiskalna kasa no za ovaa datoteka ima dadeno samo primer kako da se povrzi vo VB.NET mene mi treba vo VB6 i VBA Kako da go prepravam ova?

PreuzmiIzvorni kôd (vbnet):
  1. Imports DunaComputers.Fiscal.Razvigorec
  2. Dim comPort As Integer = 1
  3. Dim FiskalenAparat As New clsRazvigorec(comPort)
  4. Dim Smetka As New List(Of Stavka)
  5. Dim Stavka As New Stavka
  6. Stavka.Artikal = “0782 =0 0@B8:0;â€
  7. Stavka.Kolicina = 12.353
  8. Stavka.Cena = 250.00
  9. Stavka.DDV = clsRazvigorec.VATgroup.A
  10. Stavka.MakedonskiProizvod = clsRazvigorec.MacedonianProduct.Yes
  11. Stavka.MineralnoMaslo = clsRazvigorec.MineralOil.No
  12. Smetka.Add(Stavka)
  13. FiskalenAparat.FiskalnaSmetka(Smetka.ToArray, _
  14. clsRazvigorec.PaymentType.VoGotovo)