evento VALID en un dialogo

evento VALID en un dialogo

Postby Francisco Horta » Fri Sep 22, 2006 3:10 am

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 Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Postby Antonio Linares » Fri Sep 22, 2006 3:44 am

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( ... )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Francisco Horta » Fri Sep 22, 2006 1:22 pm

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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Postby Antonio Linares » Sat Sep 23, 2006 6:28 am

Paco,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Francisco Horta » Sat Sep 23, 2006 4:59 pm

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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 32 guests