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>
This commit is contained in:
2026-08-31 16:44:13 -04:00
co-authored by Claude Sonnet 5
parent ea1493db43
commit 7f789181cf
2 changed files with 32 additions and 0 deletions
+30
View File
@@ -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