VISOR LCD

[Verhoven]

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.

[Willi Quintana]

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

[Loren]

Compañeros, buenos días:

Tengo un cliente con un visor LCD para TPV que se conecta al puerto USB.
Los visores que se conectaban al puerto RS232 los controlaba mediante la clase TDOSPRN, así:

Code: Select all  Expand view

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

... donde en el archivo visor.mem tenía los códigos de escape de control y donde el usuario podía cambiarlo en caso necesario.
Ahora que se conectan al puerto USB, ¿Cómo le envio la información?

Mil gracias
Lorenzo, desde Cádiz, España