FiveTech Software tech support forums

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

Hola Pablo, te falta la instruccion de Refresh()
oDbf:mdes_art
oDbf:Refresh()

Espero que con esto soluciones tu problema amigo...
Adriano

Amiguinho

REDEFINE GET oGet001 VAR c_fam Picture "@z 999" ID 4011 OF oDlg
REDEFINE GET oGet002 VAR c_art Picture "@z 9999" ID 4012 OF oDlg Valid Artic(c_fam,c_art,odbf,oSay003)

REDEFINE Say oSay003 VAR cSay003 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,osay)
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
oSay003:SetText(odbf:mdes_art)

aqui lo encuentra pero al volver al dialogo no me muestra..

RETURN (lRet)

les agradesco la pronta respuesta, adriano no supe donde poner el refresh(), me arrojaba error y con la opcion de rochinha me funciono ok.