select mitabla funciona en init no en otra parte

On Thu, 13 Jul 2006 18:56:30 -0700, "Nestor Cerecer"
wrote:

Mostrar la cita

Tengo un formulario donde realizo un proceso para ver las tareas
atrazadas... estas (despues de un proceso) las muestro en un listbox. el
procedimiento empieza con un select mitabla. Ejecuto esto en el init del
formulario principal. Me pidieron que se actualizara la informacion (sin
necesidad de salirse del sistema) sobre las tareas atrazadas. Para esto lo
puse primero en el gotfocus y despues movi el proceso a un boton
actualizar y en ambos caso me dice que no se encuentra el alias mitarea
... que esta pasando? la tabla esta en el entorno de datos.

Usa el Debugger linea por linea a ver si algun proceso lo esta
cerrando. De todos modos lo que haces es hacer el query o abrirlo
cuando lo necesitas.


Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP

Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://alexfeldstein.blogspot.com
Website: http://www.feldstein.net

Buenos días Nestor:

Puede ser que la tabla se cierre en el proceso que realizas, para
comprobarlo puedes utilizar:

IF USED('MiTabla")
Select MiTabla
ELSE
USE MiTabla IN 0
Select MiTabla
ENDIF

Espero te ayude. Saludos.

Juan Efraím Martínez Lira.
Guanajuato, México.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Gracias por responder (tambien a Alex Feldstein), en el proceso solo ejecuto
select mitabla seek ... if found() un ciclo while para vericar cuales
estan atrazados el ciclo con su skip es todo, no cierro, ni filtro ni
relaciono tablas..

"Juan Efraím Martínez Lira" escribió en el mensaje
news:eoPTd%
Mostrar la cita

Buenos días Nestor:

Puede ser que la tabla se cierre en el proceso que realizas, para
comprobarlo puedes utilizar:

IF USED('MiTabla")
Select MiTabla
ELSE
USE MiTabla IN 0
Select MiTabla
ENDIF

Espero te ayude. Saludos.

Juan Efraím Martínez Lira.
Guanajuato, México.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Dices que haces: SELECT MiTabla ...
y el error es que no encuentra el alias MiTarea

¿no tienes problemas con los nombres o alias de las tablas?


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos



"Esteban" escribió en el mensaje
news:
Mostrar la cita

Gracias por responder (tambien a Alex Feldstein), en el proceso solo

ejecuto
Mostrar la cita

select mitabla seek ... if found() un ciclo while para vericar cuales
estan atrazados el ciclo con su skip es todo, no cierro, ni filtro ni
relaciono tablas..

"Juan Efraím Martínez Lira" escribió en el mensaje
news:eoPTd%
> Buenos días Nestor:
>
> Puede ser que la tabla se cierre en el proceso que realizas, para
> comprobarlo puedes utilizar:
>
> IF USED('MiTabla")
> Select MiTabla
> ELSE
> USE MiTabla IN 0
> Select MiTabla
> ENDIF
>
> Espero te ayude. Saludos.
>
> Juan Efraím Martínez Lira.
> Guanajuato, México.
>
>
> PortalFox :: Nada corre como un zorro
> http://www.portalfox.com
>
> PortalFox - NNTP Forum Gateway

ningun problema. El procedimiento funciona en el init del formulario, lo
quiero pasar al gotfocus del formulario y ahi ya no funciona me marca el
error indicado. en mi ultima prueba lo puse en un boton y al dar un click
da el mismo error. Mantuve el codigo en el init, funciono perfectamente,
lo paso al boton y no funciona (seguro que la copia es completa).
pues... ahi va el codigo que uso, las tablas estan en el entorno de datos

SELECT Cursos
SET ORDER TO Desde
SET NEAR ON
ini_year = DATE(YEAR(DATE()),1,1)
SET CENTURY OFF
Thisform.Datos2.Clear
SEEK DATE()
DO WHILE !EOF() .and. Cursos.Desde>ÚTE() .and.
Cursos.Desde<ÚTE()+Empresa.Dias_Aviso
THISFORM.Datos2.ADDLISTITEM(Cursos.Codigo,ThisForm.Datos2.ListCount+1,1)
THISFORM.Datos2.ADDLISTITEM(Cursos.Nombre,ThisForm.Datos2.ListCount,2)
THISFORM.Datos2.ADDLISTITEM("
"+DTOC(Cursos.Desde),ThisForm.Datos2.ListCount,3)
THISFORM.Datos2.ADDLISTITEM(DTOC(Cursos.Hasta),ThisForm.Datos2.ListCount,4)
THISFORM.Datos2.ADDLISTITEM(Cursos.Instructor,ThisForm.Datos2.ListCount,5)
THISFORM.Datos2.ADDLISTITEM("Por Ejecutarse",ThisForm.Datos2.ListCount,6)
skip
ENDDO

*SELECT Cursos
* SET ORDER TO Hasta
SEEK Ini_Year
IF !eof()
&&WAIT windows DTOC(cursos.hasta)
ENDIF
DO WHILE !EOF() .and. Cursos.Desde<ÚTE() &&Cursos.Hasta>ÚTE()
IF Cursos.Ejecutado="N" &&Cursos.Desde<ÚTE()
SELECT Lista
SET ORDER TO Curso1
SEEK Cursos.Codigo
IF FOUND()
THISFORM.Datos2.ADDLISTITEM(Cursos.Codigo,ThisForm.Datos2.ListCount+1,1)
THISFORM.Datos2.ADDLISTITEM(Cursos.Nombre,ThisForm.Datos2.ListCount,2)
THISFORM.Datos2.ADDLISTITEM("
"+DTOC(Cursos.Desde),ThisForm.Datos2.ListCount,3)
THISFORM.Datos2.ADDLISTITEM(DTOC(Cursos.Hasta),ThisForm.Datos2.ListCount,4)
THISFORM.Datos2.ADDLISTITEM(Cursos.Instructor,ThisForm.Datos2.ListCount,5)
THISFORM.Datos2.ADDLISTITEM("En Ejecucion",ThisForm.Datos2.ListCount,6)
ELSE

ENDIF
ENDIF
SELECT Cursos
skip
ENDDO

SEEK Ini_Year
IF !eof()
&&WAIT windows DTOC(cursos.hasta)
ENDIF
DO WHILE !EOF() .and. Cursos.Desde<ÚTE() &&Cursos.Hasta>ÚTE()
IF Cursos.Ejecutado="N" &&Cursos.Desde<ÚTE()
SELECT Lista
SET ORDER TO Curso1
SEEK Cursos.Codigo
IF !FOUND()
THISFORM.Datos2.ADDLISTITEM(Cursos.Codigo,ThisForm.Datos2.ListCount+1,1)
THISFORM.Datos2.ADDLISTITEM(Cursos.Nombre,ThisForm.Datos2.ListCount,2)
THISFORM.Datos2.ADDLISTITEM("
"+DTOC(Cursos.Desde),ThisForm.Datos2.ListCount,3)
THISFORM.Datos2.ADDLISTITEM(DTOC(Cursos.Hasta),ThisForm.Datos2.ListCount,4)
THISFORM.Datos2.ADDLISTITEM(Cursos.Instructor,ThisForm.Datos2.ListCount,5)
THISFORM.Datos2.ADDLISTITEM("Atrazados",ThisForm.Datos2.ListCount,6)
ENDIF
ENDIF
SELECT Cursos
skip
ENDDO
*Thisform.Datos2.Sorted
Thisform.Datos2.Refresh


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway