ALGUIEN TIENE ALGUNA RUTINA PARA MANEJAR UN VISOR LCD DE LOS DE LOS TERMINALES PUNTO DE VENTA.
SOLO SOY CAPAZ DE QUE FUNCIONE SI PREVIAMENTE LO CONFIGURO CON EL PROGRAMA QUE TRAE Y ESTO NO ES OPERATIVO. NECESITO PODER CONFIGURARLO DESDE MI PROPIO PROGRAMA.
GRACIAS.
Esto trabajaba al 100 con win98, ahora con XP ni idea...
.....
VisorLCD("COCA COLA 500 ML","S/. 1.50")
.....
....
Function VisorLCD(vLinea1,vLinea2,vModo)
local cDcb, nBytes, vCade := Space(20)
local nComm,nError, oComx,lVisorLcd,oPrn,vComx := "COM1"
DEFAULT vLinea1 := "BIENVENIDOS A"
DEFAULT vLinea2 := "MUNDO MARKET"
DEFAULT vModo := 0
If Select("Almac") > 0
vComx := "COM1"
EndIf
vLinea1 := SubStr(vLinea1,1,20)
vLinea2 := SubStr(vLinea2,1,20)
If ( nCOMM := OpenComm(vComx,1024,128 )) <> 0
Return .f.
EndIf //MsgAlert(vLinea1+CRLF+vLinea2,vComx)
BuildCommDCB(vComx+":9600,n,8,1", @cDCB)
SetCommState( @cDCB )
FlushComm(nCOMM,1)
FlushComm(nCOMM,0)
WriteComm(nComm,Chr(12)) // inicializar
Do Case
Case vModo = 0
WriteComm(nComm,Chr(27)+Chr(17))
Case vModo = 1
WriteComm(nComm,Chr(27)+Chr(18))
Case vModo = 2
WriteComm(nComm,Chr(27)+Chr(19))
EndCase
WriteComm(nComm,Chr(27)+Chr(81)+Chr(65)+vLinea1+Chr(13))
WriteComm(nComm,Chr(27)+Chr(81)+Chr(66)+vLinea2+Chr(13))
CloseComm(nCOMM )
Return .t.
Salu2
funct visorart 聽&& funci贸n que muestra los datos del art铆culo vendido por el visor LCD
聽restore from visor additive
聽if visorsn=.t.
聽 oPrn:=TDosPrn():New(visorpu)
聽 oPrn:say(0,0,&visorap)
聽 oPrn:say(0,0,&visorc1)
聽 oPrn:say(0,0,alltrim(SUBSTR(ades,1,6))+','+alltrim(str(auni,5))+'x'+alltrim(str(apre,8,2)))
聽 oPrn:say(0,0,&visorc2)
聽 oPrn:say(0,0,' 聽 聽TOTAL: '+alltrim(str(ntotal,8,2)))
聽 oPrn:end()
聽endif
return