Branestan 18.04.2018 10:32
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?

zxz 18.04.2018 10:47
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.

Branestan 19.05.2018 11:39
Predmet:Re: Access program i touch screen monitor

To što ima više procedura za fiskalni račun je moja nemarnost (ljenost) da uzmem i napravim jednu u kojoj bi bilo sadržano sve što treba.

Račun za veleprodaju i inostranstvo sam koristio u aplikaciji koju sam prije par godina pravio za veleprodajnu firmu. Računi za inostranstvo se razlikuju samo u tome što je druga poreska stopa, tj. na njima nema PDV-a.

Ova procedura koju sam na kraju poslao odrađuje ono što mi treba.

Ako račun ima više stavki, procedura kreira fajl u kome će biti onoliko redova S koliko ima artikala na računu, imaće jedan red Q u kome piše ime konobara i imaće jedan red T koji služi za zatvaranje fiskalnog računa.

Nisam još testirao na fiskalnom printeru ali mi se čini da je sve kako treba.

Sad pokušavam da "pokupim" broj fiskalnog računa ali mi nešto ne ide.

Fiskalna kasa tj. printer uzima podatke iz foldera C:\Temp u koji pomoću prethodno opisane procedure ubacujem fajl koji mogu nazvati kako hoću.

Čim se pojavi novi fajl u folderu C:\Temp printer ga preuzima i štampa.

Nakon štampe u folderu C:\Temp\Printed pojavi se novi fajl koji dobije ime po datumu + neki broj.

U tom fajlu se nalazi i broj fiskalnog računa:

S,1,040670,2,Ok;jj;1.0000;1.000;1;1;2;0;30;;0.00
T,1,040670,3,Ok;
J,1,040670,3,Ok;LastReceiptNumber;68

Branestan 19.05.2018 11:44
Predmet:Re: Access program i touch screen monitor

Ovo je procedura kojom uzimam broj fiskalnog:

Function Broj_Racuna(Putanja_Filea As String)
Dim temp As String
Dim Poz As Integer

Close #1
Open Putanja_Filea For Input As #1
While Not EOF(1)
Input #1, temp
Wend

Poz = InStr(1, temp, "LastReceiptNumber;")
If Poz > 0 Then
Broj_Racuna = Mid(temp, Poz + 18)
GoTo Kraj:
End If
Kraj:
Close #1
End Function

Branestan 19.05.2018 11:55
Predmet:Re: Access program i touch screen monitor

Pokazuje da je pogrešna putanja.
Prilozi:
Desktop.rar (Velicina datoteke:20.08 KB)

Gjoreski 19.05.2018 12:01
Predmet:Re: Access program i touch screen monitor

Da bi ti ova radilo moras ynati tocen nayiv tog fajla.
Ako nije tocan nayiv iybaci ce ti greska ya putanja.

Gjoreski 17.05.2018 18:54
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

zxz 18.05.2018 12:05
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.

Branestan 17.05.2018 19:39
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

Branestan 16.05.2018 23:48
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