F380FIL - Complemento de filtro do usuário na seleção de registros para conciliação bancária.

#include "Protheus.ch"

/*
===============================================================================================================================
Programa----------: F380FIL
===============================================================================================================================
Descrição---------: Ponto de Entrada com o objetivo de complementar os filtro de registros na conciliação bancaria	
===============================================================================================================================
Uso---------------: Filtra no momento da montagem da conciliação bancaria
===============================================================================================================================
Parâmetros--------: Nenhum
===============================================================================================================================
Retorno-----------: cFiltro = instrução do filtro a ser realizado em sintaxe SQL
===============================================================================================================================
*/
User Function F380FIL()

	Local aArea		:= GetArea()
	Local cCheq1	:= space(9)
	Local cCheq2	:= "ZZZZZZZZZ"
	Local cTipoMov	:= ""
	Local nVal1		:= 0
	Local nVal2		:= 999999999.99
	Local oDlg1		:= NIL
	Local oGrp1		:= NIL
	Local oTipoMov	:= NIL

    cTipoMov := "Ambos"
	DEFINE MSDIALOG oDlg1 TITLE "Conciliação Bancaria" FROM 112,245 TO 320,770 PIXEL

		oGrp1	:= TGroup():New( 012,012,100,248,"Filtro",oDlg1,CLR_BLACK,CLR_WHITE,.T.,.F. ) 
			@ 028,016	SAY "Do Cheque:"	of oGrp1 			PIXEL
			@ 024,052	MSGET cCheq1	size 060,008 of oGrp1	PIXEL
			@ 028,132  	SAY "Ate Cheque:"	of oGrp1 			PIXEL
			@ 024,168	MSGET cCheq2	size 060,008 of oGrp1	PIXEL
			@ 048,016	SAY "Do Valor:"		of oGrp1 PIXEL
			@ 044,052	MSGET nVal1		size 060,008 picture '@E 999,999,999.99'	of oGrp1 PIXEL
			@ 048,132  	SAY "Ate Valor:"	of oGrp1 PIXEL
			@ 044,168	MSGET nVal2		size 060,008 picture '@E 999,999,999.99'	of oGrp1 PIXEL
			
            @ 66, 016 Say "Tipo Movimentação?"	Pixel Size 050,006 Of oGrp1
            @ 64, 075 MSCOMBOBOX _oTipoMov Var _cTipoMov ITEMS {"Ambos","Receber","Pagar"} Valid (Pertence("Ambos,Receber,Pagar")) Pixel Size 070, 012 Of oGrp1
			
		DEFINE SBUTTON FROM 086,115 TYPE 1 ACTION (oDlg1:End()) ENABLE OF oDlg1 // 085,115

	Activate Dialog oDlg1 Center
	
	cFiltro	:= "(E5_NUMCHEQ >= '"+ cCheq1 +"' AND E5_NUMCHEQ <= '"+ cCheq2 +"') AND " +;
				"(E5_VALOR >= "+ str(nVal1) +" AND E5_VALOR <="+ str(nVal2) +") "
				
	If AllTrim(_cTipoMov) == "Receber"
	   cFiltro += " AND E5_RECPAG = 'R' "
	EndIf
	
	If AllTrim(_cTipoMov) == "Pagar"
	   cFiltro += " AND E5_RECPAG = 'P' "
	EndIf

	RestArea(aArea)
	    
Return cFiltro