Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
|
...
Cria
...
um
...
objeto
...
do
...
tipo
...
grade com registros em linhas e informações em colunas.
Hierarquia
...
- MsBrGetDBase
- BrGetDDB
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Observações
- O uso desta classe não é recomendado, ela tem como objetivo apenas ser reimplementada pela classe MSGetDB, que deve ser utilizada em seu lugar.
Exemplos
Bloco de código | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#include 'totvs.ch'
user function brGetDDB()
local oDlg := nil
NewMétodo construtor da classe.BrGetDDb(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ uParam5], [ uParam6], [ uParam7], [ oDlg], [ cField], [ uParam1], [ uParam2], [ bChange], [ bLDblClick], [ bRClick], [ oFont], [ oCursor], [ nClrFore], [ nClrBack], [ cMsg], [ uParam20], < cAlias>, [ lPixel], [ bWhen], [ lDesign], [ bValid], [ uParam26], [ uParam27] ) --> oObjeto
oObjeto
oBrowse := BrGetDDB():New( 1,1,260,184,,,,oDlg,,,,,,,,,,,,.F.,'SA1',.T.,,.F.,,, ) User Function BrGetDDB() DEFINE DIALOG oDlg TITLE "Exemplo BrGetDDB" FROM 180, 180 TO 550, 700 PIXEL DbSelectArea dbSelectArea('SA1') oBrowse := BrGetDDB(): Newnew( 1,1,260,184,,,,oDlg,,,,,,,,,,,,.F.,'SA1',.T.,,.F.,,, ) //Avaliar a documentação http://tdn.totvs.com.br/display/tec/bCustomEditCol oBrowse:bCustomEditCol := {|x,y,z| u_editLine(x,y,z) } oBrowse:bDelete := { || conOut( "bDelete" ) } oBrowse: AddColumnaddColumn( TCColumn():New new( 'Codigo', { || SA1->A1_COD },,,, 'LEFT',, .F., .F.,,,, .F., ) ) oBrowse: AddColumnaddColumn( TCColumn():New new( 'Loja', {,{ || SA1->A1_LOJA },,,, 'LEFT',, .F., .F.,,,, .F., ) ) oBrowse: AddColumnaddColumn( TCColumn():New new( 'Nome', {,{ || SA1->A1_NOME },,,, 'LEFT',, .F., .F.,,,, .F., ) ) ACTIVATE DIALOG oDlg CENTERED ReturnExemplo da classe BrGetDDb
return nil
User Function editLine(x,y,z)
ApMsgStop("editLine")
Return .T.
|
Resultado do Exemplo
Abrangência
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