none
Imprimir relatorio.. usanto intervalo de data RRS feed

  • Pergunta

  • 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()

    sexta-feira, 26 de março de 2010 16:40

Todas as Respostas

  • 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()

     

    quarta-feira, 24 de março de 2010 11:50
  • 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()

    quarta-feira, 24 de março de 2010 11:56
  • Wander poste sua dúvida aqui:

     

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

     

     

    quarta-feira, 24 de março de 2010 12:00
  • obrigado
    quarta-feira, 24 de março de 2010 12:05
  • 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
    terça-feira, 30 de março de 2010 02:48