FiveTech Software tech support forums

Srs.
Tengo un List Box que muestra los datos de mi tabla de articulos, bien, cuando el usuario elige el articulo que quiere, quiero mostrar la imagen del articulo.

1-List Box
2-Eleccion
3-Mostrar la Imagen
Tengo el List Box y la funcion para Mostrar la Imagen, pero cuando le dan el click sobre el producto, me da error.

de que no puede mostrar el mensaje.
Pueden indicarme como realizar esto??

_,

Que error te da ? Por favor copia aqui el error, gracias

Antonio Linares wrote:_,

Que error te da ? Por favor copia aqui el error, gracias

El error es el Siguiente:

Message not Found
TDIALOG:INV_SHOW
Arg:
[ 1]=O Object

Stack Calls:
_errt_sbase
TDIALOG ERROR(172)

MAS LAS DESCRIPTIVAS DE ORIGEN.

ESTA FUNCION LA SAQUE Y CREE UNA VENTANA PRINCIPAL Y CORRE PERFECTAMENTE..
Gracias.

_,

En que parte de tu PRG se llama al método :INV_SHOW() ?

Puedes copiar aqui esa porción de código ? gracias

Antonio Linares wrote:_,

En que parte de tu PRG se llama al método :INV_SHOW() ?

Puedes copiar aqui esa porción de código ? gracias

*---------------------------
STATIC FUNCTION Sel_Invent_dlg()
*---------------------------
LOCAL oFont,oFont2
local oSay, cSearch := ""

DEFINE FONT oFont NAME "Arial" SIZE 0, -12
DEFINE FONT oFont2 NAME "Arial" SIZE 0, -10
DEFINE DIALOG o[ O_DLG_INVE ] RESOURCE "Sel_Invent"

REDEFINE LISTBOX o[ O_LBX_INVE ] ;
FIELDS (aDbf[ DBF_ARTICULOS ])->NOMPROD, (aDbf[ DBF_ARTICULOS ])->REFERENCIA, (aDbf[ DBF_ARTICULOS ])->ingprod ;
HEADERS "NOMBRE", "REFERENCIA", "USO" FONT oFont2;
ID 500 OF o[ O_DLG_INVE ] ALIAS aDbf[ DBF_ARTICULOS ]

o[ O_LBX_INVE ]:aColSizes := { 80, 80, 40 }
o[ O_LBX_INVE ]:blDblClick := {|| ( nRecno := (aDbf[ DBF_ARTICULOS ])->( Recno() ), o[ O_DLG_INVE ]:end()) }
o[ O_LBX_INVE ]:blClicked := {|| ( nRecno := (aDbf[ DBF_ARTICULOS ])->( Recno() ), o[ O_DLG_INVE ]:end()) }

REDEFINE say oSay VAR Csearch ID 600 OF o[ O_DLG_INVE ] readonly

o[ O_LBX_INVE ]:bKeyChar = { | nKey, nFlags | Search_inv( nKey, @cSearch ), o[ O_LBX_INVE ]:Refresh() ,oSay:Refresh(), o[ O_LBX_INVE ]:setfocus() }
oSay:bKeyChar = { | nKey, nFlags | Search_inv( nKey, @cSearch ), o[ O_LBX_INVE ]:Refresh() ,oSay:Refresh(), o[ O_LBX_INVE ]:setfocus() }

REDEFINE BUTTON ID 700 OF o[ O_DLG_INVE ] ACTION o[ O_DLG_INVE ]:End()
REDEFINE BUTTON ID 800 OF o[ O_DLG_INVE ] ACTION o[ O_DLG_INVE ]:inv_show()
*!* ACTIVATE DIALOG o[ O_DLG_INVE ] CENTERED

*!* set filt to
*!* select &cAlias2

RETU nRecno

*---------------------------
STATIC FUNCTION Inv_Show()
*---------------------------
local oBmp
DEFINE WINDOW oWnd TITLE "Presenta Imagen."

*!* // @ 10, 20 BTNBMP RESOURCE "users" SIZE 60, 60 ACTION MsgInfo( "click!" )

@ 5, 5 BITMAP oBmp FILENAME "\fwppc\samples\1KX-82590-01.bmp" NOBORDER

oBmp:lTransparent = .t.

ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "click!" )

return nil

Hola _:

Creo que tu problema está en esta línea:
REDEFINE BUTTON ID 800 OF o[ O_DLG_INVE ] ACTION o[ O_DLG_INVE ]:inv_show()
Debería quedar así:
REDEFINE BUTTON ID 800 OF o[ O_DLG_INVE ] ACTION inv_show()

Saludos.

Manuel Mercado