92 lines
3.3 KiB
Plaintext
92 lines
3.3 KiB
Plaintext
GLOBALS
|
|
"noprgb000.4gl"
|
|
DEFINE direccion_suc,telefono_suc VARCHAR(100),
|
|
provincia VARCHAR(60),
|
|
xpais CHAR(10)
|
|
|
|
FUNCTION cardnet(xnumemp)
|
|
DEFINE tmpfile STRING,
|
|
foto BYTE,
|
|
xnumemp INT
|
|
LET direccion_suc = NULL
|
|
LET telefono_suc = NULL
|
|
LOCATE foto IN MEMORY
|
|
|
|
LET selec = "SELECT
|
|
a.nom1_emp,
|
|
a.apell1_emp,
|
|
a.num_emp,
|
|
a.cedula,
|
|
b.nom_puesto,
|
|
a.foto_empleado,
|
|
c.direccion,
|
|
c.telefono,
|
|
e.abreviatura,
|
|
f.nombre_provincia
|
|
FROM adtb00003 a
|
|
LEFT JOIN adtb00004 b ON a.cod_puesto = b.cod_puesto
|
|
LEFT JOIN sucursales c ON c.sucid = a.sucid
|
|
LEFT JOIN vetb00017 e ON e.codigo = c.pais
|
|
LEFT JOIN vetb00020 f ON f.cod_provincia = c.cod_provincia
|
|
WHERE a.num_emp = ",xnumemp USING "<<<<<",
|
|
" AND a.status_t IS NULL"
|
|
|
|
PREPARE bcarnet FROM selec
|
|
EXECUTE bcarnet INTO datos_cheque.nom1_emp,
|
|
datos_cheque.apell1_emp ,
|
|
datos_cheque.num_emp,
|
|
datos_cheque.cedula,
|
|
puesto.nom_puesto ,
|
|
foto ,
|
|
direccion_suc ,
|
|
p_Companias.telefono ,
|
|
xpais ,provincia
|
|
|
|
|
|
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 = 'SVG'
|
|
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 foto IS NOT NULL THEN
|
|
CALL foto.writeFile(tmpfile)
|
|
ELSE
|
|
LET tmpfile='.\\TMP\\fotodefault.jpg'
|
|
END IF
|
|
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
|
|
ELSE
|
|
SELECT c.direccion,c.telefono
|
|
INTO direccion_suc,p_companias.telefono
|
|
FROM sucursales c WHERE sucid = 1
|
|
END IF
|
|
|
|
PRINTX datos_cheque.nom1_emp,datos_cheque.apell1_emp,datos_cheque.num_emp,
|
|
direccion_suc,p_Companias.telefono,datos_cheque.cedula,
|
|
puesto.nom_puesto,xtmpfile,
|
|
xpais,provincia
|
|
END REPORT |