<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wL=request.item("wL") wS=request.item("wS") SQL= "SELECT ID, Nome FROM EMPRESAS WHERE LOGIN = '" & wL & "' AND SENHA = '" & wS & "'" Set TabEmpresa = Database.Execute(SQL) if not TabEmpresa.EOF then SQL= "SELECT P.ID, P.DESCRICAO FROM EMPRESAS_PLANOS EP INNER JOIN PLANOS P ON P.ID = EP.ID_PLANO " SQL= SQL & " INNER JOIN PLANOS_PLANOS_SEG PPS ON PPS.ID_PLANO = P.ID " SQL= SQL & " INNER JOIN SEGURADORAS_PLANOS SP ON SP.ID = PPS.ID_PLANO_SEG AND SP.CAPTALIZACAO = 'S' " SQL= SQL & " WHERE ID_EMPRESA = " & TabEmpresa("ID") Set TabPlanosEmp = Database.Execute(SQL) SQL= " SELECT COUNT(EFT.DT_CADASTRO) AS TOTAL_CADASTRADO, COUNT(*) AS TOTAL " SQL=SQL & " FROM EMPRESAS_FATURAS_TICKETS EFT " SQL=SQL & " INNER JOIN EMPRESAS_FATURAS EF " SQL=SQL & " ON EF.FATURA = EFT.FATURA " SQL=SQL & " WHERE EF.ID_EMPRESA = " & TabEmpresa("ID") Set TabTotalTickets = Database.Execute(SQL) SQL= "SELECT COALESCE(COUNT(*), 0) AS QT_TOTAL, COALESCE(SUM(EF.VALOR),0) AS VLR_TOTAL " SQL=SQL & " FROM EMPRESAS_FATURAS EF " SQL=SQL & " WHERE EF.ID_EMPRESA =" & TabEmpresa("ID") SQL=SQL & " AND EF.DT_PAGAMENTO IS NULL " Set TabFaturasAbertas = Database.Execute(SQL) SQL= "SELECT COALESCE(COUNT(*), 0) AS QT_TOTAL, COALESCE(SUM(EF.VALOR),0) AS VLR_TOTAL " SQL=SQL & " FROM EMPRESAS_FATURAS EF " SQL=SQL & " WHERE EF.ID_EMPRESA =" & TabEmpresa("ID") SQL=SQL & " AND EF.DT_PAGAMENTO IS NOT NULL " Set TabFaturasPagas = Database.Execute(SQL) end if %>
<% if TabEmpresa.EOF then %> <% else %> "> <% end if %>

Solicitar Tickets - Empresa
 

Login ou senha inválido
Empresa : <%=TabEmpresa("Nome")%>  
       
       
Para solicitar tickets informe a quantidade abaixo e clique no botão gerar fatura, após o pagamento do boleto vocês estará recebendo por e-mail seus tickets.
       
Plano :  
Quantidade :  
     
 
 
 
Tickets da Empresa
Cadastrados : <%=TabTotalTickets("TOTAL_CADASTRADO")%>

&Opcao=C">Ver tickets
Sem cadastro : <%=TabTotalTickets("TOTAL") - TabTotalTickets("TOTAL_CADASTRADO")%>

&Opcao=N">Ver tickets
Total : <%=TabTotalTickets("TOTAL")%>  
---
Faturas da Empresa
Em aberto : <%=TabFaturasAbertas("QT_TOTAL")%> <%=FormatCurrency(TabFaturasAbertas("VLR_TOTAL"))%>

&Opcao=N">Ver faturas
Pagas : <%=TabFaturasPagas("QT_TOTAL")%> <%=FormatCurrency(TabFaturasPagas("VLR_TOTAL"))%>

&Opcao=P">Ver faturas
Total : <%=TabFaturasAbertas("QT_TOTAL") + TabFaturasPagas("QT_TOTAL")%> <%=FormatCurrency(CDbl(TabFaturasAbertas("VLR_TOTAL")) + CDbl(TabFaturasPagas("VLR_TOTAL")))%>