<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_Empresa=request.item("ID_Empresa") wDt_Inicial=request.item("Dt_Inicial") wDt_Final=request.item("Dt_Final") wSQL=" SELECT ID, Nome FROM Empresas WHERE ID = 35"' & wID_Empresa Set TabEmpresa = Database.Execute(wSQL) wSQL="SELECT PP.ID_PROPOSTA, PP.ID_PARCELA, PC.ID_CLIENTE, C.NOME, PP.DT_VENCIMENTO, PP.DT_RECEBIMENTO, P.VLR_VIP " wSQL=wSQL & " FROM PROPOSTAS_PARCELAS PP " wSQL=wSQL & " INNER JOIN PROPOSTAS_CLIENTES PC " wSQL=wSQL & " ON PC.ID_PROPOSTA = PP.ID_PROPOSTA " wSQL=wSQL & " INNER JOIN PLANOS P " wSQL=wSQL & " ON P.ID = PC.ID_PLANO " wSQL=wSQL & " AND P.VLR_VIP > 0 " wSQL=wSQL & " LEFT JOIN CLIENTES C " wSQL=wSQL & " ON C.ID = PC.ID_CLIENTE " wSQL=wSQL & " WHERE PP.DT_RECEBIMENTO BETWEEN '" & InverteData(wDT_INICIAL) & "' AND '" & InverteData(wDT_FINAL) & "'" wSQL=wSQL & " ORDER BY C.NOME " Set TabRelatorio = Database.Execute(wSQL) %>

Relatório de Comissão
 
 
Empresa Período Data do Relatório
<%=TabEmpresa("ID")%> - <%=TabEmpresa("Nome")%> <%=wDt_Inicial%> à <%=wDt_Final%> <%=DataBr(Date())%>
 
<% wTotal = 0 wQuant=0 %> <% While NOT TabRelatorio.EoF %> <% TabRelatorio.MoveNext Wend %>
Cliente Prop./Parc Data Vencimento Data Pagamento Valor Comissão
<%=TabRelatorio("Nome")%> <%=TabRelatorio("ID_Proposta")%>/<%=TabRelatorio("ID_PARCELA")%> <%=DataBr(TabRelatorio("DT_Vencimento"))%> <%=DataBr(TabRelatorio("DT_RECEBIMENTO"))%> <% wTotal=wTotal + CCur(TabRelatorio("VLR_VIP")) wQuant=wQuant + 1 %> <%=FormatarValor(CCur(TabRelatorio("VLR_VIP")))%>
 
Total: <%=wTotal%>   Quantidade: <%=wQuant%>