Centar za edukaciju-BiH

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

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

Predmet:Re: Access program i touch screen monitor

---

Pokazuje da je pogrešna putanja.

Prilozi:

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.

Predmet:Re: Access program i touch screen monitor

---

Pretražio sam dobar dio foruma ali nisam uspio naći nešto što bi mi pomoglo u vezi povezivanja access programa i POS printera (nefiskalnog).

Program koristi fiskalnu kasu ali mi sada treba da dodam i termalni printer Epson TM-T88II koji će služiti da se na njemu štampa potvrda narudžbe za kuhinju.

Da li negdje ima ova tema, gdje mogu vidjeti način povezivanja i zadavanje komandi za štampu (da li se koristi kao obični printer ili preko komandi kao kod fiskalnog printera)?

Pozdrav!

Predmet:Re: Access program i touch screen monitor

---

Ja milim da se ovaj stampac poveze na LPT portom ili se varam.

Proveri kakav prikljucak koristi pa cemo naci nacin kako da povezes

Predmet:Re: Access program i touch screen monitor

---

Printer instaliraj na njegov port, LPT/COM/USB zavisno od toga koji posjeduje a instalija ga kao Generic / Text Only printer i ostalo saljes kao na svaki printer

For Each aaa In Printers
If aaa.DeviceName = "Generic / Text Only" Then
Set Printer = aaa
End If
Next

Printer.ScaleTop = 0
Printer.ScaleLeft = 0
'Printer.Font.Charset = 238 'Courier
Printer.Font.Size = 8
Printer.Print PRINTANJE_RACUNA 'OVO ISKLJUCIO
Printer.EndDoc 'Kraj printanja
End If