From 47942191eee1b0a6dc6de741a55ad70036a461b3 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Thu, 15 Oct 2026 13:04:06 -0400 Subject: [PATCH] Corrige ipprrp051 (Transacciones de Inventario con ubicacion) - Registra ipfmrp051.4fd y la dependencia FUNCIONESREPORT en mbsERP.4pw (resuelve msgrp000 y seleccionarSalida) - busca_departamento() definida localmente (igual que ipprrp047/048) - seleccionarsalida() -> selectOutputSimple() - Rescata ipprrp051.4rp del respaldo PROYECTOS/bin (ipdir/ y bin/) - Titulo de ventana corregido Verificado: 01/08/2026 a hoy, movimiento 30, 8 paginas en pantalla y PDF. Excel no probado. Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/bin/ipprrp051.4rp | 118 +++++++++++++++++++++++++++++++++++ PROYECTO/ipdir/ipprrp051.4gl | 22 ++++++- PROYECTO/ipdir/ipprrp051.4rp | 118 +++++++++++++++++++++++++++++++++++ PROYECTO/mbsERP.4pw | 3 +- 4 files changed, 258 insertions(+), 3 deletions(-) create mode 100644 PROYECTO/bin/ipprrp051.4rp create mode 100644 PROYECTO/ipdir/ipprrp051.4rp diff --git a/PROYECTO/bin/ipprrp051.4rp b/PROYECTO/bin/ipprrp051.4rp new file mode 100644 index 0000000..f2da80f --- /dev/null +++ b/PROYECTO/bin/ipprrp051.4rp @@ -0,0 +1,118 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp051.4gl b/PROYECTO/ipdir/ipprrp051.4gl index e010a38..0996f0a 100644 --- a/PROYECTO/ipdir/ipprrp051.4gl +++ b/PROYECTO/ipdir/ipprrp051.4gl @@ -87,6 +87,7 @@ FUNCTION ipprrp051() OPEN FORM ipfmrp051 FROM "ipfmrp051" DISPLAY FORM ipfmrp051 + CALL ui.Window.getCurrent().setText("Transacciones de Inventario") DISPLAY "ipprrp051" AT 4, 3 DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6, 18 @@ -186,8 +187,7 @@ FUNCTION ipprrp051() 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 = @@ -381,3 +381,21 @@ REPORT opera(x, y) LET t_t_mtsAdicionales = SUM(x.mtsAdicionales) 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/ipprrp051.4rp b/PROYECTO/ipdir/ipprrp051.4rp new file mode 100644 index 0000000..f2da80f --- /dev/null +++ b/PROYECTO/ipdir/ipprrp051.4rp @@ -0,0 +1,118 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 5efbe4e..71bad44 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -791,9 +791,10 @@ - + +