| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
Este ponto de entrada está localizado na rotina Solicitação de Coleta (TMSA460), é responsável por alterar a cor da legenda.
É executado quando a tela é criada e quando acionado o botão Legenda.
aCores - Array que contém todo o conteúdo da legenda para o caso de alteração na cor da legenda do grid
aLegenda - Array que contém o conteúdo da legenda para alteração na cor da legenda do botão "Legenda".
Ao executar a função de chamada da tela ou acionar o botão Legenda.
Programa Fonte
TMSA460.PRW
Retorno
aRet - Array contendo todo o conteúdo da legenda
Exemplos
User Function TM460LEG()
Local nAcao:= PARAMIXB[1]
Local aRet := PARAMIXB[2]
Local nPos := 0
If nAcao == 1
Pos := aScan(aRet, {|x| x[2] == "BR_VERMELHO"})
If nPos > 0
aRet[nPos, 2] := 'BR_PINK'
EndIf
Else
nPos := aScan(aRet, {|x| x[1] == "BR_VERMELHO" })
If nPos > 0
aRet[nPos, 1] := 'BR_PINK'
EndIf
EndIf
Return aRet
|