Centar za edukaciju-BiH



#11 19.05.2018 10:39
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


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
↑  ↓

#12 19.05.2018 10:44
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


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
↑  ↓

#13 19.05.2018 10:55
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


Predmet:Re: Access program i touch screen monitor
Pokazuje da je pogrešna putanja.

Prilozi:
Informacije o tipu datoteke za:rar  Desktop.rar
Preuzimanja:283
Velicina datoteke:20.08 KB

↑  ↓

#14 19.05.2018 11:01
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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.
↑  ↓

#15 24.05.2018 17:46
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


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!
↑  ↓

#16 25.05.2018 01:41
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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
↑  ↓

#17 27.09.2018 20:22
Registrovan od:27.09.2018
Postovi:1


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
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 8: 15 am.