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):
  1. Izlaz:
  2.     MsgBox "Ra
  3. un nije ispisan,greška u komunikaciji sa ureajem!", vbExclamation, "Obavijest"
  4.     DoCmd.SetWarnings False
  5.             DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
  6. 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):
  1. Function ProvjeraP(BrojRac As String) As String
  2. Dim temp As String
  3. Dim ImeF(1 To 2) As String
  4. Dim ImeR(1 To 2) As String
  5. Dim fs, R, F
  6. Dim Brojac As Integer
  7. Dim i As Integer
  8. Dim Putanja_Filea As String
  9.    
  10. ImeR(1) = "RCP_" & BrojRac & ".XML"  ' Broj rac iz polja me.Me.BROIZD + RCP_ tekst
  11. ImeR(2) = "CMD_" & BrojRac & ".ERR"
  12. Provjera1:
  13. Set fs = Application.FileSearch
  14. With fs
  15.     .LookIn = PutTO
  16.     .FileType = 1
  17.     If .Execute > 0 Then
  18.         For i = 1 To .foundfiles.Count
  19.          F = Right(.foundfiles(i), 3)
  20.           If F = "XML" Then
  21.           ImeF(1) = .foundfiles(i)
  22.           ImeF(1) = ImeFajla(ImeF(1))
  23.             If ImeF(1) = ImeR(1) Then
  24.             DoEvents
  25.             Brojac = Brojac + 1
  26.                If Brojac > 3 Then GoTo Izlaz
  27.                Zaustavi (Brojac)
  28.                GoTo Provjera1
  29.             End If
  30.           End If
  31.         Next i
  32.     End If
  33.  
  34. End With
  35.  
  36. Provjera2:
  37. Set fs = Application.FileSearch
  38. With fs
  39.     .LookIn = PutFrom
  40.     .FileType = 1
  41.     If .Execute > 0 Then
  42.         For i = 1 To .foundfiles.Count
  43.         F = Right(.foundfiles(i), 3)
  44.             If F = "ERR" Then
  45.             ImeF(2) = ImeFajla(.foundfiles(i))
  46.                 If ImeF(2) = ImeR(2) Then
  47.                 Putanja_Filea = .foundfiles(i)
  48.                 Close #1
  49.                 Open Putanja_Filea For Input As 1
  50.                 Input #1, temp
  51.                 Close #1
  52.                 MsgBox temp
  53.                 GoTo Kraj
  54.                 End If
  55.             End If
  56.         Next i
  57.     End If
  58. End With
  59.  
  60. Kraj:
  61. Exit Function
  62. Izlaz:
  63. MsgBox " Ra
  64. un nije oštampan"
  65. GoTo Provjera2
  66. GoTo Kraj
  67. 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):
  1. Brojac = Brojac + 1
  2.                If Brojac > 3 Then GoTo Izlaz
  3.                Zaustavi (Brojac)
  4.                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.