Prikazi cijelu temu 12.07.2011 11:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Fiskalni uređaji nazivi artikala
Evo.
Kako treba koristiti?
Kada podizes RS radi kreiranja xml filea te ucitas nazi artikla prije zapisa u txt file pozoves ovu proceduru.

Primjer:
Dim NaziA as string
NazivA=Rs!NazivPolje
NazivA=Naziv_Art(NazivA)
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Naziv_Art(NazivASrtikla As String)
  2. Dim I As Integer
  3. Dim Pozicija As Integer
  4. Dim Duz_Art As Integer
  5.  
  6.  
  7. '-------------------------------
  8. 'Duzina teksta u nazivu artikla
  9. 'Moze se postaviti kao konstanta
  10. Duz_Art = 38
  11. '------------------------------
  12.  
  13. For I = 30 To 47
  14. Izmjena1:
  15. Pozicija = InStr(1, NazivASrtikla, Chr(I))
  16.      If Pozicija > 0 Then
  17.      NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
  18.      GoTo Izmjena1
  19.      End If
  20. Next I
  21.  
  22. For I = 58 To 63
  23. Izmjena2:
  24. Pozicija = InStr(1, NazivASrtikla, Chr(I))
  25.      If Pozicija > 0 Then
  26.      NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
  27.      GoTo Izmjena2
  28.      End If
  29. Next I
  30. If Len(NazivASrtikla) > Duz_Art Then
  31.  NazivASrtikla = Left(NazivASrtikla, Duz_Art - 1) & "."
  32. End If
  33.  
  34. Naziv_Art = NazivASrtikla
  35. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.