Page tree
Skip to end of metadata
Go to start of metadata

Cria um objeto do tipo coluna para ser utilizada no browse do sistema, como por exemplo: TCBrowse e BrGetDDb.

Hierarquia

Construtores

Propriedades

Observações

  • Para informações sobre utilização de browse, consulte a documentação da classe TCBrowse.

Exemplos

Exemplo 1
  #include "TOTVS.CH"
  User Function TCColumn()  
    DEFINE DIALOG oDlg TITLE "Exemplo TCColumn" FROM 180,180 TO 550,700 PIXEL     
    
    // Cria browse que receberá as colunas    
    DbSelectArea("SA1")    
    oBrowse:=BrGetDDB():New(1,1,260,184,,,,oDlg,,,,,,,,,,,,.F.,"SA1",.T.,,.F.,,,)    
    // Cria colunas    
    oBrowse:AddColumn(TCColumn():New("Codigo",{||SA1->A1_COD },,,,"LEFT",,.F.,.F.,,,,,))    
    oBrowse:AddColumn(TCColumn():New("Loja"  ,{||SA1->A1_LOJA},,,,"LEFT",,.F.,.F.,,,,,))    
    oBrowse:AddColumn(TCColumn():New("Nome"  ,{||SA1->A1_NOME},,,,"LEFT",,.F.,.F.,,,,,))  
    
    ACTIVATE DIALOG oDlg CENTERED
  Return

Exemplo da classe TCColumn

Abrangência

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

  • No labels