BrGetDDb

Cria um objeto do tipo grade com registros em linhas e informações em colunas.

Hierarquia

MsBrGetDBase
- BrGetDDB

Construtores

Propriedades

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

Exemplo 1

#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

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

Árvore de páginas