Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (11):1,2 ... 4,5,6,7,8 ... 10,11

#51 18.03.2011 09:15
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#52 18.03.2011 09:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#53 18.03.2011 09:35
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#54 18.03.2011 09:40
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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 .
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#55 18.03.2011 11:02
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#56 18.03.2011 11:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#57 18.03.2011 11:55
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Jeste briše fajl kad javi grešku.
Miro
↑  ↓

#58 18.03.2011 22:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#59 19.03.2011 10:39
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Odlično radi joÅ¡ ću vidjet na uređaju
Miro
↑  ↓

#60 22.03.2011 13:33
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

Stranice (11):1,2 ... 4,5,6,7,8 ... 10,11

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 12: 34 pm.