Problemas con botones y tablas...!

Hola Víctor:
Tengo un formulario con 4 botones que cuando los "clickeas" exportan una tabla diferente (una tabla para cada botón) de una misma base de datos...
El problema está en que cuando inicio el formulario y presiono "por primera vez" cualquiera de los 4 botones, hace todo correctamente pero cuando pulso el segundo botón (cualquiera sea) me dice que no encuentra la tabla que selecciona el botón que estoy presionando.
Este error es rotativo y me lo hace cuando presiono cualquiera de los botones por segunda vez.
En el evento Init del formulario yo cargue adecuadamente los SET DEFA to y SET PATH TO... Pero no comprendo por que me hace esto.
¿Qué me faltará?
Gracias por todo.
Daniel Flores
[email protected]

1 Respuesta

Respuesta
1
Si, te los abrirá en cuatro áreas distintas.
No el problema me lo da con la tabla Afiliación, me dice:
"No se encuentra el Alias 'Afiliacion'"
Con la otra tabla no tengo ningún drama.
Daniel
Si, así es. En ese procedimiento se abre una tabla (Desc_cod505-bajas.dbf).
Daniel
Verifica que cuando la tabla "Desc_cod505-bajas.dbf" se abra no lo haga en la misma área que "afiliacion", esto lo puedes hacer:
USE Desc_cod505-bajas.dbf IN 0
SELECT USE Desc_cod505-bajas.dbf
- o -
SELECT 0
USE Desc_cod505-bajas.dbf
Bueno, eso digo yo...
Eso es porque la tabla "Desc_cod505-bajas" se está abriendo en el alias que está ocupando el "Afiliacion", por eso la sugerencia de abrirlo en el alias "0", es decir, un alias desocupado, VFP interpreta el "0" como el primer alias (zona) libre.
Gracias, ha sido una muy buena solución.
Daniel
¿Y a eso lo tengo que hacer con los cuatro botones?
Te pregunto esto porque trabajo con las tablas:
Desc_cod505-bajas.dbf
Desc_cod506-bajas.dbf
Desc_cod507-bajas.dbf
Desc_cod508-bajas.dbf
¿Qué te parece? ¿Les pongo el mismo 'alias' 0 a las cuatro?
Daniel
¡¿Cuál es el código del botón (cualquiera)?
El código es el siguiente:
--------------------------------------------
set defa to d:\visual\mutualts
set path to d:\visual\mutualts\Data
set path to d:\visual\mutualts\Export
set path to d:\visual\mutualts\Forms
set path to d:\visual\mutualts\Programs
delete file d:\visual\mutualts\export\Desc_cod505-bajas.dbf
delete file d:\visual\mutualts\export\Desc_cod505-bajas.txt
SELE afiliacion
set filter to
set order to dep
COPY TO d:\visual\mutualts\export\Desc_cod505-bajas.dbf FOR afiliacion.fech_baja = CTOD(THISFORM.TEXT2.VALUE) FIELDS afiliacion.dep,afiliacion.legajo,afiliacion.cod,afiliacion.importe,afiliacion.nombre
do exportar_cod505-bajas.prg
if file("d:\visual\mutualts\export\Desc_cod505-bajas.txt")
thisform.label_08.visible = .t.
thisform.label_08.ForeColor = RGB(255,0,0)
messagebox ("La exportación y conversión se realizó con éxito...!","¡Felicitaciones!")
else
thisform.label_08.ForeColor = RGB(192,192,192)
messagebox ("La exportación y conversión fracasó...!","¡Lo siento!")
Endif
Thisform.refresh()
----------------------------------------
Es el mismo código para los cuatro botones, lo que cambian son las tablas que usan cada uno.
Gracias por responder...!
Daniel
¿En el procedimiento "exportar_cod505-bajas.prg" se abren/cierran tablas?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas