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