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):Function Naziv_Art(NazivASrtikla As String)
Dim I As Integer
Dim Pozicija As Integer
Dim Duz_Art As Integer
'-------------------------------
'Duzina teksta u nazivu artikla
'Moze se postaviti kao konstanta
Duz_Art = 38
'------------------------------
For I = 30 To 47
Izmjena1:
Pozicija = InStr(1, NazivASrtikla, Chr(I))
If Pozicija > 0 Then
NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
GoTo Izmjena1
End If
Next I
For I = 58 To 63
Izmjena2:
Pozicija = InStr(1, NazivASrtikla, Chr(I))
If Pozicija > 0 Then
NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
GoTo Izmjena2
End If
Next I
If Len(NazivASrtikla) > Duz_Art Then
NazivASrtikla = Left(NazivASrtikla, Duz_Art - 1) & "."
End If
Naziv_Art = NazivASrtikla
End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.