Centar za edukaciju-BiH



#1 18.04.2018 09:32
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


Predmet:Access program i touch screen monitor
Pozdrav!

Imam program u Access-u 2003 koji bih sada želio koristiti na računaru sa touch screen monitorom.

Program je urađen tako da za svaku aktivnost ima taster.

Zanima me da li za prelazak na touch screen monitor treba raditi neka dodatna podešavanja i izmjene u programu, tj. na šta bih trebao obratiti pažnju?
↑  ↓

#2 18.04.2018 09:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access program i touch screen monitor
Ukoliko se upotrebljava samo standardni klik misa nebi trebalo biti nikakvih problema.
Ako se negdje upotrebaljavaju dogadjaji misa kao dupli klik up i dovn onda to treba pogledati dali radi.

Ostalo bi sve trebalo da bude ok.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 16.05.2018 22:48
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


Predmet:Re: Access program i touch screen monitor
Testirao sam program na touch screen monitoru, sve radi kako ste napisali.

Sada pokušavam da doradim fiskalni račun ali mi nešto ne ide. Htio bih da u podnožje računa dodam ime konobara, tako da dobijem fajl sa tekstom

S,0,______,_,__;dd;2,0000;1,000;1;1;2;0;4;;0,00
S,0,______,_,__;bb;2,0000;1,000;1;1;2;0;2;;0,00
S,0,______,_,__;cc;2,0000;1,000;1;1;2;0;3;;0,00
Q,0,______,_,__; ImeKonobara
T,0,______,_,__;

Gdje i na koji način da dodam kod: Print #1, "Q,1,______,_,__;"; rst!KorisnickoIme; " "

u sledećoj funciji:

Public Sub FiskalniRacunMaloprodaja(ByVal Storno As Integer)
On Error GoTo Err_FiskalniRacunMaloprodaja_Click

Dim rst As ADODB.Recordset
Dim I, j As Integer


Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient
rst.Open "Select * From RacuniFisk order by korisnikid", CurrentProject.Connection, adOpenKeyset, adLockOptimistic


rst.MoveFirst
If Storno < 0 Then
Open "C:\temp\" & Replace(rst!KorisnikID, "/", "$") & ".inp" For Output As #1
Else
Open "C:\temp\" & Replace("r" & rst!KorisnikID, "/", "$") & ".inp" For Output As #1
End If

If Storno < 0 Then
Else
End If

Do Until rst.EOF

If Storno < 0 Then
Print #1, "S,0,______,_,__;"; rst!Naziv; ";"; Format(rst!Cijena, "##0.0000"); ";"; Format(rst!Kolicina, "##0.000"); ";1;1;2;0;"; Format(rst!Sifra, "0"); ";;"; Format(rst!Rabat, "##0.00")
Else
Print #1, "S,0,______,_,__;"; rst!Naziv; ";"; Format(rst!Cijena, "##0.0000"); ";"; Format(rst!Kolicina, "##0.000"); ";1;1;2;0;"; Format(rst!Sifra, "0"); ";;"; Format(rst!Rabat, "##0.00")
End If

rst.MoveNext


Loop

If Storno < 0 Then

Print #1, "T,0,______,_,__;"
Else
Print #1, "T,0,______,_,__;0"
End If
Close #1

rst.Close


Set rst = Nothing

Exit_FiskalniRacunMaloprodaja_Click:
Exit Sub

Err_FiskalniRacunMaloprodaja_Click:
MsgBox err.Description
Resume Exit_FiskalniRacunMaloprodaja_Click

End Sub
↑  ↓

#4 16.05.2018 22:51
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


Predmet:Re: Access program i touch screen monitor
Ispravka. Dio koji trebam dodati je:

Print #1, "Q,0,______,_,__;"; rst!KorisnickoIme; " "
↑  ↓

#5 16.05.2018 23:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access program i touch screen monitor
Naj bolje bi bilo kada bi nalkacio tabele da mozemo vidjeti odakle sta citas.
Moze se ovo i prostije napraviti.
Pretpostavljam da imas dvije tabelei to tabelu racuna i tabelu stavki.
Ti ovdje citas iz tabele stavki gdje vjerovatno nema korisnika jer to pretpostavljam da je u tabeli racuna kao i broj racuna i datum.
imas i ovo if storno koje vjerovatno radi sta treba ali se moze elegantnije napraviti.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 17.05.2018 09:53
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


Predmet:Re: Access program i touch screen monitor
Za provjeru je potrebno kreirati folder C:\Temp

Prilozi:
Informacije o tipu datoteke za:rar  db11.rar
Preuzimanja:280
Velicina datoteke:17.52 KB

↑  ↓

#7 17.05.2018 10:52
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


Predmet:Re: Access program i touch screen monitor
Samo da pojasnim. Procedura uredno radi bez imena konobara.

Jasno mi je i za ime konobara na koji način povlačim podatak ali ne mogu da ga smjestim iza red S.

Kada dio Print #1, "Q,0,______,_,__;"; rst!KorisnickoIme; " " ubacim u dio Do Until rst.EOF onda mi se pojavljuje onoliko puta koliko ima artikala (a treba mi da se pojavi samo jedanput).

Kada ga ubacim u dio Loop onda ne dozvoljava da povlačim podatke iz tabele.
↑  ↓

#8 17.05.2018 17:54
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Access program i touch screen monitor
Ne treba da ga ubacis u loopu nego pred izvrsavajna na loopa ili posle izvrsavajna na loopa.
Nisam gledao procedura samo kazem u cemu moze biti problem
↑  ↓

#9 17.05.2018 18:39
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


Predmet:Re: Access program i touch screen monitor
Uspio sam ovako riješiti:

Public Sub FiskalniRacunMaloprodaja(ByVal Storno As Integer)
On Error GoTo Err_FiskalniRacunMaloprodaja_Click

Dim rst As ADODB.Recordset
Dim I, j As Integer
Dim a As String
a = "Konobar:" & DLookup("KorisnickoIme", "RacuniFisk")

Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient
rst.Open "Select * From RacuniFisk order by korisnikid", CurrentProject.Connection, adOpenKeyset, adLockOptimistic


rst.MoveFirst
If Storno < 0 Then
Open "C:\temp\" & Replace(rst!KorisnikID, "/", "$") & ".inp" For Output As #1
Else
Open "C:\temp\" & Replace("r" & rst!KorisnikID, "/", "$") & ".inp" For Output As #1
End If


Do Until rst.EOF

If Storno < 0 Then
Print #1, "S,0,______,_,__;"; rst!Naziv; ";"; Format(rst!Cijena, "##0.0000"); ";"; Format(rst!Kolicina, "##0.000"); ";1;1;2;0;"; Format(rst!Sifra, "0"); ";;"; Format(rst!Rabat, "##0.00")
Else
Print #1, "S,0,______,_,__;"; rst!Naziv; ";"; Format(rst!Cijena, "##0.0000"); ";"; Format(rst!Kolicina, "##0.000"); ";1;1;2;0;"; Format(rst!Sifra, "0"); ";;"; Format(rst!Rabat, "##0.00")
End If


rst.MoveNext

Loop

If Storno < 0 Then
Print #1, "Q,0,______,_,__;"; a; " "
Print #1, "T,0,______,_,__;"
Else
Print #1, "Q,0,______,_,__;"; a; " "
Print #1, "T,0,______,_,__;0"
End If
Close #1

rst.Close


Set rst = Nothing

Exit_FiskalniRacunMaloprodaja_Click:
Exit Sub

Err_FiskalniRacunMaloprodaja_Click:
MsgBox err.Description
Resume Exit_FiskalniRacunMaloprodaja_Click

End Sub
↑  ↓

#10 18.05.2018 11:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access program i touch screen monitor
Kada sam ovo posgledao moram postaviti par pitanja.

Prvo me interesuje koliko imas razlicitih racuna.
Kako sam vidio u proceduramma zo je
kalsican racun
storniran racun
racun za inostranstvo i
storniran racun za inostranstvo

Mada ja nisam vidio neku razliku u racunu za insotranstvo, pa bi bilo dobro da napises sta se razlikuju ova cetriri racuna.

Druga stvar ja bih ti preporucio da potpuno promijenis strukturu tabela(ukuliko racuna moze imati vise stavki) jer na ovaj nacin neces to izgurati do kraja.
Ukoliko racun ima jednu stavku onda moze ostati ovako.

Ima jos jedna stvar.korisniku dok neki korisnik moze imati vise racuna a ti vjerovatno zelis stampati samo jedan.
Znaci treba imati izbor po racunu.

Kada opises sve ovo onda i kada se odlucis kako praviti onda cemo to sve odraditi.
Racun je najmanji problem.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 52 pm.