creo que esto no es dificil pero no puedo obtener la solucion, tengo un dialogo que solicita un codigo de articulo y despues realiza una busqueda en un archivo, si no existe envia el mensaje y solicita nuevamente el codigo, si existe y es donde tengo el problema que muestre un say con la descripcion en el dialogo si alguien tiene un ejemplo. asi lo estoy haciendo y no me funciona.. :
STATIC FUNCTION Diacerti()
LOCAL oDlg,odbf,ofnt
local c_fam:=0,c_art:=0
Use miart Shared New &base de Articulos
Set index to miart1
DATABASE oDbf
odbf:bEof:={ || NIL }
DEFINE FONT oFnt NAME "times New Roman" SIZE 0,-18 BOLD
DEFINE DIALOG oDlg RESOURCE "Stok"
REDEFINE GET c_fam Picture "@z 999" ID 4011 OF oDlg
REDEFINE GET c_art Picture "@z 9999" ID 4012 OF oDlg Valid Artic(c_fam,c_art,odbf)
REDEFINE Say odbf:mdes_art ID 4013 Of odlg FONT oFnt update
REDEFINE BUTTON ID 4001 OF oDlg ACTION( lOK := .T., oDlg:End() )
REDEFINE BUTTON ID 4002 OF oDlg ACTION( oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED
if lok=.t.
Endif
RETURN NIL
STATIC FUNCTION Artic(c_fam,c_art,odbf)
Local lRet:= .T.
Local Codigo:=Str(c_fam,3)+Str(c_art,4)
If ( !EMPTY( codigo ) )
oDbf:Seek(codigo)
If oDbf:eof()
MsgStop( "CODIGO "+Str(c_fam,3)+"-"+Str(c_art,4)+ " NO EXISTE.", "Error" )
oDbf:Gotop()
lret:=.f.
endif
Endif
odbf:mdes_art
aqui lo encuentra pero al volver al dialogo no me muestra..
RETURN (lRet)
mucha gracias