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:WO de Despesas -  JURA143


02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite que o Lançamento de WO da Despesa possa ser realizado ou não, ou seja, retorna se o Lançamento de Despesa pode ter lançamento de WO.

Localização:

Atualizações >> Movimentações >>Despesas >> Operações em Lote >> WO

Atualizações >> Movimentações >> Operações Pré-Fatura >> Operações >> WO

Atualizações >> Movimentações >>  WO >> Despesas

Programa Fonte:

JURA143

Função:

J143VlrRec

Ponto de Entrada:J143VlRc
Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXBarray

Array com 1 posições


NomeTipoDescrição
PARAMIXB[1]CaractereAlias do Registro da Despesa a ser processada
Sim



Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetorno

Array

Array com 2 posições

NomeTipoDescrição
aRetorno[1]Lógico

Indica se o registro pode ser processado

aRetorno[2]CaractereMensagem a ser retornada, caso o registro não seja processado
Sim




03. EXEMPLO

#INCLUDE "PROTHEUS.CH"

User Function J143VlRc()

Local lProc := .F.
Local cAlias   := ""
Local cMsg      := ""

If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 1 .AND. ValType(PARAMIXB[01]) == "C" .AND. !Empty(PARAMIXB[01])
    cAlias := PARAMIXB[01]
    If (cAlias)->(!Eof())
        lProc := (Val((cAlias)->NVY_COD)%2) == 0
        If !lProc
            cMsg := "Resultado do Ponto de entrada J143VlrRec: " + cValToChar( lProc )+ " Chave: "+ (cAlias)->NVY_COD
        EndIf
    EndIf
EndIf

Return {lProc, cMsg}