Corregir campo bodega oculto en busqueda de coprmt009

El CONSTRUCT del criterio de busqueda y un DISPLAY BY NAME en escoge()
referenciaban cotb00014.bodega/ordenes.bodega, que no existe como campo
visible en cofmmt009 (combo oculto, ya excluido en el INPUT BY NAME de
copcad009). Causaba "FORMS statement error -1102: Field (bodega) not
found in form" al usar Buscar Ordenes de Compras.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

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 =