diff --git a/PROYECTO/bin/ipprrp005.4rp b/PROYECTO/bin/ipprrp005.4rp new file mode 100644 index 0000000..e0fb79f --- /dev/null +++ b/PROYECTO/bin/ipprrp005.4rp @@ -0,0 +1,70 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp005.4gl b/PROYECTO/ipdir/ipprrp005.4gl index a143334..a7643d2 100644 --- a/PROYECTO/ipdir/ipprrp005.4gl +++ b/PROYECTO/ipdir/ipprrp005.4gl @@ -53,6 +53,7 @@ FUNCTION ipprrp005() OPEN FORM ipfmrp005 FROM "ipfmrp005" DISPLAY FORM ipfmrp005 + CALL ui.Window.getCurrent().setText("MAESTRA COSTO STANDARD") #CALL pantalla() DISPLAY "ipprrp005" AT 4,3 DISPLAY "Maestra Costos Std." AT 6,31 diff --git a/PROYECTO/ipdir/ipprrp005.4rp b/PROYECTO/ipdir/ipprrp005.4rp index 8c5b408..e0fb79f 100644 --- a/PROYECTO/ipdir/ipprrp005.4rp +++ b/PROYECTO/ipdir/ipprrp005.4rp @@ -18,7 +18,7 @@ - + diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index c536b30..16d9a37 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -142,6 +142,7 @@ + @@ -301,6 +302,7 @@ + @@ -711,13 +713,15 @@ - + + - + + diff --git a/PROYECTO/otrodir/selectoutput_simple.4gl b/PROYECTO/otrodir/selectoutput_simple.4gl new file mode 100644 index 0000000..6af6e6e --- /dev/null +++ b/PROYECTO/otrodir/selectoutput_simple.4gl @@ -0,0 +1,33 @@ +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