Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Usuário desconhecido (fabiana.silva)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Cristina Cintra Santos

Gravado em

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

Tipo FA - Fatura Adicional

FX - Contrato FixoCódigo do Contrato

PARAMIXB[2]CaractereSequencia AnteriorCódigo da Pré-Fatura, Contrato Fixo, Fatura Adicional
PARAMIXB[3]CaractereParcela Anterior

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 J203VLINLocal lRet  Function J203VLIN()

    Local lRet   := .F.
    Local cTipo  cContr := PARAMIXB[1]
    Local cCod   := PARAMIXB[2]
    Local cParc  cTipo  := PARAMIXB[3]
    Local aArea := GetArea()
Local aAreaNVV := NVV->(GetArea())
Local cQuery := ''
Local cAlias := GetNextAlias()

lRet := cTipo == 'FA' .And. cCod = '00000001' .And. cParc== '0004'

Return lRet 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

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>