FiveTech Support Forums

Hola foro, tengo un pequeño problema que ya no se por donde buscarle, tengo un programa donde abro 2 dbf con sus alias abro el dialog, lo defino y al pulsar click en el boton de salida sale bien, pero al pulsar ESC me truena, esto nomas me sucede con xharbour con harbour jala bien, alguna sugerencia?
pongo un trozo del codigo

DEFINE DIALOG .........
bla bla bla bla

ACTIVATE DIALOG oDlg ;
VALID (oFontChild:lDestroy:=.F.,oFnt:End(),Sale(oDPac,@lExit,oItem,oBtn))

RETURN (NIL)

STATIC FUNCTION Sale(oDPac,lExit,oItem,oBtn)
DbSelectArea(oDPac)
Cierra_dbf("Pacas")
DbSelectArea(oDDes)
Cierra_dbf("Despepi")
lExit := .T.
IF(!Empty(oItem),oItem:Enable(),)
IF(!Empty(oBtn),oBtn:Enable(),)
RETURN .T.

el error es el sigueinte:
Alias does not exist: PACAS en la funcion sale linea 98 y la linea 98 es la del DbSelectArea(oDPac), ya probe poniendo antes msginfo(oDPac) y me muestra "PACAS" ya probe con u used() y si esta en uso, cual sera el problema?

gracias

Francisco,

Llama a la función Sale() después del ACTIVATE. Posiblemente se este haciendo un repintado de la caja de diálogo y se intenta usar la DBF:

ACTIVATE DIALOG oDlg VALID ...

Sale( ... )

Gracias Antonio, no fijate que no se corrigio me manda:
Argument error .NOT. form errorsys, line: 0
este mismo codigo lo tengo en otro .prg y funciona bien con xharbour, de hecho este codigo lo coie tal cual junto, asi tambien el dialogo en el recurso tiene las misma caracteristicas del que funciona bien, aki la unica diferencia con el otro .prg es que en el que funciona bien uso unicamente una base de datos y en el que no uso 2,
gracias
Salu2
Paco

Paco,

Has cambiado el valor de retorno del VALID para que devuelva .T. ó .F. ?

No, el valor sigue devolviendo .T., por lo pronto le meti un truquillo, validar dentro de sale el VK_ESCAPE y que me devuelva .F., para que no siga con los select y cierre las bases de datos, por lo pronto funciona, seguire probando, gracias
salu2
Paco