Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Elisabete Magalhaes dos Santos Silva

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.

...

Retorno
    aRet(array_of_record)
  • Array contendo a estrutura com as condições ADVPL de cada cor e as respectivas cores.
Exemplos USER FUNCTION CN100CORLocal aParam := PARAMIXB[1]Local aRet := {}aRet := aParam // Customizações do usuárioRETURN
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.

No primeiro item do Array deve ser especificada condição ADVPL que define a cor da legenda e no segundo item deve ser especificada a cor.
Localização: Function CNTA100.
Em que ponto: Antes de exibir a MBrowse.
Programa Fonte 
CNTA100
Sintaxe

CN100COR - Inclusão /Alteração de Cores de Legenda do Contrato ( [ PARAMIXB ] ) --> aRet

Parâmetros: 

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
 Informações
iconfalse
titleExemplo 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
 Informações
iconfalse
titleExemplo 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
NomeTipoDescriçãoDefaultObrigatórioReferênciaPARAMIXBArray of RecordArray contendo a estrutura com as condições ADVPL de cada cor e as respectivas cores.

aRet