Classe: BrGetDDb
Cria um objeto do tipo grade.
TSrvObject -> TControl -> TCBrowse -> MsBrGetDBase -> BrGetDDb
#include 'TOTVS.CH'User Function BrGetDDB() DEFINE DIALOG oDlg TITLE "Exemplo BrGetDDB" FROM 180,180 TO 550,700 PIXEL DbSelectArea('SA1') oBrowse := BrGetDDB():New( 1,1,260,184,,,,oDlg,,,,,,,,,,,,.F.,'SA1',.T.,,.F.,,, ) oBrowse:AddColumn(TCColumn():New('Codigo',{||SA1->A1_COD },,,,'LEFT',,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New('Loja' ,{||SA1->A1_LOJA},,,,'LEFT',,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New('Nome' ,{||SA1->A1_NOME},,,,'LEFT',,.F.,.F.,,,,.F.,)) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe BrGetDDb
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