Clauido José Postado Janeiro 8, 2009 Denunciar Share Postado Janeiro 8, 2009 ola pessoal estou desenvolvendo um sistema feito em asp e tenho que gerar um relatório extraido de um banco de dados como eu faço isso ?Nunca precisei fazer relatório via asp Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jow Postado Janeiro 8, 2009 Denunciar Share Postado Janeiro 8, 2009 Cara qual o tipo de relatório você quer gerar, em gráficos, excel ....q tipo de relatório .... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Clauido José Postado Janeiro 8, 2009 Autor Denunciar Share Postado Janeiro 8, 2009 Na verdade é o seguinte o sistema é feito com access e tenho que puxar os dados desse db imprimir ele na impressora local não é grafico, já tenho ele pronto, fiz ele dentro de uma tabela agora eu não sei como eu faço para imprimi-lo. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jow Postado Janeiro 8, 2009 Denunciar Share Postado Janeiro 8, 2009 ok joga os dados do banco dentro de uma tabela ....e só insere isso no começo dó código ...<% Response.AddHeader "Content-Disposition", "attachment; filename=Relatorio.xls" Response.Charset = "UTF-8" Response.ContentType = "application/vnd.ms-excel" %>Com isso a tabela com os registros do banco serão enviados para um excel, assim pode imprimir ou salvar o arquivo ..... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Clauido José Postado Janeiro 8, 2009 Autor Denunciar Share Postado Janeiro 8, 2009 eu não tenho como jogar este relatóro direto para impressora sem que tenha que exportar para o excel? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jow Postado Janeiro 8, 2009 Denunciar Share Postado Janeiro 8, 2009 você quer que ao clicar em botão ele imprima ... Se for um exemplo :::pagina.asp<script type="text/javascript"> function DoPrinting(){ window.print() } </script> index.asp <input type="button" value="imprimir" onClick="DoPrinting" id="botao" /> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 victormartins Postado Janeiro 8, 2009 Denunciar Share Postado Janeiro 8, 2009 Se você quiser que ele imprima direto quando gera o relatório, é só fazer um body onload:<body onload="window.print();"> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Clauido José Postado Janeiro 8, 2009 Autor Denunciar Share Postado Janeiro 8, 2009 Quase isso.Tentei fazer desse modo só ele imprimi a pagina que esta no browser correto, só que esse relatorio está dentro de uma pagina default.asp onde tenho um menu e chamo esse relatorio dentro do iframe como faço para imprimir só a pagina?Entendeu quer que eu coloque o codigo para você olhar? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 victormartins Postado Janeiro 8, 2009 Denunciar Share Postado Janeiro 8, 2009 Coloque o código dentro da página do iframe, eu ACHO que isso deva funcionar Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Clauido José Postado Janeiro 8, 2009 Autor Denunciar Share Postado Janeiro 8, 2009 não deu certo ele imprimi a pagina default.asp toda e não a pagina que eu quero imprimir. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jow Postado Janeiro 8, 2009 Denunciar Share Postado Janeiro 8, 2009 Posta ai como você tá fazendo ... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Clauido José Postado Janeiro 8, 2009 Autor Denunciar Share Postado Janeiro 8, 2009 AQUI É A PAGINA QUE GERO A TABELA QUE É PARA IMPRIMIR<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>CAPA LOTE GERAL</title> <script language="javascript" src="jsp/ajax.js"></script> <script type="text/JavaScript"> function finalizar() { document.frmLote.method="POST"; document.frmLote.action="capalotegeral.asp?atc=ok" document.frmLote.submit(); } function Sair() { if (window.confirm("Deseja sair do relatório?")) { document.location="conteudo.asp"; } } function Imprimi(idE,idT,IdS,Data) { if (window.confirm("Deseja imprimir o relatório?")) { document.location="imprimicapalotegeral.asp?idEmpresa=" + idE + "&idTecnico=" + idT + "&idServico=" + IdS + "&strData=" + Data } } function trazdados() { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "capalotegeral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){} oHTTPRequest.send("idEmpresa=" + frmLote.seEmpresa.value); } function trazdadosTecnicos() { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "capalotegeral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){} oHTTPRequest.send("idTecnico=" + frmLote.seTecnicos.value); } function trazdadosServicos() { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "capalotegeral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){} oHTTPRequest.send("idServico=" + frmLote.seServicos.value); } function Data() { separador = '/'; conjunto1 = 2; conjunto2 = 5; if (document.frmLote.txData.value.length == conjunto1) { document.frmLote.txData.value = document.frmLote.txData.value + separador; } if (document.frmLote.txData.value.length == conjunto2) { document.frmLote.txData.value = document.frmLote.txData.value + separador; } } function IsNumber(caracter) { if(document.all) { var tecla = event.keyCode; }else { if(document.layers){ var tecla = caracter.which; } } if(tecla > 47 && tecla < 58) { return true; } else { if (tecla != 8 && tecla != 13) { alert("Digite apenas números.") return false; } else { return true; } } } </script> <link href="css/estilos.css" rel="stylesheet" type="text/css" /> <style type="text/css"> body { margin-left: 3px; margin-top: 3px; margin-right: 3px; margin-bottom: 3px; } </style> </head> <body> <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData call abreConexao() if Request.QueryString("atc") = "ok" then data =Request.Form("txData") dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "tabDth.NoOs,tabCidades.Cidade,tabEstados.Sigla,tabDth.Periodo,tabDth.QtdPontos,tabDth.TipoResidencia," campo = campo & "tabDth.DatSolicitada,tabDth.idEmpresa,tabDth.idTecnico,tabDth.idServico,tabDth.DatCompromisso," campo = campo & "tabDth.idTipoOs" strSql = "SELECT " & campo & " FROM tabEstados INNER JOIN (tabCidades INNER JOIN (tabCliente INNER JOIN tabDth " strSql = strSql & "ON tabCliente.idCliente = tabDth.idCliente) ON tabCidades.idCidade = tabCliente.IdCidade) ON " strSql = strSql & "tabEstados.idEstado = tabCliente.IdEstado " strSql = strSql & "WHERE tabDth.idEmpresa=" & Request.Form("seEmpresa") strSql = strSql & " AND tabDth.idServico='" & Request.Form("seServicos") & "'" strSql = strSql & " AND tabDth.DatCompromisso=#" & strData & "#" if rsRota.state = 1 then rsRota.Close rsRota.open strsql, Conexao, 3, 3 end if status = "Contratada" %> <form name="frmLote" method="post" action="capalotecontratada.asp?atc=ok"> <table width="740" height="480" border="0" align="center" cellpadding="0" cellspacing="0" class="Tabela"> <tr> <td width="5%"> </td> <td colspan="8" class="SubTitulo">Ola <%=Session("Usuario")%> você está em <strong>Intranet DTH 25</strong> <strong>» Capa Lote » <%=status%></strong></td> </tr> <tr> <td> </td> <td colspan="8" class="Texto"> </td> </tr> <tr> <td class="SubTitulo"> </td> <td align="right" class="SubTitulo">Empresa:</td> <td width="12%" class="SubTitulo"> <select name="seEmpresa" class="campo" onchange="trazdados();"> <option value="idEmpresa=0">Selecione</option> <% strSql = "Select * from tabEmpresa" set rsEmpresa = Conexao.Execute(strSql) if not rsEmpresa.Eof then while not rsEmpresa.Eof %> <option value="<%=rsEmpresa("Empresa")%>"><%=rsEmpresa("Empresa")%></option> <% rsEmpresa.MoveNext wEnd end if %> </select></td> <td width="9%" align="right" class="SubTitulo">Serviço</td> <td width="14%" class="SubTitulo"> <select name="seServicos" class="campo" onchange="trazdadosServicos()" style="width:100px"> <option value="capalotegeral.asp">Selecione</option> <% strSql = "Select * from tabServico " set rsServico = Conexao.Execute(strSql) if not rsServico.Eof then While Not rsServico.EOF %> <option value="<%=rsServico("Codigo")%>"><%=rsServico("Codigo")%></option> <% rsServico.MoveNext wEnd end if %> </select> </td> <td width="11%" align="right" class="SubTitulo">Compromisso:</td> <td width="9%" class="SubTitulo"><input name="txData" type="text" class="campo" id="txData" size="10" maxlength="10" onkeypress="Data();return IsNumber(event);" /></td> <td width="4%" align="center" class="SubTitulo"><img src="imagem/icon_mini_search.gif" width="15" height="13" border="0" style="cursor: hand" onclick="finalizar();"></td> <td width="4%" align="center" class="SubTitulo"> </td> </tr> <tr> <td colspan="9"> </td> </tr> <%if Request.QueryString("atc") = "ok" then%> <tr> <td width="16%" colspan="9"><div><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="Tabela1"> <%Bg="#5082B4" strSql = "Select * from tabEmpresa where Empresa = " & rsRota("idEmpresa") set rsEmpresa = Conexao.Execute(strSql) if rsEmpresa.Eof then sEmpresa = "" else sEmpresa = Left(rsEmpresa("Responsavel"),15) strSql = "Select * from tabTecnicos where idTecnico = " & rsRota("idTecnico") set rsTecnicos = Conexao.Execute(strSql) if rsTecnicos.Eof then sTecnicos = "" else sTecnicos = Left(rsTecnicos("Tecnico"),15) strSql = "Select * from tabTipoOS where idTipoOS=" & rsRota("idTipoOs") set rsTipoOs =Conexao.Execute(strSql) if rsTipoOs.Eof then sTipoOs="" else sTipoOs = rsTipoOs("Descricao") %> <tr bgcolor="<%=bg%>"> <td colspan="10" align="left" class="SubTitulo">Empresa Telefonica TV Digital</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" align="center" class="SubTitulo"> </td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" align="center" class="SubTitulo">RELATÓRIO DE PROGRAMAÇÃO DE TAREFAS PARA TECNICOS DT</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" class="SubTitulo"> </td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" class="SubTitulo">Contratada: Lider </td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" align="center" class="SubTitulo"> </td> </tr> <tr bgcolor="<%=Bg%>"> <td width="10%" align="center" class="SubTitulo">EMPRESA</td> <td width="8%" align="center" class="SubTitulo">No. Os </td> <td width="15%" align="center" class="SubTitulo">CIDADE</td> <td width="8%" align="center" class="SubTitulo">ESTADO</td> <td width="8%" align="center" class="SubTitulo">PERIODO</td> <td width="16%" align="center" class="SubTitulo">TIPO OS </td> <td width="8%" align="center" class="SubTitulo">PONTOS</td> <td width="8%" align="center" class="SubTitulo">SERVICO</td> <td width="10%" align="center" class="SubTitulo">RESIDENCIA</td> <td width="8%" align="center" class="SubTitulo">DATA</td> </tr> <% while not rsRota.Eof if bg = "#5082B4" then Bg = " #FFFFFF" else Bg = "#5082B4" end if %> <tr bgcolor="<%=Bg%>"> <td width="10%" align="center" class="SubTitulo"><%=sEmpresa%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("NoOs")%></td> <td width="15%" align="center" class="SubTitulo"><%=rsRota("Cidade")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("Sigla")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="16%" align="center" class="SubTitulo"><%=sTipoOs%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("QtdPontos")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("idServico")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("TipoResidencia")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("DatSolicitada")%></td> </tr> <% rsRota.Movenext wend data =Request.Form("txData") dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "Count(NoOs) AS ContarNoOs,Count(QtdPontos) AS ContarQtdPontos,idEmpresa," campo = campo & "idTecnico,idServico,DatCompromisso " strSql = "SELECT " & campo & " FROM tabDth " strSql = strSql & "GROUP BY idEmpresa,idTecnico,idServico,DatCompromisso " strSql = strSql & "HAVING idEmpresa=" & Request.Form("seEmpresa") strSql = strSql & " AND idServico='" & Request.Form("seServicos") & "'" strSql = strSql & " AND DatCompromisso=#" & strData & "#" 'response.Write(strsql) 'Response.End() if rsRota.State = 1 then rsRota.close rsRota.open strsql, Conexao, 3, 3 %> <tr> <td colspan="10" align="left" valign="top" class="Titulo"> </td> </tr> <tr> <td colspan="10" align="left" valign="top" class="Titulo"><span class="SubTitulo"><%=(formatdatetime(now,1))%></span></td> </tr> </table></div></td> <tr> <td colspan="9" align="center"> <input name="cmdImprimir" type="button" id="cmdImprimir" value="Imprimir" onclick="Imprimi('<%=Request.Form("seEmpresa")%>','<%=Request.Form("seTecnicos")%>','<%=Request.Form("seServicos")%>','<%=Request.Form("txData")%>')"> <input name="butFechar" type="button" id="butFechar" value="Sair" onclick="Sair();"> </td> </tr> <%else%> <tr> <td colspan="9"><div class="noprint"> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="Tabela1"> <tr bgcolor="<%=Bg%>"> <td width="10%" align="center" class="SubTitulo">EMPRESA</td> <td width="8%" align="center" class="SubTitulo">No. Os </td> <td width="15%" align="center" class="SubTitulo">CIDADE</td> <td width="8%" align="center" class="SubTitulo">ESTADO</td> <td width="8%" align="center" class="SubTitulo">PERIODO</td> <td width="16%" align="center" class="SubTitulo">TIPO OS </td> <td width="8%" align="center" class="SubTitulo">PONTOS</td> <td width="8%" align="center" class="SubTitulo">SERVICO</td> <td width="10%" align="center" class="SubTitulo">RESIDENCIA</td> <td width="8%" align="center" class="SubTitulo">DATA</td> </tr> </table></div></td> </tr> <%end if%> </tr> </table> </form> </body> </html> E ESTA É A PAGINA QUE EU VOU IMPRIMIR <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>CAPA LOTE GERAL</title> <style type="text/css"> .noprint { display: none; } </style> <link href="css/estilos.css" rel="stylesheet" type="text/css"> </head> <body onUnload="window.print();"> <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData call abreConexao() data =Request.QueryString("strData") dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "tabDth.NoOs,tabCidades.Cidade,tabEstados.Estado,tabDth.Periodo,tabDth.QtdPontos,tabDth.TipoResidencia," campo = campo & "tabDth.DatSolicitada,tabDth.idEmpresa,tabDth.idTecnico,tabDth.idServico,tabDth.DatCompromisso" strSql = "SELECT " & campo & " FROM tabEstados INNER JOIN (tabCidades INNER JOIN (tabCliente INNER JOIN tabDth " strSql = strSql & "ON tabCliente.idCliente = tabDth.idCliente) ON tabCidades.idCidade = tabCliente.IdCidade) ON " strSql = strSql & "tabEstados.idEstado = tabCliente.IdEstado " strSql = strSql & "WHERE tabDth.idEmpresa=" & Request.QueryString("idEmpresa") strSql = strSql & " AND tabDth.idTecnico=" & Request.QueryString("idTecnico") strSql = strSql & " AND tabDth.idServico='" & Request.QueryString("idServico") & "'" strSql = strSql & " AND tabDth.DatCompromisso=#" & strData & "#" 'response.Write(strsql) 'response.End() if rsRota.state = 1 then rsRota.Close rsRota.open strsql, Conexao, 3, 3 'Response.Write(rsRota.RecordCount) 'response.End() Bg="#5082B4" strSql = "Select * from tabEmpresa where Empresa = " & rsRota("idEmpresa") set rsEmpresa = Conexao.Execute(strSql) if rsEmpresa.Eof then sEmpresa = "" else sEmpresa = Left(rsEmpresa("Responsavel"),15) strSql = "Select * from tabTecnicos where idTecnico = " & rsRota("idTecnico") set rsTecnicos = Conexao.Execute(strSql) if rsTecnicos.Eof then sTecnicos = "" else sTecnicos = Left(rsTecnicos("Tecnico"),15) %> <table width="740" height="480" border="0" align="center" cellpadding="0" cellspacing="0" class="Tabela"> <tr> <td colspan="11"><table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" class="Tabela1"> <tr bgcolor="<%=bg%>"> <td colspan="8" align="left" class="SubTitulo">Empresa Telefonica TV Digital</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" align="center" class="SubTitulo"> </td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" align="center" class="SubTitulo">RELATÓRIO DE PROGRAMAÇÃO DE TAREFAS PARA TECNICOS DTH</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" class="SubTitulo"> </td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" class="SubTitulo">Tecnico: <%=rsTecnicos("Tecnico")%></td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" align="center" class="SubTitulo"> </td> </tr> <tr bgcolor="<%=Bg%>"> <td width="15%" align="center" class="SubTitulo">EMPRESA</td> <td width="10%" align="center" class="SubTitulo">No. Os </td> <td width="15%" align="center" class="SubTitulo">CIDADE</td> <td width="10%" align="center" class="SubTitulo">ESTADO</td> <td width="10%" align="center" class="SubTitulo">PERIODO</td> <td width="8%" align="center" class="SubTitulo">PONTOS</td> <td width="15%" align="center" class="SubTitulo">RESIDENCIA</td> <td width="8%" align="center" class="SubTitulo">SOLICITAÇÃO</td> </tr> <% while not rsRota.Eof if bg = "#5082B4" then Bg = " #FFFFFF" else Bg = "#5082B4" end if %> <tr bgcolor="<%=Bg%>"> <td width="15%" align="center" class="SubTitulo"><%=sEmpresa%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("NoOs")%></td> <td width="15%" align="center" class="SubTitulo"><%=rsRota("Cidade")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Estado")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("QtdPontos")%></td> <td width="15%" align="center" class="SubTitulo"><%=rsRota("TipoResidencia")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("DatSolicitada")%></td> </tr> <% rsRota.Movenext wend data =Request.QueryString("strData") dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "Count(NoOs) AS ContarNoOs,Count(QtdPontos) AS ContarQtdPontos,idEmpresa," campo = campo & "idTecnico,idServico,DatCompromisso " strSql = "SELECT " & campo & " FROM tabDth " strSql = strSql & "GROUP BY idEmpresa,idTecnico,idServico,DatCompromisso " strSql = strSql & "HAVING idEmpresa=" & Request.QueryString("idEmpresa") strSql = strSql & " AND idTecnico=" & Request.QueryString("idTecnico") strSql = strSql & " AND idServico='" & Request.QueryString("idServico") & "'" strSql = strSql & " AND DatCompromisso=#" & strData & "#" 'response.Write(strsql) 'Response.End() if rsRota.State = 1 then rsRota.close rsRota.open strsql, Conexao, 3, 3 %> <tr> <td align="left" valign="top" class="Titulo">Total de Serviço: </td> <td colspan="2" align="left" valign="top" class="Titulo"><%=rsRota("ContarNoOs")%></td> <td colspan="2" align="right" valign="top" class="Titulo">Total de Pontos: </td> <td colspan="2" align="left" valign="top" class="Titulo"><%=rsRota("ContarQtdPontos")%></td> <td align="left" valign="top" class="Titulo"> </td> </tr> </table></td> </tr> </table> <% Response.Redirect("conteudo.asp")%> </body> </html> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jow Postado Janeiro 9, 2009 Denunciar Share Postado Janeiro 9, 2009 Cara desculpa a demora você deve passar a ação no botão<input name="cmdImprimir" type="button" id="cmdImprimir" value="Imprimir" onclick="DoPrinting">obs: Essa dúvida é sobre JS, se o q eu te passei não funcionar posta a sua dúvida lá abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Clauido José Postado Janeiro 9, 2009 Autor Denunciar Share Postado Janeiro 9, 2009 (editado) eu consegui resolver erra isso mesmo eu postei a duvida no js valeu Editado Janeiro 9, 2009 por Clauido José Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Clauido José Postado Janeiro 13, 2009 Autor Denunciar Share Postado Janeiro 13, 2009 resolvi este problema Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Clauido José
ola pessoal estou desenvolvendo um sistema feito em asp e tenho que gerar um relatório extraido de um banco de dados como eu faço isso ?
Nunca precisei fazer relatório via asp
Link para o comentário
Compartilhar em outros sites
14 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.