Inicio > Visual Fox Pro > Leer la consola de salida del administrador del fax y cargarlo en una lista

Leer la consola de salida del administrador del fax y cargarlo en una lista


En este ejemplo se muestra como leer la consola de salida del  fax y cargarlo en una cursor

m.nError = 0
On Error m.nError = Error()

Create Cursor FaxSaliente (idfax Int,Para C(80),Fax C(20),Paginas Int,SENDERNAME C(80))

*** Creamos FaxServer
oFaxServer = CREATEOBJECT(‘FaxServer.FaxServer’)
oFaxServer.Connect(”)

*** Tomamos Jobs
oFaxJobs = oFaxServer.GetJobs()
For I = 1 To oFaxJobs.Count()
Insert Into FaxSaliente(idfax , Para , Fax , Paginas , SENDERNAME);
Values(Val(Substr(oFaxJobs.Item(I).DisplayName,1,12)) ,;
oFaxJobs.Item(I).RecipientName,;
oFaxJobs.Item(I).FaxNumber,;
oFaxJobs.Item(I).Pagecount,;
oFaxJobs.Item(I).SenderName)
Next

oFaxServer = .NULL.
oFaxJobs = .NULL.
Release oFaxServer
Release oFaxJobs

On Error
If m.nError <> 0 Then
=Messagebox(“No puede leer la Consola Saliente del Fax”, 64, “Error …”)
Endif

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: