Imports System.Text.RegularExpressions
Public Class OperPreoAdminDetalle
    Dim _sTransaccion As String
    Dim _IdTransaccion As Integer
    Dim _IdProducto As Integer
    Dim _IdAlarma As Integer
    Dim _IdPatron As Integer

    Public Sub New(ByVal sTransaccion As String, ByVal IdTransaccion As Integer, ByVal IdProducto As Integer, IdAlarma As Integer, IdPatron As Integer)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()
        ''Variables de la pantalla anterior, enviadas via parametro.
        _sTransaccion = sTransaccion
        _IdTransaccion = IdTransaccion
        _IdProducto = IdProducto
        _IdAlarma = IdAlarma
        _IdPatron = IdPatron

    End Sub
    Private Sub OperPreoAdminDetalle_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ClassCom As New clsComplejo
        Dim sSQL As String

        Try
            ''Llenar combo de estados
            sSQL = "SELECT IdEstado clave, Estado as Nombre FROM Cat_Estado WHERE IdEstado BETWEEN 1 AND 33 ORDER BY IdEstado"
            ClassCom.sbLlenaCombo(sSQL, cmbEstado)
            cmbEstado.SelectedIndex = -1
            ClassCom = Nothing
            ''LLenar combo de Actividades Económicas
            ClassCom = New clsComplejo
            sSQL = "SELECT IdActividadEconomica Clave,ActividadEconomica as Nombre FROM Cat_ActividadEconomica ORDER BY ActividadEconomica"
            ClassCom.sbLlenaCombo(sSQL, cmbActEconom)
            cmbActEconom.SelectedIndex = -1
            cmbPlaza.Text = "Seleccione primero un estado"

            txtTransaccion.Text = _sTransaccion
            
            ''Verifica si existe el registro
            sSQL = "spConsultarDetFuncionarioReportado " & _IdTransaccion & "," & _IdProducto & "," & _IdAlarma & "," & _IdPatron
            ClassCom = New clsComplejo
            ClassCom.fdtDataSetTabla(sSQL)
            If ClassCom.ds.Tables(0).Rows.Count > 0 Then
                txtNombre.Text = ClassCom.ds.Tables(0).Rows(0)("Nombre")
                txtApePaterno.Text = ClassCom.ds.Tables(0).Rows(0)("ApePaterno")
                txtApeMaterno.Text = ClassCom.ds.Tables(0).Rows(0)("ApeMaterno")
                txtRFC.Text = ClassCom.ds.Tables(0).Rows(0)("RFC")
                txtCURP.Text = ClassCom.ds.Tables(0).Rows(0)("CURP")
                dtpFechaNac.Value = ClassCom.ds.Tables(0).Rows(0)("FechaNacimiento")
                txtDomicilio.Text = ClassCom.ds.Tables(0).Rows(0)("Domicilio")
                txtColonia.Text = ClassCom.ds.Tables(0).Rows(0)("Colonia")
                cmbEstado.SelectedValue = ClassCom.ds.Tables(0).Rows(0)("IdEstado")
                cmbPlaza.Text = ClassCom.ds.Tables(0).Rows(0)("PLAZA")
                txtTelefono.Text = ClassCom.ds.Tables(0).Rows(0)("Telefono")
                cmbActEconom.SelectedValue = ClassCom.ds.Tables(0).Rows(0)("ActividadEcon")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try

    End Sub

    Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
        Me.Close()
    End Sub

    Private Sub txtNombre_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtNombre.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub

    Private Sub txtApePaterno_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtApePaterno.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub

    Private Sub txtApeMaterno_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtApeMaterno.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub

    Private Sub txtRFC_Validating(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles txtRFC.Validating
        'Try
        '    txtRFC.Text = txtRFC.Text.ToUpper()
        '    If txtRFC.Text <> String.Empty Then
        '        If Regex.IsMatch(txtRFC.Text.Trim, "^([A-Z\s]{4})\d{6}$") = True Then
        '            Return
        '        End If
        '        If Regex.IsMatch(txtRFC.Text.Trim, "^([A-Z\s]{4})\d{6}([A-Z\w]{2,3})$") = False Then
        '            MsgBox("El RFC no es válido. El formato correcto es: LLLL###### ó LLLL######AA ó LLLL######AAA. L=Letra, #=Número, A=Alfanumérico.")
        '        End If
        '    End If
        'Catch ex As Exception
        '    MessageBox.Show(ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
        'End Try

    End Sub

    Private Sub txtCURP_Validating(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles txtCURP.Validating
        'Try
        '    txtCURP.Text = txtCURP.Text.ToUpper()
        '    If txtCURP.Text <> String.Empty Then
        '        If Regex.IsMatch(txtCURP.Text.Trim, "[a-zA-Z]{4,4}[0-9]{6}[a-zA-Z]{6,6}[0-9]{2}") = True Then
        '            Return
        '        Else
        '            ''
        '            MsgBox("La CURP no es válida. El formato correcto es: LLLL######LLLLLL## ")
        '        End If
        '    End If
        'Catch ex As Exception
        '    MessageBox.Show(ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
        'End Try

    End Sub

    Private Sub cmbEstado_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbEstado.SelectedIndexChanged
        Dim ClassCom As New clsComplejo
        Dim sSQL As String
        Try
            If cmbEstado.SelectedValue Is Nothing Then
                Return
            End If
            If cmbEstado.SelectedValue.ToString.ToUpper = "SYSTEM.DATA.DATAROWVIEW" Then
                Return
            End If

            If cmbEstado.SelectedValue > 0 Then
                ''LLena el combo de ciudad-plaza
                'If cmbEstado.SelectedValue = "33" Then
                '    sSQL = "select Idplaza as Clave, plaza Nombre from cat_plaza where AliasId = '99999999'"
                '    ClassCom.sbLlenaCombo(sSQL, cmbPlaza)
                '    cmbPlaza.SelectedIndex = -1
                'Else
                sSQL = "select Idplaza as Clave, plaza Nombre from cat_plaza where IdEstado =" & cmbEstado.SelectedValue & " ORDER BY plaza"
                ClassCom.sbLlenaCombo(sSQL, cmbPlaza)
                cmbPlaza.SelectedIndex = -1
                'End If

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try

    End Sub
    Private Sub CambiaColor()
        Label1.ForeColor = Color.MidnightBlue
        Label2.ForeColor = Color.MidnightBlue
        Label3.ForeColor = Color.MidnightBlue
        Label4.ForeColor = Color.MidnightBlue
        Label7.ForeColor = Color.MidnightBlue
        Label8.ForeColor = Color.MidnightBlue
        Label12.ForeColor = Color.MidnightBlue
        Label9.ForeColor = Color.MidnightBlue
        Label10.ForeColor = Color.MidnightBlue
        Label11.ForeColor = Color.MidnightBlue
    End Sub
    Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
        ''Inserta o Actualiza el registro 
        Dim ClassCom As New clsComplejo
        Dim strSQL As String
        Dim mensaje As String = ""
        CambiaColor()

        If txtNombre.Text = "" Then
            ' MessageBox.Show("Definir el nombre.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ' Return
            mensaje = mensaje + "Nombre " + vbCrLf + " "
            Label1.ForeColor = Color.Red
        End If
        If txtApePaterno.Text = "" Then
            ' MessageBox.Show("Definir el nombre.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ' Return
            mensaje = mensaje + "Apellido Paterno " + vbCrLf + " "
            Label2.ForeColor = Color.Red

        End If
        If txtApeMaterno.Text = "" Then
            ' MessageBox.Show("Definir el nombre.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ' Return
            mensaje = mensaje + "Apellido Materno " + vbCrLf + " "
            Label3.ForeColor = Color.Red
        End If
        If txtRFC.Text = "" Then
            'MessageBox.Show("Definir el RFC.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'Return
            mensaje = mensaje + "RFC " + vbCrLf + " "
            Label4.ForeColor = Color.Red
        End If
        'If txtCURP.Text = "" Then
        '    MessageBox.Show("Definir la CURP.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
        '    Return
        'End If
        If txtDomicilio.Text = "" Then
            mensaje = mensaje + "Domicilio " + vbCrLf + " "
            Label7.ForeColor = Color.Red
            'MessageBox.Show("Definir el domicilio.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'Return
        End If

        If txtColonia.Text = "" Then
            mensaje = mensaje + "Colonia " + vbCrLf + " "
            Label8.ForeColor = Color.Red
            'MessageBox.Show("Definir la colonia.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'Return
        End If
        If cmbEstado.Text = "" Then
            mensaje = mensaje + "Estado " + vbCrLf + " "
            Label12.ForeColor = Color.Red
            'MessageBox.Show("Definir la ciudad.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'Return
        End If
        If cmbPlaza.Text = "" Or cmbPlaza.Text = "Seleccione primero un estado" Then
            mensaje = mensaje + "Cliudad " + vbCrLf + " "
            Label9.ForeColor = Color.Red
            'MessageBox.Show("Definir la ciudad.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'Return
        End If
        If txtTelefono.Text = "" Then
            mensaje = mensaje + "Teléfono " + vbCrLf + " "
            Label10.ForeColor = Color.Red

            'MessageBox.Show("Definir el telefono.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'Return
        End If
        If cmbActEconom.SelectedValue = "" Then
            'MessageBox.Show("Definir la actividad económica.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'Return
            mensaje = mensaje + "Actividad Económica " + vbCrLf + ""
            Label11.ForeColor = Color.Red
        End If
        If mensaje.Length > 0 Then
            mensaje = "Campos Obligatorios " + vbCrLf + " " + mensaje
            MessageBox.Show(mensaje, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            Exit Sub
        End If
        txtNombre.Text = txtNombre.Text.ToUpper()
        txtApePaterno.Text = txtApePaterno.Text.ToUpper()
        txtApeMaterno.Text = txtApeMaterno.Text.ToUpper()
        txtRFC.Text = txtRFC.Text.ToUpper()
        txtCURP.Text = txtCURP.Text.ToUpper()
        txtDomicilio.Text = txtDomicilio.Text.ToUpper()
        txtColonia.Text = txtColonia.Text.ToUpper()
        txtTelefono.Text = txtTelefono.Text.ToUpper()

        strSQL = "exec spDetFuncionarioReportado " & _IdTransaccion & "," & _IdProducto & "," & _IdAlarma & "," & _IdPatron & ","
        strSQL = strSQL & Chr(39) & txtNombre.Text & Chr(39) & ","
        If txtApePaterno.Text = "" Then
            strSQL = strSQL & Chr(39) & "XXXX" & Chr(39) & ","
        Else
            strSQL = strSQL & Chr(39) & txtApePaterno.Text & Chr(39) & ","
        End If

        If txtApeMaterno.Text = "" Then
            strSQL = strSQL & Chr(39) & "XXXX" & Chr(39) & ","
        Else
            strSQL = strSQL & Chr(39) & txtApeMaterno.Text & Chr(39) & ","
        End If

        strSQL = strSQL & Chr(39) & txtRFC.Text & Chr(39) & ","
        strSQL = strSQL & Chr(39) & txtCURP.Text & Chr(39) & ","
        strSQL = strSQL & Chr(39) & dtpFechaNac.Value.Year.ToString & dtpFechaNac.Value.Month.ToString("d2") & dtpFechaNac.Value.Day.ToString("d2") & Chr(39) & ","
        strSQL = strSQL & Chr(39) & txtDomicilio.Text & Chr(39) & ","
        strSQL = strSQL & Chr(39) & txtColonia.Text & Chr(39) & ","
        strSQL = strSQL & Chr(39) & cmbPlaza.SelectedValue & Chr(39) & ","
        strSQL = strSQL & Chr(39) & txtTelefono.Text & Chr(39) & ","
        strSQL = strSQL & Chr(39) & cmbActEconom.SelectedValue & Chr(39)
        ClassCom = New clsComplejo
        ClassCom.fdtDataSetTabla(strSQL)
        If ClassCom.ds.Tables(0).Rows(0)("Resultado") = -1 Then
            ''Mensaje de error  
            MessageBox.Show(ClassCom.ds.Tables(0).Rows(0)("MsgError"), "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else

            'AUDITORIA
            Dim ClassAud As New ClassMyUtils
            Dim varUser As Long
            Dim ClassComodin As New clsComplejo
            Dim sAuditoria As String
            Dim strNota As String
            Dim clCmp As clsComplejo = New clsComplejo
            strNota = clCmp.BuscaValores("nombreproducto", "producto", "id_producto = " & _IdProducto)
            sAuditoria = "Detalle de alarma preocupante con transacción Id Transacción = " & txtTransaccion.Text.Trim() &
                        "; Nombre = " & txtNombre.Text.Trim() &
                        "; Apellido Paterno = " & txtApePaterno.Text.Trim() &
                        "; Apellido Materno = " & txtApeMaterno.Text.Trim() &
                        "; RFC = " & txtRFC.Text.Trim &
                        "; CURP = " & txtCURP.Text.Trim &
                        "; Fecha Nacimiento o Constitución = " & dtpFechaNac.Text &
                        "; Domicilio = " & txtDomicilio.Text.Trim &
                        "; Colonia = " & txtColonia.Text.Trim &
                        "; Estado = " & cmbEstado.Text.Trim &
                        "; Ciudad = " & cmbPlaza.Text.Trim &
                        "; Telefono = " & txtTelefono.Text.Trim &
                        "; Act. Económica = " & cmbActEconom.Text.Trim

            ClassAud.RT_Auditoria(VariablesGlobales.gblIdUsuario, 126, My.Computer.Name, "Minds Cliente", sAuditoria)

            MessageBox.Show("Registro actualizado correctamente.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

    End Sub

    
End Class