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