Árvore de páginas

Versões comparadas

Chave

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

 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

Financeiro - SIGAFIN

Função:Cópia de títulos a pagar - JURA273


02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite realizar pré-validações antes do início do processo de cópia do título.

Localização:

Módulo SIGAFIN 

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

Programa Fonte:

JURA273

Função:

J273PreVld

Ponto de Entrada:J273Pre
Parâmetros:

  

Nome

Tipo

Descrição

Obrigatório

PARAMIXBarray

Array com 1 posição

NomeTipoDescrição
PARAMIXB[1]numéricoRecno do título a ser copiado
Sim



Retorno:

 

Nome

Tipo

Descrição

Obrigatório

aRetorno

Lógico

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 "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "PARMTYPE.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} J273Pre
Valida a cópia do título


@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>