Histórico da Página

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

Descrição:	A finalidade do ponto de entrada FI240QRY para criar uma query customizada para a rotina.
Localização:	FA210Processa()
Programa Fonte:	FINA210.PRX
Versões:	12
Retorno:Lógico.	Retorna a Query do feita pelo ponto de entrada.

Exemplo:

Bloco de código

#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