Como corrigir o warning “Unsupported Assign to Constant” no AdvPL

Mensagem é exibida geralmente em fontes antigos. Saiba como corrigir.

Com as atualizações do Protheus, muitas coisas obsoletas podem ser alteradas e trocadas. Uma mensagem de warning que vem aparecendo em fontes antigos, é Unsupported Assign to Constant at line, e o número da linha em seguida.

Basicamente, o usuário está passando uma constante para um objeto, quando ela deveria ser uma variável, como no exemplo abaixo:

@ 015,010 Msget oCor1 var "Azul" SIZE 75,10 of oDlgTabPrc COLORS 16777215,255 FONT oTFont Pixel

Para resolver, ao invés de “chumbarmos” o valor, criamos uma variável e utilizamos ela no lugar.

cCor1 := "Azul"
@ 015,010 Msget oCor1 var cCor1 SIZE 75,10 of oDlgTabPrc COLORS 16777215,255 FONT oTFont Pixel

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan Atilio (Daniel Atilio)
Especialista em Engenharia de Software pela FIB. Entusiasta de soluções Open Source. E blogueiro nas horas vagas.

2 Responses

  1. Adilson disse:

    Parabéns pois toda ajuda é bem vinda!!!

Deixe uma resposta