import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo grade com registros em linhas e informações em colunas.
#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:bDelete := { || conOut( "bDelete" ) } 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. |
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server