nTopNuméricoObrigatório
Coordenada superior do browse dentro do container.
CLASSEPublicado
BrGetDDB
BrGetDDB():New( <nTop>, <nLeft>, <nBottom>, <nRight>, ... ) --> oBrowseCria uma grade/browse de dados com registros em linhas e informações em colunas.
Visão geral
BrGetDDB cria um objeto visual do tipo grade para exibir registros de uma área de dados em linhas e colunas. No exemplo oficial, a rotina abre a área SA1, cria o browse dentro de um diálogo, adiciona colunas com TCColumn e usa blocos de código para personalizar ações como edição e exclusão. É um componente útil para interfaces legadas ou específicas que precisam apresentar dados tabulares com controle programático.
Sintaxe
BrGetDDB():New( <nTop>, <nLeft>, <nBottom>, <nRight>, ... ) --> oBrowseParâmetros
nLeftNuméricoObrigatório
Coordenada esquerda do browse dentro do container.
nBottomNuméricoObrigatório
Coordenada inferior do browse.
nRightNuméricoObrigatório
Coordenada direita do browse.
oWndObjetoOpcional
Janela ou diálogo onde o componente será criado.
cAliasCaractereOpcional
Alias da área de dados usada pelo browse, como SA1 no exemplo.
Métodos
NewCria o componente visual de grade dentro de uma janela ou diálogo.BrGetDDB():New( <nTop>, <nLeft>, <nBottom>, <nRight>, ... ) --> oBrowse
Parâmetros
NomeFormatoObrigatórioDescriçãoObservação
nTopNuméricoObrigatórioPosição superior do componente.
nLeftNuméricoObrigatórioPosição esquerda do componente.
nBottomNuméricoObrigatórioPosição inferior do componente.
nRightNuméricoObrigatórioPosição direita do componente.
oWndObjetoOpcionalContainer visual, normalmente um diálogo.
cAliasCaractereOpcionalAlias da tabela/área de trabalho a exibir.
Retorno
oBrowse: objeto browse criado.
AddColumnAdiciona uma coluna ao browse usando um objeto TCColumn.oBrowse:AddColumn( TCColumn():New( <cTitle>, <bData>, ... ) ) -->
Parâmetros
NomeFormatoObrigatórioDescriçãoObservação
cTitleCaractereObrigatórioTítulo exibido no cabeçalho da coluna.
bDataBloco de códigoObrigatórioBloco que retorna o valor da célula, como { || SA1->A1_COD }.
Browse de clientes em diálogo
#Include "TOTVS.ch"
User Function BrGetDDB()
Local oDlg
Local oBrowse
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:bCustomEditCol := {|x, y, z| U_EditLine(x, y, z)}
oBrowse:bDelete := {|| ConOut("bDelete")}
oBrowse:AddColumn(TCColumn():New("Código", {|| 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
User Function EditLine(x, y, z)
ApMsgStop("editLine")
Return .T.Resultado esperado
Cria um diálogo com uma grade baseada no alias SA1 e três colunas: Código, Loja e Nome.
- Antes de criar o browse, selecione a área de dados com DbSelectArea() ou garanta que o alias esteja aberto.
- Use TCColumn para declarar quais campos ou expressões serão exibidos como colunas.
- Callbacks como bCustomEditCol e bDelete permitem personalizar comportamento de edição e exclusão.
- Coordenadas e dimensões dependem do container visual e do uso de PIXEL no diálogo.
- Se o alias informado não estiver aberto ou posicionado corretamente, a grade não exibirá os dados esperados.
- Por ser componente visual legado/específico, valide comportamento no SmartClient e release utilizados.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.