Tempo aproximado para leitura: 00:02:00 min
Dúvida
Preciso bloquear um campo de edição para o usuário em uma customização através do TGET.
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.8
Solução
Para bloquear a edição de um campo customizado criado pela Classe TGet, é necessário utilizar o parâmetro lReadOnly do construtor New(), onde recebe .T.(bloqueia edição) ou .F.(permite edição).
Exemplo:
User Function TDialog()
// cria diálogo
Local oDlg :=TDialog():New(180,180,550,700,'Exemplo TDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.)
Local cTGet1 :="Teste TGet 01"
//cria TGET
Local oTGet1 :=TGet():New( 01,01,{||cTGet1},oDlg,096,009,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F./*lReadOnly*/,.F.,,cTGet1,,,,)
//Valida o usuario
If __cUserId == "000003"
oTGet1 := TGet():New( 01,01,{||cTGet1},oDlg,096,009,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.T./*lReadOnly*/,.F.,,cTGet1,,,,)
Endif
// ativa diálogo centralizado
oDlg:Activate()
Return
Saiba mais
Classe TGet
Classe TDialog
0 Comentários