| Produto: | TOTVS Backoffice |
|---|---|
| Linha de Produto: | Linha Protheus ® |
| Módulo: | Financeiro |
| Função: | FINA040 - Contas a Receber |
Utilizado para alterar as legendas de diversas rotinas do financeiro, como FINA040, FNA050, FINA740, FINA750 entre outras.
O retorno desse ponto de entrada será substituirá as regras do padrão.
Lembrando que as regras de legenda são consideradas na ordem do array retornado.
A Primeira regra atendida definirá a cor que será atribuída.
Atenção para com a ordem das regras e com regras conflitantes.
É chamado para retornar as regras de legendas e chamado também quando acionado o botão de legendas para que seja mostrada a tela:
| Nome | Descrição |
|---|---|
nReg | Com valor: Abrir a telinha de legendas ### Sem valor: Retornar as regras |
| cAlias | SE1 ou SE2, dependendo da rotina utilizada |
| aRegras | Regras do Padrão |
| aLegendas | Legendas do Padrão |
| Nome | Descrição |
|---|---|
aRet | Array com todas as regras de legendas. Estrutura do array: 2ª posição: Cor |
#INCLUDE "PROTHEUS.CH"
User Function FINALeg()
Local nReg := PARAMIXB[1] // Com valor: Abrir a telinha de legendas ### Sem valor: Retornar as regras
Local cAlias := PARAMIXB[2] // SE1 ou SE2
Local aRegras := PARAMIXB[3] // Regras do padrão
Local aLegendas := PARAMIXB[4] // Legendas do padrão
Local aRet := {}
Local nI := 0
/*
Sem Recno --> Retornar array com as regras para o Browse colocar as cores nas colunas.
Com Recno --> Chamada quando acionado botão Legendas do browse -> Abrir telinha de Legendas (BrwLegenda)
*/
If nReg = Nil
/*
aRegras passado contém as regras do padrão
O array retornado deverá conter todas as regras, do padrão e customizadas.
Dicas:
Lembrando que as regras de legenda são consideradas na ordem do array retornado.
A Primeira regra atendida definirá a cor que será atribuída.
Atenção para com a ordem das regras e com regras conflitantes.
A Última regra do padrão, caso não atenda a nenhuma condição anterior é a .T. -> BR_VERDE -> Título em aberto
*/
If cAlias = "SE1"
/*
Exemplo: adicionar uma regra de legenda "mais prioritária" que as do padrão
*/
aAdd(aRet,{"!Empty(E1_PORTADO) .AND. Empty(E1_NUMBOR)","BR_LARANJA"})
/*
Regras do padrão para retorno
*/
For nI := 1 To Len(aRegras)
aAdd(aRet,{aRegras[nI][1],aRegras[nI][2]})
Next nI
Else // SE2
/*
Exemplo para retornar as mesmas regras do padrão sem alteração
*/
aRet := aRegras
Endif
Else // Abrir telinha de Legendas (BrwLegenda)
If cAlias = "SE1"
aAdd(aLegendas,{"BR_LARANJA","Título em Portador"})
Else // SE2
/*
Adicionar a cor e descrição de legendas para SE2 aqui. Exemplo:
Aadd(aLegenda, {"BR_AMARELO", "Titulo aguardando liberacao"}) //Titulo aguardando liberacao
*/
Endif
BrwLegenda(cCadastro, "Legenda", aLegendas)
Endif
Return aRet
|
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after {
background: #FF9900; !important
}
.menu-item.active-tab {
border-bottom: none !important;
}
</style>
|