Fábio o que eu estou tentando fazer é criar uma propriedade que envie mensagens para o cliente do objeto. Exemplo :

...
IF oMeuObjetoCom.ExisteEstoque(lcCodProduto)
   DoFacaAlgo()
ELSE
   MessageBox(oMeuObjetoCom.Mensagem_de_erro)
ENDIF

Funciona perfeitamente, mas não gostaria que o cliente, pudesse alterar "acidentalmente" esta propriedade, mas ela poderá mudar de valor internamete no objeto com. Mas vou tentar fazer com o método assing.

Agora como já postei no foxbrasil para vc, para que serve o COMATTRIB_READONLY ?

>Oi Paulo,
>
>Você pode tentar usar o método ASSIGN para evitar que qualquer outro valor que seja atribuido à propriedade seja ignorado.
>
>Outra coisa: a utilização do atributo PROTECTED na definição da propriedade não permitirá acessá-la através de clientes do objeto.
>
>Veja o exemplo a seguir, talvez te ajude:
>
>

>DEFINE CLASS MinhaClasse AS SESSION OLEPUBLIC
>  MinhaPropriedadeParaLeitura = [Texto só para leitura]
>
>  PROCEDURE MinhaPropriedadeParaLeitura_ASSIGN
>    LPARAMETERS tAssign
>    this.MinhaPropriedadeParaLeitura = [Texto só para leitura]
>  ENDPROC
>
>ENDDEFINE
>

>
>Um abraço!