Centar za edukaciju-BiH



#71 29.03.2011 13:29
mci_r Van mreze
Clan
Registrovan od:17.03.2011
Postovi:34


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Mako ga treba prilagoditi ali radi
↑  ↓

#72 30.03.2011 07:14
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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
Miro
↑  ↓

#73 30.03.2011 09:19
mci_r Van mreze
Clan
Registrovan od:17.03.2011
Postovi:34


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
↑  ↓

#74 30.03.2011 10:56
adi Van mreze
Clan
Registrovan od:06.02.2011
Postovi:78


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.
↑  ↓

#75 31.03.2011 14:52
dragan59 Van mreze
Clan
Registrovan od:02.11.2010
Postovi:29


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.
↑  ↓

#76 01.04.2011 07:42
mci_r Van mreze
Clan
Registrovan od:17.03.2011
Postovi:34


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Mozes li napisati primjer,ako ti nije tesko.
Hvala unaprijed
↑  ↓

#77 01.04.2011 12:01
dragan59 Van mreze
Clan
Registrovan od:02.11.2010
Postovi:29


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
↑  ↓

#78 01.04.2011 12:08
dragan59 Van mreze
Clan
Registrovan od:02.11.2010
Postovi:29


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;
Ovaj post je ureden 1 puta. Posljednja izmjena 01.04.2011 12:11 od strane dragan59. ↑  ↓

#79 01.04.2011 14:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#80 01.04.2011 18:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Evo ovo je napamet pa vidi mozda upali.
PreuzmiIzvorni kôd (Visual Basic):
  1. Const Putanja_Filea = "Putanjasaimenomfilea" ' putanja sa imenom filea
  2. Function Broj_RacunaR()
  3. Dim temp As String
  4. Dim Poz As Integer
  5.  
  6. Close #1
  7. Open Putanja_Filea For Input As 1
  8. For Poz = 1 To 6
  9. Input #1, temp
  10. Next Poz
  11. Broj_RacunaR = temp
  12. Kraj:
  13. Close #1
  14. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (11):1,2 ... 6,7,8,9,10,11


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 26 pm.