FA200FIL - Substituí pesquisa do título a receber

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Backoffice
Módulo:	Financeiro
Função:	FINA200 - Retorno CNAB - Receber

02. DESCRIÇÃO

Ponto de entrada executado em substituição à rotina de pesquisa padrão do título do arquivo de retorno do banco, na tabela de contas a receber SE1, que é realizada por IDCNAB ou chave do título. Nesta rotina de pesquisa padrão, também é realizada a validação da espécie do título com a tabela 17.

Obs.1: Na customização deste ponto de entrada, ao encontrar o título na tabela SE1 e a espécie existir na tabela 17, a variável private lHelp deve ter conteúdo igual a .F. para não exibir mensagem;

Obs.2: As variáveis private cEspecie e cEspecie não devem ser modificadas, mesmo caso a pesquisa customizada não encontre o título desejado.

Obs.3: A validação realizada após a execução do ponto de entrada para verificar se o título foi posicionado com sucesso utiliza a função Found(). Caso esta função retorne verdadeiro, o processamento da linha do CNAB não será interrompido.

03. PARÂMETROS

aValores - Array contendo as informações do retorno do Título a Receber

Nome	Tipo	Descrição
aValores[1]	Caractere	Número do Título
aValores[2]	Data	Data da Baixa
aValores[3]	Caractere	Tipo do Título
aValores[4]	Caractere	Nosso Número
aValores[5]	Numérico	Valor da Despesa
aValores[6]	Numérico	Valor do Desconto
aValores[7]	Numérico	Valor do Abatimento
aValores[8]	Numérico	Valor Recebido
aValores[9]	Numérico	Juros
aValores[10]	Numérico	Multa
aValores[11]	Numérico	Outras Despesas
aValores[12]	Numérico	Valor do crédito
aValores[13]	Data	Data do Crédito
aValores[14]	Caractere	Ocorrência
aValores[15]	Caractere	Motivo da Baixa
aValores[16]	Caractere	Linha inteira (buffet do arquivo)
aValores[17]	Data	Data do Vencimento

04. RETORNO

Nome	Tipo	Descrição
N/A	Nulo	Não existe retorno para este ponto de entrada.

05. EXEMPLO DE UTILIZAÇÃO

FA200FIL

#Include "TOTVS.CH"
#Include "RWMAKE.CH"

/*/{Protheus.doc} FA200FIL
Ponto de entrada para substituição da pesquisa do Título a Receber.

paramixb: aValores (consultar TDN - https://tdn.totvs.com/x/kKL8J)

@type       Function
@author     TOTVS
@since      25/05/2021
@return     Nil
/*/
User Function FA200FIL()

    Local cNumeroTit    As Character

    cNumeroTit  := paramIXB[1]

	//Sua forma para pesquisa do título a receber
    SE1->(DbSelectArea("SE1"))
    SE1->(DbSetOrder(16))
    SE1->(DbGoTop())

    If SE1->(DbSeek(FwXFilial("SE1") + SubStr(cNumeroTit, 1, 10)))
        Conout("Título encontrado através do ponto de entrada FA200FIL!")
    Else
        //Só é permitida a manipulação da variável lHelp. Caso queira que o help seja exibido, lHelp deve receber .T.
        lHelp       := .F.
        //Variáveis permitidas para uso, mas que NÃO devem ser manipuladas
        //cNumTit     := ""
        //cEspecie    := ""
    EndIf

Return Nil

Árvore de páginas