72 lines
1.8 KiB
Plaintext
72 lines
1.8 KiB
Plaintext
GLOBALS
|
|
DEFINE idx smallint
|
|
|
|
END GLOBALS
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL STARTLOG("cumpleano.txt")
|
|
|
|
CONNECT to "smarmotech" USER "conecta_mtech" USING "conecta"
|
|
|
|
CALL cumpleanos()
|
|
END MAIN
|
|
|
|
FUNCTION cumpleanos()
|
|
DEFINE rcumple RECORD
|
|
nombre VARCHAR(100),
|
|
departamento VARCHAR(100)
|
|
END RECORD,
|
|
archivo VARCHAR(20),
|
|
HANDLER om.SaxDocumentHandler
|
|
|
|
|
|
DECLARE busca_cumple CURSOR FOR
|
|
|
|
SELECT RTRIM(a.nom1_emp)||' '||a.apell1_emp,b.nom_dpto FROM adtb00003 a,adtb00001 b
|
|
WHERE a.departamento = b.departamento AND
|
|
DAY(a.fech_nac) = DAY(TODAY) AND
|
|
MONTH(a.fech_nac) = MONTH(TODAY) AND a.status_t IS NULL
|
|
|
|
# "file:///f:/master/IMAGENES/logo_cumple.png"
|
|
LET idx=1
|
|
LET archivo = 'cumpleanos.4rp'
|
|
FOREACH busca_cumple INTO rcumple.*
|
|
IF idx = 1 THEN
|
|
IF fgl_report_loadCurrentSettings(archivo) THEN -- load the .4rp file
|
|
|
|
CALL fgl_report_selectDevice("PDF")
|
|
CALL fgl_report_selectPreview(false)
|
|
|
|
CALL fgl_report_setOutputFileName("cumpleanos.pdf")
|
|
|
|
LET handler = fgl_report_commitCurrentSettings() -- commit changes
|
|
START REPORT r_cumple TO XML HANDLER HANDLER
|
|
|
|
ELSE
|
|
EXIT PROGRAM
|
|
END IF
|
|
END IF
|
|
OUTPUT TO REPORT r_cumple(rcumple.*)
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
IF idx > 1 THEN
|
|
FINISH REPORT r_cumple
|
|
END IF
|
|
END FUNCTION
|
|
REPORT r_cumple(x)
|
|
DEFINE X RECORD
|
|
nombre VARCHAR(100),
|
|
departamento VARCHAR(100)
|
|
END RECORD,
|
|
fecha VARCHAR(10),
|
|
chlable VARCHAR(100)
|
|
|
|
FORMAT
|
|
|
|
ON EVERY ROW
|
|
|
|
LET fecha = TODAY USING "dd/mm/yyyy"
|
|
LET chlable='CUMPLEAÑOS DEL DIA ',fecha
|
|
|
|
PRINTX x.*,idx,chlable
|
|
END REPORT |