client/Reportes/frmEBR.vb

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Windows.Forms.DataVisualization.Charting
Imports System.ComponentModel
Imports System.Drawing.Imaging
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.Collections.Generic

Public Class frmEBR
    Private dtN As DataTable
    Private dtE As DataTable
    Private dtO As DataTable
    Private Sub frmEBR_Load(sender As Object, e As EventArgs) Handles Me.Load
        GenerarEBR("0")
        CargaCombos()
        CargarEBR()

        Me.Width = Screen.PrimaryScreen.Bounds.Width
        Me.Height = Screen.PrimaryScreen.Bounds.Height
        Me.WindowState = FormWindowState.Maximized

        Dim ClassAud As New ClassMyUtils
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 86, 1, "Entrando EBR")
    End Sub

    Private Sub GenerarEBR(opc As String)
        Dim Classcom As New clsComplejo
        Dim SQL As String = String.Empty

        SQL = "SP_EBR " & opc
        Classcom.sbInserta(SQL)
    End Sub

    Private Sub CargarEBR()
        Try
            Dim Classcom As New clsComplejo
            Dim ClassCatalogos As New ClassCatalogos
            Dim SQL As String = String.Empty
            Dim idInherent As Integer
            Dim idConrolEfeect As Integer


            SQL = "SP_EBR_CONSULTA"
            Dim dsGral As DataSet = Classcom.fdtDataSet(SQL)


            p1.Text = dsGral.Tables(0).Rows(0)(0)
            r1.Text = dsGral.Tables(0).Rows(0)(1)
            rg1.Text = "Riesgo " & dsGral.Tables(0).Rows(0)(1)
            v1.Text = dsGral.Tables(0).Rows(0)(2)

            p2.Text = dsGral.Tables(0).Rows(1)(0)
            r2.Text = dsGral.Tables(0).Rows(1)(1)
            rg2.Text = "Riesgo " & dsGral.Tables(0).Rows(1)(1)
            v2.Text = dsGral.Tables(0).Rows(1)(2)

            p3.Text = dsGral.Tables(0).Rows(2)(0)
            r3.Text = dsGral.Tables(0).Rows(2)(1)
            rg3.Text = "Riesgo " & dsGral.Tables(0).Rows(2)(1)
            v3.Text = dsGral.Tables(0).Rows(2)(2)

            p4.Text = dsGral.Tables(0).Rows(3)(0)
            r4.Text = dsGral.Tables(0).Rows(3)(1)
            rg4.Text = "Riesgo " & dsGral.Tables(0).Rows(3)(1)
            v4.Text = dsGral.Tables(0).Rows(3)(2)

            p5.Text = dsGral.Tables(0).Rows(4)(0)
            r5.Text = dsGral.Tables(0).Rows(4)(1)
            rg5.Text = "Riesgo " & dsGral.Tables(0).Rows(4)(1)
            v5.Text = dsGral.Tables(0).Rows(4)(2)

            p6.Text = dsGral.Tables(0).Rows(5)(0)
            r6.Text = dsGral.Tables(0).Rows(5)(1)
            rg6.Text = "Riesgo " & dsGral.Tables(0).Rows(5)(1)
            v6.Text = dsGral.Tables(0).Rows(5)(2)

            Riesgo.Text = dsGral.Tables(1).Rows(0)(0)
            Riesgo2.Text = dsGral.Tables(1).Rows(0)(2)
            Label91.Text = dsGral.Tables(1).Rows(0)(2)
            Label60.Text = dsGral.Tables(1).Rows(0)(0)
            idInherent = dsGral.Tables(1).Rows(0)(1)

            Chart1.Series.Clear()
            Chart1.Series.Add("Grado de Riesgo")
            Chart1.Series(0).IsValueShownAsLabel = True
            Chart1.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(0))
            Chart1.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(1))
            Chart1.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(2))

            Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut


            Chart2.Series.Clear()
            Chart2.Series.Add("Tipo de Cliente")
            Chart2.Series(0).IsValueShownAsLabel = True
            Chart2.Series(0).Points.AddXY("Física", dsGral.Tables(2).Rows(0)(3))
            Chart2.Series(0).Points.AddXY("Moral", dsGral.Tables(2).Rows(0)(4))
            Chart2.Series(0).Points.AddXY("Fideicomiso", dsGral.Tables(2).Rows(0)(5))
            Chart2.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut


            Chart3.Series.Clear()
            Chart3.Series.Add("PEP")
            Chart3.Series(0).IsValueShownAsLabel = True


            Chart3.Series(0).Points.AddXY("Pep", dsGral.Tables(2).Rows(0)(6))
            Chart3.Series(0).Points.AddXY("Otras", dsGral.Tables(2).Rows(0)(7))
            Chart3.Series(0).Points.AddXY("Niguna Lista", dsGral.Tables(8).Rows(0)(3))


            'Chart3.Series(0).Points.AddXY("Pep", dsGral.Tables(2).Rows(0)(6))
            'Chart3.Series(0).Points.AddXY("Otras", dsGral.Tables(2).Rows(0)(7))
            'Chart3.Series(0).Points.AddXY("Niguna Lista", dsGral.Tables(8).Rows(0)(3))

            'Chart3.ChartAreas("PEP").Area3DStyle.Rotation = 90

            'If dsGral.Tables(2).Rows(0)(6) <> 0 Then Chart3.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(6))
            Chart3.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut


            Chart4.Series.Clear()
            Chart4.Series.Add("Servicio de inversión Asesorado y No Asesorado")
            Chart4.Series(0).IsValueShownAsLabel = True
            Chart4.Series(0).Points.AddXY("No Asesorado", dsGral.Tables(2).Rows(0)(9))
            'Chart4.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(9))
            Chart4.Series(0).Points.AddXY("Asesorado", dsGral.Tables(2).Rows(0)(8))
            Chart4.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut


            Chart5.Series.Clear()
            Chart5.Series.Add("Domicilio Principal")
            Chart5.Series(0).IsValueShownAsLabel = True
            Chart5.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(10))
            Chart5.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(11))
            Chart5.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(12))
            Chart5.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut


            Chart6.Series.Clear()
            Chart6.Series.Add("Principal lugar de operación")
            Chart6.Series(0).IsValueShownAsLabel = True
            Chart6.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(13))
            Chart6.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(14))
            Chart6.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(15))
            Chart6.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut

            C1TrueDBGrid1.SetDataBinding(dsGral.Tables(3), "")
            Chart7.Series.Clear()
            Chart7.Series.Add("Historico")
            Chart7.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Area

            Chart7.ChartAreas(0).AxisY.Maximum = 3
            For Each dr As DataRow In dsGral.Tables(3).Rows
                Chart7.Series(0).Points.AddXY(dr("MES-AÑO").ToString, Convert.ToInt16(dr("IDRISK")))

            Next

            Chart8.Series.Clear()
            Chart8.Series.Add("Canales de envío")
            Chart8.Series(0).IsValueShownAsLabel = True
            Chart8.Series(0).Points.AddXY("Bajo", 100)
            Chart8.Series(0).Points.AddXY("Medio", 0)
            Chart8.Series(0).Points.AddXY("Alto", 0)
            Chart8.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut

            Label103.Text = "BAJO: " & dsGral.Tables(16).Rows(0)(0)
            Label49.Text = "Total canales envío: " & dsGral.Tables(16).Rows(0)(0)


            cmbAML.SelectedValue = dsGral.Tables(4).Rows(0)("ID_CE_SCALE")
            ComboBox1.SelectedValue = dsGral.Tables(4).Rows(1)("ID_CE_SCALE")
            ComboBox2.SelectedValue = dsGral.Tables(4).Rows(2)("ID_CE_SCALE")
            ComboBox3.SelectedValue = dsGral.Tables(4).Rows(3)("ID_CE_SCALE")
            ComboBox4.SelectedValue = dsGral.Tables(4).Rows(4)("ID_CE_SCALE")
            ComboBox5.SelectedValue = dsGral.Tables(4).Rows(5)("ID_CE_SCALE")
            ComboBox6.SelectedValue = dsGral.Tables(4).Rows(6)("ID_CE_SCALE")
            CheckBox1.Checked = IIf(dsGral.Tables(4).Rows(7)("VALUE") = "50", True, False)

            txtAML.Text = dsGral.Tables(4).Rows(0)("TXT_CE")
            TextBox1.Text = dsGral.Tables(4).Rows(1)("TXT_CE")
            TextBox2.Text = dsGral.Tables(4).Rows(2)("TXT_CE")
            TextBox3.Text = dsGral.Tables(4).Rows(3)("TXT_CE")
            TextBox4.Text = dsGral.Tables(4).Rows(4)("TXT_CE")
            TextBox5.Text = dsGral.Tables(4).Rows(5)("TXT_CE")
            TextBox6.Text = dsGral.Tables(4).Rows(6)("TXT_CE")

            Label58.Text = dsGral.Tables(5).Rows(0)("SUBTOTAL")
            Label57.Text = dsGral.Tables(5).Rows(0)("DESCRIPCION")
            Label95.Text = dsGral.Tables(5).Rows(0)("TOTAL")
            Label94.Text = dsGral.Tables(5).Rows(0)("DESCRIPCIONt")

            Label92.Text = dsGral.Tables(5).Rows(0)("DESCRIPCIONt")
            Label59.Text = dsGral.Tables(5).Rows(0)("TOTAL")
            idConrolEfeect = dsGral.Tables(5).Rows(0)("ID_SCALE_TOTAL")



            If idConrolEfeect = 1 And idInherent = 1 Then
                Button4.Location = Panel5.Location
                Label93.Text = "Bajo"
            ElseIf idConrolEfeect = 2 And idInherent = 1 Then
                Button4.Location = Panel6.Location
                Label93.Text = "Bajo"
            ElseIf idConrolEfeect = 3 And idInherent = 1 Then
                Button4.Location = Panel9.Location
                Label93.Text = "Medio"
            ElseIf idConrolEfeect = 1 And idInherent = 2 Then
                Button4.Location = Panel7.Location
                Label93.Text = "Bajo"
            ElseIf idConrolEfeect = 2 And idInherent = 2 Then
                Button4.Location = Panel8.Location
                Label93.Text = "Medio"
            ElseIf idConrolEfeect = 3 And idInherent = 2 Then
                Button4.Location = Panel11.Location
                Label93.Text = "Alto"
            ElseIf idConrolEfeect = 1 And idInherent = 3 Then
                Button4.Location = Panel10.Location
                Label93.Text = "Medio"
            ElseIf idConrolEfeect = 2 And idInherent = 3 Then
                Button4.Location = Panel12.Location
                Label93.Text = "Alto"
            ElseIf idConrolEfeect = 3 And idInherent = 3 Then
                Button4.Location = Panel13.Location
                Label93.Text = "Alto"
            End If


            Label28.Text = dsGral.Tables(6).Rows(0)(0)
            Label34.Text = dsGral.Tables(6).Rows(1)(0)
            Label35.Text = dsGral.Tables(6).Rows(2)(0)

            Label31.Text = dsGral.Tables(7).Rows(0)(0)
            Label37.Text = dsGral.Tables(7).Rows(1)(0)
            Label38.Text = dsGral.Tables(7).Rows(2)(0)

            Label40.Text = dsGral.Tables(8).Rows(0)(0)
            Label102.Text = dsGral.Tables(8).Rows(0)(1)
            Label106.Text = dsGral.Tables(8).Rows(0)(2)



            Label32.Text = dsGral.Tables(9).Rows(0)(0)
            Label41.Text = dsGral.Tables(9).Rows(1)(0)
            Label43.Text = dsGral.Tables(9).Rows(2)(0)
            Label44.Text = dsGral.Tables(9).Rows(3)(0)
            Label45.Text = dsGral.Tables(9).Rows(4)(0)

            Label47.Text = "Domicilios Nacionales: " & dsGral.Tables(10).Rows(0)(0)
            dtN = dsGral.Tables(11)
            Label48.Text = "Domicilios Extranjeros: " & dsGral.Tables(12).Rows(0)(0)
            dtE = dsGral.Tables(13)

            Label33.Text = "Lugares de Operacion: " & dsGral.Tables(14).Rows(0)(0)
            dtO = dsGral.Tables(15)

            Label96.Text = "TOTAL DE CLIENTES CON RIESGO: " & dsGral.Tables(16).Rows(0)(0)
            Label97.Text = dsGral.Tables(19).Rows(0)(0)
            Label100.Text = "TOTAL DE CLIENTES CON RIESGO:" & dsGral.Tables(16).Rows(0)(0)

            Label101.Text = dsGral.Tables(17).Rows(0)(0)

            Label21.Text = dsGral.Tables(18).Rows(0)(0)
            Label22.Text = dsGral.Tables(18).Rows(1)(0)
            Label23.Text = dsGral.Tables(18).Rows(2)(0)
            Label24.Text = dsGral.Tables(18).Rows(3)(0)
            Label25.Text = dsGral.Tables(18).Rows(4)(0)
            Label26.Text = dsGral.Tables(18).Rows(5)(0)
            Label27.Text = dsGral.Tables(18).Rows(6)(0)

            colorLabel(Me)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Public Sub colorLabel(ByRef MainParent As Control)
        If Not MainParent.HasChildren Then Exit Sub

        For Each x As Control In MainParent.Controls()
            If x.HasChildren Then colorLabel(x)
            Select Case True
                Case TypeOf x Is Label
                    If x.Text.Contains("Bajo") And IsNothing(x.Tag) Then
                        x.ForeColor = Color.Green
                    ElseIf x.Text.Contains("Medio") And IsNothing(x.Tag) Then
                        x.ForeColor = Color.Orange
                    ElseIf x.Text.Contains("Alto") And IsNothing(x.Tag) Then
                        x.ForeColor = Color.Red
                    End If
            End Select
        Next
    End Sub

    Private Sub BtnConsul_Click(sender As Object, e As EventArgs) Handles BtnConsul.Click
        Me.Cursor = Cursors.WaitCursor
        GenerarEBR("1")
        CargarEBR()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Close()
    End Sub

    Private Sub Chart5_Click(sender As Object, e As EventArgs) Handles Chart5.Click

    End Sub

    Private Sub CargaCombos()
        Dim cls As New clsComplejo

        cls.sbLlenaCombo("SELECT DESCRIPCION nombre, ID clave FROM EBR_CAT_CE_SCALE", Me.cmbAML)
        cls = New clsComplejo
        cls.sbLlenaCombo("SELECT DESCRIPCION nombre, ID clave FROM EBR_CAT_CE_SCALE", Me.ComboBox1)
        cls = New clsComplejo
        cls.sbLlenaCombo("SELECT DESCRIPCION nombre, ID clave FROM EBR_CAT_CE_SCALE", Me.ComboBox2)
        cls = New clsComplejo
        cls.sbLlenaCombo("SELECT DESCRIPCION nombre, ID clave FROM EBR_CAT_CE_SCALE", Me.ComboBox3)
        cls = New clsComplejo
        cls.sbLlenaCombo("SELECT DESCRIPCION nombre, ID clave FROM EBR_CAT_CE_SCALE", Me.ComboBox4)
        cls = New clsComplejo
        cls.sbLlenaCombo("SELECT DESCRIPCION nombre, ID clave FROM EBR_CAT_CE_SCALE", Me.ComboBox5)
        cls = New clsComplejo
        cls.sbLlenaCombo("SELECT DESCRIPCION nombre, ID clave FROM EBR_CAT_CE_SCALE", Me.ComboBox6)

        cmbAML.SelectedIndex = 0
        ComboBox1.SelectedIndex = 0
        ComboBox2.SelectedIndex = 0
        ComboBox3.SelectedIndex = 0
        ComboBox4.SelectedIndex = 0
        ComboBox5.SelectedIndex = 0
        ComboBox6.SelectedIndex = 0
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        GuardarMitigantes()
    End Sub

    Private Sub GuardarMitigantes()
        Dim cls As New clsComplejo

        Dim SSQL As String = cmbAML.SelectedValue.ToString() & ",'" & txtAML.Text & "',"
        SSQL += ComboBox1.SelectedValue.ToString() & ",'" & TextBox1.Text & "',"
        SSQL += ComboBox2.SelectedValue.ToString() & ",'" & TextBox2.Text & "',"
        SSQL += ComboBox3.SelectedValue.ToString() & ",'" & TextBox3.Text & "',"
        SSQL += ComboBox4.SelectedValue.ToString() & ",'" & TextBox4.Text & "',"
        SSQL += ComboBox5.SelectedValue.ToString() & ",'" & TextBox5.Text & "',"
        SSQL += ComboBox6.SelectedValue.ToString() & ",'" & TextBox6.Text & "',"
        SSQL += Convert.ToInt16(CheckBox1.Checked) & ",'" & TextBox7.Text & "'"


        SSQL = "SP_U_EBR_CONTROLEFFEC " & SSQL
        If cls.fnInserta(SSQL) = "" Then
            MessageBox.Show("Informacion Guardada.", "MINDS")
        End If

        CargarEBR()

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        TextBox7.Enabled = CheckBox1.Checked
        TextBox7.Text = ""
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim fr As New frmEBRDomicilios
        fr.DT = dtN
        fr.Show()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim fr As New frmEBRDomicilios
        fr.DT = dtE
        fr.Show()
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim fr As New frmEBRDomicilios
        fr.DT = dtO
        fr.Show()
    End Sub

    Private Sub frmEBR_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Dim ClassAud As New ClassMyUtils
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 86, 1, "Cerrando EBR")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Try
            guardarExpEbr()
        Catch ex As Exception
        End Try

    End Sub

    Private Function saveImgGbx(tpg As TabPage, gbx As GroupBox) As String

        Dim ruta As String = Path.GetTempPath   ' Application.StartupPath & "\"
        Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond


        Dim bmp As Bitmap = New Bitmap(tpg.Width, tpg.Height)
        bmp = New Bitmap(gbx.Width, gbx.Height)
        gbx.DrawToBitmap(bmp, gbx.ClientRectangle)
        bmp.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg)

        Return ruta & nameImg & ".jpg"
    End Function

    Private Function saveImgPBox(tpg As TabPage, pbx As PictureBox)
        Dim ruta As String = Path.GetTempPath
        Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond


        Dim bmp As Bitmap = New Bitmap(tpg.Width, tpg.Height)
        bmp = New Bitmap(pbx.Width, pbx.Height)
        pbx.DrawToBitmap(bmp, pbx.ClientRectangle)
        bmp.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg)

        Return ruta & nameImg & ".jpg"

    End Function

    Private Function saveImageRiesgoResidual()

        TabControl1.SelectedIndex = 2
        'Dim ruta As String = Path.GetTempPath
        'Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond
        'TabControl1.Refresh()
        'Threading.Thread.Sleep(500)
        'Dim screenSize As Size = New Size(GroupBox14.Width, GroupBox14.Height)
        'Dim screenGrab As New Bitmap(GroupBox14.Width, GroupBox14.Height)
        'Dim g As Graphics = Graphics.FromImage(screenGrab)

        'g.CopyFromScreen(New Point(17, 98), New Point(0, 0), screenSize)
        'screenGrab.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg)

        'Return ruta & nameImg & ".jpg"

        Dim ruta As String = Path.GetTempPath
        Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond
        TabControl1.Refresh()
        Threading.Thread.Sleep(500)

        Dim screenSize As Size = New Size(GroupBox14.Width, GroupBox14.Height)
        'Dim screenGrab As New Bitmap(GroupBox14.Width, GroupBox14.Height)

        Dim screenGrab As Drawing.Image
        If Screen.PrimaryScreen.Bounds.Width > 1500 Then
            screenGrab = New Bitmap(GroupBox14.Width - 58, GroupBox14.Height)
        Else
            screenGrab = New Bitmap(GroupBox14.Width, GroupBox14.Height)
        End If

        Dim g As Graphics = Graphics.FromImage(screenGrab)
        g.CopyFromScreen(Me.PointToScreen(New Point(22, 40)), Point.Empty, GroupBox14.ClientSize)
        screenGrab.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg)

        Return ruta & nameImg & ".jpg"
    End Function

    Private Sub guardarExpEbr()

        Dim fws As FormWindowState

        Dim listaImg As New List(Of String)

        fws = Me.WindowState

        Me.WindowState = FormWindowState.Normal

        Dim doc As New Document(PageSize.A4, 30, 30, 30, 30)
        Dim root As String = Path.GetTempPath & "EBR_" & DateTime.Now.ToString("HHmmss") & ".pdf"

        Dim file As New FileStream(root, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)

        PdfWriter.GetInstance(doc, file)
        doc.Open()


        Dim fnt As Font = FontFactory.GetFont("Arial", 18, BaseColor.BLACK)

        Dim chk = New Chunk("Modelo de Enfoque Basado en Riesgo", fnt)

        Dim frase As New Phrase()
        frase.Add(chk)

        Dim title As New Paragraph(frase)
        title.Alignment = 1
        doc.Add(title)
        doc.Add(New Paragraph(" "))

        fnt = FontFactory.GetFont("Arial", 14, BaseColor.BLACK)
        chk = New Chunk("Calificación de Riesgo Inherente", fnt)

        frase = New Phrase()
        frase.Add(chk)
        title = New Paragraph(frase)

        title.Alignment = 1
        doc.Add(title)
        doc.Add(New Paragraph(" "))
        doc.Add(New Paragraph(" "))

        Dim fileImg As String = saveImgPBox(TabPage1, PictureBox1)
        Dim img As Image = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        'img.ScalePercent((150 / img.Width) * 100)
        img.ScalePercent(50)
        doc.Add(img)
        listaImg.Add(fileImg)

        Label1.Visible = False
        BtnConsul.Visible = False
        Button2.Visible = False

        fileImg = saveImgGbx(TabPage1, gbCalificaciones)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        'img.ScalePercent(50)
        img.ScaleAbsolute(450, 150)
        doc.Add(img)
        listaImg.Add(fileImg)

        Label1.Visible = True
        BtnConsul.Visible = True
        Button2.Visible = True

        '1
        fileImg = saveImgGbx(TabPage1, GroupBox1)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(200)

        'Dim x As Single = InputBox("Valor", "", 100)


        img.ScaleAbsolute(450, 115)

        'Dim cel As New PdfPCell(img, True)
        'doc.Add(cel)

        doc.Add(img)

        'doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage1, GroupBox2)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 115)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage1, GroupBox3)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 115)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage1, GroupBox4)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 115)
        doc.Add(img)
        listaImg.Add(fileImg)

        Button5.Visible = False
        Button6.Visible = False
        fileImg = saveImgGbx(TabPage1, GroupBox5)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 115)
        doc.Add(img)
        listaImg.Add(fileImg)
        Button5.Visible = True
        Button6.Visible = True

        Button7.Visible = False
        fileImg = saveImgGbx(TabPage1, GroupBox6)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 115)
        doc.Add(img)
        listaImg.Add(fileImg)
        Button7.Visible = True

        fileImg = saveImgGbx(TabPage1, GroupBox64)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 115)
        doc.Add(img)
        listaImg.Add(fileImg)


        '
        doc.Add(New Paragraph(" "))
        doc.Add(New Paragraph(" "))

        fnt = FontFactory.GetFont("Arial", 14, BaseColor.BLACK)
        chk = New Chunk("Efectividad de los Controles", fnt)

        frase = New Phrase()
        frase.Add(chk)

        title = New Paragraph(frase)
        title.Alignment = 1
        doc.Add(title)

        doc.Add(New Paragraph(" "))
        doc.Add(New Paragraph(" "))

        TabControl1.SelectedTab = TabControl1.TabPages.Item(1)

        '
        fileImg = saveImgGbx(TabPage3, gbAML)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 60)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage3, GroupBox8)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 60)
        doc.Add(img)
        listaImg.Add(fileImg)


        fileImg = saveImgGbx(TabPage3, GroupBox9)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 60)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage3, GroupBox10)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 60)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage3, GroupBox12)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 60)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage3, GroupBox13)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 60)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage3, GroupBox11)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(50)
        img.ScaleAbsolute(450, 60)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage3, GroupBox68)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(200)
        img.ScaleAbsolute(450, 50)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage3, GroupBox15)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(200)
        img.ScaleAbsolute(450, 50)
        doc.Add(img)
        listaImg.Add(fileImg)

        fileImg = saveImgGbx(TabPage3, GroupBox69)
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        img.ScalePercent(200)
        img.ScaleAbsolute(450, 50)
        doc.Add(img)
        listaImg.Add(fileImg)


        '
        TabControl1.SelectedTab = TabControl1.TabPages.Item(2)
        Threading.Thread.Sleep(500)

        'doc.Add(New Paragraph(" "))
        'doc.Add(New Paragraph(" "))
        doc.NewPage()

        fnt = FontFactory.GetFont("Arial", 14, BaseColor.BLACK)
        chk = New Chunk("Riesgo Residual", fnt)

        frase = New Phrase()
        frase.Add(chk)

        title = New Paragraph(frase)
        title.Alignment = 1
        doc.Add(title)
        doc.Add(New Paragraph(" "))

        fileImg = saveImageRiesgoResidual()
        img = Image.GetInstance(fileImg)
        img.Alignment = 1
        img.BorderWidth = 100
        'img.ScalePercent(50)
        img.ScalePercent(25)
        img.ScaleAbsolute(450, 350)
        doc.Add(img)
        listaImg.Add(fileImg)

        doc.Close()

        TabControl1.SelectedTab = TabControl1.TabPages.Item(0)

        deleImg(listaImg)

        Me.WindowState = fws

        If (MessageBox.Show("¿Desa abrir el archivo? " & Environment.NewLine & " (Se requiere tener instalado un visor pdf para abrir el archivo). ", "Exportación EBR", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes) Then
            Try

                Process.Start(root)

            Catch ex As Exception
                Me.WindowState = fws
                MsgBox("No cuenta con visor pdf." & Environment.NewLine & ex.Message)
            End Try

        End If




    End Sub

    Private Sub deleImg(listaImg As List(Of String))

        For Each i As String In listaImg

            If File.Exists(i) Then
                File.Delete(i)
            End If
        Next

    End Sub

    Private Sub rg1_Click(sender As Object, e As EventArgs) Handles rg1.Click

    End Sub

    Private Sub Label42_Click(sender As Object, e As EventArgs) Handles Label42.Click

    End Sub
End Class