mouradoualha
Programmer
Hi everybody
I want to display the invoice amount in a numeric display POS
please can you help me?
I want to display the invoice amount in a numeric display POS
please can you help me?
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
#DEFINE ESC CHR( 0x1B ) && Escape
#DEFINE US CHR( 0x1F ) && Unit Separator
#DEFINE BS CHR( 0x08 ) && Backspace
#DEFINE HT CHR( 0x09 ) && Horizontal Tab
#DEFINE LF CHR( 0x0A ) && Line Feed
#DEFINE HOM CHR( 0x0B ) && Home
#DEFINE CLR CHR( 0x0C ) && Clear Display Screen
#DEFINE CR CHR( 0x0D ) && Carriage Return
#DEFINE CAN CHR( 0x18 ) && Clear Cursor Line
outputStr = US + "C" + CHR( 0 ); && Cursor Off
+ ESC + "R" + CHR( 0 ); && Character Set 0 = USA
+ ESC + "t" + CHR( 0 ); && Character Code Table 0 = USA
+ US + CHR( 3 ); && Horizontal Scroll
+ US + "X" + CHR( 4 ); && Brightness 1 - 4
+ HOM; && Home
+ line1Str; && String first line
+ CR + LF; && Carriage Return + Line Feed
+ line2Str && String second line
SET PRINTER TO "Epson DM-D110" && use the name of Your POS Display driver
SET PRINTER OFF
??? outputStr && direct output without GDI
SET PRINTER OFF
SET PRINTER TO DEFAULT
#DEFINE ESC CHR( 0x1B ) && Escape
outputStr = ESC + "p" + CHR( 0x00 ) + CHR( 0x64 ) + CHR( 0x64 ) && ESC p m t1 t2
SET PRINTER TO "Epson TM-T88V" && Use the name of Your POS printer
SET PRINTER OFF
??? outputStr && direct output without GDI
SET PRINTER OFF
SET PRINTER TO DEFAULT
My boss wants me to show the amount of the ticket on a small display of an item,
WITH THIS.OleControl1 && adjust [b]OleControl1[/b] if necessary !!!
.CommPort = 1 && COM port = 1 (possible values are 1 to 16)
.Settings = "9600,n,8,1"
.PortOpen = .T.
.InBufferCount = 0
.OutBufferCount = 0
.InputLen = 0
ENDWITH
WITH THIS.OleControl1 && adjust [b]OleControl1[/b] if necessary !!!
IF .PortOpen
.PortOpen = .F.
ENDIF
ENDWITH
#DEFINE ESC CHR( 0x1B ) && Escape
#DEFINE US CHR( 0x1F ) && Unit Separator
#DEFINE BS CHR( 0x08 ) && Backspace
#DEFINE HT CHR( 0x09 ) && Horizontal Tab
#DEFINE LF CHR( 0x0A ) && Line Feed
#DEFINE HOM CHR( 0x0B ) && Home
#DEFINE CLR CHR( 0x0C ) && Clear Display Screen
#DEFINE CR CHR( 0x0D ) && Carriage Return
#DEFINE CAN CHR( 0x18 ) && Clear Cursor Line
outputStr = US + "C" + CHR( 0 ); && Cursor Off
+ ESC + "R" + CHR( 0 ); && Character Set 0 = USA
+ ESC + "t" + CHR( 0 ); && Character Code Table 0 = USA
+ US + CHR( 3 ); && Horizontal Scroll
+ US + "X" + CHR( 4 ); && Brightness 1 - 4
+ HOM; && Home
+ line1Str; && String first line
+ CR + LF; && Carriage Return + Line Feed
+ line2Str && String second line
WITH THISFORM.OleControl1 && adjust [b]OleControl1[/b] if necessary !!!
IF .PortOpen
.InBufferCount = 0
.OutBufferCount = 0
.Output = outputStr
ENDIF
ENDWITH