FI210QRY - Ponto de entrada para criar uma query customizada para rotina.

#INCLUDE "PROTHEUS.CH"

User Function FI210QRY()

Local cQuery := ""
Local cFils := PARAMIXB[1]
Default cFils := ""

MsgAlert("FI210QRY")

cQuery := "SELECT SA6.R_E_C_N_O_ A6_RECNO,"
cQuery += " E5_FILIAL, E5_BANCO, E5_AGENCIA, E5_CONTA, E5_DTDISPO, E5_TIPODOC, E5_MOEDA,"
cQuery += " E5_NUMCHEQ, E5_MOTBX, E5_NUMERO, E5_RECPAG, E5_VALOR, E5_DOCUMEN,E5_RECONC,E5_SEQ, E5_FILORIG "
cQuery += " , SUBSTRING(E5_FILIAL, 1, " + str(Len(AllTrim(xFilial("SE8")))) + ") AS E5_FILORG " 
cQuery += " , '" + Space(FwSizeFilial()) + "' AS E5_FIL "
cQuery += " FROM " + RetSqlName("SA6") + " SA6, " + RetSqlName("SE5") + " SE5"
cQuery += " WHERE SA6.D_E_L_E_T_ = ' '"
cQuery += " AND SE5.D_E_L_E_T_ = ' '"
cQuery += " AND A6_FILIAL = '" + xFilial("SA6") + "'"
cQuery += " AND E5_FILIAL = '" + xFilial("SE5") + "' " 
cQuery += " AND A6_COD between '" + mv_par01 + "' AND '" + mv_par02 + "'"
cQuery += " AND A6_AGENCIA between '" + mv_par03 + "' AND '" + mv_par04 + "'"
cQuery += " AND A6_NUMCON between '" + mv_par05 + "' AND '" + mv_par06 + "'"
cQuery += " AND A6_COD = E5_BANCO"
cQuery += " AND A6_AGENCIA = E5_AGENCIA"
cQuery += " AND A6_NUMCON = E5_CONTA"
cQuery += " AND E5_SITUACA NOT IN ('C')"
cQuery += " AND E5_TIPODOC NOT IN ('BA','DC','JR','MT','CM','D2','J2','M2','C2','V2','CP','TL','VA') "
cQuery += " AND E5_DTDISPO >= '" + dtos(mv_par07) + "'"
cQuery += " ORDER BY E5_FIL, E5_BANCO, E5_AGENCIA, E5_CONTA, E5_DTDISPO "

Return cQuery