Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada: CN100COR - Inclusão /Alteração de Cores de Legenda do Contrato


Abrangências:Microsiga Protheus 12, Microsiga Protheus 11, Microsiga Protheus 10
Versões:Microsiga Protheus 12, Microsiga Protheus 11, Microsiga Protheus 10
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Espanhol , Inglês


Descrição:

Este Ponto de Entrada permite incluir ou alterar as cores das legendas de contratos.

Versão 12

ProgramaCNTA300.PRW
LocalizaçãoFunction BrowseDef()
ExecuçãoAntes da exibição do Browse
SintaxeCN100COR()
ParâmetrosPARAMIXBPARAMIXB[1]Matriz contendo valores a serem utilizados na legenda.
PARAMIXB[1][N][1]Condição ADVPL que define a cor da legenda
PARAMIXB[1][N][2]Cor da legenda
PARAMIXB[1][N][3]Texto da legenda
RetornoaRetaRet[1]Matriz contendo valores a serem utilizados na legenda
aRet[1][N][1]Condição ADVPL que define a cor da legenda
aRet[1][N][2]Cor da legenda
aRet[1][N][3]Texto da legenda

Exemplo de P.E


#include "protheus.ch"

USER FUNCTION CN100COR()
Local xParam := PARAMIXB[1]
Local aRet := {}

DO CASE

CASE ValType(xParam) == "A"

//- Alteração total da legenda vermelha (RED).
nPos := aScan(xParam, {|x|UPPER(x[2]) == 'RED'})
xParam[nPos,1] := "Alltrim(CN9->CN9_SITUAC) == 'Z1'" //- Condição
xParam[nPos,2] := "BLACK" //- Cor
xParam[nPos,3] := "Legenda Customizada 1" //- Texto

//- Inclui nova cor para legenda.
aAdd(xParam,{"Alltrim(CN9->CN9_SITUAC) == 'Z2'","RED","Legenda Customizada 2"})

CASE ValType(xParam) == "O"

//- Adição de legenda por Browser
xParam:AddLegend("Alltrim(CN9->CN9_SITUAC) == 'Z3'","GREEN","Legenda Customizada 3")

ENDCASE

aRet := xParam
RETURN aRet




Versão 11

ProgramaCNTA100.PRW
LocalizaçãoFunction CNTA100
ExecuçãoAntes da exibição do MBrowse
SintaxeCN100COR()
ParâmetrosPARAMIXBPARAMIXB[1]Matriz contendo valores a serem utilizados na legenda.
PARAMIXB[1][N][1]Condição ADVPL que define a cor da legenda
PARAMIXB[1][N][2]Cor da legenda
RetornoaRetaRet[1]Matriz contendo valores a serem utilizados na legenda
aRet[1][N][1]Condição ADVPL que define a cor da legenda
aRet[1][N][2]Cor da legenda

Exemplo de P.E


#include "protheus.ch"

USER FUNCTION CN100COR()
Local aParam := PARAMIXB[1]
Local aRet := {}

If ValType(aParam) == "A" //- Proteção para garantir que recebe array

//- Altera cor da legenda de vermelho para preto.
nPos := aScan(aParam, {|x|UPPER(x[2]) == 'BR_VERMELHO'})
aParam[nPos,2] := "BR_PRETO"

EndIf

aRet := aParam

RETURN aRet