From 91eeef199e641e9f204e2ea7e27e44274fad6213 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Abel=20L=C3=B3pez?= <alopez@marmotech.local>
Date: Fri, 28 Aug 2026 16:06:50 -0400
Subject: [PATCH] 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 | 12 +++++++-----
 PROYECTO/mbsERP.4pw          |  4 +++-
 2 files changed, 10 insertions(+), 6 deletions(-)

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 @@
         <Configuration commandLineArguments="alopez Lopez2023" id="-700000018" label="Configuration"/>
         <File filePath="codir/coprmt001.4gl"/>
       </Application>
-      <Application binaryName="coprmt009" dependencies="-1026233879,-764824792,-700000015,-700000016" id="-700000019" label="coprmt009">
+      <Application binaryName="coprmt009" dependencies="-1026233879,-764824792,-700000015,-700000016" externalDependencies="libgre.42x" id="-700000019" label="coprmt009">
         <Configuration commandLineArguments="alopez Lopez2023 70" id="-700000020" label="Configuration"/>
         <File filePath="codir/coprmt009.4gl"/>
+        <File filePath="bin/coprmt009.4rp"/>
       </Application>
       <Application binaryName="coprmt016" dependencies="-1026233879,-764824792,-700000015,-700000016" id="-700000021" label="coprmt016">
         <Configuration commandLineArguments="alopez Lopez2023" id="-700000022" label="Configuration"/>
@@ -235,6 +236,7 @@
       <Application binaryName="coprrp001" dependencies="-1026233879,-764824792,-700000015,-700000016,-1423229125" environment="dir:FGLSPOOL=$(ProjectDir)/spool" id="-700000035" label="coprrp001">
         <Configuration commandLineArguments="alopez Lopez2023 70" id="-700000036" label="Configuration"/>
         <File filePath="codir/coprrp001.4gl"/>
+        <File filePath="bin/coprrp001.4rp"/>
       </Application>
     </Group>
     <Group id="-1298100213" label="CONTABILIDAD GENERAL">