iCentar » Racunari i oprema » Programirannje i baze podataka » Access

miro35	12.07.2011 13:57
Predmet:Re: Fiskalni uređaji nazivi artikala Probo sam i to na else staviti Ne javlja mi nikakvu greÅ¡ku nego samo pjeÅ¡čani sat.Ne zavrÅ¡i kreiranje xml-a i moram zatvoriti program. Samo da znaÅ¡ da sam postavio onu funkciju i pozivam je sa ovom komandom: Dim NazivA as string NazivA=Rs2!NazArt NazivA=Naziv_Art(NazivA)

miro35	12.07.2011 14:00
Predmet:Re: Fiskalni uređaji nazivi artikala Kad stavim i na else onda javi greÅ¡ku na: Dim NazivA as string NazivA=Rs2!NazArt NazivA=Naziv_Art(NazivA)

zxz	12.07.2011 14:26
Predmet:Re: Fiskalni uređaji nazivi artikala ovo je dimenzionisanje variable i mozes staviti i na sam pocetak tvoje procedure i moze se dimenzionisati samo jednom. Mozda imas 2 puta pa ti javlja gresku. Dim NazivA as string

zxz	12.07.2011 14:27
Predmet:Re: Fiskalni uređaji nazivi artikala Ako hoces zakaci svoj primjer sa qryIspisIzdFiskal i tabelama koje idu u ovaj sql i ovaj kod gore pa cu ja to prepraviti.

miro35	12.07.2011 15:17
Predmet:Re: Fiskalni uređaji nazivi artikala Evo primjer sa formom i stavio sam bez tvoje funkcije.Znači sad ovaj primjer kreira xml fajl samo stavi u code svoju putanju.
Prilozi: IspraviNaziv.rar (Velicina datoteke:41.92 KB)

zxz	12.07.2011 15:54
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

zxz

12.07.2011 15:54

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

miro35	13.07.2011 08:37
Predmet:Re: Fiskalni uređaji nazivi artikala Ma ovo je odlično.Hvala na pohvalama za primjer.Nego kad već imam ovaj primjer,najbolje će biti da ja na ovaj primjer dodam joÅ¡ ovu funkciju za provjeru naziva i joÅ¡ onu Å¡to si prije pravio za provjeru da li je račun ispisan na fiskalni uređaj.To je ona funkcija kad čita iz .OUT datoteke.Tako da ćemo imati onda kompletiran primjer za ispis računa na HCP uređaje.Sad neznam samo u koju temu da to ubacimo?

miro35

13.07.2011 08:37

Predmet:Re: Fiskalni uređaji nazivi artikala

Ma ovo je odlično.Hvala na pohvalama za primjer.Nego kad već imam ovaj primjer,najbolje će biti da ja na ovaj primjer dodam joÅ¡ ovu funkciju za provjeru naziva i joÅ¡ onu Å¡to si prije pravio za provjeru da li je račun ispisan na fiskalni uređaj.To je ona funkcija kad čita iz .OUT datoteke.Tako da ćemo imati onda kompletiran primjer za ispis računa na HCP uređaje.Sad neznam samo u koju temu da to ubacimo?