Clarion - Alertas de vencimientos

   
Vista:

Alertas de vencimientos

Publicado por fedex (4 intervenciones) el 24/07/2009 01:05:12
Hola a todos ,tengo un problema,necesito que el sistemita que estoy haciendo me avise de alguna forma(alertas,avisosetc)distintos vencimientos cuando estos se cumplan de distintos usuarios,en este caso son Inquilinos y los vencimientos de alquiler mensual !les agradezco mucho por la ayuda
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
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

RE:Alertas de vencimientos

Publicado por Marcelo Madelon (572 intervenciones) el 24/07/2009 13:41:45
No se como lo tenes organizado.
Usaría un archivo con el día del vencimiento.

Archivo: Clientes
CLI:CodCliente ................................KeyCLI:CodCliente (clave)
CLI:ApellidoNombre
CLI:DiaVencimiento
CLI:ImporteAlquiler

Usaría una QUEUE: QCliente
QC:CodCliente
QC:ApellidoNombre
QC:DiaVencimiento
QC:VenceDias
QC:ImporteAlquiler

Lo que haria es cargar la queue y la imprimo
#I = 0
Free (QCliente) ! Descargo la Queue
Clear(CLI:Record)
SET(KeyCLI:CodCliente,KeyCLI:CodCliente)
LOOP UNTIL Access:Clientes.Next() ! Leo desde el 1 al ultimo
If CLI:DiaVencimiento > DAY(TODAY()) ! Veo si esta vencido
Cycle ! va al Loop
End

QC:CodCliente = CLI:CodCliente
QC:ApellidoNombre = CLI:ApellidoNombre
QC:DiaVencimiento = CLI:DiaVencimiento
QC:VenceDias = DAY(TODAY()) - CLI:DiaVencimiento ! Averiguo los dias de vencido
QC:ImporteAlquiler = CLI:ImporteAlquiler
ADD(QCliente,I#) ! Cargo la Queue
IF ERRORCODE() THEN STOP(ERROR()).
End ! Loop

SORT (QCliente,QC:VenceDias) ! la ordeno por cantidad de dias

! Imprimir desde una Queue
Loop I#= 1 to Records(QCliente)
Get(QCliente,I#)
Print(RPT:Detail)
End
EndPage(Report)

Espero te sirva. Saludos desde Venado Tuerto - Argentina

madelon@uol.com.ar
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