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

zxz	07.03.2011 02:02
Predmet:Ideje i rjesenja iz teme fiskalizacija Pitanje od Miro35: Citat: JoÅ¡ neÅ¡to Å¡to bi dobro bilo napraviti a vezano je za fiskalizaciju i fiskalne uređaje.Kad iz svoje kase poÅ¡aljem xml fajl u folder iz kojeg uređaj ispisuje račun,ako je se uspjeÅ¡no izvrÅ¡io on vrati fajl pod imenom Receipt.out u kojem piÅ¡e neki text o uspjeÅ¡nom izvrÅ¡enju.Isto tako ako kojim slučajem nije neÅ¡to uredu uređaj vraća isti ovaj fajl sa nastavkom .out u kojem piÅ¡e neka greÅ¡ka.Pitanje: Kako u access učitati taj podatak Å¡ta piÅ¡e u tom fajlu i onda na osnovu toga prekinuti knjiÅ¾enje tog računa koji nije ispisan na fiskalni uređaj.A ako je ispisan na fiskalni uređaj onda treba iz tog fajla pročitati da je sve ok i da program nastavi knjiÅ¾enje računa.Znači bitno bi bilo kako napraviti preko vb coda da pročitamo Å¡ta piÅ¡e u toj .out datoteci.Evo primjer .out datoteka Na vrh modula ide ovo: PreuzmiIzvorni kôd (Visual Basic): Option Compare Database Option Explicit Const Putanja_Filea = "C:\tmp\receipt_sale.out" ' putanja sa imenom filea PreuzmiIzvorni kôd (Visual Basic): Function ProvjeraF() As Boolean Dim Temp As String Dim Red As Integer Dim Greska As String Dim GreskaOpis As String Dim Poz(1 To 2) As Integer Dim I As Integer Close #1 Red = 2 ' red iz kojeg cita Open Putanja_Filea For Input As 1 For I = 1 To Red Input #1, Temp Next I Poz(1) = InStr(1, Temp, "ErrorCode=") + 11 Poz(2) = InStr(1, Temp, "ErrorOPOS=") - 2 Greska = Mid(Temp, Poz(1), Poz(2) - Poz(1)) If Greska = "0" Then MsgBox "UspjeÅ¡no izvrÅ¡avanje." ProvjeraF = True Else Poz(1) = InStr(1, Temp, "ErrorDescription=") + 17 Poz(2) = InStr(1, Temp, "/>") - 2 GreskaOpis = Mid(Temp, Poz(1), Poz(2) - Poz(1)) MsgBox "GreÅ¡ka br: " & Greska & vbCr & GreskaOpis ProvjeraF = False End If Close #1 Kraj: Exit Function End Function

zxz

07.03.2011 02:02

Predmet:Ideje i rjesenja iz teme fiskalizacija

Pitanje od Miro35:

Citat:

JoÅ¡ neÅ¡to Å¡to bi dobro bilo napraviti a vezano je za fiskalizaciju i fiskalne uređaje.Kad iz svoje kase poÅ¡aljem xml fajl u folder iz kojeg uređaj ispisuje račun,ako je se uspjeÅ¡no izvrÅ¡io on vrati fajl pod imenom Receipt.out u kojem piÅ¡e neki text o uspjeÅ¡nom izvrÅ¡enju.Isto tako ako kojim slučajem nije neÅ¡to uredu uređaj vraća isti ovaj fajl sa nastavkom .out u kojem piÅ¡e neka greÅ¡ka.Pitanje:
Kako u access učitati taj podatak Å¡ta piÅ¡e u tom fajlu i onda na osnovu toga prekinuti knjiÅ¾enje tog računa koji nije ispisan na fiskalni uređaj.A ako je ispisan na fiskalni uređaj onda treba iz tog fajla pročitati da je sve ok i da program nastavi knjiÅ¾enje računa.Znači bitno bi bilo kako napraviti preko vb coda da pročitamo Å¡ta piÅ¡e u toj .out datoteci.Evo primjer .out datoteka

Na vrh modula ide ovo:

PreuzmiIzvorni kôd (Visual Basic):

Option Compare Database
Option Explicit
Const Putanja_Filea = "C:\tmp\receipt_sale.out" ' putanja sa imenom filea

PreuzmiIzvorni kôd (Visual Basic):

Function ProvjeraF() As Boolean
Dim Temp As String
Dim Red As Integer
Dim Greska As String
Dim GreskaOpis As String
Dim Poz(1 To 2) As Integer
Dim I As Integer
Close #1
Red = 2 ' red iz kojeg cita
Open Putanja_Filea For Input As 1
For I = 1 To Red
Input #1, Temp
Next I
Poz(1) = InStr(1, Temp, "ErrorCode=") + 11
Poz(2) = InStr(1, Temp, "ErrorOPOS=") - 2
Greska = Mid(Temp, Poz(1), Poz(2) - Poz(1))
If Greska = "0" Then
MsgBox "UspjeÅ¡no izvrÅ¡avanje."
ProvjeraF = True
Else
Poz(1) = InStr(1, Temp, "ErrorDescription=") + 17
Poz(2) = InStr(1, Temp, "/>") - 2
GreskaOpis = Mid(Temp, Poz(1), Poz(2) - Poz(1))
MsgBox "GreÅ¡ka br: " & Greska & vbCr & GreskaOpis
ProvjeraF = False
End If
Close #1
Kraj:
Exit Function
End Function

biromega	07.03.2011 12:51
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Evo kako sam ja to rijeÅ¡io (idejno) postoje dva "koraka" 1) nakon pripreme fiskalnog (reklamiranog) računa u aplikaciji pozivam funkciju OBRADAFP koja u zavisnosti od vrste fiskalnog uređaja radi sljedeće 1.1. NSC - provjerava da li se pojavio fajl "odgovor" na zadnju komandu displeju. Ako je OK i fajl odgovora sadrÅ¾i red sa "47,1" Å¡alje se račun Å¡tampaču i provjerava da li fajl odgovora sadrÅ¾i "56,1," 1.2. Tring - Å¡alje se račun Å¡tampaču i provjerava da li fajl odgovora sadrÅ¾i "</VrstaOdgovora>" 1.3. Tremol - Å¡alje se račun Å¡tampaču i provjerava da li se pojavio fajl .OUT (odgovor) 1.4. HCP (malo komplikovanije) - na početku se obriÅ¡e bill_state.xml i poÅ¡alje se račun Å¡tampaču (RCP_xxx.xml) + cmd.ok i "čeka" se da drajver obriÅ¡e cmd.ok, provjerava se da li se pojavio fajl RCP_xxx.OK te se Å¡alje receipt_state (sa fajlom cmd.ok). kada drajver "obriÅ¡e" cmd.ok provjerava se da li postoji fajl bill_state.xml 1.5. ERP - Å¡alje se račun na Å¡tampač i provjerava se da li se pojavio fajl odgvovoa (.eln) i da li on sadrÅ¾i tekst "BF:" ili "RF:" 1.6. Mikroelektronika - Å¡alje se račun na Å¡tampač i provjerava se da li se pojavio fajl odgvovoa (.inp) i da li on sadrÅ¾i tekst ";Ok;Last" Ako nisu ispunjeni svi uslovi iz koraka 1 (za određeni fiskalni uređaj) PREKIDA se knjiÅ¾enje računa (koji nije ispisan na fiskalni uređaj) Ako su ispunjeni svi "propisani" uslovi iz koraka 1 ide se na korak 2. 2) Čitanje i obrada odgovora fiskalnog uređaja (CITAJFP) 2.1. NSC - iz fajla odgovora u redu "56,1," izdvaja se BF (za fiskalni račun) ili RF (za reklamirani) i odbaciju se vodeće nule 2.2. Tring - iz fajla odgovora se traÅ¾i "<VrstaOdgvora>OK</VrstaOdgvora> i izdvaja broj računa "<Vrijednost>xxx</Vrijednost>" 2.3. TREMOL - iz fajla odgovora se traÅ¾i "<OPOS_SUCCESS" i izdvaja broj računa "ReceiptNumber=" 2.4. HCP - iz fajla odgovora u "BILL_STATE.XML" izdvajamo RECEIPT_NUMBER (za fiskalni račun) ili REFOUND_RECEIPT_NUMBER (za reklamirani) 2.5. ERP - iz fajla odgovora u redu "BF:" izdvajamo se broj fiskalnog računa ili "RF:" izdvajamo broj reklamiranog računa 2.6. Mikroelektronika - iz fajla odgovora u redu ",Ok;LastReceiptNumber;" izdvajamo se broj fiskalnog računa ili "Ok;LastRefundNumber;" izdvajamo broj reklamiranog računa Ako su ispunjeni svi predviđeni zahtjevi iz koraka 2 "fiskalizacija" zahtjeva je uspjela (dobili smo broj fiskalnog-reklamiranog računa) i treba "zavrÅ¡iti" knjiÅ¾enje u suprotnom treba ponuditi mogućnost da se unese broj fiskalnog (reklamiranog) računa ako je u međuvremenu odÅ¡tampan (kod pojedinih uređaja se to deÅ¡ava) ili da se zahtjev obriÅ¡e tj. prekine knjiÅ¾enje.

biromega

07.03.2011 12:51

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Evo kako sam ja to rijeÅ¡io (idejno) postoje dva "koraka"

1) nakon pripreme fiskalnog (reklamiranog) računa u aplikaciji pozivam funkciju OBRADAFP koja u zavisnosti od vrste fiskalnog uređaja radi sljedeće

1.1. NSC
- provjerava da li se pojavio fajl "odgovor" na zadnju komandu displeju. Ako je OK i fajl odgovora sadrÅ¾i red sa "47,1" Å¡alje se račun Å¡tampaču i provjerava da li fajl odgovora sadrÅ¾i "56,1,"

1.2. Tring

- Å¡alje se račun Å¡tampaču i provjerava da li fajl odgovora sadrÅ¾i "</VrstaOdgovora>"

1.3. Tremol

- Å¡alje se račun Å¡tampaču i provjerava da li se pojavio fajl .OUT (odgovor)

1.4. HCP (malo komplikovanije)

- na početku se obriÅ¡e bill_state.xml i poÅ¡alje se račun Å¡tampaču (RCP_xxx.xml) + cmd.ok i "čeka" se da drajver obriÅ¡e cmd.ok, provjerava se da li se pojavio fajl RCP_xxx.OK te se Å¡alje receipt_state (sa fajlom cmd.ok). kada drajver "obriÅ¡e" cmd.ok provjerava se da li postoji fajl bill_state.xml

1.5. ERP

- Å¡alje se račun na Å¡tampač i provjerava se da li se pojavio fajl odgvovoa (.eln) i da li on sadrÅ¾i tekst "BF:" ili "RF:"

1.6. Mikroelektronika

- Å¡alje se račun na Å¡tampač i provjerava se da li se pojavio fajl odgvovoa (.inp) i da li on sadrÅ¾i tekst ";Ok;Last"

Ako nisu ispunjeni svi uslovi iz koraka 1 (za određeni fiskalni uređaj) PREKIDA se knjiÅ¾enje računa (koji nije ispisan na fiskalni uređaj)
Ako su ispunjeni svi "propisani" uslovi iz koraka 1 ide se na korak 2.

2) Čitanje i obrada odgovora fiskalnog uređaja (CITAJFP)

2.1. NSC

- iz fajla odgovora u redu "56,1," izdvaja se BF (za fiskalni račun) ili RF (za reklamirani) i odbaciju se vodeće nule

2.2. Tring

- iz fajla odgovora se traÅ¾i "<VrstaOdgvora>OK</VrstaOdgvora> i izdvaja broj računa "<Vrijednost>xxx</Vrijednost>"

2.3. TREMOL

- iz fajla odgovora se traÅ¾i "<OPOS_SUCCESS" i izdvaja broj računa "ReceiptNumber="

2.4. HCP

- iz fajla odgovora u "BILL_STATE.XML" izdvajamo RECEIPT_NUMBER (za fiskalni račun) ili REFOUND_RECEIPT_NUMBER (za reklamirani)

2.5. ERP

- iz fajla odgovora u redu "BF:" izdvajamo se broj fiskalnog računa ili "RF:" izdvajamo broj reklamiranog računa

2.6. Mikroelektronika

- iz fajla odgovora u redu ",Ok;LastReceiptNumber;" izdvajamo se broj fiskalnog računa ili "Ok;LastRefundNumber;" izdvajamo broj reklamiranog računa

Ako su ispunjeni svi predviđeni zahtjevi iz koraka 2 "fiskalizacija" zahtjeva je uspjela (dobili smo broj fiskalnog-reklamiranog računa) i treba "zavrÅ¡iti" knjiÅ¾enje u suprotnom treba ponuditi mogućnost da se unese broj fiskalnog (reklamiranog) računa ako je u međuvremenu odÅ¡tampan (kod pojedinih uređaja se to deÅ¡ava) ili da se zahtjev obriÅ¡e tj. prekine knjiÅ¾enje.

zxz	07.03.2011 13:06
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Citat: 1.3. Tremol - Å¡alje se račun Å¡tampaču i provjerava da li se pojavio fajl .OUT (odgovor) Kako sam ja razumio Miro35 ovaj fajl out se pojavljuje i kada dodje do greske. Iz tog razloga sam napravio proceduru koja provjerava br. greske te ako je 0 vraca true a ako nije nula (znaci da postoji greska) daje opis i br. greske te vraca vrijednost false. E sad dali vam je ovo od koristi ili ne neznam.

zxz

07.03.2011 13:06

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Citat:

1.3. Tremol
- Å¡alje se račun Å¡tampaču i provjerava da li se pojavio fajl .OUT (odgovor)

Kako sam ja razumio Miro35 ovaj fajl out se pojavljuje i kada dodje do greske.
Iz tog razloga sam napravio proceduru koja provjerava br. greske te ako je 0 vraca true a ako nije nula (znaci da postoji greska) daje opis i br. greske te vraca vrijednost false.
E sad dali vam je ovo od koristi ili ne neznam.

biromega	07.03.2011 13:27
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija 1.3. je samo "prvi korak provjere" i pod 2.3. je opisan "drugi korak provjere". U mom slučaju (integralno rjeÅ¡enje koje podrÅ¾ava sve fiskalne uređaje) je zbog specifičnosti pojedinih uređaja bilo neophodno napraviti ova dva razdvojena koraka. Naravno, za samo neki konkretan uređaj moÅ¾da to nije neophodno.

biromega

07.03.2011 13:27

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

1.3. je samo "prvi korak provjere" i pod 2.3. je opisan "drugi korak provjere".

U mom slučaju (integralno rjeÅ¡enje koje podrÅ¾ava sve fiskalne uređaje) je zbog specifičnosti pojedinih uređaja bilo neophodno napraviti ova dva razdvojena koraka. Naravno, za samo neki konkretan uređaj moÅ¾da to nije neophodno.

zxz	07.03.2011 13:34
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Znaci procedura CITAJFP cita odgovore iz filea u stvari radi ono sto sam ja napravio. Dobro si ti to sve napisao ali ja nisam citao do kraja.

zxz

07.03.2011 13:34

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Znaci procedura CITAJFP cita odgovore iz filea u stvari radi ono sto sam ja napravio.
Dobro si ti to sve napisao ali ja nisam citao do kraja.

miro35	08.03.2011 12:30
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Odlično ste ovo započeli oko provjere fajlova.JoÅ¡ nisam imo vremena da ovu prvu funkciju probam od zxz.Izgleda da će to biti rjeÅ¡enje,jer bitno je da se pročita iz out datoteke Å¡ta piÅ¡e tj. je li "uspjeÅ¡no izvrÅ¡avanje" ili neÅ¡to drugo. Vidim da biromega već ima rjeÅ¡enje za sve uređaje.E kad bi sad mogao da nam izbaciÅ¡ neki svoj primjer za neku vrstu uređaja.mene bi recimo sad zanimalo za tremol kako da to napravimo.

miro35

08.03.2011 12:30

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Odlično ste ovo započeli oko provjere fajlova.JoÅ¡ nisam imo vremena da ovu prvu funkciju probam od zxz.Izgleda da će to biti rjeÅ¡enje,jer bitno je da se pročita iz out datoteke Å¡ta piÅ¡e tj. je li "uspjeÅ¡no izvrÅ¡avanje" ili neÅ¡to drugo.

Vidim da biromega već ima rjeÅ¡enje za sve uređaje.E kad bi sad mogao da nam izbaciÅ¡ neki svoj primjer za neku vrstu uređaja.mene bi recimo sad zanimalo za tremol kako da to napravimo.

miro35	08.03.2011 16:29
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Evo fajlovi koje javi HCP kad je uspjeÅ¡no i kad nije
Prilozi: CMD_784218.rar (Velicina datoteke:116 Bajt) RCP_000123.rar (Velicina datoteke:77 Bajt)

miro35

08.03.2011 16:29

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Evo fajlovi koje javi HCP kad je uspjeÅ¡no i kad nije

Prilozi:
CMD_784218.rar (Velicina datoteke:116 Bajt)
RCP_000123.rar (Velicina datoteke:77 Bajt)

zxz	08.03.2011 16:33
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Ovaj ok nastavkom je prazan. Ako sam te razumio treba proceduru prepraviti da prepoznaje ovo jel tako?

zxz

08.03.2011 16:33

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Ovaj ok nastavkom je prazan.
Ako sam te razumio treba proceduru prepraviti da prepoznaje ovo jel tako?

zxz	08.03.2011 18:12
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Ovo ce raditi ok ako u tom direktoriju postoji uvijek samo jedan file ako ne treba prepraviti proceduru. PreuzmiIzvorni kôd (Visual Basic): Function Provjera_G() As Boolean Dim temp As String Dim fl Dim fs Dim I Dim Putanja As String Putanja = "C:\tmp\" 'Ovdje upisati putanju Set fs = Application.FileSearch With fs .LookIn = Putanja .FileType = 1 If .Execute > 0 Then For I = 1 To .FoundFiles.Count fl = .FoundFiles(I) Next I Else MsgBox "Tne postoji fajl" GoTo Kraj End If End With If Right(fl, 3) = "ERR" Then Close #1 Open fl For Input As 1 Input #1, temp Close #1 MsgBox temp Provjera_G = False Else MsgBox "UspjeÅ¡no izvrÅ¡avanje." Provjera_G = False End If Kraj: End Function

zxz

08.03.2011 18:12

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Ovo ce raditi ok ako u tom direktoriju postoji uvijek samo jedan file ako ne treba prepraviti proceduru.

PreuzmiIzvorni kôd (Visual Basic):

Function Provjera_G() As Boolean
Dim temp As String
Dim fl
Dim fs
Dim I
Dim Putanja As String
Putanja = "C:\tmp\" 'Ovdje upisati putanju
Set fs = Application.FileSearch
With fs
.LookIn = Putanja
.FileType = 1
If .Execute > 0 Then
For I = 1 To .FoundFiles.Count
fl = .FoundFiles(I)
Next I
Else
MsgBox "Tne postoji fajl"
GoTo Kraj
End If
End With
If Right(fl, 3) = "ERR" Then
Close #1
Open fl For Input As 1
Input #1, temp
Close #1
MsgBox temp
Provjera_G = False
Else
MsgBox "UspjeÅ¡no izvrÅ¡avanje."
Provjera_G = False
End If
Kraj:
End Function

miro35	09.03.2011 10:06
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Sad si mi dao ideju za hcp best ba uređaj.Ovako rad sa fajlovima radi na principu da mi iz svog programa Å¡aljemo fajl računa koji se zove RCP_000001.xml i nakon toga skoro istovremano Å¡aljemo fajl pod nazivom CMD.OK koji je prazan.Sve to Å¡aljemo u folder C:\HCP\TO_FP.Kad ovaj CMD.OK izvrÅ¡i odnosno isprinta račun onda on kreira fajl koji se zove RCP_000001.OK,a ako neÅ¡to nije uredu sa tim računom onda kreira fajl RCP_000001.ERR. E sada ove fajlove ne kreira u istom folderu:C:\HCP\TO_FP, nego u folderu: C:\HCP\FROM_FP.Moje miÅ¡ljenje je da bi trebalo neÅ¡to napravit kad se ovo sve izdeÅ¡ava da program provjeri da li je folder TO_FP prazan i ako nije da program Å¡alje CMD.OK fajlove dok se sve datoteke ne izvrÅ¡e koje su u njemu.Jer moÅ¾emo mi čitati greÅ¡ke iz FROM_FP ali Å¡ta ako se neÅ¡to nije izvrÅ¡ilo u folderu TO_FP.

miro35

09.03.2011 10:06

Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

Sad si mi dao ideju za hcp best ba uređaj.Ovako rad sa fajlovima radi na principu da mi iz svog programa Å¡aljemo fajl računa koji se zove RCP_000001.xml i nakon toga skoro istovremano Å¡aljemo fajl pod nazivom CMD.OK koji je prazan.Sve to Å¡aljemo u folder C:\HCP\TO_FP.Kad ovaj CMD.OK izvrÅ¡i odnosno isprinta račun onda on kreira fajl koji se zove RCP_000001.OK,a ako neÅ¡to nije uredu sa tim računom onda kreira fajl RCP_000001.ERR.
E sada ove fajlove ne kreira u istom folderu:C:\HCP\TO_FP, nego u folderu: C:\HCP\FROM_FP.Moje miÅ¡ljenje je da bi trebalo neÅ¡to napravit kad se ovo sve izdeÅ¡ava da program provjeri da li je folder TO_FP prazan i ako nije da program Å¡alje CMD.OK fajlove dok se sve datoteke ne izvrÅ¡e koje su u njemu.Jer moÅ¾emo mi čitati greÅ¡ke iz FROM_FP ali Å¡ta ako se neÅ¡to nije izvrÅ¡ilo u folderu TO_FP.