Inicio > Visual Fox Pro > Leer consola de fax (Bandeja de entrada)

Leer consola de fax (Bandeja de entrada)


En este ejemplo se muestra como leer consola de fax de Windows (Bandeja de entrada)

.

LOCAL m.cComando

*** m.cpRutaInBox Ruta de la consola de la bandeja de fax
m.nFaxes = Adir(AFaxes, m.cpRutaInBox + “*.tif”)

For x = 1 To m.nFaxes

m.cArchivo = Alltrim(Afaxes[x,1])
cServer = m.cpRutaInBox + m.cArchivo

oFaxTiff = Createobject(‘FaxTiff.FaxTiff’)
oFaxTiff.Image = cServer

*** Guardar en una tabla los datos principales
Select FAX
Append Blank
Replace FAX.PARA With ALLTRIM(oFaxTiff.Tsid)
Replace FAX.FECHACREACION With CTOD(SUBSTR(oFaxTiff.ReceiveTime,1,10))

IF SUBSTR(oFaxTiff.ReceiveTime, 14,1) = ‘?’
Replace FAX.HORACREACION With SUBSTR(oFaxTiff.ReceiveTime, 15, LEN(oFaxTiff.ReceiveTime))
Else
Replace FAX.HORACREACION With SUBSTR(oFaxTiff.ReceiveTime, 14, LEN(oFaxTiff.ReceiveTime))
Endif

Select FAX
m.cNuevoCodigo = ‘Fax’ + Padl(FAX.IDFAX,12,’0′) + ‘.Tif’

*** Copiar el Archivo a la Ruta del ServidorLocal
cLocal = m.cpRutaServer + m.cNuevoCodigo

COPY FILE (cServer) TO (cLocal)

oFaxTiff = .NULL.
Release oFaxTiff

*** Eliminar el Archivo de el Servidor de Fax
Delete File(cServer)

Next

Categorías:Visual Fox Pro
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: