Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (douglas.souza), última alteração em 28 jan, 2022

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:BackOffice
Módulo:Financeiro
Função:

FINA200 - Retorno de Cobrança

Requisito/Story/Issue (informe o requisito relacionado) :DFINTES-17045

02. DESCRIÇÃO

O ponto de entrada F200BXTI tem como finalidade validar se um título processado no retorno de cobrança será baixado.

IMPORTANTE!

Se os títulos não forem baixados pelo uso do ponto de entrada F200BXTI o ponto de entrada F200TIT não será executado.

03. PARÂMETROS

Nome

Tipo

Descrição

Filial

Caractere

Filial do título.

Prefixo

Caractere

Prefixo do título.

NumeroCaractereNumero do título.
ParcelaCaractereParcela do título.
TipoCaractereTipo do título.
ClienteCaractereCliente do título.
LojaCaractereLoja do título.
Valor RecebidoNuméricoValor recebido do título.
Data da BaixaDataData da baixa do título.

04. RETORNO

Nome

Tipo

Descrição

lRet

Logico

Retorna .T. se a baixa do título será feita ou .F.  se a baixa não será feita.

05. EXEMPLO DE UTILIZAÇÃO

F200BXTI
#INCLUDE "Totvs.ch"
 
/*/{Protheus.doc} F200BXTI()
 
    Ponto de Entrada para tratamentos  de baixa títulos do retorno dependente do valor da rotina FINA200 -
    função fA200Ger
    @param Paramixb[1] - Filial do título
    @param Paramixb[2] - Prefixo do título
    @param Paramixb[3] - Número do título
    @param Paramixb[4] - Parcela do título
    @param Paramixb[5] - Tipo de título
    @param Paramixb[6] - Código do cliente
    @param Paramixb[7] - Código da loja
    @param Paramixb[8] - Valor recebido, contido no arquivo de retorno
    @param Paramixb[9] - Data da baixa retornada no arquivo de retorno
 
/*/
User Function F200BXTI()
    Local lRet := .F.
    Local aDadosTit := Paramixb
    
    //Aqui deve ser criada a regra que define se o título será baixado ou não.
    lRet := (AllTrim(aDadosTit[3]) == "FINA200VA" .And. AllTrim(aDadosTit[4]) == "1")
    
    MsgAlert("Titulo a ser baixado: " +aDadosTit[1]+aDadosTit[2]+aDadosTit[3]+aDadosTit[4]+aDadosTit[5]+aDadosTit[6]+aDadosTit[7] + " Valor a ser baixado: " + cValToChar(aDadosTit[8]) + " Data da baixa: " + DTOS(aDadosTit[9]))
Return lRet