jpegueroandClaude Sonnet 5
3923c9dc01
- Registrar ipfmrp005.4fd en el proyecto (form not found al abrir). - Agregar dependencias faltantes FUNCIONESREPORT (msgrp000) para el papel/preview del reporte. - selectOutput() no estaba definida en ningun modulo enlazable sin conflicto: la version de otrodir/vesalidaimpresora.4gl tiene una firma distinta (devuelve 3 valores) y la de otrodir/msgrp000.4gl choca con indir/defecto.4gl al traer ambas. Se extrajo a un archivo propio (otrodir/selectoutput_simple.4gl) la version de un solo valor de retorno que ya coincidia con lo que espera este programa, reutilizando el formulario "Configuration" ya existente. - ipprrp005.4rp: la ruta del logo era absoluta a la maquina de produccion (E:\MARMOTECHC\IMAGENES\logo.png), no existia aqui - cambiada a ruta relativa (logo.png, ya esta en PROYECTO/bin). - Se agrego titulo a la ventana (usaba el generico "screen"). Verificado con producto 29-668-1403-6952, año 2026: Material 3,512.42, Labor 0.00, Gasto 0.00, Costo STD 3,512.42 - reporte bien formateado (usa el .4rp original del programa, no uno reescrito). Cierre limpio. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
34 lines
1002 B
Plaintext
34 lines
1002 B
Plaintext
FUNCTION selectOutput()
|
|
DEFINE
|
|
r_output STRING, -- output format option
|
|
r_action STRING, -- used to set preview option
|
|
r_filename STRING, -- filename of Report Design document (the .4rp filename)
|
|
preview INTEGER -- preview option TRUE/FALSE, to display report in Report Viewer
|
|
|
|
-- display form allowing user to select the .4rp filename and output options
|
|
|
|
OPTIONS INPUT WRAP
|
|
OPEN WINDOW f_configuration WITH FORM "Configuration"
|
|
LET INT_FLAG=FALSE
|
|
LET preview = FALSE
|
|
INPUT BY NAME r_output
|
|
ON ACTION CANCEL
|
|
EXIT PROGRAM
|
|
ON ACTION CLOSE
|
|
EXIT PROGRAM
|
|
END INPUT
|
|
CLOSE WINDOW f_configuration
|
|
CALL ui.interface.refresh()
|
|
|
|
-- set preview variable to match output option r_action
|
|
IF r_action IS NOT NULL THEN
|
|
IF r_action == "preview" THEN
|
|
LET preview = TRUE
|
|
END IF
|
|
END IF
|
|
|
|
--return output option variable to be used to configure the report engine
|
|
RETURN r_output
|
|
|
|
END FUNCTION
|