From d805fa31640f8544fad1ece6e86bbb4b244ea6d5 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Wed, 14 Oct 2026 17:00:45 -0400 Subject: [PATCH] Corrige ipprrp047 (Operacion por Movimiento Detallado y Valorizado) - Registra ipfmrp047.4fd y la dependencia FUNCIONESREPORT en mbsERP.4pw (resuelve msgrp000 y seleccionarSalida) - busca_departamento() definida localmente (igual que ipprrp035/036) - seleccionarsalida() -> selectOutputSimple() - Rescata ipprrp047.4rp del respaldo PROYECTOS/bin (ipdir/ y bin/) - Titulo de ventana corregido Verificado en pantalla: 01/05/2026 a hoy, 113+ paginas agrupadas por movimiento y departamento con totales. PDF y Excel no probados. Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/bin/ipprrp047.4rp | 146 +++++++++++++++++++++++++++++++++++ PROYECTO/ipdir/ipprrp047.4gl | 20 ++++- PROYECTO/ipdir/ipprrp047.4rp | 146 +++++++++++++++++++++++++++++++++++ PROYECTO/mbsERP.4pw | 3 +- 4 files changed, 312 insertions(+), 3 deletions(-) create mode 100644 PROYECTO/bin/ipprrp047.4rp create mode 100644 PROYECTO/ipdir/ipprrp047.4rp diff --git a/PROYECTO/bin/ipprrp047.4rp b/PROYECTO/bin/ipprrp047.4rp new file mode 100644 index 0000000..cca4f05 --- /dev/null +++ b/PROYECTO/bin/ipprrp047.4rp @@ -0,0 +1,146 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp047.4gl b/PROYECTO/ipdir/ipprrp047.4gl index 218cc4f..3344b7a 100644 --- a/PROYECTO/ipdir/ipprrp047.4gl +++ b/PROYECTO/ipdir/ipprrp047.4gl @@ -78,6 +78,7 @@ FUNCTION ipprrp047() OPEN FORM ipfmrp047 FROM "ipfmrp047" DISPLAY FORM ipfmrp047 + CALL ui.Window.getCurrent().setText("Transacciones de Inventario") DISPLAY "ipprrp047" AT 4,3 DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6,18 @@ -200,7 +201,7 @@ END IF 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 @@ -504,5 +505,20 @@ FORMAT 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/ipprrp047.4rp b/PROYECTO/ipdir/ipprrp047.4rp new file mode 100644 index 0000000..cca4f05 --- /dev/null +++ b/PROYECTO/ipdir/ipprrp047.4rp @@ -0,0 +1,146 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 5aeff57..62efaab 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -781,9 +781,10 @@ - + +