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:Emissão de Faturas - JURA203


02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite validar se utiliza o adiantamento na tela de emissão de fatura

Localização:

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

Programa Fonte:

JURA203

Função:

J203ACTBT3

Ponto de Entrada:J203ADIB
Parâmetros:

Não há.

Obs.: Na execução do PE está posicionado no registro da fatura e do adiantamento selecionado.

Retorno:

Nome

Tipo

Descrição

Obrigatório

lValid

lógico

Retornar verdadeiro para permitir o uso do adiantamento e falso para bloquear

Sim


03. EXEMPLO

#INCLUDE "PROTHEUS.CH"



//-------------------------------------------------------------------
/*{Protheus.doc}J203AdiB
Ponto de entrada executado ao clicar no botão de "Adicionar" o
adiantamento na emissão de faturas

@return lValid, logico, Se verdadeiro permite o uso do adiantamento

@author TOTVS
@since  01/05/2020
/*/
//-------------------------------------------------------------------
User Function J203AdiB()
    Local cEscrFat := NXA->NXA_CESCR
    Local cCliAdi  := NWF->NWF_CCLIAD
    Local cLojaAdi := NWF->NWF_CLOJAD
    Local lValid   := .T.

    If cCliAdi == "JCM000" .And. cLojaAdi == "01" .And. cEscrFat == "SP100"
        lValid := .F.
        ApMsgInfo("Uso de adiantamento não permitido para o cliente: '" + cCliAdi + " - " + cLojaAdi + "!")
    EndIf

Return (lValid)