Centar za edukaciju-BiH

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


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

#41 14.03.2011 16:18
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Odlično sa ovim je veliki dio problema rjeÅ¡en.Jer ovaj uređaj je specifičan zato Å¡to se Å¡alje uz račun CMD.OK dok recimo kod tremola račun je jedan fajl kojem ja kreiram naziv po broju računa i kad se desi da uređaj neradi,pa kasnije proradi onda on sam Å¡tampa račune koje nije odÅ¡tampao,dok kod hcp-a za svaki račun moraÅ¡ slati ovaj fajl pod imenom CMD.OK
Miro
↑  ↓

#42 14.03.2011 16:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Kad proradimo za jedan onda cemo samo malo prepraviti za drugi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#43 15.03.2011 09:50
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Ovo je sad trenutno kraj funkcije:
PreuzmiIzvorni kôd (Text):
  1.     End With
  2.      
  3. Kraj:
  4.     Exit Function
  5. Izlaz:
  6.     MsgBox "Ra
  7. un nije ispisan,greška u komunikaciji sa ureajem!", vbExclamation, "Obavijest"
  8.     DoCmd.SetWarnings False
  9.             DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
  10. DoCmd.SetWarnings True
  11. Kill "C:\HCP\TO_FP\Footer.xml"
  12. Kill "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML"
  13. Kill "C:\HCP\TO_FP\CMD.OK"
  14.     GoTo Kraj
  15.     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
↑  ↓

#44 15.03.2011 12:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Evo procedura za brisanje:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function BrisiFile(Putanja As String)
  2. Dim fs
  3. Dim i As Integer
  4.    
  5. Set fs = Application.FileSearch
  6. With fs
  7.     .LookIn = Putanja
  8.     .FileType = 1
  9.     If .Execute > 0 Then
  10.         For i = 1 To .foundfiles.Count
  11.         Kill .foundfiles(i)
  12.         Next i
  13.     End If
  14. End With
  15. End Function

Pozivas je ovdje u tvom kodu:
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
BrisiFile (PutTO)'---->evo ovo. Sada ovom procedurom mozes brisati iz bilo kojeg dir. fajlove.
GoTo Kraj
End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 15.03.2011 12:53 od strane zxz. ↑  ↓

#45 15.03.2011 14:41
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Isprobano radi.Odlično.Za mene je prva faza zavrÅ¡ena.Jer ovo sam zamislio da prva faza bude provjera foldera TO_FP, a druga faza da bude čitanje fajlova iz foldera FROM_FP.Neznam da li misliÅ¡ tako i da li treba ići u ovu drugu fazu.
Miro
↑  ↓

#46 15.03.2011 15:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Pa mislim nije na odmet. Pogotovo kada se desi greska.
Nekada poslije iz iskustva na osnovu broja greske znamo sta je u pitanju pa to pomogne.
U proceduri i postoji vec druga faza samo nioje zabrsena pa po meni dobro bi je bilo dovrsiti.
Da iscita fajlove i gresku ako se pojavi.
koliko sam razumio u ovom folderu se nista ne brise.
Jesam li u pravu?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#47 16.03.2011 09:16
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Tako je ne briše se u ovom Folderu FROM_FP.
JoÅ¡ sam neÅ¡to juče vidio,npr. kad fiskalni uređaj nema komunikaciju sa kompjuterom(Kad je neko zaboravio upaliti a hoće printat račune,Kad je ispao kabal) onda ovaj HCP server javi greÅ¡ku Eror serial port i onda on obriÅ¡e fajl iz foldera TO_FP i kreira fajl u folderu FROM_FP pod nazivom "RCP_000200.ERR"
u kojem piÅ¡e:"1 - SERIAL_PORT_ERROR_TIME_OUT".Da vas ne buni ovaj broj 000200 je moj broj računa lokalnog iz mog programa.Znači vi kreirate fajl pod nazivom kakav želite.Evo zakačiću taj err fajl

Prilozi:
Informacije o tipu datoteke za:rar  RCP_000200.rar
Preuzimanja:198
Velicina datoteke:110 Bajt

Miro
↑  ↓

#48 17.03.2011 10:57
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Kako bi izgledala funkcija za provjeru "Footer.xml"
Miro
↑  ↓

#49 17.03.2011 11:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Citat:
Kako bi izgledala funkcija za provjeru "Footer.xml"
Nije mi ovo poznati. Ako ti nije tesko pojani malo pa cemo napraviti proceduru.
Neznam nista o ovom fileu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#50 17.03.2011 11:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Procedura za provjeru stampanja:
Evo osnovna procedura. Ostalo da ne stavljam.
Kada sve proradis mozda je dobro da otvoris novu temu pod imenom napr.
Dodatni alati za fiskalizaciju.
Postavi cijeli kod.
Objasni kako se radi i napisi za koji je uredjaj.
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. If ImeF(1) <> "" Then
  66. GoTo Provjera2
  67. End If
  68. GoTo Kraj
  69. End Function

hehe napisa ja tebi svasta.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

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

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


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