111 lines
4.3 KiB
Plaintext
111 lines
4.3 KiB
Plaintext
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
|