From 43f9d16e627d8690724067dd5e77d014836ccb88 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Thu, 15 Oct 2026 12:51:54 -0400 Subject: [PATCH] Corrige ipprrp048 (Transacciones de Inventario por Departamento) - Registra ipfmrp048.4fd y la dependencia FUNCIONESREPORT en mbsERP.4pw (resuelve msgrp000 y seleccionarSalida) - busca_departamento() definida localmente (igual que ipprrp035/036/047) - seleccionarsalida() -> selectOutputSimple() - Rescata ipprrp048.4rp del respaldo PROYECTOS/bin (ipdir/ y bin/) - Titulo de ventana corregido Verificado: 01/08/2026 a hoy, movimiento 30, 4 paginas en pantalla y PDF. Excel no probado. Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/bin/ipprrp048.4rp | 93 ++++++++++++++++++++++++++++++++++++ PROYECTO/ipdir/IPPRRP048.4gl | 20 +++++++- PROYECTO/ipdir/ipprrp048.4rp | 93 ++++++++++++++++++++++++++++++++++++ PROYECTO/mbsERP.4pw | 3 +- 4 files changed, 206 insertions(+), 3 deletions(-) create mode 100644 PROYECTO/bin/ipprrp048.4rp create mode 100644 PROYECTO/ipdir/ipprrp048.4rp diff --git a/PROYECTO/bin/ipprrp048.4rp b/PROYECTO/bin/ipprrp048.4rp new file mode 100644 index 0000000..09a0137 --- /dev/null +++ b/PROYECTO/bin/ipprrp048.4rp @@ -0,0 +1,93 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/IPPRRP048.4gl b/PROYECTO/ipdir/IPPRRP048.4gl index 3defc37..c337d1e 100644 --- a/PROYECTO/ipdir/IPPRRP048.4gl +++ b/PROYECTO/ipdir/IPPRRP048.4gl @@ -75,6 +75,7 @@ FUNCTION ipprrp048() OPEN FORM ipfmrp048 FROM "ipfmrp048" DISPLAY FORM ipfmrp048 + CALL ui.Window.getCurrent().setText("Transacciones de Inventario por Departamento") DISPLAY "ipprrp048" AT 4,3 DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6,18 @@ -167,7 +168,7 @@ END INPUT IF fgl_report_loadCurrentSettings(r_filename) THEN LET preview=1 - CALL seleccionarsalida() RETURNING r_output -- load the .4rp file + CALL selectOutputSimple() RETURNING r_output -- load the .4rp file CALL fgl_report_selectDevice(r_output) -- changing default CALL fgl_report_selectPreview(preview) -- changing default LET handler = fgl_report_commitCurrentSettings() -- commit changes @@ -296,5 +297,20 @@ FORMAT PRINTX t_t_consumo,t_t_mtsAdicionales END REPORT +FUNCTION busca_departamento() + DEFINE + pdepartamento ui.combobox, + kdepartamento SMALLINT, + kdescripcion CHAR(30) - + LET pdepartamento = ui.combobox.forname("formonly.departamento") + CALL pdepartamento.clear() + DECLARE pagar CURSOR FOR + SELECT departamento, nom_dpto + FROM adtb00001 + WHERE status_t IS NULL + ORDER BY nom_dpto + FOREACH pagar INTO kdepartamento, kdescripcion + CALL pdepartamento.additem(kdepartamento, kdescripcion) + END FOREACH +END FUNCTION diff --git a/PROYECTO/ipdir/ipprrp048.4rp b/PROYECTO/ipdir/ipprrp048.4rp new file mode 100644 index 0000000..09a0137 --- /dev/null +++ b/PROYECTO/ipdir/ipprrp048.4rp @@ -0,0 +1,93 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 62efaab..5efbe4e 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -786,9 +786,10 @@ - + +