Histórico da Página

Tempo aproximado para leitura: 05 min

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 inserir novas legendas ou alterar a condição, os textos e cores legenda, das legendas que vem por padrão que representam o a “origem” dos títulos.

Localização:

Módulo SIGAFIN SIGAPFS

Atualizações >> Contas a Pagar >> Contas a Pagar - Menu outras Ações >> Copiar Título; ou

Atualizações >> Contas a Pagar >> Funções Contas a Pagar - Menu outras Ações >> Copiar Título

Financeiro >> Cobrança

Programa Fonte:

JURA243JURA273

Função:

J273PreVldJ243Browse

Ponto de Entrada:

J273Pre

J243SetLeg

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB

array

Array com 1 posiçãomultidimensional

Recno do título a ser copiado

Nome	Tipo	Descrição
PARAMIXB[1]	caractere	Expressão AdvPL com a regra da legenda
PARAMIXB[2]	caractere	Cor que identifica a regra
PARAMIXB[3]	numérico	caractere	Título da legenda, utilizado na janela de visualização das legendas

Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

lCopiaaLegPE

Lógico

Array

Retorna um array com as legendas customizadas na estrutura correta. Se a estrutura estiver correta as legendas do padrão não serão aplicadas. Caso a estrutura do array aLegPE estiver em branco, serão aplicadas as legendas do padrão

Quando verdadeiro, indica que o título poderá ser copiado.

Quando falso, o ponto de entrada será responsável por emitir uma mensagem (por exemplo ApMsgAlert) indicando o motivo que impede a cópia do título.

Sim

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>

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

02. PONTO DE ENTRADA

03. EXEMPLO