jpegueroandClaude Sonnet 5
c795294090
otrodir/selectoutput_simple.4gl definia FUNCTION selectOutput(), mismo nombre que otrodir/vesalidaimpresora.4gl (ya usado por Abel en noprcs006, ipprrp002, ipprrp003, ipprrp039, ipprrp044). Al mezclar ambos commits, cualquier programa que dependiera de FUNCIONESREPORT mas la libreria de Abel rompia por simbolo duplicado. Se renombra la funcion (y se actualizan sus 4 unicos llamados: ipprrp005, ipprrp009, ipprrp035, ipprrp036) sin tocar vesalidaimpresora.4gl, para no afectar los programas que Abel ya tiene funcionando con esa version. Recompilados y verificados los 4 programas tras el cambio. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
34 lines
1008 B
Plaintext
34 lines
1008 B
Plaintext
FUNCTION selectOutputSimple()
|
|
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
|