primer commit subida

PROYECTOS/irdir/salidaimpresora.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 
+   #CLOSE WINDOW SCREEN
+   OPTIONS INPUT WRAP
+   OPEN WINDOW f_configuration WITH FORM "Configuration"
+   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