Predmet:Re: Fiskalni uređaji nazivi artikala
Prvo te moram pohvaliti kako si predocio primjer.
Sve je bilo tu nista nisam morao desifrovati.
Dakle ja sam pogrijesio jer je petlja bila beskonacna zato sto sam u njoj uzeo i prazno mjesto a ponovo ga dodavao.
Mozda ****lje dodati doljnj crtu.
Ako hoces mozes to promijeniti.
Poziv je isti samo je procedura malo promijenjena.
Poziv:
PreuzmiIzvorni kôd (Visual Basic):Do While Not rs2.EOF
Dim NazivA As String
NazivA = rs2!NazArt
NazivA = Naziv_Art(NazivA)
If (rs2!DS_VALUEBroj > 0) Then
Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!BrArt & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!PRCFiskal & """" & " " & "AMN" & "=" & """" & rs2!AMNFiskal & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>" & vbCrLf
Else
Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!BrArt & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!PRCFiskal & """" & " " & "AMN" & "=" & """" & rs2!AMNFiskal & """" & " " & "/>" & vbCrLf
End If
rs2.MoveNext
Loop
Proceduru stavi u neki modul ili u ovaj isti ispod tvog koda.
PreuzmiIzvorni kôd (Visual Basic):Function Naziv_Art(NazivASrtikla As String)
Dim I As Integer
Dim Pozicija As Integer
Dim Duz_Art As Integer
Const Znak = ""
'-------------------------------
'Duzina teksta u nazivu artikla
'Moze se postaviti kao konstanta
Duz_Art = 38
'------------------------------
For I = 33 To 47
Izmjena1:
Pozicija = InStr(1, NazivASrtikla, Chr(I))
If Pozicija > 0 Then
If I <> 44 Or I = 46 Then
NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
GoTo Izmjena1
End If
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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.