Foros del Web - Ver Mensaje Individual

DanX03 · #16 (**permalink**) 19/03/2010, 13:39

Cita:

Iniciado por marco_foros

Ya no entiendo bien qué es lo que requieres o cuál fue el problema que tuviste para crearlo como te comenté en el primer post que hice al respecto.

Mi problema es que tengo una planilla de word ya establecida, a la cual se le deben insertar los datos provenientes de la consulta dada, lo he intentando con las instrucciones que me haz dado, pero al abrir el archivo los datos los va sobreescribiendo mostrandome siempre el ultimo, he solucionado la parte del salto de linea. Este es el codigo con las instruciones dadas anteriormente:

Código ASP:

Ver original<%
'response.ContentType ="application/msword"
Dim wrdApp
Dim wrdDoc
 
Set wrdApp = Server.CreateObject("WORD.Application")
Set wrdDoc = wrdApp.Documents.Open ("\inetpub\wwwroot\bitacora_desarrollo\reporte_desarrollo.doc")
 
wrdApp.Visible = True
fechaini=request.QueryString("fechaini")
fechafin=request.QueryString("fechafin")%>
<!--#include file="variables.asp"-->
<html>
<head>
<title>Word Test</title>
<meta name="Author" content="Acme Toys">
</head>
<style type="text/css">
 
.BigTitle {
font-family: Verdana, Sans-Serif;
font-size: 20pt;
font-weight: bold;
color: #004080;
}
 
.UserDetails {
font-family: Courier New, Monospace;
font-size: 12pt;
}
 
</style>
<body>
<%conectar()
 
 
sqla="select a.fecha_odt,b.cliente,a.proyecto,c.descripcion,a.realizo,clasificacion from (select fecha_odt,cliente,proyecto,"&_
    "descripcion,realizo,(case when clasificacion=1 then 'CALLCENTER' when clasificacion=2 then 'ADMINISTRATIVO' when clasificacion=3 then "&_
    "'BASE DE DATOS' end) clasificacion from desarrollo.bitacora_desarrollo where fecha_odt between convert(datetime,'"&fechaini&"',103) "&_
    "and convert(datetime,'"&fechafin&"',103)+1) a left join (select id,nombre as cliente from desarrollo.clientes09 where area=1) b on "&_
    "a.cliente=b.id left join (select id_req,descripcion,actividad from desarrollo.cat_requerimientos) c on a.descripcion=c.id_req "&_
    "order by a.realizo,a.fecha_odt"
'response.Write(sqla)
'response.End()
rs.Open sqla, conn
 
wrdApp.Visible = True
%>
<table width="100%">
<%while not rs.eof%>
  <tr>
    <td><%wrdApp.ActiveDocument.Content.Text =rs(1)f%></td>
    <% wrdApp.Selection.TypeParagraph%>
    <td><%wrdApp.ActiveDocument.Content.Text =rs(3)%></td>
    <% wrdApp.Selection.TypeParagraph%>
    <td><%wrdApp.ActiveDocument.Content.Text =rs(4)%></td>
    <% wrdApp.Selection.TypeParagraph%>
    <td><%wrdApp.ActiveDocument.Content.Text =rs(0)%></td>
    <% wrdApp.Selection.TypeParagraph%>
  </tr>
<%rs.movenext
wend%>
</table>
</p>
</body>
 
</html>