4D Doc Center : SET ENTERABLE

4D v14.3

SET ENTERABLE


SET ENTERABLE ( {* ;} objeto ; editavel )

Parâmetro	Tipo	Descrição
*	Operador	se especificado, objeto é um nome de objeto (string), se omitido, objeto é um campo ou uma variável
objeto	Objeto de formulário	Nome de objeto (se* for especificado) ou variável (se * é omitido)
editavel	Booleano	True se editável; False para não editável

Descrição

O comando OBJECT SET ENTERABLE torna editáveis ou não editáveis os objetos de formulário especificados por objeto.

Se especifica o parâmetro opcional *, indica que o parâmetro objeto é um nome de objeto (uma string). Se omite o parâmetro opcional *, indica que o parâmetro objeto é uma tabela, um campo ou uma variável. Neste caso, especifica uma referencia de um campo ou de uma variável (campo ou variável tipo objeto unicamente) ao invés de uma string. Para maior informação sobre nomes de objetos, consulte a seção .

A utilização deste comando é equivalente a seleção da opção editável para um campo ou uma variável na lista de propriedades do editor de formulários. Este comando funciona em subformulários unicamente se for encontrada no método formulário do subformulário.

Quando areaEntrada é editável (TRUE), o usuário pode mover o cursor na área e introduzir dados. Quando areaEntrada não é editável(FALSE), o usuário não pode mover o cursor na área e não pode introduzir dados.

O comando OBJECT SET ENTERABLE também pode ser utilizado para ativar por programação o modo “Editável em lista” para os subformulários e formulários listados mostrados utilizando os comandos MODIFY SELECTION e DISPLAY SELECTION:

• Para os subformulários, no parâmetro areaEntrada, passe o nome da tabela do subformulário ou o nome do objeto do subformulário, por exemplo: OBJECT SET ENTERABLE(*;"Subform";True).
• Para os formulários listados, deve passar o nome da tabela do formulário no parâmetro areaEntrada, por exemplo: OBJECT SET ENTERABLE([MinhaTabela];True).

Tornar um objeto não editável não evita que modifica seu valor por programação.

Exemplo 1

O exemplo a seguir define um campo de envio, dependendo do peso do pacote. Se o pacote pesa um 1 kilo ou menos, o envio é realizado através da Oficina Postal Nacional e o campo não é editável. Do contrário, o campo é editável.

 If([Envio]Peso<=1)

    [Envio]Empresa:="Correio Nacional"

    OBJECT SET ENTERABLE([Envio]Empresa;False)

 Else

    OBJECT SET ENTERABLE([Envio]Empresa;True)

 End if

Exemplo 2

Este é o método de objeto de uma caixa de seleção localizada no cabeçalho de uma lista para controlar o modo Entrada em lista:

 C_BOOLEAN(bEditavel)

 OBJECT SET ENTERABLE([Tabela1];bEditavel)