miro35 |
18.03.2011 09:15 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Nije nego razmiÅ¡ljam poÅ¡to prvo Å¡aljem ovaj footer.xml pa iza njega račun onaj RCP_000001.xml, da prvo provjerim jeli prihvatio taj foter.
Znači ako je prihvatio onda pustim da ide račun a ako je neka greÅ¡ka da onda ne dopustim da ide račun.
Mada ovaj prvi dio rjeÅ¡enja koji si napisao odlično radi i koristim ga. |
zxz |
18.03.2011 09:27 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Citat:Nije nego razmiÅ¡ljam poÅ¡to prvo Å¡aljem ovaj footer.xml pa iza njega račun onaj RCP_000001.xml Ovo neznam.
footer.xml -Gdje njega saljes u koji folder ?
Jeli se uvijek tako zove?
Kako znas po njemu da je sve uredu?
Procedura radi sledece:
Provjerava ima li file RCP_000001.xml i ceka da se on obrise.
To je dio provjera1
Imamo dvije opcije kada se obrise i kada se ne obrise.
I u jednom i u drugom slucaju ide na provjeru2
Trazi file err sa ovim imenom i ako ga ima cita gresku iz njega.
Tako bi trebalo da radi ako sta nisam zabrljao. |
miro35 |
18.03.2011 09:35 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
E dobro si nastaviću tako neću komplicirat.
Ma ovaj footer.xml Å¡aljem prije svakog računa.U njemu napiÅ¡em "Hvala na posjeti" i ispod toga broj svog lokalnog računa u mojoj bazi npr "000001".ZaÅ¡to to radim?
Zato kad trebam reklamirat neki račun odnosno izvrÅ¡iti povrat onada na osnovu tog broja vučem račun iz svoje baze koji želim reklamirati. |
zxz |
18.03.2011 09:40 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Mopzda bi bolje bilo to u bazi raditi.
Dodfati na tabelu racune jos jedno polje napr. racun ok te kada sve prodje ovo onda tu upisati da je racun ok.
Mogla bi se poslije napraviti i procedura koja bi radila u pozadini i javljala ako je neki racun ostao i nije proslijedjen.
Ovo hvala na posjeti moze i dalje ici . |
miro35 |
18.03.2011 11:02 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Da to je moj ovaj dio u funkciji kad u bazu bilježim koji je fiskaliziran a koji nije:
PreuzmiIzvorni kôd (Text):Izlaz:
MsgBox "Ra
un nije ispisan,greška u komunikaciji sa ureajem!", vbExclamation, "Obavijest"
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
DoCmd.SetWarnings True
Ovo je dobro samo meni nešto neradi ovaj drugi dio funkcije kad mi kreira fajl RCP_000001.ERR
Pokušao sam timer produžiti na više sekundi. |
zxz |
18.03.2011 11:16 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
E to si mi dobro reka to sam i htio provjeriti jer neznam koliko brzo obrise file.
Znaci vrijeme od slanja do brisanja. E sad mi je ovo nesto reklo.
Sad mi samo reci jos ovo:
Ukoliko se pojavii greska jeli on opet pobrise racun? |
miro35 |
18.03.2011 11:55 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Jeste briše fajl kad javi grešku. |
zxz |
18.03.2011 22:09 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Evo sad probaj.
PreuzmiIzvorni kôd (Visual Basic):Function ProvjeraP(BrojRac As String) As String
Dim temp As String
Dim ImeF(1 To 2) As String
Dim ImeR(1 To 2) As String
Dim fs, R, F
Dim Brojac As Integer
Dim i As Integer
Dim Putanja_Filea As String
ImeR(1) = "RCP_" & BrojRac & ".XML" ' Broj rac iz polja me.Me.BROIZD + RCP_ tekst
ImeR(2) = "CMD_" & BrojRac & ".ERR"
Provjera1:
Set fs = Application.FileSearch
With fs
.LookIn = PutTO
.FileType = 1
If .Execute > 0 Then
For i = 1 To .foundfiles.Count
F = Right(.foundfiles(i), 3)
If F = "XML" Then
ImeF(1) = .foundfiles(i)
ImeF(1) = ImeFajla(ImeF(1))
If ImeF(1) = ImeR(1) Then
DoEvents
Brojac = Brojac + 1
If Brojac > 3 Then GoTo Izlaz
Zaustavi (Brojac)
GoTo Provjera1
End If
End If
Next i
End If
End With
Provjera2:
Set fs = Application.FileSearch
With fs
.LookIn = PutFrom
.FileType = 1
If .Execute > 0 Then
For i = 1 To .foundfiles.Count
F = Right(.foundfiles(i), 3)
If F = "ERR" Then
ImeF(2) = ImeFajla(.foundfiles(i))
If ImeF(2) = ImeR(2) Then
Putanja_Filea = .foundfiles(i)
Close #1
Open Putanja_Filea For Input As 1
Input #1, temp
Close #1
MsgBox temp
GoTo Kraj
End If
End If
Next i
End If
End With
Kraj:
Exit Function
Izlaz:
MsgBox " Ra
un nije oštampan"
GoTo Provjera2
GoTo Kraj
End Function
|
miro35 |
19.03.2011 10:39 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Odlično radi joÅ¡ ću vidjet na uređaju |
miro35 |
22.03.2011 13:33 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Na uređaju radi i dobro je ono Å¡to si govorio za Brojac da treba smanjiti vrijeme odziva u funkciji,to je ovaj dio:PreuzmiIzvorni kôd (Text):Brojac = Brojac + 1
If Brojac > 3 Then GoTo Izlaz
Zaustavi (Brojac)
GoTo Provjera1
Netreba niÅ¡ta,jer brojač se ne pali kad uredno printa račun a kad je neka greÅ¡ka i treba da se zaustavi. |