From 7f789181cf0fd6a698499cbe68ae9737d27b580b Mon Sep 17 00:00:00 2001
From: Jeilyn Peguero <jpeguero@marmotech.com.do>
Date: Mon, 31 Aug 2026 16:44:13 -0400
Subject: [PATCH] Agrega inprrp003 e inprrp005 (reportes de Materia Prima) al
 proyecto

- Registra formularios infmrp003.per e infmrp005.per en FORMULARIOS_IN
- Agrega funciones compartidas msgrp000() y selectOutput() a defecto.4gl
  (selectOutput como stub, mismo limite conocido de Report Writer 2.0
  que configureOutput)
- inprrp003 probado: reporte de movimientos corre completo sin error
  de FGL (impresion fisica no disponible en entorno de desarrollo)
- inprrp005 pendiente: error SQL -1262 "Non-numeric character in
  datetime" al filtrar por Fecha del Dia, en investigacion

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 PROYECTO/indir/defecto.4gl | 30 ++++++++++++++++++++++++++++++
 PROYECTO/mbsERP.4pw        |  2 ++
 2 files changed, 32 insertions(+)

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"/>