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

mci_r	29.03.2011 14:29
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Mako ga treba prilagoditi ali radi

miro35	30.03.2011 08:14
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Jeli ovo tvoja putanja: `Open ("" & DLookup("[Putanja]", "[Put]") & "\Rac" & [Forms]![Osnovna tabela Q VP1]![Datum] & " " & [Forms]![Osnovna tabela Q VP1]![Index] & ".inp") For Input As 1` A naziv fajla na putanji je Bill_State.xml Kako to prilagodit

miro35

30.03.2011 08:14

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Jeli ovo tvoja putanja:

Open ("" & DLookup("[Putanja]", "[Put]") & "\Rac" & [Forms]![Osnovna tabela Q VP1]![Datum] & " " & [Forms]![Osnovna tabela Q VP1]![Index] & ".inp") For Input As 1

A naziv fajla na putanji je Bill_State.xml
Kako to prilagodit

mci_r	30.03.2011 10:19
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Da,umjesto toga zadas npr. C:\HCP\Bill_State.xml a gore je navedena neka moja putanja izvucena iz programa

mci_r

30.03.2011 10:19

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Da,umjesto toga zadas npr. C:\HCP\Bill_State.xml
a gore je navedena neka moja putanja izvucena iz programa

adi	30.03.2011 11:56
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Pozdrav, kod mene radi kod sa početka teme koji je zxz naveo: Citat: Const Putanja_Filea = "C:\temp\Prodaja.inp" ' putanja sa imenom filea Option Compare Database Function Broj_Racuna() Dim temp As String Dim Poz As Integer Close #1 Open Putanja_Filea For Input As #1 While Not EOF(1) Input #1, temp Wend Poz = InStr(1, temp, "LastReceiptNumber;") If Poz > 0 Then Broj_Racuna = Mid(temp, Poz + 18) GoTo Kraj: End If Kraj: Close #1 End Function ako kao primjer uzmem npr. prodaja.inp koji powersoft naveo: S,1,041560,1,Ok;NEKTAR PIVO 0.5 LIMENKA 24/1;1.12;1.00;1;1;2;-0;29; T,1,041560,2,Ok; 0 ;1.12;;;; J,1,041560,2,Ok;LastReceiptNumber;144 međutim u mom answer fajlu (gdje nema rezultata tip LastReceiptNumber) koji dobijem nakon uspjeÅ¡no odÅ¡tampanog fiskalnog računa (preko nsc uređaja) dobijem rezultat ovog tipa: 56,1,123450,10,Ok;009,0453,0011; gdje je 453 predstavlja broj fiskalnog računa koji moram "izvući", kako to postići? Hvala.

adi

30.03.2011 11:56

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Pozdrav,

kod mene radi kod sa početka teme koji je zxz naveo:

Citat:

Const Putanja_Filea = "C:\temp\Prodaja.inp" ' putanja sa imenom filea
Option Compare Database
Function Broj_Racuna()
Dim temp As String
Dim Poz As Integer
Close #1
Open Putanja_Filea For Input As #1
While Not EOF(1)
Input #1, temp
Wend
Poz = InStr(1, temp, "LastReceiptNumber;")
If Poz > 0 Then
Broj_Racuna = Mid(temp, Poz + 18)
GoTo Kraj:
End If
Kraj:
Close #1
End Function

ako kao primjer uzmem npr. prodaja.inp koji powersoft naveo:

S,1,041560,1,Ok;NEKTAR PIVO 0.5 LIMENKA 24/1;1.12;1.00;1;1;2;-0;29;
T,1,041560,2,Ok; 0 ;1.12;;;;
J,1,041560,2,Ok;LastReceiptNumber;144

međutim u mom answer fajlu (gdje nema rezultata tip LastReceiptNumber) koji dobijem nakon uspjeÅ¡no odÅ¡tampanog fiskalnog računa (preko nsc uređaja) dobijem rezultat ovog tipa:

56,1,123450,10,Ok;009,0453,0011;

gdje je 453 predstavlja broj fiskalnog računa koji moram "izvući", kako to postići?

Hvala.

dragan59	31.03.2011 15:52
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija -------------------------------------- međutim u mom answer fajlu (gdje nema rezultata tip LastReceiptNumber) koji dobijem nakon uspjeÅ¡no odÅ¡tampanog fiskalnog računa (preko nsc uređaja) dobijem rezultat ovog tipa: 56,1,123450,10,Ok;009,0453,0011; gdje je 453 predstavlja broj fiskalnog računa koji moram "izvući", kako to postići? -------------------------------------- Brojanjem zareza.. Znači napraviÅ¡ proceduru koja će ustanoviti Å¡ta se nalazi između 5-og i Å¡estog zareza i konvertujeÅ¡ Str u Int i eto ga broj računa.

dragan59

31.03.2011 15:52

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

--------------------------------------
međutim u mom answer fajlu (gdje nema rezultata tip LastReceiptNumber) koji dobijem nakon uspjeÅ¡no odÅ¡tampanog fiskalnog računa (preko nsc uređaja) dobijem rezultat ovog tipa:

56,1,123450,10,Ok;009,0453,0011;

gdje je 453 predstavlja broj fiskalnog računa koji moram "izvući", kako to postići?
--------------------------------------

Brojanjem zareza..
Znači napraviÅ¡ proceduru koja će ustanoviti Å¡ta se nalazi između 5-og i Å¡estog zareza i konvertujeÅ¡ Str u Int i eto ga broj računa.

mci_r	01.04.2011 08:42
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Mozes li napisati primjer,ako ti nije tesko. Hvala unaprijed

mci_r

01.04.2011 08:42

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Mozes li napisati primjer,ako ti nije tesko.
Hvala unaprijed

dragan59	01.04.2011 13:01
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Ja ne radim u Access-u tako da nisam baÅ¡ dobar sa Basic-om. Ovako bi neÅ¡to iÅ¡lo u Delfiju (Object Pascal) function broj_fiskalnog(const : povratna_linija : String) : Integer; var i, k, zarez_5, zarez_6 : Integer; zarez_5 := 0; zarez_6 := 0; k := 0; For i := 1 to Length(povratna_linija) do

dragan59

01.04.2011 13:01

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Ja ne radim u Access-u tako da nisam baÅ¡ dobar sa Basic-om.
Ovako bi neÅ¡to iÅ¡lo u Delfiju (Object Pascal)

function broj_fiskalnog(const : povratna_linija : String) : Integer;
var
i, k, zarez_5, zarez_6 : Integer;

zarez_5 := 0;
zarez_6 := 0;
k := 0;

For i := 1 to Length(povratna_linija) do

dragan59	01.04.2011 13:08
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija GreÅ¡ka maloprije, molim admina da obriÅ¡e nepotpun post. Ja ne radim u Access-u tako da nisam baÅ¡ dobar sa Basic-om. Ovako bi neÅ¡to iÅ¡lo u Delfiju (Object Pascal) function broj_fiskalnog(const : povratna_linija : String) : Integer; var i, k, zarez_5, zarez_6 : Integer; begin zarez_5 := 0; zarez_6 := 0; k := 0; For i := 1 to Length(povratna_linija) do begin If Copy(povratna_linija,i,1) = ',' then Inc(k) If k = 5 then zarez_5 := i; If k = 6 then zarez_6 := i; end Result := StrToInt(Copy(povratna_linija,zarez_5+1,zarez_6-za rez_5-1)); end;

dragan59

01.04.2011 13:08

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

GreÅ¡ka maloprije, molim admina da obriÅ¡e nepotpun post.

Ja ne radim u Access-u tako da nisam baÅ¡ dobar sa Basic-om.
Ovako bi neÅ¡to iÅ¡lo u Delfiju (Object Pascal)

function broj_fiskalnog(const : povratna_linija : String) : Integer;
var
i, k, zarez_5, zarez_6 : Integer;

begin
zarez_5 := 0;
zarez_6 := 0;
k := 0;

For i := 1 to Length(povratna_linija) do
begin
If Copy(povratna_linija,i,1) = ',' then Inc(k)
If k = 5 then zarez_5 := i;
If k = 6 then zarez_6 := i;
end

Result := StrToInt(Copy(povratna_linija,zarez_5+1,zarez_6-za
rez_5-1));
end;

zxz	01.04.2011 15:43
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Nije greska. Tacno si opisao sta treba ciniti. Za adi. Htio sam ja ovo uraditi ali sam mislio da ce neko drugi. Da nebih pogrijseio zakaci cio sadrzaj filea. napisi putanju gdje se nalazi. Dali ima jos fajlova u tom dir i dali file uvijek ima isto ime.

zxz

01.04.2011 15:43

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Nije greska. Tacno si opisao sta treba ciniti.
Za adi.
Htio sam ja ovo uraditi ali sam mislio da ce neko drugi.
Da nebih pogrijseio zakaci cio sadrzaj filea.
napisi putanju gdje se nalazi.
Dali ima jos fajlova u tom dir i dali file uvijek ima isto ime.

zxz	01.04.2011 19:54
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Evo ovo je napamet pa vidi mozda upali. PreuzmiIzvorni kôd (Visual Basic): Const Putanja_Filea = "Putanjasaimenomfilea" ' putanja sa imenom filea Function Broj_RacunaR() Dim temp As String Dim Poz As Integer Close #1 Open Putanja_Filea For Input As 1 For Poz = 1 To 6 Input #1, temp Next Poz Broj_RacunaR = temp Kraj: Close #1 End Function

zxz

01.04.2011 19:54

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Evo ovo je napamet pa vidi mozda upali.

PreuzmiIzvorni kôd (Visual Basic):

Const Putanja_Filea = "Putanjasaimenomfilea" ' putanja sa imenom filea
Function Broj_RacunaR()
Dim temp As String
Dim Poz As Integer
Close #1
Open Putanja_Filea For Input As 1
For Poz = 1 To 6
Input #1, temp
Next Poz
Broj_RacunaR = temp
Kraj:
Close #1
End Function