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 
   #CLOSE WINDOW SCREEN
   OPTIONS INPUT WRAP
   OPEN WINDOW f_configuration WITH FORM "veconfiguracion"
   LET INT_FLAG=FALSE
   LET preview = FALSE
   INPUT BY NAME r_filename,r_output,r_action 
     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 report name (filename of Report Design Document) and output option variables to be used to configure the report engine
   RETURN r_filename||".4rp", r_output, preview

 END FUNCTION 


 FUNCTION selectOutput2()
   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 
   #CLOSE WINDOW SCREEN
   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 report name (filename of Report Design Document) and output option variables to be used to configure the report engine
   RETURN  r_output

 END FUNCTION