zxz | 22.03.2011 14:46 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Ma neka ostane taj dio koda i to bar na 1. Sve zavisi i od compa a pogotovo od brzine diska. Imam negdje proceduru koja prati shel ali je nisam smio staviti jer nemogu isprobati. Procedura provjerava i ceka da se shell izvrsi. E sad po meni dobro bi bilo sve dobre stvari od fiskalizacije izdvojiti u jednu temu. Mogla bi se zvati napr. Konacna rjesenja na temu fiskalizacija ili nesto slicno. |
miro35 | 22.03.2011 15:11 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Odlično bi to bilo.Jer ovo je provjereno na uređaju.Znači ova funkcija radi s tim da trebamo naglasiti djelove funkcije koji se moraju prilagoditi na svoje kolone u formama i tabelama.Npr. "Gotova rješenja za fiskalne uređaje" |
zxz | 22.03.2011 15:13 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Hehe posto se ti najbolje razumijes u ovo to pada na tebe. Ima tu jos par stvari koje bi trebalo izdvojiti ali ti to najbolje znas. Ako ima jos sta napraviti u kodu tu sam. |
miro35 | 22.03.2011 15:16 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Ok samo da razmislim kako da to napravim |
miro35 | 25.03.2011 11:48 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Još nešto što bi moglo biti zanimljivo: Kako dobiti broj fiskalnog računa iz uređaja HCP ako hoćeš redovno „uvezivati“ brojeve fiskalnih računa sa svojim internim brojevima: Prvo treba normalno poslati račun. Nakon toga je potrebno poslati CMD fajl (sa cmd.ok fajlom, naravno) sa ovim sadržajem: <?xml version="1.0" encoding="UTF-8" standalone="yes" ?> <COMMAND> <DATA CMD="RECEIPT_STATE" /> </COMMAND> U izlaznom folderu će se kreirati bill_state.xml koji ima otprilike ovu strukturu: <?xml version='1.0' encoding='UTF-8' standalone='yes'?> <RECEIPT_STATE AMOUNT='-1' DIFFERENCE='-1' RECEIPT_NUMBER='19' REFOUND_RECEIPT_NUMBER='6' RECEIPT_TO_REFUND='0' NUM_PAY='6' NUM_PLU='0' CLIENT='0' CASHIER='255' FISCAL_DAY_STARTED='false' FISCAL_RECEIPT_STARTED='false' REFOUND_MODE='false' > <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> </RECEIPT_STATE> E ovaj RECEIPT_NUMBER je broj računa.kako to dobiti iz ovog xml fajla na access formu? |
zxz | 25.03.2011 13:54 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija RECEIPT_NUMBER='19'-Pretpostavljam da je to ovo. sad jos par pitanja: Kako se zove ovaj file? Jeli uvijek isto ime? jeli se kontrolise ima iz koda odnosno jel pri slanju ovog racuna generises ime ili neznas koje ce ime biti? Putanja gdje se smijesta? Jeli u tom folderu ima jos fajlova ili se brisu? |
miro35 | 25.03.2011 16:02 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Taj fajl se zove bill_state.xml.Nisam siguran ali mislim da se uvjek isto zove. Putanja je C:\HCP\FROM_FP\bill_state.xml Na ovoj putanji ima još fajlova Ovaj naziv bill_state.xml generiše uređaj.To je kao stanje računa. Znači iza računa šaljem jedan fajl a uređaj vraća ovo gore bill_state.xml u kojem piše ovo npr: <RECEIPT_STATE AMOUNT='-1' DIFFERENCE='-1' RECEIPT_NUMBER='19' REFOUND_RECEIPT_NUMBER='6' RECEIPT_TO_REFUND='0' NUM_PAY='6' NUM_PLU='0' CLIENT='0' CASHIER='255' FISCAL_DAY_STARTED='false' FISCAL_RECEIPT_STARTED='false' REFOUND_MODE='false' > <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> <PAY AMOUNT='0' /> </RECEIPT_STATE> |
mci_r | 29.03.2011 08:28 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Da li se moze iscitati taj RECEIPT_NUMBER='19' i upisati ga u neko polje |
miro35 | 29.03.2011 13:12 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija U stvari treba nam ovo "19". |
mci_r | 29.03.2011 14:28 |
---|---|
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija Evo koda pa probajte '--------------------------------------------- --------------- ' Citaj ' '--------------------------------------------- --------------- Function Citaj() On Error GoTo Citaj_Err Dim temp As String Dim Jedan_red As String Dim Poz As String Dim Poz1 As String Dim RukaPo As String Close #1 Open ("" & DLookup("[Putanja]", "[Put]") & "\Rac" & [Forms]![Osnovna tabela Q VP1]![Datum] & " " & [Forms]![Osnovna tabela Q VP1]![Index] & ".inp") For Input As 1 While Not EOF(1) Line Input #1, Jedan_red temp = temp & Jedan_red & vbCrLf Poz = InStr(1, temp, " RECEIPT_NUMBER=") Poz1 = InStr(1, temp, "REFOUND_RECEIPT_NUMBER") RukaPo = Mid(temp, Poz + 17, [Poz1] - [Poz] - 19) Wend Close #1 If Poz > 0 Then MsgBox "Fiskalni broj racuna je: " & [RukaPo], vbCritical, "UPOZORENJE" Else MsgBox "UPSSS" End If Citaj_Exit: Exit Function Citaj_Err: MsgBox Error$ Resume Citaj_Exit End Function |