Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


01. DATOS GENERALES

Línea de producto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financiero

Función:

FINA090 - Bajas por pagar automática

Requisito/Story/Issue (informe el requisito relacionado) :

DSERFINP-30523

Observación:

Este punto de entrada solamente estará en funcionamiento en el fuente FINA090 a partir de la versión 12.1.17 de fecha , pues este está sustituyendo el punto de entrada F090AFIL debido a la modificación de la estructura de filtro codebase para query.


02. DESCRIPCIÓN

La finalidad del punto de entrada F090QFIL es permitir complementar el filtro estándar de los registros de la Baja por pagar automática (FINA090).

03. PARÁMETROS

Nombre

Tipo

Descripción

cFiltro

Carácter

Filtro estándar de la rutina FINA090

nTipoBx

Numérico

Tipo de baja (1=Títulos o 2=Borderós)

04. DEVOLUCIÓN

Nombre

Tipo

Descripción

cFiltro

Carácter

Nuevo filtro

05. EJEMPLO DE UTILIZACIÓN

F090QFIL
#include 'totvs.ch'

/*/{Protheus.doc} F090QFIL()

    Complemento del Filtro estándar de la rutina Baja por pagar automática (FINA090)

    @param ParamIxb[1] - cFiltro - Filtro estándar de la rutina
    @param Paramixb[2] - nTipoBx - Tipo de baja (1=Títulos o 2=Borderós)

    @return cRetFiltro - Nuevo filtro
/*/
User Function F090QFIL()
    Local cFiltro    := ParamIXB[1] //Filtro estándar
    Local nTipoBx    := ParamIXB[2] //Tipo de la baja
    Local cRetFiltro := cFiltro //Nuevo 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