Agora preciso de ajuda numa coisa:
#include "hbgtinfo.ch"
PROCEDURE PTESHWGUI( cModule, cTitle, ... )
LOCAL cnSQL := ADOLocal(), oBrowseList, oDlg
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, @oDlg )
MsgExclamation( :String( "CINOME" ) )
:CloseRecordset()
ENDWITH
( cModule )
RETURN
Com multithread, e DIALOG MODAL, isso funciona direito.
Isso seria parte da janela, vai criar o recordset usado no browse da hwgui, e AGUARDAR o retorno.
Com DIALOG NOMODAL isso muda de figura, porque a rotina NÃO aguarda mais a DIALOG, e já continua e fecha tudo.
A pergunta tem tudo a ver com HWGUI:
Como faço isso fazer parte da DIALOG HWGUI?
Lógico, deixando a parte do retorno de lado, por enquanto.