From a37d0336b57020433fb50f7ea2366a3c2066e628 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Fri, 28 Aug 2026 11:38:43 -0400 Subject: [PATCH] Agregar coprrp001 (Catalogo Suplidores) y corregir bugs en coprcs009 - Registrar coprrp001/cofmrp001 en mbsERP.4pw - Sustituir API fgl_report_* no disponible por XmlWriter en coprrp001.4gl - Ampliar cs_ordena.codigo a CHAR(20) en coprgb000.4gl - Corregir mascaras PICTURE de codigo en coprcs009.4gl - Ampliar campo c1 en cofmcs009.per para igualar el ancho de codigo - Corregir typo de base de datos en cofmwd016.per Co-Authored-By: Claude Sonnet 5 --- PROYECTO/codir/cofmcs009.per | 10 +++++----- PROYECTO/codir/cofmwd016.per | 2 +- PROYECTO/codir/coprcs009.4gl | 8 ++++---- PROYECTO/codir/coprgb000.4gl | 2 +- PROYECTO/codir/coprrp001.4gl | 18 +++++------------- PROYECTO/mbsERP.4pw | 16 ++++++++++++++++ 6 files changed, 32 insertions(+), 24 deletions(-) diff --git a/PROYECTO/codir/cofmcs009.per b/PROYECTO/codir/cofmcs009.per index 1074961..bfab385 100644 --- a/PROYECTO/codir/cofmcs009.per +++ b/PROYECTO/codir/cofmcs009.per @@ -1,4 +1,4 @@ -database marmotech +database smarmotech screen size 24 by 80 { @@ -9,10 +9,10 @@ screen size 24 by 80 \g-----------------------------------------------------------------------------\g Requi. Codigo Cantidad Precio Valor \g-----------------------------------------------------------------------------\g -[r1 ][c1 ][c2 ] [p1 ][v1 ] -[r1 ][c1 ][c2 ] [p1 ][v1 ] -[r1 ][c1 ][c2 ] [p1 ][v1 ] -[r1 ][c1 ][c2 ] [p1 ][v1 ] +[r1 ][c1 ][c2 ] [p1 ][v1 ] +[r1 ][c1 ][c2 ] [p1 ][v1 ] +[r1 ][c1 ][c2 ] [p1 ][v1 ] +[r1 ][c1 ][c2 ] [p1 ][v1 ] Descripcion [d1 ] } end diff --git a/PROYECTO/codir/cofmwd016.per b/PROYECTO/codir/cofmwd016.per index e1ecf05..7d9a03c 100644 --- a/PROYECTO/codir/cofmwd016.per +++ b/PROYECTO/codir/cofmwd016.per @@ -1,4 +1,4 @@ -DATABASE marmotech +DATABASE smarmotech screen { Ship To [st ] diff --git a/PROYECTO/codir/coprcs009.4gl b/PROYECTO/codir/coprcs009.4gl index 6b74395..165fdb5 100644 --- a/PROYECTO/codir/coprcs009.4gl +++ b/PROYECTO/codir/coprcs009.4gl @@ -243,10 +243,10 @@ LET idx = 1 FOREACH buscate INTO detalle1.* LET cs_ordena[idx].num_req = detalle1.num_req - LET cs_ordena[idx].codigo = detalle1.cod_n using "&","-", - detalle1.cod_grupo using "&","-", - detalle1.cod_tipo using "&&","-", - detalle1.cod_sec using "&&&" + LET cs_ordena[idx].codigo = detalle1.cod_n using "##","-", + detalle1.cod_grupo using "####","-", + detalle1.cod_tipo using "####","-", + detalle1.cod_sec using "#####" LET cs_ordena[idx].cantidad = detalle1.cantidad using "##########.##" LET cs_ordena[idx].precio = detalle1.precio using "##########.##" diff --git a/PROYECTO/codir/coprgb000.4gl b/PROYECTO/codir/coprgb000.4gl index e6594b9..0ac0822 100644 --- a/PROYECTO/codir/coprgb000.4gl +++ b/PROYECTO/codir/coprgb000.4gl @@ -27,7 +27,7 @@ GLOBALS DEFINE cs_ordena ARRAY [20] OF RECORD num_req INTEGER, - codigo CHAR(10), + codigo CHAR(20), cantidad CHAR(14), precio CHAR(13), valor CHAR(14) diff --git a/PROYECTO/codir/coprrp001.4gl b/PROYECTO/codir/coprrp001.4gl index b502198..6585f30 100644 --- a/PROYECTO/codir/coprrp001.4gl +++ b/PROYECTO/codir/coprrp001.4gl @@ -144,19 +144,11 @@ FUNCTION coprrp001() archivo, copia - LET r_filename = 'coprrp001.4rp' - CALL seleccionarSalida() RETURNING r_output - - LET preview = 1 - - IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file - - CALL fgl_report_selectDevice(r_output) -- changing default - CALL fgl_report_selectPreview(preview) -- changing default - - - LET handler = fgl_report_commitCurrentSettings() -- commit changes - END IF + -- La API de configuracion de reportes (fgl_report_*) no esta + -- disponible en este FGL; se escribe el XML directo a un archivo + -- en FGLSPOOL en lugar de usar la plantilla .4rp con vista previa. + LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp001_catalogo.xml" + LET handler = om.XmlWriter.createFileWriter(r_filename) START REPORT catalogo2 TO XML HANDLER handler #### Enviando la informacion al registro del reporte diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 17cefc9..23a8f0c 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -191,6 +191,10 @@ + + + + @@ -220,6 +224,18 @@ + + + + + + + + + + + +