Histórico da Página
01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Jurídico |
Módulo: | Pré-faturamento de Serviços - SIGAPFS |
Função: | Cobrança - JURA243 |
02. PONTO DE ENTRADA
Descrição: | Este ponto de entrada pertence à rotina de Cobrança, JURA243(). Usado para customização das legendas, permitindo alterar os textos e cores que representam o “origem” dos títulos. | ||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Localização: | Módulo SIGAPFS Atualizações >> Financeiro >> Cobrança | ||||||||||||||||||||
Programa Fonte: | JURA243 | ||||||||||||||||||||
Função: | J243Browse | ||||||||||||||||||||
Ponto de Entrada: | J243SetLeg | ||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||
Retorno: |
|
03. EXEMPLO
#INCLUDE#include "PROTHEUSprotheus.CHch"
#INCLUDE#include "FWMVCDEFparmtype.CHch"
#INCLUDE#include "PARMTYPEfwmvcdef.CH"
//-------------------------------------------------------------------
/*/{Protheus.doc} J273Pre
Valida a cópia do título
ch"
User Function J243SetLeg()
Local aLegPad := PARAMIXB[1] // Array com as Legendas do Padrão
Local aLegPE := {}
// O array que será enviado pelo ponto de entrada deve ter a seguinte estrutura
// Array multidimensional, sendo
// aLegPE[X][1] (caractere) = Expressão AdvPL com a regra da legenda
// aLegPE[X][2] (caractere) = Cor que identifica a regra
// aLegPE[X][3] (caractere) = Título da legenda, utilizado na janela de visualização das legendas
AAdd(aLegPE, {"E1_SALDO <> 0", "PINK", "Títulos em aberto"})
AAdd(aLegPE, {"E1_SALDO == 0", "YELLOW", "Títulos pagos" })
Return aLegPE // Ao enviar um array com as legendas na estrutura correta, as legendas do padrão não serão aplicadas.@param PARAMIXB , array , Parâmetros do ponto de entrada
PARAMIXB[1], numérico, Recno do título a ser copiado
@return lCopia, lógico , .T. Indica que o título poderá ser copiado
.F. Indica que o título NÃO poderá ser copiado
@author TOTVS
@since 14/04/2020
/*/
//-------------------------------------------------------------------
User Function J273Pre()
Local lCopia := .T.
If ValType(PARAMIXB) == "A"
SE2->(DbGoTo(PARAMIXB[1])) // Posiciona no título a ser copiado
// Não permitir cópia de títulos sem prefixo
If Empty(SE2->E2_PREFIXO)
lCopia := .F.
ApMsgAlert("Não é permitido copiar título com prefixo vazio.","Prefixo inválido")
EndIf
EndIf
Return lCopia
Templatedocumentos |
---|
HTML |
---|
<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; } </style> |