Imprimir relatorio.. usanto intervalo de data

Question

Boa tarde, será que alguem poderia me ajudar, estou tentando imprimir o relatorio usando o intervalo de data mas nao esta dando certo..

estou usando o seguinte comando no botao..

 

 Dim vicentino As New frmRelatorioVicentino()

        vicentino.crvVicentino.ReportSource = New crpVicentino

        If cmbConferencia.Text <> "" Then

            vicentino.crvVicentino.SelectionFormula = "{Vicentino.Cod_Conf}=" & listConferencia.Text

        End If


        If IsDate(mskDtInicial.Text) And IsDate(mskDtFinal.Text) Then
            If frmRelatorioVicentino.crvVicentino.SelectionFormula <> "" Then
                frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & " and "
            End If
            frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino} >= date (" & Format(mskDtInicial.Text, "yyyy, MM, dd") & ")"
            frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino} <= date (" & Format(mskDtFinal.Text, "yyyy, MM, dd") & ")"
        End If


        vicentino.Show()




        Hide()

Answer 1

Bom dia,

Estou tentanto gerar um relatorio por intervalo de data.. mas nao estou conseguindo.. o que estou fazendo errado?? e como eu faco para imprimir um relatorio que usuario digite um intervalo de idade como por exemplo de 15 a 18 anos e saia as pessoas selecionadas no relatorio??

 

        Dim vicentino As New frmRelatorioVicentino()

        vicentino.crvVicentino.ReportSource = New crpVicentino

        If cmbConferencia.Text <> "" Then

            vicentino.crvVicentino.SelectionFormula = "{Vicentino.Cod_Conf}=" & listConferencia.Text

        End If


        If IsDate(mskDtInicial.Text) And IsDate(mskDtFinal.Text) Then
            If frmRelatorioVicentino.crvVicentino.SelectionFormula <> "" Then
                frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & " and "
            End If
            frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino >= cdate (" & (mskDtInicial.Text, "yyyy, MM, dd") & ")"
            frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino <= cdate (" & Format(mskDtFinal.Text, "yyyy, MM, dd") & ")"
        End If


        vicentino.Show()
        Hide()

 

Answer 2

corrigindo o codigo e este:

 

Dim vicentino As New frmRelatorioVicentino()

        vicentino.crvVicentino.ReportSource = New crpVicentino

        If cmbConferencia.Text <> "" Then

            vicentino.crvVicentino.SelectionFormula = "{Vicentino.Cod_Conf}=" & listConferencia.Text

        End If


        If IsDate(mskDtInicial.Text) And IsDate(mskDtFinal.Text) Then
            If frmRelatorioVicentino.crvVicentino.SelectionFormula <> "" Then
                frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & " and "
            End If
            frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino} >= cdate (" & Format(mskDtInicial.Text, "yyyy, MM, dd") & ")"
            frmRelatorioVicentino.crvVicentino.SelectionFormula = frmRelatorioVicentino.crvVicentino.SelectionFormula & "{Vicentino.Nascimento_Vicentino} <= cdate (" & Format(mskDtFinal.Text, "yyyy, MM, dd") & ")"
        End If


        vicentino.Show()
        Hide()

Answer 3

Wander poste sua dúvida aqui:

 

http://social.msdn.microsoft.com/Forums/pt-BR/vsreportingpt/threads

 

 

Answer 4

obrigado

Answer 5

Olá Wander,

 

Olha cara, acredito que a melhor maneira de se fazer isso e com uma maior facilidade (tanto para realizar, quanto para manutenções) seria a criação de uma View no seu Banco de Dados para retornar apenas as pessoas relacionadas a faixa passada. 

 

Após a criação você apenas arrasta a View criada para seu DataSet. Quando você selecionar a faixa de idade, você chama a View que já irá te trazer as pessoas filtradas !

 

Acho que seria a forma mais fácil, porém é apenas uma sugestão! Se encontrar algo mais útil ou acessivel compartilhe conosco !

Abs,

 

Rafael Zaccanini

----------------------------------------------------------

Se a resposta te ajudou marque como útil