Resulta que tengo un programa en asp.net vb, que me registra envios a clientes, pero necesito imprimir el acuse que esta en pantalla.
pero no tengo idea de como enlazar los datos
ESTE ES EL CODIGO DE LA PAGINA ASPX
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="RepRequest.aspx.vb" Inherits="Report_RepRequest" %>
<%@ Register assembly="CrystalDecisions.Web, Version=10.5.3700.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" namespace="CrystalDecisions.Web" tagprefix="CR" %>
<!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 runat="server">
<title>Impresión de Solicitud</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<CR:CrystalReportViewer ID="CRV1" runat="server" AutoDataBind="True"
Height="50px" ReportSourceID="CRS1" Width="350px" />
<CR:CrystalReportSource ID="CRS1" runat="server">
<Report FileName="Report\RepRequest.rpt">
<DataSources>
<CR:DataSourceRef DataSourceID="SQLDSSolicitud" />
</DataSources>
</Report>
</CR:CrystalReportSource>
<asp:SqlDataSource ID="SQLDSSolicitud" runat="server"
ConnectionString="<%$ ConnectionStrings:ConnectionString %>"
SelectCommand="SELECT Solicitudes.FechaSol, Solicitante.Nombre AS Solicitante, Company.Nombre AS Compañia, Company.Contacto, Company.Direccion, CatAsunto.Nombre AS Asunto FROM Solicitudes INNER JOIN Solicitante ON Solicitudes.SolicitanteId = Solicitante.SolicitanteId INNER JOIN CatAsunto ON Solicitudes.AsuntoId = CatAsunto.AsuntoId INNER JOIN Company ON Solicitudes.CompanyId = Company.CompanyId">
<SelectParameters>
</SelectParameters>
</asp:SqlDataSource> <asp:HiddenField ID="hfId" runat="server" />
</div>
</form>
</body>
</html>
Y ESTE ES EL CODIGO QUE TENGO EN LA PAGINA ASPX.VB
Imports System.Data
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Partial Class Report_RepRequest
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Me.hfId.Value = Request("Id")
Using cnn As New SqlConnection(Me.SQLDSSolicitud.ConnectionString)
Dim sel As String
sel = Me.SQLDSSolicitud.SelectCommand & " WHERE SolicitudId=@p_SolicitudId"
Dim cmd As New SqlCommand(sel, cnn)
cnn.Open()
cmd.Parameters.AddWithValue("@p_SolicitudId", CType(Me.hfId.Value, Integer))
Dim tabla As New DataTable
Dim da As New SqlDataAdapter(cmd)
da.Fill(tabla)
Dim source As New CrystalDecisions.Web.DataSourceRef
CRS1.Report.FileName = "RepRequest.rpt"
source.TableName = "Tabla"
source.DataSourceID = "SQLDSSolicitud"
End Using
End If
End Sub
End Class
Tambien tengo el Reporte, que lo mando a llamar
cuando corro la aplicación
no me sale info, solo las etiquetas
¿¿¿¿Alguna Idea???
