Histórico da Página

#include#INCLUDE 'protheus.ch'

/*/{Protheus.doc} F989CRQY()  

	Recebe a query padrão completa que faz a filtragem dos títulos a receber"PROTHEUS.CH"
  
User Function F989DtCtb()

    Local nRecnoE2 := ParamIxb[1] //R_E_C_N_O_ do registro na SE2
    doLocal ExtratordDtCtb Fiscal, permitindo  substitui-la com adaptações.
	
	@param ParamIxb[1] - cQuery - Query padrão da rotina FINA989 para títulos a receber
    @return cRet - Query modificada pelo ponto de entrada
/*/

User Function F989CRQY()

    Local cQuery  := ParamIXB[1] //Query padrão

    //Adiciona filtro por natureza para geração do R-4080
    cQuery += " AND SE1.E1_NATUREZ = '000001' "

Return cQuery  := ParamIxb[2] //Data da contabilização do padrão (E2_EMIS1)

    DbSelectArea("SE2")
    SE2->(DbGoTo(nRecnoE2))
    If !Empty(SE2->E2_BAIXA)
        dDtCtb := SE2->E2_XDTCTB //Campo customizado na SE2
    EndIF

Return dDtCtb