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
Função:Gravação de Pré-Fatura - JURA201C


02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite validar/customizar a emissão da Pré-Fatura.

Localização:

Atualizações - Movimentações - Emissão de Pré-Fatura

Programa Fonte:

JURA201C

Função:

JA201CEmi

Ponto de Entrada:J201CPF
Parâmetros:



Nome

Tipo

Descrição

Obrigatório

PARAMIXBarray

Array com 1 posição com o código da pré-fatura

NomeTipoDescrição
PARAMIXB[1]caractereCódigo da Pré-Fatura
Sim



Retorno:



Nome

Tipo

Descrição

Obrigatório

aRetorno

Array

Array com 2 posições

NomeTipoDescrição
aRetorno[1]LógicoIndica se emite a Pré-Fatura
aRetorno[2]CaractereMensagem de detalhamento
Sim




03. EXEMPLO

#INCLUDE "PROTHEUS.CH"
#INCLUDE "PARMTYPE.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} J201CPF
Ponto de entrada na emissão de Pré-Fatura

@param  PARAMIXB   , array   , Parâmetros do ponto de entrada
              PARAMIXB[1], caracter, Código da Pré-Faturaadmin

@return aRetorno     , array   , Retorna dados do ponto de entrada
             aRetorno[1]  , logico  , Verdadeiro para permitir a emissão dá Pré-Faturas
             aRetorno[2]  , caracter, Retornar vazio ou mensagem de justificativa

@author TOTVS
@since   16/03/2020
@obs     Ponto de entrada será executado para cada Pré-Fatura emitida
/*/
//-------------------------------------------------------------------
User Function J201CPF()
    Local cCodPreFat := ""
    Local aRetorno     := {.T., ""}

    If ValType( PARAMIXB ) == "A"
        cCodPreFat := PARAMIXB[1]

        If cCodPreFat != "MINHAPRE"
            aRetorno := {.F., "Gravação efetuada através do ponto de entrada J201CPF"}
        EndIf
    EndIf

Return (aRetorno)