Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (alison.kaique), última alteração em 19 mar, 2020


01. DADOS GERAIS

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

FINA090 - Baixas Pagar Automática

Requisito/Story/Issue (informe o requisito relacionado) :DSERFINP-30523
Observação:

Este ponto de entrada somente estará em funcionamento no fonte FINA090 a partir da versão 12.1.17 da data , pois o mesmo está substituindo o ponto de entrada F090AFIL devido a alteração da estrutura de filtro codebase para query.


02. DESCRIÇÃO

A finalidade do ponto de entrada F090QFIL é permitir complementar o filtro padrão dos registros da Baixa Pagar Automática (FINA090).

03. PARÂMETROS

Nome

Tipo

Descrição

cFiltro

Caractere

Filtro padrão da rotina FINA090

nTipoBx

Numérico

Tipo de Baixa (1=Títulos ou 2=Borderôs)

04. RETORNO

Nome

Tipo

Descrição

cFiltro

Caractere

Novo filtro

05. EXEMPLO DE UTILIZAÇÃO

F090QFIL
#include 'totvs.ch'

/*/{Protheus.doc} F090QFIL()

    Complemento do Filtro padrão da rotina Baixa Pagar Automática (FINA090)

    @param ParamIxb[1] - cFiltro - Filtro padrão da rotina
    @param Paramixb[2] - nTipoBx - Tipo de Baixa (1=Títulos ou 2=Borderôs)

    @return cRetFiltro - Novo Filtro
/*/
User Function F090QFIL()
    Local cFiltro    := ParamIXB[1] //Filtro padrão
    Local nTipoBx    := ParamIXB[2] //Tipo de Baixa
    Local cRetFiltro := cFiltro //Novo Filtro

    If (nTipoBx == 1) //Títulos
        cRetFiltro += " AND E2_FILIAL = '01' AND "
        cRetFiltro += " E2_FORNECE BETWEEN '000001' AND '000002' AND "
        cRetFiltro += " E2_LOJA = '01'"
    Else //Borderôs
        cRetFiltro += " AND E2_FILIAL = '02' AND "
        cRetFiltro += " E2_FORNECE BETWEEN '000003' AND '000004' AND "
        cRetFiltro += " E2_LOJA = '01'"
    EndIf

Return cRetFiltro