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