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:Envia Pré-Fatura para fila de geração de fatura  -JURA203B (Pré-Fatura), JURA203C (Contrato Fixo), JURA203D (Fatura Adicional)


02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite validar o registro da Pré-Fatura/Contrato Fixo/Fatura Adicional

Localização:

Atualizações - Movimentações - Emissão de Faturas

Programa Fonte:

JURA203B, JURA203C, JURA203D

Função:

JA203VLDIN

Ponto de Entrada:J203VLIN
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]Caractere

Código do Contrato

PARAMIXB[2]CaractereCódigo da Pré-Fatura, Contrato Fixo, Fatura Adicional
PARAMIXB[3]Caractere

Tipo PF - Pré-Fatura

FA - Fatura Adicional

FX - Contrato Fixo

Sim



Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetorno

Array

Array obrigatório com retorno de 2 posições

NomeTipoDescrição
aRetorno[1]Lógico

Indica se envia ou não a Pré-Fatura para fila

aRetorno[2]CaractereMensagem de detalhamento
Sim




03. EXEMPLO


#INCLUDE "PROTHEUS.CH"

User Function J203VLIN()

    Local lRet   := .F.
    Local cContr := PARAMIXB[1]
    Local cCod   := PARAMIXB[2]
    Local cTipo  := PARAMIXB[3]
    Local aRet   := {.T., ""}

    lRet := (cTipo $ 'FX|FA') .And. Val(cCod)%2=0 .And. Val(cContr)%2 = 1

    If !lRet
        aRet[01] := lRet
        aRet[02] := "Registro não incluído na Fila: Tipo:"+ cTipo + " Codigo:" + cCod + " Contrato: "+ cContr
    EndIf

Return aRet