[Resolvido] Campo para Protocolo Crystal Report

[Julierme Felix 0]

Pessoal tenho um relatório de assinaturas no crystal report que esta funcionando normalmente, mas agora me pediram para acrescentar um campo que seria para digitação do protocolo. Por exemplo ao selecionar o relatorio aparecerá um campo (pensei em um form) para digitar o protocolo (entrega de ticket refeição).

 

No access era só colocar um parametro na consulta que já fazia isso, mas no crystal não estou sabendo fazer.

 

O relatório esta funcionando traz os funcionarios gravados no banco de dados, seria "apenas" acrescentar um campo que não esta no dataset ao relatório, tentei por formula mas não consegui.

[quintelab 91]

Criei mais um campo em seu DataSet. Onde irá alimentar com o valor digitado pelo usuário.

 

Abraços...

[Julierme Felix 0]

Criei mais um campo em seu DataSet. Onde irá alimentar com o valor digitado pelo usuário.

 

Abraços...

Sim já havia feito issso. Quando clico para abrir o relatório aparece um form para digitar o protocolo, não estou conseguindo passar o valor do textbox para o campo no relatório

[quintelab 91]

Como alimenta os outros campos? Se for através de uma query, basta incluir este campo na sua query.

Ex.:

 

query = string.Format("SELECT CAMPO1, CAMPO2, '{0}' AS PROTOCOLO", TextBox1.Text);

 

Abraços...

[Julierme Felix 0]

Como alimenta os outros campos? Se for através de uma query, basta incluir este campo na sua query.

Ex.:

 

query = string.Format("SELECT CAMPO1, CAMPO2, '{0}' AS PROTOCOLO", TextBox1.Text);

 

Abraços...

 

alimento os campos com o codigo abaixo, código do botão do formulario de protocolo.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Cn.Open()
       Dim filho14 As New relassinatura
       Dim lin As SqlCommand = Cn.CreateCommand()
       lin.CommandText = "Select nome, departamento from qryfunc where status='Ativo'"
               Dim da4 As New SqlDataAdapter(lin)
               Dim ds5 As New qryfuncDS
               Dim rpt3 As New rptassinatura 'relatório do crystal
               da4.Fill(ds5, "qryfunc")
               rpt3.SetDataSource(ds5)
               filho14.CrystalReportViewer1.ReportSource = rpt3
               filho14.Show()
       Cn.Close()
   End Sub

[Julierme Felix 0]

Consegui resolver a situação.

 

No relatório do crystal criei um campo de paramentros, e em um formulario adicionei um campo texto e atraves do código abaixo passo o texto digitado no campo do formulario para o campo de paramentro do relatório do crystal.

 

cbodepartamento.Visible = False
         cbodepartamento.Enabled = False
         Dim lin As SqlCommand = Cn.CreateCommand()
         lin.CommandText = "Select * from qryfunc where status='Ativo'"

         Dim da4 As New SqlDataAdapter(lin)
         Dim ds5 As New qryfuncDS
         Dim rpt3 As New rptassinatura

         da4.Fill(ds5, "qryfunc")
         rpt3.SetDataSource(ds5)
         filho14.CrystalReportViewer1.ReportSource = rpt3
         rpt3.SetParameterValue("protocolo", editprotocolo.Text)
         filho14.Show()