<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_Vendedor=request.item("ID_Vendedor") wDt_Inicial=request.item("Dt_Inicial") wDt_Final=request.item("Dt_Final") wDataSaldo=InverteData(wDt_Inicial) wSQL=" SELECT ID, Nome FROM VENDEDORES WHERE ID = " & wID_Vendedor Set TabVendedor = Database.Execute(wSQL) SQL= " SELECT COALESCE(SUM(VCC.VALOR), 0) - " SQL= SQL & " (SELECT COALESCE(SUM(VCD.VALOR), 0) " SQL= SQL & " FROM VENDEDORES_CONTA VCD " SQL= SQL & " WHERE VCD.ID_VENDEDOR = " & wID_Vendedor SQL= SQL & " AND VCD.DATA < '" & wDataSaldo & "'" SQL= SQL & " AND VCD.TIPO = 'D') as Saldo" SQL= SQL & " FROM VENDEDORES_CONTA VCC " SQL= SQL & " WHERE VCC.ID_VENDEDOR = " & wID_Vendedor SQL= SQL & " AND VCC.DATA < '" & wDataSaldo & "'" SQL= SQL & " AND VCC.TIPO = 'C' " Set TabSaldo = Database.Execute(SQL) wSaldo = TabSaldo("Saldo") wSQL="SELECT * FROM VENDEDORES_CONTA WHERE ID_Vendedor = " & wID_Vendedor wSQL=wSQL & " AND DATA BETWEEN '" & InverteData(wDt_Inicial) & "' AND '" & InverteData(wDt_Final) & "'" wSQL=wSQL & " ORDER BY DATA " Set TabVenConta = Database.Execute(wSQL) %>

Relatório de Comissão
 
 
Vendedor Período Data do Relatório
<%=TabVendedor("ID")%> - <%=TabVendedor("Nome")%> <%=wDt_Inicial%> à <%=wDt_Final%> <%=DataBr(Date())%>
 
<% While NOT TabVenConta.EoF %> <% if TabVenConta("TIPO") = "D" then wTD=CCur(wTD) + CCur(TabVenConta("VALOR")) wSaldo = CCur(wSaldo) - CCur(TabVenConta("VALOR")) else wTC=CCur(wTC) + CCur(TabVenConta("VALOR")) wSaldo = CCur(wSaldo) + CCur(TabVenConta("VALOR")) end if %> <% if TabVenConta("TIPO") = "C" then wCor="#3366CC" else wCor="#FF5050" end if %> <% TabVenConta.MoveNext Wend %>
Data Proposta Parc. Vlr. Parc. Descrição Tipo Valor Saldo
size="1" face="Arial"><%=DataBr(TabVenConta("Data"))%> size="1" face="Arial"> <%=TabVenConta("ID_Proposta")%> size="1" face="Arial"> <%=TabVenConta("ID_Parcela")%> size="1" face="Arial"> <%=TabVenConta("Vlr_Parcela")%> size="1" face="Arial"> <%=TabVenConta("Descricao")%> size="1" face="Arial"> <%=TabVenConta("Tipo")%> size="1" face="Arial"> <%=TabVenConta("Valor")%> size="1" face="Arial"> <%=wSaldo%>
 
Total Crédito: <%=wTC%> Total Débito: <%=wTD%> Saldo até <%=DataBr(wDt_Final)%>: <%=wSaldo%>