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 @@
+
+
+
+
+
+
+
+
+
+
+
+