CONSEGUIIIIIIIIIIIII
INIT DIALOG oDlg TITLE "PRODUTOS" ;
ICON HIcon():Addresource('SGC_ICON') ;
AT 0, 0 SIZE 1024,600 CLIPPER NOEXIT ;
ON INIT {|| oBrowse1:aArray := ::CADASTRO_PRODUTOS_MANUTENCAO_CARREGA( "ORDER BY produtos.DESPRO LIMIT 50" ) , ;
oBrowse1:REFRESH(), ;
::CADASTRO_PRODUTOS_MANUTENCAO_onDlgInit( oDlg ), oDlg:oPage1:SetTab(1), oDlg:oPage1:ChangePage(1) } ;
BACKCOLOR 16777215
@ 1,113 TAB oPage1 ITEMS {} SIZE 1024,456 ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS;
ON GETFOCUS { || oDlg:oPage1:oBrowse1:SetFocus()};
ON CHANGE {|This| IF( ! EMPTY(oBrowse1:aArray), ;
::Produtos_tab(This, oDlg, ;
LTRIM(str(oPage1:oBrowse1:aArray[ oPage1:oBrowse1:nCurrent, 1])), ;
oPage1:oBrowse1:aArray[ oPage1:oBrowse1:nCurrent, 2], ;
@cProgressKey ), )}
SO FUNCIONOU ASSIM