Classe: TSBrowse
Cria um objeto do tipo grade.
TSrvObject -> TControl -> TCBrowse -> TSBrowse
#include 'TOTVS.CH'User Function tSBrowse() DEFINE DIALOG oDlg TITLE "Exemplo TSBrowse" FROM 180,180 TO 550,700 PIXEL aBrowse := {{'CLIENTE 001','RUA CLIENTE 001','BAIRRO CLIENTE 001'},; {'CLIENTE 002','RUA CLIENTE 002','BAIRRO CLIENTE 002'},; {'CLIENTE 003','RUA CLIENTE 003','BAIRRO CLIENTE 003'} } oBrowse := TSBrowse():New(01,01,260,184,oDlg,,16,,5) oBrowse:AddColumn( TCColumn():New('Nome',,,{|| },{|| }) ) oBrowse:AddColumn( TCColumn():New('Endereço',,,{|| },{|| }) ) oBrowse:AddColumn( TCColumn():New('Bairro',,,{|| },{|| }) ) oBrowse:SetArray(aBrowse) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TSBrowse
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas