Imports Microsoft.Reporting.WebForms



Partial Class certificacao_visualizaCertificado

  Inherits System.Web.UI.Page



  Private Sub RecebeParametros()

    ViewState("vlID") = Request("pID")

    If ViewState("vlID") Is Nothing Or ViewState("vlID") = 0 Then Response.Redirect("CadCertificar.aspx")

    PovoaRelatorio(" A.ID = " & ViewState("vlID") & " AND A.ATIVO = 1 ", "")



  End Sub



  Private Sub PovoaRelatorio(ByVal pParametro As String, ByVal pOrdem As String)

    Dim pSQL As String



    pSQL = " SELECT A.ID, A.EDITALITEMID, A.MATRICULAID, A.INSCRICAOID, A.PESSOAID, A.CEDULA, A.VIA, A.LIVRO, A.FOLHA, " & _

        " A.DATACERTIFICACAO, DATA_CERTIFICACAO = CONVERT(VARCHAR(10), A.DATACERTIFICACAO, 103), A.CODIGOCERTIFICADO, A.USUARIOCRIA, A.ATIVO, " & _

        " A.MOTIVOID, A.DTCRIACAO, A.USUARIOALTERA, A.DTALTERACAO, ALUNO = D.NOME, CURSO = E.NOME, " & _

        " PERIODO = FORMAT(C.DTINICIO, 'dd/MM/yyyy') + ' a ' + FORMAT(C.DTFIM, 'dd/MM/yyyy'), C.CARGAHORARIA, " & _

        " FILIAL = F.NOME, CIDADE = G.NOME, ESTADO = H.SIGLA " & _

        " FROM MATRICULACERTIFICACAO A " & _

        " INNER JOIN MATRICULA B ON (B.ID = A.MATRICULAID AND B.INSCRICAOID = A.INSCRICAOID AND B.PESSOAID = A.PESSOAID) " & _

        " INNER JOIN EDITALITENS C ON (C.ID = A.EDITALITEMID) " & _

        " INNER JOIN PESSOAS D ON (D.ID = A.PESSOAID) " & _

        " INNER JOIN CURSOS E ON (E.ID = C.CURSOID) " & _

        " INNER JOIN FILIAL F ON (F.ID = C.FILIALID) " & _

        " INNER JOIN CIDADES G ON (G.ID = F.CIDADEID) " & _

        " INNER JOIN ESTADOS H ON (H.ID = G.ESTADOID AND H.PAISID = G.PAISID) "



    If Trim(pParametro) <> "" Then pSQL += " WHERE " & pParametro



    If Trim(pOrdem) <> "" Then pSQL += " ORDER BY " & Trim(pOrdem)



    With DSDados

      .SelectCommand = pSQL

      .DataBind()

    End With


    Me.WebReport1.ReportFile = "~/relatorios/relCertificadoAluno2.frx"

    Me.WebReport1.Refresh()



  End Sub





  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    If Not IsPostBack Then

      RecebeParametros()



    End If



  End Sub



  Protected Sub BtnVoltar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnVoltar.Click

    Response.Redirect("index.aspx")



  End Sub



End Class