Prikazi cijelu temu 16.05.2018 22:48
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Lokacija:Doboj


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