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:
co-authored by
Claude Sonnet 5
parent
a37d0336b5
commit
91eeef199e
@@ -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
@@ -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">
|
||||
|
||||
Reference in New Issue
Block a user