<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_Empresa=request.item("ID_Empresa") wOpcao=request.item("Opcao") SQL= "SELECT FORMATAR_NUM_TICKET(EFT.TICKET) AS TICKET, EFT.DT_VALIDADE, EFT.DT_CADASTRO, EF.FATURA, E.NOME, C.NOME AS CLIENTE " SQL= SQL & " FROM EMPRESAS_FATURAS_TICKETS EFT " SQL= SQL & " INNER JOIN EMPRESAS_FATURAS EF " SQL= SQL & " ON EF.FATURA = EFT.FATURA " SQL= SQL & " AND EF.ID_EMPRESA = " & wID_EMPRESA SQL= SQL & " LEFT JOIN EMPRESAS E " SQL= SQL & " ON E.ID = EF.ID_EMPRESA " SQL= SQL & " LEFT JOIN CLIENTES C " SQL= SQL & " ON C.ID = EFT.ID_CLIENTE " if wOpcao = "C" then SQL= SQL & " WHERE EFT.DT_CADASTRO IS NOT NULL" else SQL= SQL & " WHERE EFT.DT_CADASTRO IS NULL" end if Set TabTickets = Database.Execute(SQL) %>
Solicitar Tickets - Empresa
Empresa
:
<%=TabTickets("Nome")%>
Ticket
Data de Validade
Data de Cadastro
Fatura
Nome
<% While NOT TabTickets.EoF %>
<%=TabTickets("TICKET")%>
<%=DataBr(TabTickets("DT_VALIDADE"))%>
<%=DataBr(TabTickets("DT_CADASTRO"))%>
<%=TabTickets("FATURA")%>
<%=TabTickets("CLIENTE")%>
<% TabTickets.MoveNext Wend %>