Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Ovo je sad trenutno kraj funkcije:
PreuzmiIzvorni kôd (Text): End With
Kraj:
Exit Function
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
Kill "C:\HCP\TO_FP\Footer.xml"
Kill "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML"
Kill "C:\HCP\TO_FP\CMD.OK"
GoTo Kraj
End Function
Ovo mi sad treba Kill da provjeri ako postoje ovi fajlovi u mapi da ih onda briše.To kad javi ovu poruku greška u komunikaciji itd..
Jer možda si primjetio da prvo Å¡aljem footer pa tek onda račun.Znači svaki put prije slanja računa Å¡aljem footer,to je nefiskalni tekst u kojem piÅ¡e moj broj lokalnog računa sa moje baze podataka formata 000000 znači Å¡est karaktera.Zato je ovo kill footer.
Zašto treba isprazniti mapu?
Jer kad dođe do greÅ¡ke ako je neki ostao fajl unutra, npr footer ili račun stari neki,onda kad se uređaj osposobi kad ja Å¡aljem sljedeći račun i fajl cmd.OK da ga izvrÅ¡i onda se izvrÅ¡i onaj stari račun ili footer kao u mom primjeru i potroÅ¡i se taj cmd.ok i onda dalje stoji taj novi račun.Itd itd...
Miro