Linha Microsiga Protheus

Árvore de páginas

 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 a pagar.

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

lCopia

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