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/coprmt009.4gl b/PROYECTO/codir/coprmt009.4gl
index ff400f9..68d7db2 100644
--- a/PROYECTO/codir/coprmt009.4gl
+++ b/PROYECTO/codir/coprmt009.4gl
@@ -1037,6 +1037,9 @@ FUNCTION copcmf009()
CALL lugarentregas()
# Aqui se prepara para la captura del criterio de seleccion
+ -- cotb00014.bodega excluido: es el mismo combo oculto (tabIndex=-1) en
+ -- cofmmt009 que ya se excluye en copcad009(); el CONSTRUCT fallaba con
+ -- "Field (bodega) not found in form".
CONSTRUCT criterio
ON cotb00014.num_oc,
cotb00014.tipo,
@@ -1049,8 +1052,7 @@ FUNCTION copcmf009()
cotb00014.fech_enviada,
cotb00014.pago,
cotb00014.fech_pago,
- cotb00014.cierre,
- cotb00014.bodega
+ cotb00014.cierre
FROM num_oc,
tipo,
fech_oc,
@@ -1062,8 +1064,7 @@ FUNCTION copcmf009()
fech_enviada,
pago,
fech_pago,
- cierre,
- bodega
+ cierre
IF int_flag THEN
LET numero_msg = 2
@@ -2360,7 +2361,8 @@ FUNCTION escoge()
ordenes.pago,
ordenes.fech_pago
- DISPLAY BY NAME ordenes.bodega
+ -- ordenes.bodega excluido (ver nota en copcad009()): no esta en el
+ -- formulario, DISPLAY BY NAME fallaba con "Field (bodega) not found in form".
IF ordenes.cod_sp = 22 OR ordenes.cod_sp = 24 THEN
LET flete1.total_1 =
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/codir/coprrp004.4gl b/PROYECTO/codir/coprrp004.4gl
index eeda8bf..f90f373 100644
--- a/PROYECTO/codir/coprrp004.4gl
+++ b/PROYECTO/codir/coprrp004.4gl
@@ -35,6 +35,8 @@ FUNCTION coprrp004()
monto DECIMAL(12,2)
END RECORD
+ DEFINE r_filename STRING
+
#WHENEVER ERROR CONTINUE
OPTIONS
@@ -115,9 +117,14 @@ END IF
# doce,normal,archivo,copia
- CALL seleccionarsalida() RETURNING salida
- CALL configureoutput(salida) RETURNING HANDLER
-
+ -- La API de configuracion de reportes (fgl_report_*) no esta
+ -- disponible en este FGL; seleccionarsalida()/configureoutput()
+ -- tampoco estan definidas en este programa. 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"), "/coprrp004_cronologico.xml"
+ LET handler = om.XmlWriter.createFileWriter(r_filename)
+
START REPORT cronologico TO XML HANDLER handler
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index d63a65e..6a71956 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -190,12 +190,17 @@
+
+
+
+
+
-
+
@@ -221,6 +226,23 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+