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:
@@ -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
|
||||
|
||||
@@ -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"/>
|
||||
|
||||
Reference in New Issue
Block a user