Tema: CrystalReports y parametros através de Textbox!!!
Ver Mensaje Individual
  #9 (permalink)  
Antiguo 10/02/2012, 10:30
Avatar de stuart_david3
stuart_david3
 
Fecha de Ingreso: agosto-2011
Mensajes: 215
Antigüedad: 13 años, 2 meses
Puntos: 1
Respuesta: CrystalReports y parametros através de Textbox!!!
Código ASP: 
Ver original
  1. <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
  2.  
  3. <%@ Register Assembly="CrystalDecisions.Web, Version=10.2.3600.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"
  4.     Namespace="CrystalDecisions.Web" TagPrefix="CR" %>
  5. <%@ Import Namespace="System.Data" %>
  6. <%@ Import Namespace="System.Data.SQLClient" %>
  7. <%@ Import Namespace="CrystalDecisions.Web" %>
  8. <%@ Import Namespace="CrystalDecisions.CrystalReports.Engine" %>
  9. <%@ Import Namespace="CrystalDecisions.Shared" %>
  10. <script language="vbscript" runat="server">
  11.     Protected Sub BtnVer_Click(ByVal sender As Object, ByVal e As System.EventArgs)
  12.         Dim rep As ReportDocument = New ReportDocument
  13.         rep.Load(Server.MapPath("ReporteContratation.rpt"))
  14.         Dim rpe As ParameterDiscreteValue = New ParameterDiscreteValue
  15.         rpe.Value = Text_rpe.Text
  16.         Dim nombre As ParameterDiscreteValue = New ParameterDiscreteValue
  17.         nombre.Value = Text_nombre.Text
  18.         Dim fechaant As ParameterDiscreteValue = New ParameterDiscreteValue
  19.         fechaant.Value = Text_Feant.Text
  20.         Dim escolaridad As ParameterDiscreteValue = New ParameterDiscreteValue
  21.         escolaridad.Value = Text_Escolar.Text
  22.         rep.ParameterFields(0).CurrentValues.Add(rpe)
  23.         rep.ParameterFields(1).CurrentValues.Add(nombre)
  24.         rep.ParameterFields(2).CurrentValues.Add(fechaant)
  25.         rep.ParameterFields(3).CurrentValues.Add(escolaridad)
  26.         Me.CRVReemplazos.ReportSource = rep
  27.         Me.CRVReemplazos.DataBind()
  28.     End Sub
  29.     
  30.     Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
  31.         Dim reader As SqlDataReader
  32.         Dim values As ArrayList = New ArrayList()
  33.         Dim conn As SqlConnection = New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
  34.         Dim Answer = Text_rpe.Text.ToString()
  35.         
  36.         Dim sql2 As String = "SELECT TOP 1 [extractor].[dbo].[b_traba1].rpe, [extractor].[dbo].[b_traba1].nombre, [extractor].[dbo].[b_traba1].fe_antre, [extractor].[dbo].[b_traba2].cl_escol, [extractor].[dbo].[l_escol].nivescol, [extractor].[dbo].[c_puesto].puesto, [extractor].[dbo].[b_traba1].cl_nides, [extractor].[dbo].[c_cencos].ds_cenco, [extractor].[dbo].[b_plazas].numplaza, [extractor].[dbo].[c_ubica].ubicapza, [extractor].[dbo].[b_contra].fe_inico, [extractor].[dbo].[b_contra].fe_terco, [extractor].[dbo].[b_contra].im_saltr, [extractor].[dbo].[c_cencos].cl_cenco, GETDATE() AS num, CASE WHEN grupo='A' THEN 10 WHEN grupo='B' THEN 11 WHEN grupo='C' THEN 12 WHEN grupo='D' THEN 13..."
  37.         Dim dr As New SqlCommand(sql2, conn)
  38.         conn.Open()
  39.         reader = dr.ExecuteReader()
  40.         If reader.Read() Then
  41.             Dim fecha = DateTime.Now
  42.             lblFecha.Text = fecha.ToShortDateString() + " " + fecha.ToShortTimeString()
  43.             Text_nombre.Text = CStr(reader("nombre")).ToString
  44.             Text_nombre.Attributes.Add("readonly", "readonly")
  45.             Text_nombre.BackColor = Drawing.Color.Silver
  46.             Text_Feant.Text = CStr(reader("fe_antre")).ToString
  47.             Text_Feant.Attributes.Add("readonly", "readonly")
  48.             Text_Feant.BackColor = Drawing.Color.Silver
  49.             Text_Escolar.Text = CStr(reader("nivescol")).ToString
  50.             Text_Escolar.Attributes.Add("readonly", "readonly")
  51.             Text_Escolar.BackColor = Drawing.Color.Silver
  52.             Text_Ingre2.Text = ("X").ToString
  53.             Text_Ingre2.Attributes.Add("readonly", "readonly")
  54.             Text_Ingre2.BackColor = Drawing.Color.Silver
  55.             Text_Puesto1.Text = CStr(reader("puesto")).ToString
  56.             Text_Puesto1.Attributes.Add("readonly", "readonly")
  57.             Text_Puesto1.BackColor = Drawing.Color.Silver
  58.             Text_GO1.Text = CStr(reader("orga")).ToString
  59.             Text_GO1.Attributes.Add("readonly", "readonly")
  60.             Text_GO1.BackColor = Drawing.Color.Silver
  61.             Text_Ceco1.Text = CStr(reader("ds_cenco")).ToString
  62.             Text_Ceco1.Attributes.Add("readonly", "readonly")
  63.             Text_Ceco1.BackColor = Drawing.Color.Silver
  64.             Text_ND1.Text = CStr(reader("cl_nides")).ToString
  65.             Text_ND1.Attributes.Add("readonly", "readonly")
  66.             Text_ND1.BackColor = Drawing.Color.Silver
  67.             Text_Plaza1.Text = CStr(reader("numplaza")).ToString
  68.             Text_Plaza1.Attributes.Add("readonly", "readonly")
  69.             Text_Plaza1.BackColor = Drawing.Color.Silver
  70.             Text_Ubica1.Text = CStr(reader("ubicapza")).ToString
  71.             Text_Ubica1.Attributes.Add("readonly", "readonly")
  72.             Text_Ubica1.BackColor = Drawing.Color.Silver
  73.             Text_Inic1.Text = CStr(reader("fe_inico")).ToString
  74.             Text_Inic1.Attributes.Add("readonly", "readonly")
  75.             Text_Inic1.BackColor = Drawing.Color.Silver
  76.             If IsDBNull((reader("fe_terco"))) Then
  77.                 Text_Terc1.Text = "nulo"
  78.                 Text_Terc1.BackColor = Drawing.Color.Silver
  79.                 Text_Sal1.Attributes.Add("readonly", "readonly")
  80.             Else
  81.                 Text_Terc1.Text = CStr(reader("fe_terco"))
  82.                 Text_Terc1.BackColor = Drawing.Color.Silver
  83.                 Text_Sal1.Attributes.Add("readonly", "readonly")
  84.             End If
  85.             Text_Sal1.Text = CStr(reader("im_saltr")).ToString
  86.             Text_Sal1.Attributes.Add("readonly", "readonly")
  87.             Text_Sal1.BackColor = Drawing.Color.Silver
  88.             Text_Clave1.Text = CStr(reader("cl_cenco")).ToString
  89.             Text_Clave1.Attributes.Add("readonly", "readonly")
  90.             Text_Clave1.BackColor = Drawing.Color.Silver
  91.             Text_Puesto2.Text = CStr(reader("puesto")).ToString
  92.             Text_Puesto2.Attributes.Add("readonly", "readonly")
  93.             Text_GO2.Text = CStr(reader("orga")).ToString
  94.             Text_GO2.Attributes.Add("readonly", "readonly")
  95.             Text_Ceco2.Text = CStr(reader("ds_cenco")).ToString
  96.             Text_Ceco2.Attributes.Add("readonly", "readonly")
  97.             Text_ND2.Text = CStr(reader("cl_nides")).ToString
  98.             Text_ND2.Attributes.Add("readonly", "readonly")
  99.             Text_Plaza2.Text = CStr(reader("numplaza")).ToString
  100.             Text_Plaza2.Attributes.Add("readonly", "readonly")
  101.             Text_Ubica2.Text = CStr(reader("ubicapza")).ToString
  102.             Text_Ubica2.Attributes.Add("readonly", "readonly")
  103.             Text_Sal2.Text = CStr(reader("im_saltr")).ToString
  104.             Text_Sal2.Attributes.Add("readonly", "readonly")
  105.             Text_Clave2.Text = CStr(reader("cl_cenco")).ToString
  106.             Text_Clave2.Attributes.Add("readonly", "readonly")
  107.             Text_Ingre1.BackColor = Drawing.Color.Silver
  108.             Text_rpe.BackColor = Drawing.Color.Silver
  109.             Text_rpe.Attributes.Add("readonly", "readonly")
  110.         Else
  111.             Text_Ingre1.Text = ("X")
  112.             Text_Ingre1.BackColor = Drawing.Color.Silver
  113.             Text_Ingre1.Attributes.Add("readonly", "readonly")
  114.             Text_Ingre2.BackColor = Drawing.Color.Silver
  115.             Text_Ingre2.Attributes.Add("readonly", "readonly")
  116.         End If
  117.         reader.Close()
  118.     End Sub
  119.     
  120.     Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
  121.         Response.Redirect("Default.aspx")
  122.     End Sub
  123.     
  124.  
  125. </script>
  126.  
  127. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  128.  
  129. <html xmlns="http://www.w3.org/1999/xhtml" >
  130. <head id="Head1" runat="server">
  131.     
  132.                 <td style="font-size: 7pt; width: 954px; font-family: Arial">
  133.                     Nueva Creación</td>
  134.                 <td style="width: 178px; font-size: 7pt; font-family: Arial;">
  135.                     &nbsp;&nbsp;
  136.                     <asp:TextBox ID="TextBox22" runat="server" Width="38px"></asp:TextBox></td>
  137.             </tr>
  138.             <tr>
  139.                 <td style="width: 584px; font-size: 7pt; font-family: Arial;">
  140.                     R.P.E.:<asp:TextBox ID="Text_rpe" runat="server" Width="173px" MaxLength="5"></asp:TextBox></td>
  141.                 <td style="width: 455px; font-size: 7pt; font-family: Arial;">
  142.                     Clave: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Adscripción:&nbsp;<br />
  143.                     <asp:TextBox ID="Text_Clave1" runat="server" Width="72px"></asp:TextBox>
  144.                     <asp:TextBox ID="Text_Ubica1" runat="server" Width="223px"></asp:TextBox></td>
  145.                 <td style="font-size: 7pt; width: 589px; font-family: Arial">
  146.                     Clave: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Adscripción:&nbsp;<br />
  147.                    
  148.         </span>
  149.         <br />
  150.     </div>
  151.     </form>
  152. </body>
  153. </html>

Borre una parte del código, solo era el diseño del formulario y una parte de mi consulta, es que el post no me permitía tantos carácteres :p...
Gracias de antemano...