Histórico da Página
...
- 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
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.,,, )
//Avaliar a documentação http://tdn.totvs.com.br/display/tec/bCustomEditCol
oBrowse:bCustomEditCol := {|x,y,z| u_editLine(x,y,z) }
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 nil
User Function editLine(x,y,z)
ApMsgStop("editLine")
Return .T.
|
Resultado do Exemplo
Abrangência
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas