232 lines
8.4 KiB
Plaintext
232 lines
8.4 KiB
Plaintext
{
|
|
------------------------------------------------------------------
|
|
PROGRAMA : NOPRRP039
|
|
OBJETIVO : REPORTE EMPLEADOS
|
|
PROGRAMADOR : Ing. JUAN SOTO
|
|
FECHA REALIZACION : Abril, 20 2010
|
|
------------------------------------------------------------------
|
|
}
|
|
IMPORT os
|
|
GLOBALS "noprgb000.4gl"
|
|
|
|
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
|
|
DEFINE chempleados,salario,fotos STRING,
|
|
pano1,pano2 SMALLINT,
|
|
vacaciones CHAR(2),
|
|
anovacacion SMALLINT,
|
|
foto_empleado BYTE
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
|
|
CONNECT to "smarmotech" USER usuarios USING clave
|
|
SELECT a.* INTO p_companias.* FROM companias a
|
|
CALL noprrp039()
|
|
END MAIN
|
|
FUNCTION noprrp039()
|
|
DEFINE tipoEmpleados SMALLINT
|
|
|
|
OPEN WINDOW w1 WITH FORM "nofmrp039"
|
|
CONSTRUCT BY NAME criterio ON a.num_emp,a.cod_puesto,a.departamento,a.nomina,a.nom1_emp,a.apell1_emp,
|
|
a.fech_efec,a.fecha_salida,a.fech_nac
|
|
BEFORE CONSTRUCT
|
|
LET kpuesto = ui.ComboBox.forName("formonly.cod_puesto")
|
|
CALL puestos()
|
|
CALL departamentos()
|
|
AFTER CONSTRUCT
|
|
IF int_flag THEN
|
|
CALL msg(2)
|
|
LET int_flag = FALSE
|
|
EXIT PROGRAM
|
|
END IF
|
|
END CONSTRUCT
|
|
LET chempleados = NULL
|
|
INPUT BY NAME tipoEmpleados,salario,fotos, anovacacion,pano1,pano2
|
|
IF tipoEmpleados = 9 THEN
|
|
LET chEmpleados = "TODOS LOS EMPLEADOS"
|
|
IF fotos = "SI" THEN
|
|
LET selec =
|
|
"SELECT a.num_emp,a.departamento,a.cod_puesto,",
|
|
" a.nom1_emp,a.apell1_emp,a.apell2_emp,a.calle,a.casa_num,CONVERT(CHAR(10),a.fech_efec,103), ",
|
|
" a.cedula,a.sueldo_ac,a.fech_nac,a.foto_empleado ",
|
|
" FROM adtb00003 a WHERE ",criterio CLIPPED, " AND and a.fech_efec IS NOT NULL
|
|
AND a.foto_empleado IS NOT NULL
|
|
ORDER BY a.departamento,a.num_emp "
|
|
ELSE
|
|
LET selec =
|
|
"SELECT a.num_emp,a.departamento,a.cod_puesto,",
|
|
" a.nom1_emp,a.apell1_emp,a.apell2_emp,a.calle,a.casa_num,CONVERT(CHAR(10),a.fech_efec,103), ",
|
|
" a.cedula,a.sueldo_ac,a.fech_nac,a.foto_empleado ",
|
|
" FROM adtb00003 a WHERE ",criterio CLIPPED, " AND and a.fech_efec IS NOT NULL
|
|
AND a.foto_empleado IS NULL
|
|
ORDER BY a.departamento,a.num_emp "
|
|
END IF
|
|
IF fotos = "TODOS" THEN
|
|
LET selec =
|
|
"SELECT a.num_emp,a.departamento,a.cod_puesto,",
|
|
" a.nom1_emp,a.apell1_emp,a.apell2_emp,a.calle,a.casa_num,CONVERT(CHAR(10),a.fech_efec,103), ",
|
|
" a.cedula,a.sueldo_ac,a.fech_nac,a.foto_empleado ",
|
|
" FROM adtb00003 a WHERE ",criterio CLIPPED, " AND and a.fech_efec IS NOT NULL
|
|
AND a.foto_empleado IS NOT NULL
|
|
ORDER BY a.departamento,a.num_emp "
|
|
END IF
|
|
END IF
|
|
IF tipoEmpleados = 0 THEN
|
|
LET chEmpleados = "EMPLEADOS ACTIVOS"
|
|
LET selec =
|
|
"SELECT a.num_emp,a.departamento,a.cod_puesto,",
|
|
" a.nom1_emp,a.apell1_emp,a.apell2_emp,a.calle,a.casa_num,CONVERT(CHAR(10),a.fech_efec,103), ",
|
|
" a.cedula,a.sueldo_ac,a.fech_nac,a.foto_empleado ",
|
|
" FROM adtb00003 a WHERE ",criterio CLIPPED,
|
|
" AND (a.status_t is null or a.status_t = 'I') and a.fech_efec IS NOT NULL ",
|
|
" ORDER BY a.departamento,a.num_emp "
|
|
END IF
|
|
|
|
IF tipoEmpleados = 1 THEN
|
|
LET chEmpleados = "EMPLEADOS DESACTIVOS"
|
|
LET selec =
|
|
"SELECT a.num_emp,a.departamento,a.cod_puesto,",
|
|
" a.nom1_emp,a.apell1_emp,a.apell2_emp,a.calle,a.casa_num,CONVERT(CHAR(10),a.fech_efec,103),",
|
|
" a.cedula,a.sueldo_ac,a.fech_nac,a.foto_empleado ",
|
|
" FROM adtb00003 a WHERE ",criterio CLIPPED,
|
|
" AND a.status_t is not null and a.fech_efec IS NOT NULL",
|
|
" ORDER BY a.departamento,a.num_emp "
|
|
|
|
END IF
|
|
IF int_flag THEN
|
|
CALL msg(2)
|
|
LET int_flag = FALSE
|
|
EXIT PROGRAM
|
|
END IF
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE busca_emp CURSOR FOR comando
|
|
|
|
-- configure report engine; the functions prefixed fgl that are called here are part of the GRW API
|
|
LET r_filename = 'noprrp039.4rp'
|
|
LET idx =1
|
|
|
|
LOCATE foto_empleado IN MEMORY
|
|
FOREACH busca_emp INTO emplea.num_emp,emplea.departamento,emplea.cod_puesto,
|
|
emplea.nom1_emp,emplea.apell1_emp,emplea.apell2_emp,
|
|
emplea.calle,emplea.casa_num,emplea.fech_efec,
|
|
emplea.cedula,emplea.sueldo_ac,emplea.fech_nac,
|
|
foto_empleado
|
|
|
|
{ IF foto_empleado IS NOT NULL THEN
|
|
LET emplea.url_foto = ".\\IMAGENES\\EMPLEADOS\\",emplea.num_emp USING "&&&&&&",".jpg"
|
|
|
|
CALL foto_empleado.writeFile(emplea.url_foto)
|
|
# DISPLAY url_files TO fotos
|
|
ELSE
|
|
LET emplea.url_foto = ".\\IMAGENES\\EMPLEADOS\\NOIMAGEN.PNG"
|
|
END IF
|
|
}
|
|
IF foto_Empleado IS NOT NULL THEN
|
|
LET emplea.url_foto = ".\\IMAGENES\\EMPLEADOS\\",emplea.num_emp USING "&&&&&&",".jpg"
|
|
DISPLAY "TRATE DE GUARDAR: ",emplea.url_foto
|
|
CALL foto_empleado.writeFile(emplea.url_foto)
|
|
ELSE
|
|
LET emplea.url_foto = ".\\IMAGENES\\EMPLEADOS\\NOIMAGEN.PNG"
|
|
END IF
|
|
LET foto_empleado = NULL
|
|
IF os.Path.exists(emplea.url_foto) THEN
|
|
ELSE
|
|
LET emplea.url_foto = ".\\IMAGENES\\EMPLEADOS\\NOIMAGEN.PNG"
|
|
END IF
|
|
|
|
#CALL fgl_winmessage("imagen",emplea.foto_empleado,"stop")
|
|
IF idx = 1 THEN
|
|
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
|
|
CALL seleccionarSalida() RETURNING r_output
|
|
|
|
|
|
LET preview=1
|
|
CALL fgl_report_selectDevice(r_output) -- changing default
|
|
CALL fgl_report_selectPreview(preview) -- changing default
|
|
CALL fgl_report_configurexlsxdevice(null,null,null,false,false,null,1)
|
|
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
|
|
END IF
|
|
LET idx = idx +1
|
|
LET vacaciones=NULL
|
|
IF anovacacion IS NOT NULL THEN
|
|
#VERIFICA QUE EL EMPLEADO SE LE PAGO LA PROPORCION VACIONES
|
|
SELECT DISTINCT a.num_emp FROM notb00008 a WHERE a.num_emp = emplea.num_emp AND a.cod_mov = 36 AND YEAR(a.fecha) = anovacacion
|
|
IF STATUS != NOTFOUND THEN
|
|
LET vacaciones = "SI"
|
|
ELSE
|
|
LET vacaciones = "NO"
|
|
END IF
|
|
END IF
|
|
|
|
IF salario = "NO SUELDO" THEN
|
|
LET emplea.sueldo_ac =0
|
|
END IF
|
|
|
|
IF pano1 > 0 AND pano2 > 0 THEN
|
|
LET tiempo = (today-emplea.fech_efec)/365
|
|
IF tiempo > pano1 AND tiempo < pano2 THEN
|
|
|
|
OUTPUT TO REPORT reporte (emplea.*,tiempo)
|
|
END IF
|
|
ELSE
|
|
|
|
OUTPUT TO REPORT reporte (emplea.*,tiempo)
|
|
END IF
|
|
END FOREACH
|
|
IF idx > 1 THEN
|
|
CALL fgl_winmessage("REPORTE","REPORTE TERMINADO","STOP")
|
|
|
|
FINISH REPORT reporte
|
|
ELSE
|
|
CALL fgl_winmessage("ERROR","NO EXISTEN REGISTROS CON ESTA CONDCION","STOP")
|
|
|
|
END IF
|
|
CLOSE WINDOW w1
|
|
END FUNCTION
|
|
REPORT reporte(x,xtiempo)
|
|
DEFINE nombre_depto,nombre_puesto VARCHAR(30),
|
|
x RECORD LIKE adtb00003.*,
|
|
total_empleados,total_empleados_g INT,
|
|
xtiempo SMALLINT,
|
|
chfechnac,chfechent VARCHAR(10)
|
|
# ORDER BY x.departamento
|
|
FORMAT
|
|
BEFORE GROUP OF x.departamento
|
|
LET nombre_depto = NULL
|
|
SELECT a.nom_dpto INTO nombre_depto FROM adtb00001 a
|
|
WHERE a.departamento = x.departamento
|
|
|
|
LET total_empleados = 0
|
|
|
|
ON EVERY ROW
|
|
SELECT a.nom_puesto INTO nombre_puesto FROM adtb00004 a
|
|
WHERE a.cod_puesto = x.cod_puesto
|
|
IF x.fech_nac IS NULL THEN
|
|
LET chfechnac='NO TIENE'
|
|
ELSE
|
|
LET chfechnac = x.fech_nac USING 'dd/mm/yyyy'
|
|
END IF
|
|
IF x.fech_efec IS NULL THEN
|
|
LET chfechent='NO TIENE'
|
|
ELSE
|
|
LET chfechent = x.fech_efec USING 'dd/mm/yyyy'
|
|
END IF
|
|
DISPLAY "tmpfile ",x.url_foto
|
|
LET total_empleados = total_empleados + 1
|
|
PRINTX x.*,p_companias.nombre,nombre_depto,nombre_puesto,chempleados,
|
|
total_empleados,xtiempo,chfechnac,chfechent,vacaciones
|
|
ON LAST ROW
|
|
LET total_empleados_g = COUNT(*)
|
|
PRINTX total_empleados_g
|
|
END REPORT |