381 lines
16 KiB
VB.net
381 lines
16 KiB
VB.net
Imports System.Data
|
|
Imports System.Data.SqlClient
|
|
Imports System.Configuration
|
|
Imports System.Windows.Forms.DataVisualization.Charting
|
|
Imports System.ComponentModel
|
|
Imports System.Drawing.Imaging
|
|
|
|
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()
|
|
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("Bajo", dsGral.Tables(2).Rows(0)(3))
|
|
Chart2.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(4))
|
|
Chart2.Series(0).Points.AddXY("Alto", 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("Bajo", dsGral.Tables(2).Rows(0)(7))
|
|
'Chart3.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(4))
|
|
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("Bajo", dsGral.Tables(2).Rows(0)(9))
|
|
'Chart4.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(9))
|
|
Chart4.Series(0).Points.AddXY("Medio", 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", dsGral.Tables(2).Rows(0)(14))
|
|
'Chart8.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(15))
|
|
Chart8.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
|
|
|
|
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)
|
|
|
|
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 = dsGral.Tables(16).Rows(0)(0)
|
|
Label97.Text = dsGral.Tables(16).Rows(0)(0)
|
|
Label100.Text = 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
|
|
'Dim bmpScreenshot As Bitmap = New Bitmap(Width, Height, PixelFormat.Format32bppArgb)
|
|
TabPage1.Height = 1000
|
|
Dim bmp As Bitmap = New Bitmap(TabPage1.Width, TabPage1.Height)
|
|
TabPage1.DrawToBitmap(bmp, TabPage1.ClientRectangle)
|
|
bmp.Save("C:\albert\Form1.jpg", ImageFormat.Jpeg)
|
|
|
|
' Create a graphics object from the bitmap
|
|
'Dim gfxScreenshot As Graphics = Graphics.FromImage(bmpScreenshot)
|
|
' Take a screenshot of the entire Form1
|
|
'gfxScreenshot.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Me.Size, CopyPixelOperation.SourceCopy)
|
|
' Save the screenshot
|
|
'bmpScreenshot.Save("C:\albert\Form1.jpg", ImageFormat.Jpeg)
|
|
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
End Class |