Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Israel Zanata Escorizza

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Israel Zanata Escorizza

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
CN100COR - Inclusão Alteração de Cores de Legenda do Contrato
CN100COR - Inclusão Alteração de Cores de Legenda do Contrato

Ponto

-

de

-

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


Abrangências:Microsiga Protheus
10
12, Microsiga Protheus 11, Microsiga Protheus 10
Versões:Microsiga Protheus
10
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
da
das
legenda
legendas
dos
de contratos.

Versão

12

ProgramaCNTA300.PRW
LocalizaçãoFunction
CNTA300
BrowseDef()
ExecuçãoAntes da exibição do
MBrowse
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
Informações
iconfalse
title
Versão 11 ou anteriores:
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
Exemplos
Informações
iconfalse
titleExemplo de P.E


#include "protheus.ch"

USER

FUNCTION CN100CORLocal aParam

FUNCTION CN100COR()
Local aParam :=

PARAMIXB[1]
Local

aRet := {}aRet := aParam // Customizações do usuárioRETURN

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