import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo coluna para ser utilizada no browse do sistema, como por exemplo: TCBrowse e BrGetDDb.
#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 |
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, TOTVS Application Server 11