<% 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") wDataSaldo=InverteData(wDt_Inicial) wSQL=" SELECT ID, Nome FROM Empresas WHERE ID = " & wID_Empresa Set TabEmpresa = Database.Execute(wSQL) SQL= " SELECT COALESCE(SUM(VCC.VALOR), 0) - " SQL= SQL & " (SELECT COALESCE(SUM(VCD.VALOR), 0) " SQL= SQL & " FROM EMPRESAS_CONTA VCD " SQL= SQL & " WHERE VCD.ID_EMPRESA = " & wID_Empresa SQL= SQL & " AND VCD.DATA < '" & wDataSaldo & "'" SQL= SQL & " AND VCD.TIPO = 'D') as Saldo" SQL= SQL & " FROM EMPRESAS_CONTA VCC " SQL= SQL & " WHERE VCC.ID_EMPRESA = " & wID_Empresa SQL= SQL & " AND VCC.DATA < '" & wDataSaldo & "'" SQL= SQL & " AND VCC.TIPO = 'C' " Set TabSaldo = Database.Execute(SQL) wSaldo = TabSaldo("Saldo") wSQL=" SELECT DATA, ID_PROPOSTA, ID_PARCELA, CAST(COALESCE(VLR_PARCELA,0) AS NUMERIC(15,2)) VLR_PARCELA, TIPO, VALOR, " wSQL=wSQL & " VLR_CIA, VLR_IMPOSTO, VLR_COM_VEND, VLR_COBRANCA, " wSQL=wSQL & " VLR_DESPESAS, VLR_LIQUIDO, VLR_VIP " wSQL=wSQL & " FROM LISTA_CONTA_EMPRESA(" & wID_Empresa & ")" wSQL=wSQL & " WHERE DATA BETWEEN '" & InverteData(wDt_Inicial) & "' AND '" & InverteData(wDt_Final) & "'" wSQL=wSQL & " ORDER BY DATA, ID_PROPOSTA, ID_PLANO, ID_PARCELA " Set TabEmpConta = Database.Execute(wSQL) %>

Relatório de Comissão
 
 
Vendedor Período Data do Relatório
<%=TabEmpresa("ID")%> - <%=TabEmpresa("Nome")%> <%=wDt_Inicial%> à <%=wDt_Final%> <%=DataBr(Date())%>
 
<% wTotalVip=0%> <% While NOT TabEmpConta.EoF %> <% if TabEmpConta("TIPO") = "D" then wTD=CCur(wTD) + CCur(TabEmpConta("VALOR")) wSaldo = CCur(wSaldo) - CCur(TabEmpConta("VALOR")) else wTC=CCur(wTC) + CCur(TabEmpConta("VALOR")) wSaldo = CCur(wSaldo) + CCur(TabEmpConta("VALOR")) end if %> <% if TabEmpConta("TIPO") = "C" then wCor="#3366CC" else wCor="#FF5050" end if %> <% wTotalVip = CCur(wTotalVip) + CCur(TabEmpConta("VLR_VIP"))%> <% TabEmpConta.MoveNext Wend %>
Data Prop./Parc Vlr. Parc. Vlr. Imposto Vlr. CIA Vlr. Vend. Vlr. Cobrança Vlr. VIP Vlr. Liquido Tipo Valor Saldo
size="1" face="Arial"><%=DataBr(TabEmpConta("Data"))%> size="1" face="Arial"> <%=TabEmpConta("ID_Proposta")%>/<%=TabEmpConta("ID_Parcela")%> size="1" face="Arial"> <%=TabEmpConta("Vlr_Parcela")%> size="1" face="Arial"><%=TabEmpConta("VLR_IMPOSTO")%> size="1"><%=TabEmpConta("VLR_CIA")%> size="1" face="Arial"><%=TabEmpConta("VLR_COM_VEND")%> size="1" face="Arial"><%=TabEmpConta("VLR_COBRANCA")%> size="1"><%=TabEmpConta("VLR_VIP")%> size="1" face="Arial"><%=TabEmpConta("VLR_LIQUIDO")%> size="1" face="Arial"> <%=TabEmpConta("Tipo")%> size="1" face="Arial"> <%=TabEmpConta("Valor")%> size="1" face="Arial"> <%=wSaldo%>
 
Total Crédito: <%=CCur(wTC)%> Total Débito: <%=CCur(wTD)%> Saldo até <%=wDt_Final%>: <%=CCur(wSaldo)%>
Total Vip: <%=CCur(wTotalVip)%>