Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (11):1,2 ... 8,9,10,11,
 Prikazi prvu neprocitanu poruku

#91 10.04.2011 10:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Za nzuko.
postavi i ti svoj kod koji si napravio i opsisi. U ovu temu
http://www.icentar.ba/showtopic.php?id=1002
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#92 22.04.2011 13:54
Kiro Van mreze
Clan
Registrovan od:04.02.2009
Postovi:119


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Ovaj code prilagođavam sebi i radi međutim u 17 liniji ( If .Execute > 0 Then) stane, ustvari traje oko 30 sekundi isto se deÅ¡ava i na 41 liniji koda, a to je predugo.
Pitanje je zašto?

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

#93 22.04.2011 14:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Citat:
Set fs = Application.FileSearch
With fs
.LookIn = PutTO
.FileType = 1
If .Execute > 0 Then

Provjerava dali postoji na disku fajlova ovoga tipa i ucitava ih i to vjrovatno znas.

Moglo bi se ubrzati napr. da se pozove fajl sa datim imenom pa ako prijavi gresku znaci nema ga.
Ucinak bi bio isti ali eto ovo je elegantnije.
Ako toliko traje mora da je i disk malo pospor ili moze biti da je zaustavljen od strane sistema pa dok ga pokrene ponovo to traje.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#94 22.04.2011 14:08
Kiro Van mreze
Clan
Registrovan od:04.02.2009
Postovi:119


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Ma znam sta znači kod, a disk hm to mi je čudno.
Sad ću probati na drugom računaru.
↑  ↓

#95 22.04.2011 14:27
Kiro Van mreze
Clan
Registrovan od:04.02.2009
Postovi:119


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
NeÅ¡to ne Å¡tima ovako prođe trenutno
a kad mu pustim "RACUN" '& BrojRac & ".IN$" traje 22 sekunde.
zxz, de molim te ti probaj kod sebe.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PBRF(BrojRac As String) As String
  2. Dim MyTime(1 To 2), traje
  3. Dim i As Integer
  4. Dim t
  5. Set t = Application.FileSearch
  6. With t
  7.     .NewSearch
  8.     .LookIn = "C:\temp\Printed"
  9.     .FileName = "RACUN*" '& BrojRac & ".IN$"
  10.    .FileType = 1
  11.     MyTime(1) = Time
  12.     If .Execute() > 0 Then
  13.      MyTime(2) = Time
  14.      traje = Format(MyTime(2) - MyTime(1), "h:m:s")
  15.      MsgBox traje
  16.         MsgBox "There were " & .FoundFiles.Count & _
  17.         " file(s) found."
  18.         For i = 1 To .FoundFiles.Count
  19.             MsgBox .FoundFiles(i)
  20.         Next i
  21.     Else
  22.         MsgBox "There were no files found."
  23.     End If
  24. End With
  25.  
  26. End Function
↑  ↓

#96 22.04.2011 14:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Trajanje: 0:0:0

Moze biti da kasni zbog toga sto mu nedozvoljava pristup fileu dok stampa.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#97 22.04.2011 14:46
Kiro Van mreze
Clan
Registrovan od:04.02.2009
Postovi:119


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
u oba slučaja? i kad staviÅ¡ da je:

.FileName = "RACUN" & BrojRac & ".IN$"

?
↑  ↓

#98 22.04.2011 22:40
Kiro Van mreze
Clan
Registrovan od:04.02.2009
Postovi:119


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
na drugom kompjuteru gornja funkcija radi bez problema, znači da je na prvom neki hardverski ili softverski kvar.
↑  ↓

#99 09.07.2011 07:31
Sijedi Van mreze
Clan
Registrovan od:05.07.2011
Postovi:40


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Pozdrav !
Imam nekih nejasnoća pa bih molio za pomoć. Radim s Tremol TF260F.
1. U slučaju povrata robe radi se refund račun
<TremolFpServer Command="refund" RefundReceipt="broj dokumenta">
ili
<TremolFpServer Command="Receipt" RefundReceipt="broj dokumenta">
Dali ide Command=Receipt ili Refund
u tom slučaju se količine artikala Å¡alju kao pozitivne vrijednosti. U nekim uputama stoji da se mora refundirati cijeli RN, međutim u uputama Ministarstva za VP se kaže da se može refundirati i dijelovi računa. Dali je ovo gore navedeno tačno
2. Kako posmatrati račun na kome je napravljena greÅ¡ka i treba ga stornirati. Dali vrÅ¡iti "refund" sa slanjem pozitivnih vrijednosti količina ili raditi račun "Receipt" i slati negativne vrijednosti količina.
Hvala !
↑  ↓

#100 09.07.2011 11:46
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Evo ti primjer ovako napravi.pozitivne su vrijednosti.

Prilozi:
Informacije o tipu datoteke za:rar  ProdajaReklamirani.rar
Preuzimanja:256
Velicina datoteke:387 Bajt

Miro
↑  ↓

Stranice (11):1,2 ... 8,9,10,11,

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 04 am.