Perguntas Relatório com data retroativa

	BeginSQL Alias "SK_"
		Column E1_SALDO As Numeric(15,2)                                                
		Column E1_VENCREA As Date
		Column A1_ULTCOM As Date
      /*
		SELECT E1_CLIENTE, E1_LOJA, E1_SALDO, E1_VENCREA, A1_VEND, E1_STATUS, A3_GEREN, A1_ULTCOM, E1_VALOR,
		       (
		         select SUM(E5_VALOR-E5_VLJUROS-E5_VLMULTA+E5_VLDESCO) from %Table:SE5% SE5 
		         where (E5_TIPODOC = 'VL' or E5_TIPODOC = 'BA' or E5_TIPODOC = 'CP') and 
		               E5_DATA > %Exp:DtBase% and
		               E5_RECPAG = 'R' and 
		               E5_CLIFOR = E1_CLIENTE and
		               E5_TIPO = E1_TIPO and 
		               E5_PREFIXO = E1_PREFIXO and 
		               E5_NUMERO = E1_NUM and 
		               E5_PARCELA = E1_PARCELA// and
		               //SE5.%NotDel%
		       ) as E5_VLR,
		       (
		         select SUM(E5_VALOR-E5_VLJUROS-E5_VLMULTA+E5_VLDESCO) from %Table:SE5% SE5
		         where E5_TIPODOC = 'ES' and 
		               E5_DATA > %Exp:DtBase% and
		               E5_RECPAG = 'P' and
		               E5_CLIFOR = E1_CLIENTE and 
		               E5_TIPO = E1_TIPO and
		               E5_PREFIXO = E1_PREFIXO and 
                       E5_NUMERO = E1_NUM and 
                       E5_PARCELA = E1_PARCELA
                       //SE5.%NotDel%
		       ) as E5_EST
		FROM %Table:SE1% SE1
		
		LEFT JOIN %Table:SA1% SA1 ON E1_CLIENTE+E1_LOJA=A1_COD+A1_LOJA
		LEFT JOIN %Table:SA3% SA3 ON A1_VEND=A3_COD
		
		WHERE E1_FILIAL = %xFilial:SE1% AND 
		      E1_VENCREA < %Exp:DtBase% AND
		      E1_EMISSAO >= %Exp:EmissaoIn% AND 
		      E1_EMISSAO <= %Exp:EmissaoFn% AND
		      (E1_BAIXA > %Exp:DtBase% or E1_BAIXA = '        '  or E1_SALDO > 0) and
		      E1_TIPO <> 'RA' and 
		      E1_TIPO <> 'NCC' and 
		      E1_TIPO <> 'DEB' and      
		      SE1.%NotDel%
		      %Exp:cQuery%
		 */
			select E1_CLIENTE, E1_LOJA, E1_SALDO, E1_VENCREA, E1_VALOR, A1_VEND, A3_GEREN, A1_ULTCOM,
			   (
			      select SUM(E5_VALOR-E5_VLJUROS-E5_VLMULTA+E5_VLDESCO) from %Table:SE5% SE5 
			      where (E5_TIPODOC = 'VL' or E5_TIPODOC = 'BA' or E5_TIPODOC = 'CP') and 
			            E5_DATA > %Exp:DtBase% and 
			            E5_RECPAG = 'R' and 
			            E1_CLIENTE = E5_CLIFOR and 
			            E5_TIPO = E1_TIPO and 
			            E5_PREFIXO = E1_PREFIXO and 
			            E5_NUMERO = E1_NUM and 
			            E5_PARCELA = E1_PARCELA
			   ) as E5_VLR,
			   (
			      select SUM(E5_VALOR-E5_VLJUROS-E5_VLMULTA+E5_VLDESCO) from %Table:SE5% SE5
			      where E5_TIPODOC = 'ES' and 
			            E5_DATA > %Exp:DtBase% and 
			            E5_RECPAG = 'P' and 
			            E1_CLIENTE = E5_CLIENTE and 
			            E5_TIPO = E1_TIPO and 
			            E5_PREFIXO = E1_PREFIXO and 
			            E5_NUMERO = E1_NUM and
			            E5_PARCELA = E1_PARCELA
			   ) as E5_EST
			from %Table:SE1% SE1

			LEFT JOIN %Table:SA1% SA1 ON E1_CLIENTE+E1_LOJA=A1_COD+A1_LOJA
			LEFT JOIN %Table:SA3% SA3 ON A1_VEND=A3_COD

			where E1_FILIAL = %xFilial:SE1% and
			      E1_VENCREA < %Exp:DtBase% and 
			      E1_EMISSAO >= %Exp:EmissaoIn% and 
			      E1_EMISSAO <= %Exp:EmissaoFn% and 
			      (E1_BAIXA > %Exp:DtBase% or E1_BAIXA = '        ' or E1_SALDO > 0) and 
			      E1_TIPO <> 'RA' and 
			      E1_TIPO <> 'NCC' and 
			      E1_TIPO <> 'DEB' and
			      SE1.%NotDel%
	EndSql