diff --git a/PROYECTO/indir/defecto.4gl b/PROYECTO/indir/defecto.4gl
index f8c0bd7..3940594 100644
--- a/PROYECTO/indir/defecto.4gl
+++ b/PROYECTO/indir/defecto.4gl
@@ -1,3 +1,25 @@
+FUNCTION msgrp000(tipo_papel)
+         DEFINE tipo_papel SMALLINT,
+                longitud   CHAR(11),
+                linea_papel CHAR(50)
+
+         CASE
+            WHEN tipo_papel = 1
+                 LET longitud = " 9 1/2 x 11"
+            WHEN tipo_papel = 2
+                 LET longitud = "14 7/8 x 11"
+         END CASE
+
+         LET linea_papel = "Coloque papel ",longitud," en la impresora."
+         DISPLAY linea_papel
+                 AT 15,14
+         DISPLAY "Asegurese de que la impresora este encendida."
+                 AT 16,14
+         DISPLAY "<Esc> Ejecuta impresion   <Delete> Cancela impresion"
+                 AT 18,14
+
+END FUNCTION
+
 FUNCTION defecto(usuarios,clave,impresor)
 
          DEFINE impresor,idx  SMALLINT,
@@ -150,3 +172,11 @@ FUNCTION configureOutput(tipo_file)
     -- en este entorno; usar r_output = 'MA' (impresion clasica) en su lugar.
     RETURN NULL
 END FUNCTION
+
+FUNCTION selectOutput()
+    -- El formulario "Configuration" del Report Writer 2.0 no esta disponible
+    -- en este entorno (ver configureOutput). Se devuelve un valor fijo para
+    -- que el flujo de "Reporte Grafico" siga y falle de forma consistente
+    -- con la limitacion ya conocida; usar MATRICIAL en su lugar.
+    RETURN "PDF"
+END FUNCTION
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 0f9a637..e758e15 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -382,6 +382,8 @@
         <File filePath="indir/infmmt036.4fd"/>
         <File filePath="indir/infmwd005.4fd"/>
         <File filePath="indir/infmcs006.4fd"/>
+        <File filePath="indir/infmrp003.per"/>
+        <File filePath="indir/infmrp005.per"/>
       </Library>
       <Library binaryName="FUNCIONES_IN" dependencies="-1026233879" id="-801525068" label="FUNCIONES_IN">
         <File filePath="indir/inprgb000.4gl"/>