• Jueves 14 de Noviembre de 2024, 23:07

Autor Tema:  Telegestion  (Leído 1219 veces)

silrafaela

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Telegestion
« en: Miércoles 16 de Enero de 2008, 13:27 »
0
Hola, buen dia.
Tengo un problema, y agradecería cualquier ayuda y/o opinion.
Estoy realizando un sistema, el mismo debe realizar un llamado telefonico, el cual se debe guardar y luego calcular por ej. la duracion de la llamada.
Bien, he logrado a traves del siguiente codigo marcar a un nro telefonico.
******
IF THISFORM.olecontrol1.portopen  
   THISFORM.olecontrol1.portopen = .F.
ENDIF
THISFORM.olecontrol1.commport = 1  
THISFORM.olecontrol1.portopen = .T.  

xnumero = ALLTR(THISFORM.txtnumero.VALUE)
WAIT WIND "Marcando ..." NOWAIT
THISFORM.olecontrol1.OUTPUT = "ATDT"+xnumero+CHR(13)
***********
Ahora el siguiente paso sería detectar por ejemplo, si el numero telefonico al que se esta llamando da ocupado... Como puedo detectar este evento???

Estoy intentado con esta funcion.. pero no se como detectar ese "error"

IF thisform.olecontrol1.commEvent() = 1001
   WAIT WINDOWS 'ERROR'
ENDIF

Agradecería toda ayuda.. y desde ya toda la atencion prestada.

Un saludo