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 <noreply@anthropic.com>
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user