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/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 23a8f0c..28e03de 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -200,9 +200,10 @@
-
+
+
@@ -235,6 +236,7 @@
+