jpegueroandClaude Sonnet 5
b6085d4140
Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
102 lines
3.6 KiB
Plaintext
102 lines
3.6 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : IPPRRP018
|
|
OBJETIVO : Reporte Conduces Firmados
|
|
PROGRAMADOR : Ing. Luis Soto
|
|
FECHA REALIZACION : Marzo 2025
|
|
DESCRIPCION : Busqueda de Conduces Firmados
|
|
MODIFICADO POR : Luis Soto
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
|
|
GLOBALS "ipprgb000.4gl"
|
|
DEFINE fecha2 DATE
|
|
DEFINE co RECORD
|
|
num_doc,cod_sp,cod_sp_sec,cod_mov INT,
|
|
nombre,v_estado CHAR(80),fecha DATETIME YEAR TO SECOND
|
|
END record
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
CALL ARG_VAL(3) RETURNING impresor
|
|
CONNECT TO "smarmotech" USER usuarios USING clave
|
|
|
|
SELECT * INTO p_companias.* FROM companias
|
|
CALL ipprrp054()
|
|
END MAIN
|
|
|
|
FUNCTION ipprrp054()
|
|
OPTIONS
|
|
FORM LINE 8,
|
|
ERROR LINE 23,
|
|
COMMENT LINE 21
|
|
|
|
OPEN FORM ipfmrp054 FROM "ipfmrp054"
|
|
DISPLAY FORM ipfmrp054
|
|
INPUT BY NAME fecha1,fecha2
|
|
BEFORE INPUT
|
|
AFTER INPUT
|
|
LET selec=" select unique a.num_doc,a.cod_sp,a.cod_sp_sec,a.cod_mov,b.nombre,",
|
|
" CASE ",
|
|
" WHEN c.num_doc IS NULL THEN 'NO TIENE ARCHIVO' ",
|
|
" ELSE 'TIENE ARCHIVO' ",
|
|
" END,c.fech_crea ",
|
|
" from iptb00006 a JOIN vetb00004 b ON a.cod_sp = b.tipo_cliente AND a.cod_sp_sec = b.sec_cliente ",
|
|
" JOIN iptb00005 d ON a.cod_mov = d.cod_mov LEFT JOIN prtb00029 c ON a.num_doc = c.num_doc and a.bodega=c.bodega AND c.tipo_file = 'CO'",
|
|
" where a.fecha between ? and ? and a.cod_mov in (30,31,38,55,56) ",
|
|
" group by a.cod_mov,a.num_doc,a.cod_sp,a.cod_sp_sec,b.nombre,c.num_doc,c.fech_crea",
|
|
" order by a.cod_mov"
|
|
|
|
|
|
LET r_filename = "ipprrp054.4rp"
|
|
CALL seleccionarsalida() RETURNING r_output
|
|
iF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
|
|
|
|
|
|
LET preview=1
|
|
CALL fgl_report_selectDevice(r_output) -- changing default
|
|
CALL fgl_report_selectPreview(preview) -- changing default
|
|
|
|
LET handler = fgl_report_commitCurrentSettings() -- commit changes
|
|
ELSE
|
|
EXIT PROGRAM
|
|
END IF
|
|
START REPORT prt_co TO XML HANDLER HANDLER
|
|
PREPARE comando FROM selec
|
|
DECLARE busca CURSOR FOR comando
|
|
OPEN busca USING fecha1,fecha2
|
|
|
|
FOREACH busca INTO co.*
|
|
OUTPUT TO REPORT prt_co(co.*)
|
|
END FOREACH
|
|
FINISH REPORT prt_co
|
|
END INPUT
|
|
END FUNCTION
|
|
|
|
REPORT prt_co(x)
|
|
DEFINE x RECORD
|
|
num_doc,cod_sp,cod_sp_sec,cod_mov INT,
|
|
nombre,v_estado CHAR(80),fecha DATETIME YEAR TO second
|
|
|
|
END RECORD,fecht DATE,descrip_mov,titulo_mov CHAR(80)
|
|
|
|
FORMAT
|
|
FIRST PAGE HEADER
|
|
LET fecht =today
|
|
|
|
BEFORE GROUP OF x.cod_mov
|
|
SELECT a.descrip_mov
|
|
INTO descrip_mov
|
|
FROM iptb00005 a
|
|
WHERE a.cod_mov = x.cod_mov
|
|
|
|
LET titulo_mov =
|
|
"Movimiento: ", x.cod_mov, " ", descrip_mov CLIPPED
|
|
|
|
PRINTX titulo_mov
|
|
|
|
ON EVERY ROW
|
|
PRINTX x.cod_sp,x.cod_sp_sec,x.nombre,x.num_doc,p_companias.nombre,fecht,x.v_estado,fecha1,fecha2,x.fecha
|
|
|
|
END REPORT |