PROCEDURE PTESHWGUIBrowse( cModule, cTitle, ... )
LOCAL cnSQL := ADOLocal(), oBrowseList
WITH OBJECT cnSQL
:Execute( "SELECT * FROM JPCIDADE" )
oBrowseList := { ;
{ "IDCIDADE", { || Str( :Number( "IDCIDADE" ), 6 ) } }, ;
{ "NOME", { || :String( "CINOME", 60 ) } }, ;
{ "UF", { || :String( "CIUF", 2 ) } } }
hwguiBrowse( cTitle, cnSQL, oBrowseList )
MsgExclamation( :String( "CINOME" ) )
:CloseRecordset()
ENDWITH
( cModule )
RETURN
FUNCTION HwguiBrowse( cTitle, cnSQL, oBrowseList )
LOCAL oDlg, oBrowse, cFilter := ""
// INIT WINDOW oDlgPesquisa TITLE cTitle AT 9, 0 SIZE AppWidth(), AppHeight()
INIT DIALOG oDlg AT 0, 0 SIZE AppWidth() , AppHeight() TITLE cTitle
@ 1, 1 BROWSE ARRAY oBrowse ;
SIZE AppWidth() - 10, AppHeight() - 10 STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL + DS_CENTER ;
ON CLICK { || hwg_EndDialog( oDlg:Handle ) }
oBrowse:aArray := cnSQL
BrowseSet( oBrowse, oBrowseList, oDlg, @cFilter )
ACTIVATE DIALOG oDlg CENTER
RETURN Nil
No primeiro módulo eu consulto o MySQL para o browse, chamo a dialog com browse, e no retorno pego o que interessa e fim.
Isso é normal na HWGUI, ou só quando usa GTWVG junto?