client/Actualizadores/frmParam.vb

Public Class frmParam
    Dim rutaAntR As String
    Dim rutaAntI As String
    Dim rutaAntP As String
    Dim rutaAntC As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRutaRelevantes.Click
        FolderBrowserDialog.ShowDialog()
        txtRutaRelevantes.Text = FolderBrowserDialog.SelectedPath
        btnGuardarRelevantes.Enabled = True
        Colores()

    End Sub

    Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click
        Dim valor As String
        If (rutaAntR <> txtRutaRelevantes.Text) Then
            valor = MessageBox.Show("<EFBFBD>Desea salir sin guardar los cambios?", "Ruta Relevantes", MessageBoxButtons.OKCancel)
            If valor = 2 Then
                Return
            End If
        End If

        If (rutaAntI <> txtRutaInusuales.Text) Then
            valor = MessageBox.Show("<EFBFBD>Desea salir sin guardar los cambios?", "Ruta Inusuales", MessageBoxButtons.OKCancel)
            If valor = 2 Then
                Return
            End If
        End If

        If (rutaAntP <> txtRutaPreocupantes.Text) Then
            valor = MessageBox.Show("<EFBFBD>Desea salir sin guardar los cambios?", "Ruta Preocupantes", MessageBoxButtons.OKCancel)
            If valor = 2 Then
                Return
            End If
        End If



        Me.Close()
    End Sub

    Private Sub BTAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardarRelevantes.Click
        Dim strSqlParam As String
        Dim ClassCom As New clsComplejo

        Try

            ClassCom.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera FROM ParamRep ")

            If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
                'strSqlParam = " UPDATE ParamRep SET IdOrganismoInternacional = '001002',idinstitucionFinanciera = '" & Me.CbOInFinanciera.SelectedValue & "',rutainusuales = '" & TXTRutaInusuales.Text & "'"
                strSqlParam = " UPDATE ParamRep SET rutaRelevantes = '" & txtRutaRelevantes.Text & "'"
                ClassCom.sbGuardaModifica(strSqlParam)
            Else
                strSqlParam = " INSERT INTO ParamRep (IdOrganismoInternacional,idinstitucionFinanciera,rutainusuales) VALUES ('1002','" & CbOInFinanciera.SelectedValue & "','" & txtRutaRelevantes.Text & "')"
                ClassCom.sbInserta(strSqlParam)
            End If


            Dim coneccion As New ClassMyUtils
            coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "MODIFICACI<EFBFBD>N DE LA RUTA REPORTES RELEVANTES (ANTERIOR:" & rutaAntR & ", NUEVO:" & txtRutaRelevantes.Text & ")")
            btnGuardarRelevantes.Enabled = False
            rutaAntR = txtRutaRelevantes.Text

        Catch ex As Exception
            MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try
    End Sub

    Private Sub CbOInFinanciera_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles CbOInFinanciera.DropDown
        Dim SQLPaises As String
        Dim clCmj1 As clsComplejo

        Try
            clCmj1 = New clsComplejo

            SQLPaises = "SELECT idInstitucionFinanciera as clave,InstitucionFinanciera nombre FROM cat_InstitucionFinanciera ORDER BY InstitucionFinanciera"
            clCmj1.cm.CommandText = SQLPaises
            clCmj1.ad.SelectCommand = clCmj1.cm

            clCmj1.sbLlenaCombo2(SQLPaises, CbOInFinanciera)

        Catch ex As Exception
            MessageBox.Show("Error CboInstitucion_DropDown: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbOInFinanciera.SelectedIndexChanged

        Dim Keywords = IIf(String.IsNullOrEmpty(CbOInFinanciera.Text), "N/A", CbOInFinanciera.Text) '<27>
        If Keywords = "N/A" Then
            Exit Sub
        End If
        Try

            'Label3.Text = "Clave de la Institucion Financiera: " & CbOInFinanciera.SelectedValue.ToString & ""
            lblCveNombreSofome.Visible = True
        Catch ex As Exception

        End Try

    End Sub

    Private Sub frmParam_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Dim coneccion As New ClassMyUtils
        'coneccion.RT_Auditoria(129, "SALIDA PARAMETROS REPORTE CNBV")
        coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "SALIDA PARAMETROS REPORTE CNBV ")
    End Sub

    Private Sub frmParam_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim SQL As String
        Dim clCmj1 As clsComplejo
        Dim Classcom As New SenteciasSQL.ClassSQL

        Try
            Dim coneccion As New ClassMyUtils
            coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "ENTRADA PARAMETROS REPORTE CNBV")
            clCmj1 = New clsComplejo

            Classcom.fdtDataSet("SELECT * FROM ParamRep")
            If Classcom.ds.Tables(0).Rows.Count <> 0 Then
                txtRutaRelevantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaRelevantes")
                txtRutaInusuales.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaInusuales")
                txtRutaPreocupantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaPreocupantes")
                txtRutaCarteras.Text = Classcom.ds.Tables(0).Rows(0).Item("rutacarteras")
                rutaAntR = txtRutaRelevantes.Text
                rutaAntI = txtRutaInusuales.Text
                rutaAntP = txtRutaPreocupantes.Text
                rutaAntC = txtRutaCarteras.Text
            End If


            SQL = "SELECT cf.IDInstitucionFinanciera as clave,InstitucionFinanciera nombre FROM Cat_InstitucionFinanciera cf, ParamRep pr where cf.IDInstitucionFinanciera=pr.IDInstitucionFinanciera  ORDER BY cf.IDInstitucionFinanciera DESC"
            Dim fila As DataRow
            Dim Cl As SenteciasSQL.ClassSQL = New SenteciasSQL.ClassSQL

            Cl.fdtDataSet(SQL)

            If Cl.ds.Tables(0).Rows.Count <> 0 Then
                fila = Cl.ds.Tables(0).Rows(0)
                lblCveNombreSofome.Text = fila(0).ToString() & " - " & fila(1).ToString()
            Else
                lblCveNombreSofome.Text = "000000 - Error. No se obtuvo el nombre de la Instituci<63>n Financiera"
            End If

            'clCmj1.cm.CommandText = SQLPaises
            'clCmj1.ad.SelectCommand = clCmj1.cm
            ' FINANCIERA FINCA, S.A. DE C.V., SOFOM, E.N.R.  691231
            'clCmj1.sbLlenaCombo2(SQLPaises, CbOInFinanciera)
            'lblCveNombreSofome.Text = CbOInFinanciera.SelectedValue & " - " & CbOInFinanciera.Text

            ' aqui darle un posicionamiento a la clave de finca

            'CbOInFinanciera.SelectedValue = 694224

            'clCmj1 = New clsComplejo
            'clCmj1.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera,rutainusuales FROM ParamRep ")

            'If clCmj1.ds.Tables(0).Rows.Count <> 0 Then
            '    CbOInFinanciera.SelectedValue = CLng(clCmj1.ds.Tables(0).Rows(0).Item("idinstitucionFinanciera").ToString)
            '    If Not IsDBNull(clCmj1.ds.Tables(0).Rows(0).Item("rutainusuales")) Then
            '        TXTRutaInusuales.Text = clCmj1.ds.Tables(0).Rows(0).Item("rutainusuales").ToString.Trim
            '    End If

            'End If


            'verifica el boton de la ruta
            'BTRutaInusuales

            'clCmj1 = New clsComplejo
            'SQLPaises = " select activo from perfilpermiso p "
            'SQLPaises = SQLPaises & "  inner join  cat_permiso  c  on p.idpermiso = c.idpermiso and p.idaplicativo = c.idaplicativo"
            'SQLPaises = SQLPaises & "  where c.idaplicativo = 1 and p.activo = 1 and p.idperfil =  " & clsVaribles.VarPerfil & " order by c.idpermiso "


            'clCmj1.fdtDataSet(SQLPaises)

            'If clCmj1.ds.Tables(0).Rows.Count <> 0 Then
            'BTRutaInusuales.Visible = True
            'Else
            'BTRutaInusuales.Visible = False

            'End If
            desHeader.Text = Me.Text
            Colores()
        Catch ex As Exception
            MessageBox.Show("Error CboInstitucion_DropDown: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try


    End Sub
    Private Sub Colores()
        If btnGuardarRelevantes.Enabled = False Then
            btnGuardarRelevantes.BackColor = Color.DarkGray
        Else
            btnGuardarRelevantes.BackColor = Color.Black
        End If
        If btnGuardarInusuales.Enabled = False Then
            btnGuardarInusuales.BackColor = Color.DarkGray
        Else
            btnGuardarInusuales.BackColor = Color.Black
        End If
        If btnGuardarPreocupantes.Enabled = False Then
            btnGuardarPreocupantes.BackColor = Color.DarkGray
        Else
            btnGuardarPreocupantes.BackColor = Color.Black
        End If
        If btnGuardarCarteras.Enabled = False Then
            btnGuardarCarteras.BackColor = Color.DarkGray
        Else
            btnGuardarCarteras.BackColor = Color.Black
        End If
    End Sub

    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles lblCveNombreSofome.Click

    End Sub

    Private Sub TXTRutaInusuales_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtRutaRelevantes.TextChanged

    End Sub

    Private Sub btnRutaInusuales_Click(sender As Object, e As EventArgs) Handles btnRutaInusuales.Click
        FolderBrowserDialog.ShowDialog()
        txtRutaInusuales.Text = FolderBrowserDialog.SelectedPath
        btnGuardarInusuales.Enabled = True
        Colores()
    End Sub

    Private Sub btnRutaPreocupantes_Click(sender As Object, e As EventArgs) Handles btnRutaPreocupantes.Click
        FolderBrowserDialog.ShowDialog()
        txtRutaPreocupantes.Text = FolderBrowserDialog.SelectedPath
        btnGuardarPreocupantes.Enabled = True
        Colores()
    End Sub

    Private Sub btnGuardarInusuales_Click(sender As Object, e As EventArgs) Handles btnGuardarInusuales.Click
        Dim strSqlParam As String
        Dim ClassCom As New clsComplejo

        Try
            ClassCom.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera FROM ParamRep ")

            If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
                'strSqlParam = " UPDATE ParamRep SET IdOrganismoInternacional = '001002',idinstitucionFinanciera = '" & Me.CbOInFinanciera.SelectedValue & "',rutainusuales = '" & TXTRutaInusuales.Text & "'"
                strSqlParam = " UPDATE ParamRep SET rutainusuales = '" & txtRutaInusuales.Text & "'"
                ClassCom.sbGuardaModifica(strSqlParam)
            Else
                strSqlParam = " INSERT INTO ParamRep (IdOrganismoInternacional,idinstitucionFinanciera,rutainusuales) VALUES ('1002','" & CbOInFinanciera.SelectedValue & "','" & txtRutaInusuales.Text & "')"
                ClassCom.sbInserta(strSqlParam)
            End If

            btnGuardarInusuales.Enabled = False
            rutaAntI = txtRutaInusuales.Text

            Dim coneccion As New ClassMyUtils
            coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "MODIFICACI<EFBFBD>N DE LA RUTA REPORTES INUSUALES (ANTERIOR:" & rutaAntI & ", NUEVO:" & txtRutaInusuales.Text & ")")
            Colores()
        Catch ex As Exception
            MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub btnGuardarPreocupantes_Click(sender As Object, e As EventArgs) Handles btnGuardarPreocupantes.Click
        Dim strSqlParam As String
        Dim ClassCom As New clsComplejo

        Try
            ClassCom.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera FROM ParamRep ")

            If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
                'strSqlParam = " UPDATE ParamRep SET IdOrganismoInternacional = '001002',idinstitucionFinanciera = '" & Me.CbOInFinanciera.SelectedValue & "',rutainusuales = '" & TXTRutaInusuales.Text & "'"
                strSqlParam = " UPDATE ParamRep SET rutaPreocupantes= '" & txtRutaPreocupantes.Text & "'"
                ClassCom.sbGuardaModifica(strSqlParam)
            Else
                strSqlParam = " INSERT INTO ParamRep (IdOrganismoInternacional,idinstitucionFinanciera,rutainusuales) VALUES ('1002','" & CbOInFinanciera.SelectedValue & "','" & txtRutaPreocupantes.Text & "')"
                ClassCom.sbInserta(strSqlParam)
            End If

            btnGuardarPreocupantes.Enabled = False
            rutaAntP = txtRutaPreocupantes.Text


            Dim coneccion As New ClassMyUtils
            coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "MODIFICACI<EFBFBD>N DE LA RUTA REPORTES INUSUALES (ANTERIOR:" & rutaAntP & ", NUEVO:" & txtRutaPreocupantes.Text & ")")
            Colores()
        Catch ex As Exception
            MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub btnGuardarCarteras_Click(sender As Object, e As EventArgs) Handles btnGuardarCarteras.Click
        Dim strSqlParam As String
        Dim ClassCom As New clsComplejo

        Try
            ClassCom.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera FROM ParamRep ")

            If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
                'strSqlParam = " UPDATE ParamRep SET IdOrganismoInternacional = '001002',idinstitucionFinanciera = '" & Me.CbOInFinanciera.SelectedValue & "',rutainusuales = '" & TXTRutaInusuales.Text & "'"
                strSqlParam = " UPDATE ParamRep SET rutacarteras = '" & txtRutaCarteras.Text & "'"
                ClassCom.sbGuardaModifica(strSqlParam)
            Else
                strSqlParam = " INSERT INTO ParamRep (IdOrganismoInternacional,idinstitucionFinanciera,rutacarteras) VALUES ('1002','" & CbOInFinanciera.SelectedValue & "','" & txtRutaCarteras.Text & "')"
                ClassCom.sbInserta(strSqlParam)
            End If

            btnGuardarCarteras.Enabled = False


            Dim coneccion As New ClassMyUtils
            coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "MODIFICACI<EFBFBD>N DE LA RUTA REPORTES CARTERAS DE VALORES (ANTERIOR:" & rutaAntC & ", NUEVO:" & txtRutaCarteras.Text & ")")
            rutaAntC = txtRutaCarteras.Text

            Colores()
        Catch ex As Exception
            MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub btnRutaCarteras_Click(sender As Object, e As EventArgs) Handles btnRutaCarteras.Click
        FolderBrowserDialog.ShowDialog()
        txtRutaCarteras.Text = FolderBrowserDialog.SelectedPath
        btnGuardarCarteras.Enabled = True
        Colores()

    End Sub
End Class