FoxPro/Visual FoxPro - Problema con mscomm32

   
Vista:

Problema con mscomm32

Publicado por ALEXIS (26 intervenciones) el 17/09/2008 23:01:33
Amigos del foro en la actualidad tengo un formulario que captura informacion de una planta telefonica através de un control mscomm32. A la vez que se recibe información de la planta, en el formulario hay un cuadro de texto en el cual digito informacion sobre otras cosas, el detalle es el siguiente:

cuando empiezo a escribir en el cuadro de texto y entra algun dato por el mscomm32, el cursor del cuadro de texto se va al principio y no me deja escribir, si de pronto a alguien le ha pasado esto,agradecería cualquier sugerencia.

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con mscomm32

Publicado por Plinio (7771 intervenciones) el 19/09/2008 15:13:15
Habria que ver el codigo del evento que captura los datos en el activex.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con mscomm32

Publicado por alexis (26 intervenciones) el 19/09/2008 18:51:07
en el evento init del formulario, abro el puerto:
THISFORM.ole_planta.portopen=.T.

y en el evento destry lo cierro:
THISFORM.ole_planta.portopen=.f.

Local text_hyper,nlinea,cnombre,cdireccion,ctelefono,ctroncal,NOMBARRIO,nzona

SET EXACT ON
SET CENTURY off
SET DATE BRITISH

DO CASE
*Errors

Case This.CommEvent=1001
WAIT WINDOW "Recibida señal de interrupción"
Case This.CommEvent=1004
WAIT WINDOW "Error de trama"
Case This.CommEvent=1006
WAIT WINDOW "Pérdida de información en puerto"
Case This.CommEvent=1008
WAIT WINDOW "Desbordamiento del búfer de recepción"
Case This.CommEvent=1009
WAIT WINDOW "Error de paridad"
Case This.CommEvent=1010
WAIT WINDOW "Búfer de transmisión lleno"
Case This.CommEvent=1011
WAIT WINDOW "Error inesperado al recuperar Bloque de control de
dispositivos (DCB) para el puerto"

* Events
Case This.CommEvent=5
WAIT WINDOW "Cambio en la línea Detección de portadora (CD)"
Case This.CommEvent=3
WAIT WINDOW "Cambio en la línea Preparado para enviar (CTS)"
Case This.CommEvent=4
WAIT WINDOW "Cambio en la línea Equipo de datos preparado (DSR)"
Case This.CommEvent=6
WAIT WINDOW "Detección de llamada"
Case This.CommEvent=1
WAIT WINDOW " Evento Send "
Case This.CommEvent=7
WAIT WINDOW "Fin de archivo"
Case This.CommEvent=2

text_hyper = this.input
ctelefono = SUBSTR(text_hyper,37,7)
IF AT("RC",text_hyper) > 0
IF ISDIGIT(ctelefono)
ctroncal=SUBSTR(text_hyper,27,6)
ENDIF
ELSE
IF SUBSTR(text_hyper,79,2)="NA"
SELECT t_servicios
LOCATE FOR t_servicios.telefono=ctelefono AND;
movil_empre="I"
IF FOUND()
replace movil_empre WITH "Cancelado"
ENDIF
ENDIF
endif
OTHERWISE
WAIT WINDOW "revise configuracion de hyperterminal"
ENDCASE

Espero que con este codigo me pueda dar una sugerencia. Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar