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>
This commit is contained in:
Abel López
2026-08-28 16:06:50 -04:00
co-authored by Claude Sonnet 5
parent a37d0336b5
commit 91eeef199e
2 changed files with 10 additions and 6 deletions
+7 -5
View File
@@ -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 =
+3 -1
View File
@@ -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">