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()
|
CALL lugarentregas()
|
||||||
|
|
||||||
# Aqui se prepara para la captura del criterio de seleccion
|
# 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
|
CONSTRUCT criterio
|
||||||
ON cotb00014.num_oc,
|
ON cotb00014.num_oc,
|
||||||
cotb00014.tipo,
|
cotb00014.tipo,
|
||||||
@@ -1049,8 +1052,7 @@ FUNCTION copcmf009()
|
|||||||
cotb00014.fech_enviada,
|
cotb00014.fech_enviada,
|
||||||
cotb00014.pago,
|
cotb00014.pago,
|
||||||
cotb00014.fech_pago,
|
cotb00014.fech_pago,
|
||||||
cotb00014.cierre,
|
cotb00014.cierre
|
||||||
cotb00014.bodega
|
|
||||||
FROM num_oc,
|
FROM num_oc,
|
||||||
tipo,
|
tipo,
|
||||||
fech_oc,
|
fech_oc,
|
||||||
@@ -1062,8 +1064,7 @@ FUNCTION copcmf009()
|
|||||||
fech_enviada,
|
fech_enviada,
|
||||||
pago,
|
pago,
|
||||||
fech_pago,
|
fech_pago,
|
||||||
cierre,
|
cierre
|
||||||
bodega
|
|
||||||
|
|
||||||
IF int_flag THEN
|
IF int_flag THEN
|
||||||
LET numero_msg = 2
|
LET numero_msg = 2
|
||||||
@@ -2360,7 +2361,8 @@ FUNCTION escoge()
|
|||||||
ordenes.pago,
|
ordenes.pago,
|
||||||
ordenes.fech_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
|
IF ordenes.cod_sp = 22 OR ordenes.cod_sp = 24 THEN
|
||||||
LET flete1.total_1 =
|
LET flete1.total_1 =
|
||||||
|
|||||||
+3
-1
@@ -200,9 +200,10 @@
|
|||||||
<Configuration commandLineArguments="alopez Lopez2023" id="-700000018" label="Configuration"/>
|
<Configuration commandLineArguments="alopez Lopez2023" id="-700000018" label="Configuration"/>
|
||||||
<File filePath="codir/coprmt001.4gl"/>
|
<File filePath="codir/coprmt001.4gl"/>
|
||||||
</Application>
|
</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"/>
|
<Configuration commandLineArguments="alopez Lopez2023 70" id="-700000020" label="Configuration"/>
|
||||||
<File filePath="codir/coprmt009.4gl"/>
|
<File filePath="codir/coprmt009.4gl"/>
|
||||||
|
<File filePath="bin/coprmt009.4rp"/>
|
||||||
</Application>
|
</Application>
|
||||||
<Application binaryName="coprmt016" dependencies="-1026233879,-764824792,-700000015,-700000016" id="-700000021" label="coprmt016">
|
<Application binaryName="coprmt016" dependencies="-1026233879,-764824792,-700000015,-700000016" id="-700000021" label="coprmt016">
|
||||||
<Configuration commandLineArguments="alopez Lopez2023" id="-700000022" label="Configuration"/>
|
<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">
|
<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"/>
|
<Configuration commandLineArguments="alopez Lopez2023 70" id="-700000036" label="Configuration"/>
|
||||||
<File filePath="codir/coprrp001.4gl"/>
|
<File filePath="codir/coprrp001.4gl"/>
|
||||||
|
<File filePath="bin/coprrp001.4rp"/>
|
||||||
</Application>
|
</Application>
|
||||||
</Group>
|
</Group>
|
||||||
<Group id="-1298100213" label="CONTABILIDAD GENERAL">
|
<Group id="-1298100213" label="CONTABILIDAD GENERAL">
|
||||||
|
|||||||
Reference in New Issue
Block a user