Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • 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
languagecpp
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
#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

...