SCHEMA smarmotech
GLOBALS
    
DEFINE datos_cheque RECORD
       num_emp       LIKE adtb00003.num_emp,
       departamento  LIKE adtb00003.departamento,
       nivel_emp     LIKE adtb00003.nivel_emp,
       cod_puesto    LIKE adtb00003.cod_puesto,
       nom1_emp      CHAR(35),
       apell1_emp    LIKE adtb00003.nom1_emp,
       nom2_emp      LIKE adtb00003.nom1_emp,
       apell2_emp    LIKE adtb00003.nom1_emp,
       cod_mov       LIKE notb00008.cod_mov,
       descrip_mov   LIKE notb00002.segundo_enc,
       tipo_d        CHAR(1),
       cantidad      LIKE notb00008.cantidad,
       valor         LIKE notb00008.valor,
       cuenta_no     CHAR(20),
       tipocuenta    VARCHAR(1),
       codbancodestino VARCHAR(8),
       digiverbancodestino VARCHAR(1),
       cedula              VARCHAR(11),
       nombre        CHAR(80),
       numero        INTEGER,
       fecha         DATE,
       acumulado     DECIMAL(12,2),
       neto          DECIMAL(12,2)
END RECORD

  DEFINE puesto   RECORD LIKE adtb00004.*
  DEFINE direccion_suc,telefono_suc,tmpfile VARCHAR(100),
         datos RECORD LIKE vetb00015.*,
         p_companias RECORD LIKE companias.*
         
DEFINE handler om.SaxDocumentHandler,   -- return value from fgl_report_commitCurrentSettings()
         r_filename STRING,              -- filename of Report Design Document including .4rp extension
          r_output   STRING,             -- output format option
          preview    INTEGER             -- TRUE/FALSE, to set preview option                   
  
END GLOBALS
FUNCTION cardnet(xcodtransp,xsectransp)
      DEFINE tmpfile STRING,
             foto    BYTE,
             xcodtransp,xsectransp INT
         LET direccion_suc = NULL
         LET telefono_suc = NULL    
         

         SELECT a.* INTO datos.* FROM vetb00015 a WHERE a.cod_transp = xcodtransp AND a.sec_transp = xsectransp
         
        
         LET r_filename = 'noprrp044.4rp'
         LET tmpfile = '.\\TMP\\tmpfoto.jpg'
         
                             
                IF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
                     LET preview=1
                     LET r_output = 'PDF'
                     CALL fgl_report_selectDevice(r_output)                          -- changing default
                     CALL fgl_report_selectPreview(preview)                          -- changing default
                     CALL fgl_report_setPrinterSides("two-sided-short-edge")
                     LET handler = fgl_report_commitCurrentSettings()    -- commit changes
               END IF
   
              IF handler IS NOT NULL THEN           -- report engine was configured ok
                 START REPORT reporte TO XML HANDLER handler
              END IF
            IF datos.url_foto IS  NULL THEN
               
              LET tmpfile = "file:///",FGL_GETENV("IMAGENES"),'\\tmpfoto.png'
              DISPLAY "TMPFILE: ",CURRENT," FILE: ",tmpfile
            ELSE
              LET tmpfile = datos.url_foto  
            END IF
            
            # BUSCA TIPO REGISTRO
            LET puesto.nom_puesto = ' '
            SELECT a.titulo INTO puesto.nom_puesto FROM tipopersonal a WHERE a.idtipo = datos.cod_transp
            
            LET datos_cheque.nom1_emp = datos.nombre
            LET datos_cheque.apell1_emp= ''
            LET datos_cheque.num_emp = datos.sec_transp
            LET datos_cheque.cedula  = datos.cedula

            DISPLAY "CEDULA: ",datos_cheque.cedula
            
            OUTPUT TO REPORT reporte(tmpfile)
     
            FINISH REPORT reporte
        
    

END FUNCTION

REPORT reporte(xtmpfile)
  DEFINE xtmpfile STRING
  FORMAT
    ON EVERY ROW
    #DISPLAY "ubicacion ",ubicacionhtml
       IF direccion_suc IS NOT  NULL THEN
          LET  p_companias.direccion = direccion_suc
          LET p_companias.telefono = telefono_suc
       ELSE
         SELECT c.direccion,c.telefono INTO p_companias.direccion,p_companias.telefono
         FROM sucursales c WHERE c.sucid = 1   
       END IF
       PRINTX datos_cheque.nom1_emp,datos_cheque.apell1_emp,datos_cheque.num_emp,
              p_companias.direccion,p_Companias.telefono,datos_cheque.cedula,
              puesto.nom_puesto,xtmpfile
END REPORT