| Pregunta: | 5323 - USO DEL POLE DISPLAY |
| Autor: | Herbert Munguia |
| Estoy trabajando en un POS(punto de venta) y tengo un pole display, en el que despliego la informacion, mi problema es que no puedo llevar el cursor al inicio del pole display al momento de volver a escribir Auxilio! :) todo desarrollado en Visual Foxpro6.0 | |
| Respuesta: | José G. Samper |
| Yo he configurado para mis aplicaciones varios display, en la forma de facturas tengo un ole con el cual controlo el puerto y cree un metodo en el cual tengo todos los comandos de configuración de los display, lee el manual del dispaly y verifica cuales son los comandos de limpieza, y como puedes hacer para imprimir en cada una de las lines del display
ej: PARAMETERS pCadena,linea LOCAL ldisplay,laError[AERRORARRAY] IF EMPTY(linea) linea=1 ENDIF IF !THISFORM.siDisplay RETURN ENDIF ** envia informacion al display IF RTRIM(UPPER(vpar_emp.temp_char7))=='PD-2100S' pCadena=pCadena+SPACE(20) pCadena=LEFT(pCadena,20) &&& jgs: configuración para un tipo de display ELSE &&& configuracion para el otro tipo de display IF linea=1 pCadena=CHR(27)+CHR(81)+CHR(65)+pCadena+SPACE(20) pCadena=LEFT(pCadena,22)+CHR(13) ELSE pCadena=CHR(27)+CHR(81)+CHR(66)+pCadena+SPACE(20) pCadena=LEFT(pCadena,22)+CHR(13) ENDIF ENDIF ldisplay=THISFORM.ldisplay ldisplay.PortOpen = .T. ldisplay.OutBufferCount = 0 ldisplay.OUTPUT = pCadena ldisplay.OutBufferCount = 0 ldisplay.PortOpen = .F. | |