Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

FINA200 - Retorno CNAB - Receber

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


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.1Na 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;

...

Bloco de código
languagevb
themeMidnight
firstline1
titleFA200FIL
linenumberstrue
#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  := "XXXXXXXXXX"
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

...