Classe: TCColumnCria um objeto do tipo coluna para ser utilizada no browse do sistema, como por exemplo: TCBrowse e BrGetDDb. TClassInstance -> TCColumn NewMétodo construtor da classe.TCColumn(): New ( < cTitulo>, < bData>, [ cPicture], [ uParam4], [ uParam5], [ cAlinhamento], [ nLargura], [ uParam8], [ lEdit], [ uParam10], [ bValid], [ uParam12], [ uParam13], [ uParam14] ) --> Nil Nome | Tipo | Descrição | Obrigatório | Referência | cTitulo | Caracter | Indica o título da coluna. | X | | bData | Bloco de código | Indica o bloco de código que contém o campo da tabela que será apresentado no browse. | X | | cPicture | Caracter | Indica a picture necessária para edição da coluna. | | | uParam4 | Qualquer | Compatibilidade. | | | uParam5 | Qualquer | Compatibilidade. | | | cAlinhamento | Caracter | Indica o tipo de alinhamento da coluna. Sendo: Left (à esquerda), Center (centralizada) ou Right (à direita). | | | nLargura | Numérico | Indica a largura da coluna. | | | uParam8 | Qualquer | Indica se, verdadeiro (.T.), a coluna é uma imagem; caso contrário, falso (.F.) (conteúdo padrão). | | | lEdit | Lógico | Compatibilidade. | | | uParam10 | Qualquer | Compatibilidade. | | | bValid | Bloco de código | Indica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.). | | | uParam12 | Qualquer | Compatibilidade. | | | uParam13 | Qualquer | Compatibilidade. | | | uParam14 | Qualquer | Compatibilidade. | | |
oBrowse:AddColumn(TCColumn():New("Codigo",{||SA1->A1_COD },"@!",,,"LEFT",,.F.,.F.,,,,,)) Propriedade | Descrição | Tipo | bData | Indica o bloco de código que contém o campo da tabela que será apresentado no browse. | Bloco de código | bValid | Indica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.). | Bloco de código | cHeading | Indica o título da coluna. | Caracter | cPicture | Indica a picture necessária para edição da coluna. | Caracter | lEdit | Indica se habilita(.T.)/desabilita(.F.) a edição da célula. | Lógico |
Para informações sobre utilização de browse, consulta a documentação da classe TCBrowse. #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 Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |