BlackTDN :: Alterando o dicionário :: ON FLIGHT

 

 

Alguém aí arriscaria trocar a asa de um avião em pleno voô?
Pelo menos alguém em sua sã consciência nao faria isso.. e os loucos?

 

Realizando uma comparação ao fato acima, eis a porta aberta para alterações no dicionario em tempo de execução através do antigo e 'usual' campo formulas.

 

Participando de um projeto.. updates para lá, updates para cá.. então surge a necessidade de se fazer uma alteração na SX3, mas o acesso ao CFG é restrito ao pessoal da TI. Então testamos essa alteração usando o campo formulas, e para a surpresa de todos, foi possível alterar uma propriedade do dicionário, tornando um campo anteriormente como [V]isual para [A]lterável.

A sequencia de operações a ser seguida é:

• Posiciona na tabela SX3 para o campo a ser alterado.
  MSGINFO(POSICIONE('SX3',2,'A1_NOME','X3_VISUAL'))

• Realiza o lock da tabela e exibe se conseguiu ou não.
  MSGINFO(CVALTOCHAR(RECLOCK('SX3')))

• Define o novo valor ao campo da X3
  SX3->X3_VISUAL := 'A' (importante usar o alias da tabela)

• Libera o lock realizado.
  DBUNLOCKALL()

• Veja que o campo que antes era V-Visual passou a ser A-Alterado.
  MSGINFO(POSICIONE('SX3',2,'A1_NOME','X3_VISUAL'))

* A operação apresentada é bem sucedida para alterações que não são transportadas para o banco de dados.

** No projeto não adotamos essa solução para alteração! Foi um pensamento louco que acabou revelando essa falha, espero que a detentora do Produto tome as devidas providências em tempo.

[]’s,
OBona,