2019-07-05 13:43:55 -05:00
Imports System . Text . RegularExpressions
Public Class OperInuSinTran
Dim plazaSucursalSeleccionada As String
Public bProvieneDeRepAnonimo As Boolean = False
Private Sub OperPreoAdminDetalle_Load ( sender As System . Object , e As System . EventArgs ) Handles MyBase . Load
Dim cargarCbo As New clsComplejo
Dim sSQL As String
dtpFechaOper . MaxDate = Now
Try
''Llenar combo de estados
sSQL = " SELECT IdEstado clave, Estado as Nombre FROM Cat_Estado WHERE IdEstado BETWEEN 1 AND 33 ORDER BY IdEstado "
'sSQL = "SELECT IdEstado clave, Estado Nombre FROM Cat_Estado ORDER BY IdEstado"
cargarCbo . sbLlenaCombo ( sSQL , cmbEstado )
cmbEstado . SelectedIndex = - 1
cargarCbo = Nothing
cargarCbo = New clsComplejo
''LLenar combo de Actividades Económicas
sSQL = " SELECT IdActividadEconomica Clave,ActividadEconomica as Nombre FROM Cat_ActividadEconomica ORDER BY ActividadEconomica "
cargarCbo . sbLlenaCombo ( sSQL , cmbActEconom )
cmbActEconom . SelectedIndex = - 1
'cmbPlaza.Text = "Seleccione primero un estado"
addRegistro ( )
cmbPlaza . SelectedIndex = 0
cargarCbo = Nothing
cargarCbo = New clsComplejo
cargarCbo . sbLlenaCombo ( " SELECT IdEstatusAlarma as clave, EstatusAlarma as nombre FROM CAT_ESTATUSALARMA " , cmbEstatusOper )
cmbEstatusOper . SelectedIndex = - 1
cargarCbo = Nothing
cargarCbo = New clsComplejo
cargarCbo . sbLlenaCombo ( " select IDNACIONALIDAD clave, DESCRIPCION nombre FROM CAT_NACIONALIDAD " , cboNacionalidad )
cboNacionalidad . SelectedIndex = - 1
' ''Funcionario
'cargarCbo.sbLlenaCombo("spConsultarFuncionario", Me.cmbFuncionario)
'cmbFuncionario.SelectedIndex = -1
cargarCbo = Nothing
cargarCbo = New clsComplejo
cargarCbo . sbLlenaCombo ( " select idproducto clave, ALIAS nombre FROM cat_producto where activo = 1 " , cboProducto )
cboProducto . SelectedIndex = - 1
cargarCbo = Nothing
cargarCbo = New clsComplejo
cargarCbo . sbLlenaCombo ( " select IDTIPOPERSONA clave, TIPOPERSONA nombre FROM CAT_TIPOPERSONA where activo = 1 " , cmbTipoPersona )
cmbTipoPersona . SelectedIndex = - 1
2023-02-22 07:21:57 -06:00
cargarCbo = Nothing
cargarCbo = New clsComplejo
cargarCbo . sbLlenaCombo ( " SP_ConsultaClientes " , cboCliente )
cboCliente . SelectedIndex = - 1
2019-07-05 13:43:55 -05:00
'BtnLimpiar.PerformClick()
ActualizaGrid ( )
cargarSucursal ( )
'Actualiza grid
lblIdPreocupSinTran . Text = " "
dtpFechaDetecion . Enabled = False
btnRelacionadas . Enabled = False
btnRelacionadas . BackColor = Color . DarkGray
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 Function ObtenerCPSucursal ( ) As String
Dim strSQL As String
Dim ClassDatos2 As New clsComplejo
Dim FilaDatos As DataRow
ObtenerCPSucursal = " "
strSQL = " select CODIGOPOSTAL,IDPLAZA from CAT_SUCURSAL where IDSUCURSAL= " & cboSucursal . SelectedValue & " "
ClassDatos2 = New clsComplejo
ClassDatos2 . fdtDataSet ( strSQL )
If ClassDatos2 . ds . Tables ( 0 ) . Rows . Count <> 0 Then
For x As Integer = 0 To ClassDatos2 . ds . Tables ( 0 ) . Rows . Count - 1
FilaDatos = ClassDatos2 . ds . Tables ( 0 ) . Rows ( x )
ObtenerCPSucursal = FilaDatos ( " CODIGOPOSTAL " ) . ToString ( )
plazaSucursalSeleccionada = FilaDatos ( " IDPLAZA " ) . ToString ( )
Next
End If
End Function
Private Sub txtNombre_KeyPress ( sender As System . Object , e As System . Windows . Forms . KeyPressEventArgs )
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 )
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 )
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 )
'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 CambiaColorAzul ( )
lblNombre . ForeColor = Color . MidnightBlue
lblMaterno . ForeColor = Color . MidnightBlue
lblCurp . ForeColor = Color . MidnightBlue
lblPaterno . ForeColor = Color . MidnightBlue
Label4 . ForeColor = Color . MidnightBlue
Label6 . ForeColor = Color . MidnightBlue
Label7 . ForeColor = Color . MidnightBlue
Label8 . ForeColor = Color . MidnightBlue
Label9 . ForeColor = Color . MidnightBlue
Label11 . ForeColor = Color . MidnightBlue
Label14 . ForeColor = Color . MidnightBlue
Label23 . ForeColor = Color . MidnightBlue
Label12 . ForeColor = Color . MidnightBlue
Label10 . ForeColor = Color . MidnightBlue
Label15 . ForeColor = Color . MidnightBlue
Label24 . ForeColor = Color . MidnightBlue
Label16 . ForeColor = Color . MidnightBlue
Label21 . ForeColor = Color . MidnightBlue
Label20 . ForeColor = Color . MidnightBlue
Label22 . ForeColor = Color . MidnightBlue
Label18 . ForeColor = Color . MidnightBlue
Label26 . 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 = " "
CambiaColorAzul ( )
Dim is24Hrs As Boolean
Try
If cmbTipoPersona . Text . Trim = " " Then
MsgBox ( " Es necesario elegir el tipo de Persona " )
lblNombre . ForeColor = Color . Red
Exit Sub
End If
If txtNombre . Text = " " Then
'MessageBox.Show("Definir el nombre.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + lblNombre . Text + vbCrLf + " "
lblNombre . ForeColor = Color . Red
End If
If txtApePaterno . Text = " " And cmbTipoPersona . SelectedValue = 2 Then
'MessageBox.Show("Definir el apellido paterno.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Apellido Paterno " + vbCrLf + " "
lblPaterno . ForeColor = Color . Red
End If
'If txtApeMaterno.Text = "" Then
' 'MessageBox.Show("Definir el apellido materno.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
' 'Return
' mensaje = mensaje + "Apellido Materno " + vbCrLf + " "
' Label1.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 Regex.IsMatch(txtRFC.Text, "^([a-zA-Z]{4})([0-9]{6})([a-zA-Z0-9]{3})") = False Or txtRFC.Text.Length <> 13 Then
' If Regex.IsMatch(txtRFC.Text, "^([a-zA-Z]{4})([0-9]{6})") = False Or txtRFC.Text.Length <> 10 Then
' MsgBox("El Registro no es válido. El formato correcto es: XXXX######XXX ó XXXX######")
' Return
' End If
'End If
If txtCURP . Text = " " And cmbTipoPersona . SelectedValue = 2 Then
'MessageBox.Show("Definir la CURP.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " CURP " + vbCrLf + " "
lblCurp . ForeColor = Color . Red
End If
'If Regex.IsMatch(txtRFC.Text, "^([a-zA-Z]{4})([0-9]{6})([a-zA-Z]{6})([0-9]{2})") = False Or txtRFC.Text.Length <> 18 Then
' MsgBox("El Registro no es válido. El formato correcto es: XXXX######XXXXXX## ")
' Return
'End If
If txtDomicilio . Text = " " Then
'MessageBox.Show("Definir el domicilio.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Domicilio " + vbCrLf + " "
Label7 . ForeColor = Color . Red
End If
If txtColonia . Text = " " Then
'MessageBox.Show("Definir la colonia.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Colonia " + vbCrLf + " "
Label8 . ForeColor = Color . Red
End If
If cmbEstado . SelectedValue = Nothing Then
'MessageBox.Show("Definir el estado.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Estado " + vbCrLf + " "
Label12 . ForeColor = Color . Red
End If
If cmbLocalidad . SelectedValue = Nothing Then
'MessageBox.Show("Definir la ciudad.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Localidad " + vbCrLf + " "
Label26 . ForeColor = Color . Red
End If
If txtTelefono . Text = " " Then
'MessageBox.Show("Definir el teléfono.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Teléfono " + vbCrLf + " "
Label10 . ForeColor = Color . Red
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 cmbFuncionario.SelectedValue Is Nothing Then
' MessageBox.Show("Definir el agente o funcionario de la operación.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Return
'End If
If txtNota . Text = " " Then
'MessageBox.Show("Definir la descripción de la operación.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Descripción " + vbCrLf + " "
Label21 . ForeColor = Color . Red
End If
If txtRazon . Text = " " Then
'MessageBox.Show("Definir la razón de la operación.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Razón " + vbCrLf + " "
Label20 . ForeColor = Color . Red
End If
If cmbEstatusOper . SelectedValue Is Nothing Then
'MessageBox.Show("Definir el estatus de la operación.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Estatus Operación " + vbCrLf + " "
Label18 . ForeColor = Color . Red
End If
If Me . cmbEstatusOper . SelectedValue = 5 Then
MessageBox . Show ( " No es posible almacenar una alarma con estatus 'Enviado', este estatus es informativo. " , " MINDS " , MessageBoxButtons . OK , MessageBoxIcon . Exclamation )
Return
End If
If cboNacionalidad . SelectedValue Is Nothing Then
'MessageBox.Show("Definir la nacionalidad.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Nacionalidad " + vbCrLf + " "
Label15 . ForeColor = Color . Red
End If
'If cboProducto.SelectedValue Is Nothing Then
' 'MessageBox.Show("Definir el producto.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
' 'Return
' mensaje = mensaje + "Producto " + vbCrLf + " "
' Label16.ForeColor = Color.Red
'End If
If cboSucursal . SelectedValue Is Nothing Then
mensaje = mensaje + " Sucursal " + vbCrLf + " "
Label23 . ForeColor = Color . Red
End If
If txtCPSucursal . Text . Trim = " " Then
mensaje = mensaje + " Código Postal Sucursal " + vbCrLf + " "
Label24 . ForeColor = Color . Red
End If
If cmbEstado . SelectedValue Is Nothing Then
'MessageBox.Show("Definir el Estado.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return
mensaje = mensaje + " Producto " + vbCrLf + " "
Label12 . ForeColor = Color . Red
End If
Dim NombreProducto As String
NombreProducto = cboProducto . Text
If cboProducto . Text = " MERCADO DE CAPITALES " Then
'NombreProducto = "MERCADO DE DINERO"
End If
If mensaje . Length > 0 Then
mensaje = " Campos Obligatorios " + vbCrLf + " " + mensaje
MessageBox . Show ( mensaje , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Warning )
Exit Sub
End If
If chk24H . Checked Then
is24Hrs = True
Else
is24Hrs = False
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 = " spOperacionesSinTran " & Chr ( 39 ) & lblIdPreocupSinTran . Text & Chr ( 39 ) & " , " & Chr ( 39 ) & txtNombre . Text & Chr ( 39 ) & " , "
If txtApePaterno . Text = " " Then
strSQL = strSQL & Chr ( 39 ) & " " & Chr ( 39 ) & " , "
Else
strSQL = strSQL & Chr ( 39 ) & txtApePaterno . Text & Chr ( 39 ) & " , "
End If
If txtApeMaterno . Text = " " Then
strSQL = strSQL & Chr ( 39 ) & " " & 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 ) & cmbLocalidad . SelectedValue & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & txtTelefono . Text & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & cmbActEconom . SelectedValue & Chr ( 39 ) & " , "
''Controles de la pagina 2
'strSQL = strSQL & Chr(39) & cmbFuncionario.SelectedValue & Chr(39) & ","
strSQL = strSQL & Chr ( 39 ) & txtNota . Text & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & txtRazon . Text & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & dtpFechaDetecion . Value . Year . ToString & dtpFechaDetecion . Value . Month . ToString ( " d2 " ) & dtpFechaDetecion . Value . Day . ToString ( " d2 " ) & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & cmbEstatusOper . SelectedValue & Chr ( 39 ) & " , "
'strSQL = strSQL & Chr(39) & NombreProducto & Chr(39) & ","
strSQL = strSQL & " NULL " & " , "
strSQL = strSQL & Chr ( 39 ) & " PATRON NUEVA INUSUAL " & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & " INUSUAL " & Chr ( 39 ) & " , " & IIf ( bProvieneDeRepAnonimo = True , " 1 " , " 0 " ) & " , "
strSQL = strSQL & Chr ( 39 ) & dtpFechaOper . Value . Year . ToString & dtpFechaOper . Value . Month . ToString ( " d2 " ) & dtpFechaOper . Value . Day . ToString ( " d2 " ) & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & cboNacionalidad . SelectedValue & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & cboSucursal . SelectedValue & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & txtCPSucursal . Text & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & plazaSucursalSeleccionada & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & cmbLocalidad . SelectedValue & Chr ( 39 ) & " , "
strSQL = strSQL & Chr ( 39 ) & cmbTipoPersona . SelectedValue & Chr ( 39 ) & " , "
strSQL = strSQL & is24Hrs
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 = " & clsVaribles.Id_Producto)
sAuditoria = " Detalle de alarma preocupante sin transacción " &
" ; 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 &
" ; Fecha Operación = " & dtpFechaOper . Text &
" ; País Nacionalidad = " & cboNacionalidad . Text . Trim &
" ; Descripción = " & txtNota . Text . Trim . Replace ( vbCrLf , " " ) &
" ; Razón = " & txtRazon . Text . Trim . Replace ( vbCrLf , " " ) &
" ; Fecha detección = " & dtpFechaDetecion . Text &
" ; Estatus Operación = " & cmbEstatusOper . Text . Trim ( )
ClassAud . RT_Auditoria ( VariablesGlobales . gblIdUsuario , 126 , My . Computer . Name , " Minds Cliente " , sAuditoria )
MessageBox . Show ( " Registro creado o actualizado correctamente. " , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Information )
ActualizaGrid ( )
BtnLimpiar . PerformClick ( )
'DesBloqueaCtrls()
End If
Catch ex As Exception
MessageBox . Show ( ex . Message , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Information )
End Try
End Sub
Private Sub DataGrid1_MouseDoubleClick ( sender As System . Object , e As System . Windows . Forms . MouseEventArgs )
Dim MiRow As DataRow
Try
Dim is24Hrs As Boolean
'MiRow = DataGrid1.DataSource.Tables(0).Rows(DataGrid1.CurrentRowIndex)
clsVaribles . Id_Transaccion = Me . DataGrid1 . Columns ( " ID " ) . Value
clsVaribles . Id_Producto = Me . DataGrid1 . Columns ( " Id Producto " ) . Value
clsVaribles . Id_Patron = Me . DataGrid1 . Columns ( " Id Patrón " ) . Value
clsVaribles . Id_EstatusTransaccion = Me . DataGrid1 . Columns ( " IDESTATUSTRANSACCION " ) . Value
'clsVaribles.Id_Transaccion = MiRow.Item("ID")
'clsVaribles.Id_Producto = MiRow.Item("Id Producto")
'clsVaribles.Id_Patron = MiRow.Item("Id Patrón")
'clsVaribles.Id_EstatusTransaccion = ("IDESTATUSTRANSACCION")
'lblIdPreocupSinTran.Text = MiRow.Item("idSinTransaccion")
lblIdPreocupSinTran . Text = Me . DataGrid1 . Columns ( " ID " ) . Value
'lblIdPreocupSinTran.Text = MiRow.Item("ID")
txtNombre . Text = Me . DataGrid1 . Columns ( " Nombre " ) . Value
'txtNombre.Text = MiRow.Item("Nombre")
txtApePaterno . Text = Me . DataGrid1 . Columns ( " Apellido Paterno " ) . Value
'txtApePaterno.Text = MiRow.Item("Apellido Paterno")
txtApeMaterno . Text = Me . DataGrid1 . Columns ( " Apellido Materno " ) . Value
'txtApeMaterno.Text = MiRow.Item("Apellido Materno")
txtRFC . Text = Me . DataGrid1 . Columns ( " RFC " ) . Value
'txtRFC.Text = MiRow.Item("RFC")
txtCURP . Text = Me . DataGrid1 . Columns ( " CURP " ) . Value
'txtCURP.Text = MiRow.Item("CURP")
dtpFechaNac . Value = Me . DataGrid1 . Columns ( " Fecha Nacimiento " ) . Value
'dtpFechaNac.Value = MiRow.Item("Fecha Nacimiento")
txtDomicilio . Text = Me . DataGrid1 . Columns ( " Domicilio " ) . Value
'txtDomicilio.Text = MiRow.Item("Domicilio")
txtColonia . Text = Me . DataGrid1 . Columns ( " Colonia " ) . Value
'txtColonia.Text = MiRow.Item("Colonia")
cmbEstado . SelectedValue = Me . DataGrid1 . Columns ( " Id Estado " ) . Value
'cmbEstado.SelectedValue = MiRow.Item("Id Estado")
cargarPlaza ( )
cboSucursal . SelectedValue = Me . DataGrid1 . Columns ( " idsucursal " ) . Value
'cboSucursal.SelectedValue = MiRow.Item("idsucursal")
txtCPSucursal . Text = Me . DataGrid1 . Columns ( " CodigoPostalSucursal " ) . Value
'txtCPSucursal.Text = MiRow.Item("CodigoPostalSucursal")
cmbPlaza . SelectedValue = Me . DataGrid1 . Columns ( " Ciudad " ) . Value
'cmbPlaza.SelectedValue = MiRow.Item("Ciudad")
txtTelefono . Text = Me . DataGrid1 . Columns ( " Telefono " ) . Value
'txtTelefono.Text = MiRow.Item("Telefono")
cmbActEconom . SelectedValue = Me . DataGrid1 . Columns ( " ACT. ECONOMICA " ) . Value
'cmbActEconom.SelectedValue = MiRow.Item("ACT. ECONOMICA")
'cmbFuncionario.SelectedValue = MiRow.Item("IdAgente")
txtNota . Text = Me . DataGrid1 . Columns ( " Nota " ) . Value
'txtNota.Text = MiRow.Item("Nota")
txtRazon . Text = Me . DataGrid1 . Columns ( " Razon " ) . Value
'txtRazon.Text = MiRow.Item("Razon")
dtpFechaDetecion . Value = Me . DataGrid1 . Columns ( " FECHA DETENCIÓN " ) . Value
'dtpFechaDetecion.Value = MiRow.Item("FECHA DETENCIÓN")
dtpFechaOper . Value = Me . DataGrid1 . Columns ( " FECHA OPERACIÓN " ) . Value
'dtpFechaOper.Value = MiRow.Item("FECHA OPERACIÓN")
cboNacionalidad . SelectedValue = Me . DataGrid1 . Columns ( " Pais Nacionalidad " ) . Value
'cboNacionalidad.SelectedValue = MiRow.Item("Pais Nacionalidad")
is24Hrs = Me . DataGrid1 . Columns ( " 24horas " ) . Value
'is24Hrs = MiRow.Item("24horas")
cmbTipoPersona . SelectedValue = Me . DataGrid1 . Columns ( " idTipoPersona " ) . Value
'cmbTipoPersona.SelectedValue = MiRow.Item("idTipoPersona")
cmbLocalidad . SelectedValue = Me . DataGrid1 . Columns ( " idPlaza " ) . Value
'cmbLocalidad.SelectedValue = MiRow.Item("idPlaza")
chk24H . Checked = is24Hrs
'revisar si el estatus obtenido es final,
'si es asi entonces hay que bloquear los controles
'Dim clCmpX As clsComplejo = New clsComplejo
'Dim EsEstadoFinal As Boolean
'EsEstadoFinal = clCmpX.BuscaValores("bEsfinal", "EstatusTransacciones", "id_estatus = " & MiRow.Item("IdEstatusTransaccion"))
'obtener solo el estatus actual y los siguientes
'Dim cargarCbo As New clsComplejo
'cargarCbo.sbLlenaCombo("SELECT ET.Id_Estatus AS clave, ET.CDesc_Estatus AS nombre FROM EstatusTransacciones ET " &
' "INNER JOIN tbl_ReglasEstatusTransaccion RT ON ET.ID_ESTATUS = RT.IDESTATUSFINAL " &
' "WHERE RT.IDESTATUSINICIAL = " & MiRow.Item("IdEstatusTransaccion") & " ORDER BY 1", Me.cmbEstatusOper)
cboProducto . SelectedValue = Me . DataGrid1 . Columns ( " Id Producto " ) . Value
'cboProducto.SelectedValue = MiRow.Item("Id Producto")
cmbEstatusOper . SelectedValue = MiRow . Item ( " ID ESTATUS TRANSACCIÓN " )
If cmbTipoPersona . SelectedValue = 1 Or cmbTipoPersona . SelectedValue = 7 Then
'Persona Moral
If cmbTipoPersona . SelectedValue = 7 Then
lblNombre . Text = " Número de Fideicomiso "
Else
lblNombre . Text = " Denominación o Razón Social "
End If
lblCurp . Visible = False
txtCURP . Visible = False
txtApePaterno . Visible = False
txtApeMaterno . Visible = False
lblPaterno . Visible = False
lblMaterno . Visible = False
txtNombre . Location = New Point ( 188 , 30 )
txtNombre . Size = New Size ( 495 , 21 )
lblNombre . Location = New Point ( 5 , 33 )
lblNombre . Size = New Size ( 165 , 15 )
End If
If cmbTipoPersona . SelectedValue = 2 Then
'Persona Fisica
'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue
lblNombre . Text = " Nombre "
lblCurp . Visible = True
txtCURP . Visible = True
txtApePaterno . Visible = True
lblPaterno . Visible = True
lblMaterno . Visible = True
txtApeMaterno . Visible = True
txtNombre . Location = New Point ( 112 , 20 )
txtNombre . Size = New Size ( 571 , 21 )
lblNombre . Location = New Point ( 5 , 23 )
lblNombre . Size = New Size ( 52 , 15 )
End If
If MiRow . Item ( " ID ESTATUS TRANSACCIÓN " ) = " 4 " Or
MiRow . Item ( " ID ESTATUS TRANSACCIÓN " ) = " 5 " Then
BloqueaCtrls ( )
Else
DesBloqueaCtrls ( )
End If
CambiaColor ( )
'If MiRow.Item("OrigenRepAnonimo").ToString() = "True" Then
' txtNota.ReadOnly = True
'Else
' txtNota.ReadOnly = False
'End If
Catch ex As Exception
MessageBox . Show ( ex . Message , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Information )
End Try
End Sub
Private Sub CambiaColor ( )
If BtnAlta . Enabled = False Then
BtnAlta . BackColor = Color . DarkGray
Else
BtnAlta . BackColor = Color . Black
End If
If btnRelacionadas . Enabled = False Then
btnRelacionadas . BackColor = Color . DarkGray
Else
btnRelacionadas . BackColor = Color . Black
End If
End Sub
Private Sub ActualizaGrid ( )
Dim ClassCom As New clsComplejo
Dim sSQL As String
Dim MiDS As New DataSet
Try
sSQL = " SELECT idSinTransaccion ID, IDPRODUCTO [ID PRODUCTO], IDPATRON [ID PATRÓN], IDALARMA [ID ALARMA], PD.NOMBRE, ApePaterno 'APELLIDO PATERNO', ApeMaterno 'APELLIDO MATERNO', "
sSQL = sSQL & " RFC, CURP, FECHANACIMIENTO [FECHA NACIMIENTO], DOMICILIO, COLONIA, CIUDAD, TELEFONO, "
sSQL = sSQL & " ActividadEcon 'ACT. ECONOMICA', NOTA, RAZON, PD.IDESTATUSTRANSACCION [ID ESTATUS TRANSACCIÓN], ET.EstatusAlarma [ESTATUS TRANSACCIÓN], FECHADETECCION [FECHA DETENCIÓN], "
sSQL = sSQL & " CP.PLAZA, CP.IDESTADO [ID ESTADO], CE.ESTADO, PD.PAISNACIONALIDAD [PAIS NACIONALIDAD], PD.FECHAOPERACION [FECHA OPERACIÓN],idsucursal,CodigoPostalSucursal,isnull(PD.es24Horas,0) as '24HORAS',TP.TIPOPERSONA,CP.PLAZA, PD.idTipoPersona,PD.idPlaza "
sSQL = sSQL & " FROM OperacionesSinTran PD "
sSQL = sSQL & " INNER JOIN Cat_Plaza CP ON PD.Ciudad = CP.IdPlaza "
sSQL = sSQL & " INNER JOIN Cat_Estado CE ON CE.IdEstado = CP.IdEstado "
sSQL = sSQL & " INNER JOIN CAT_ESTATUSALARMA ET on ET.IdEstatusAlarma = PD.IdEstatusTransaccion "
sSQL = sSQL & " INNER JOIN CAT_TIPO_ALARMA TA ON PD.IdAlarma=TA.IdTipoAlarma "
sSQL = sSQL & " LEFT JOIN CAT_TIPOPERSONA TP ON TP.IDTIPOPERSONA = PD.idTipoPersona "
sSQL = sSQL & " WHERE TA.Alarma='INUSUAL' "
ClassCom . fdtDataSetTabla ( sSQL )
If ClassCom . ds . Tables ( 0 ) . Rows . Count <> 0 Then
ClassCom . ds . Tables ( " tabla " ) . Columns ( " idsucursal " ) . ColumnMapping = MappingType . Hidden
ClassCom . ds . Tables ( " tabla " ) . Columns ( " CodigoPostalSucursal " ) . ColumnMapping = MappingType . Hidden
DataGrid1 . SetDataBinding ( ClassCom . ds , " tabla " )
For number As Integer = 0 To DataGrid1 . Columns . Count - 1
DataGrid1 . Splits ( 0 ) . DisplayColumns ( number ) . AutoSize ( )
Next
'DataGrid1.Splits(0).DisplayColumns(32).Width = 0
DataGrid1 . Splits ( 0 ) . DisplayColumns ( 30 ) . Visible = False
DataGrid1 . Splits ( 0 ) . DisplayColumns ( 31 ) . Visible = False
'DataGrid1.Splits(0).DisplayColumns(33).Visible = False
End If
Catch ex As Exception
MessageBox . Show ( ex . Message , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Information )
End Try
End Sub
Private Sub BtnLimpiar_Click ( sender As System . Object , e As System . EventArgs ) Handles BtnLimpiar . Click
Try
lblIdPreocupSinTran . Text = " "
txtNombre . Text = " "
txtApePaterno . Text = " "
txtApeMaterno . Text = " "
txtRFC . Text = " "
txtCURP . Text = " "
dtpFechaNac . Value = Now . Date
txtDomicilio . Text = " "
txtColonia . Text = " "
cmbEstado . SelectedValue = - 1
cmbPlaza . SelectedValue = - 1
txtTelefono . Text = " "
cmbActEconom . SelectedValue = - 1
'cmbFuncionario.SelectedValue = -1
txtNota . Text = " "
txtNota . ReadOnly = False
txtRazon . Text = " "
dtpFechaDetecion . Value = Now . Date
cmbEstatusOper . SelectedValue = - 1
cmbLocalidad . SelectedValue = - 1
cmbEstado . SelectedValue = - 1
cmbPlaza . SelectedValue = - 1
cmbActEconom . SelectedValue = - 1
dtpFechaOper . Value = Now . Date
cboNacionalidad . SelectedValue = - 1
'cmbFuncionario.SelectedValue = -1
' ''Estatus de la operacion
'Dim cargarCbo As New clsComplejo
'cargarCbo.sbLlenaCombo("spLlenaComboEstatusTransacciones", cmbEstatusOper)
'cargarCbo.sbLlenaCombo("SELECT Id_Estatus as clave, CDesc_Estatus as nombre FROM EstatusTransacciones WHERE Id_Estatus = 0", cmbEstatusOper)
cmbEstatusOper . SelectedIndex = - 1
bProvieneDeRepAnonimo = False
cboProducto . SelectedValue = - 1
cboSucursal . SelectedValue = - 1
txtCPSucursal . Text = " "
2023-02-22 07:21:57 -06:00
cboCliente . SelectedValue = - 1
cmbTipoPersona . SelectedValue = - 1
2019-07-05 13:43:55 -05:00
DesBloqueaCtrls ( )
btnRelacionadas . Enabled = False
Catch ex As Exception
MessageBox . Show ( ex . Message , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Information )
End Try
End Sub
Private Sub BtnImprimir_Click ( sender As System . Object , e As System . EventArgs ) Handles BtnImprimir . Click
Dim Classcom As New clsComplejo
'Dim oApp As New Excel.Application()
'Dim m_Excel As New Excel.Application
'm_Excel = New Excel.Application
''hago una copia por valor de la tabla
Dim copyDS As DataSet = DataGrid1 . DataSource . Copy ( )
''Classcom.fdtDataSetTabla(clsVaribles.VarSQL)
'GrdPrincipal.SaveLayout( "C:\EXP.XLS")
Try
If copyDS . Tables . Count = 0 Then
MessageBox . Show ( " Realiza una consulta " , " MINDS " , MessageBoxButtons . OK , MessageBoxIcon . Information )
Else
If copyDS . Tables ( 0 ) . Rows . Count = 0 Then
MessageBox . Show ( " No hay datos para exportar " , " MINDS " , MessageBoxButtons . OK , MessageBoxIcon . Information )
Else
Dim Resul As DialogResult
Resul = MessageBox . Show ( " Este proceso puede tardar varios minutos, ¿Deseas continuar? " , " MINDS " , MessageBoxButtons . YesNo , MessageBoxIcon . Question )
If Resul = DialogResult . Yes Then
'Creo una instancia de la clase aExcel
Dim clsExcel As aExcel = New aExcel
'Obtenemos el nombre o el titulo del form
clsExcel . Titulo = Me . Text
'Utilizo la funcion ExportDataset de la clase aExcel
'REVISAR la siguiente linea
'clsExcel.ExportCSV("Preocupantes sin Transaccion", copyDS) 'Asigno el dataset a exportar
clsExcel . ExportDataset ( copyDS )
End If
End If
End If
Catch ex As Exception
MessageBox . Show ( ex . Message , " MINDS " , MessageBoxButtons . OK , MessageBoxIcon . Error )
End Try
End Sub
Private Sub BloqueaCtrls ( )
For Each ctrl As Object In Me . Controls
If ctrl . GetType . Name . ToUpper ( ) = " BUTTON " Then
ctrl . Enabled = False
End If
If ctrl . GetType . Name . ToUpper ( ) = " TEXTBOX " Then
ctrl . Enabled = False
End If
If ctrl . GetType . Name . ToUpper ( ) = " GROUPBOX " Then
For Each miControl As Object In ctrl . Controls
If miControl . GetType . Name . ToUpper ( ) = " TEXTBOX " Then
miControl . Enabled = False
End If
Next
End If
If ctrl . GetType . Name . ToUpper ( ) = " TABCONTROL " Then
For Each MiTab As Object In ctrl . Controls
For Each MiTabCtrls As Object In MiTab . Controls
If MiTabCtrls . GetType . Name . ToUpper ( ) = " GROUPBOX " Then
For Each miControl As Object In MiTabCtrls . Controls
If miControl . GetType . Name . ToUpper ( ) = " TEXTBOX " Then
miControl . Enabled = False
End If
If miControl . GetType . Name . ToUpper ( ) = " COMBOBOX " Then
miControl . Enabled = False
End If
If miControl . GetType . Name . ToUpper ( ) = " DATETIMEPICKER " Then
miControl . Enabled = False
End If
Next
End If
Next
Next
End If
Next
BntSalie . Enabled = True
BtnImprimir . Enabled = True
BtnLimpiar . Enabled = True
BtnAlta . BackColor = Color . DarkGray
End Sub
Private Sub DesBloqueaCtrls ( )
For Each ctrl As Object In Me . Controls
If ctrl . GetType . Name . ToUpper ( ) = " BUTTON " Then
ctrl . Enabled = True
End If
If ctrl . GetType . Name . ToUpper ( ) = " TEXTBOX " Then
ctrl . Enabled = True
End If
If ctrl . GetType . Name . ToUpper ( ) = " GROUPBOX " Then
For Each miControl As Object In ctrl . Controls
If miControl . GetType . Name . ToUpper ( ) = " TEXTBOX " Then
miControl . Enabled = True
End If
Next
End If
If ctrl . GetType . Name . ToUpper ( ) = " TABCONTROL " Then
For Each MiTab As Object In ctrl . Controls
For Each MiTabCtrls As Object In MiTab . Controls
If MiTabCtrls . GetType . Name . ToUpper ( ) = " GROUPBOX " Then
For Each miControl As Object In MiTabCtrls . Controls
If miControl . GetType . Name . ToUpper ( ) = " TEXTBOX " Then
miControl . Enabled = True
End If
If miControl . GetType . Name . ToUpper ( ) = " COMBOBOX " Then
miControl . Enabled = True
End If
If miControl . GetType . Name . ToUpper ( ) = " DATETIMEPICKER " Then
miControl . Enabled = True
End If
Next
End If
Next
Next
End If
Next
dtpFechaDetecion . Enabled = False
BtnAlta . BackColor = Color . Black
End Sub
Private Sub cmbEstado_DropDownClosed ( sender As System . Object , e As System . EventArgs ) Handles cmbEstado . DropDownClosed
cargarPlaza ( )
End Sub
Private Sub cargarPlaza ( )
Dim ClassCom As New clsComplejo
Dim sSQL As String
Try
If cmbEstado . SelectedValue <> Nothing Then
'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 "
'sSQL = "select idsucursal,CodigoPostalSucursal from OperacionesSinTran where idSinTransaccion =" & clsVaribles.Id_Transaccion
ClassCom . sbLlenaCombo ( sSQL , cmbPlaza )
cmbPlaza . SelectedIndex = - 1
'End If
Else
addRegistro ( )
cmbPlaza . SelectedIndex = 0
End If
Catch ex As Exception
MessageBox . Show ( ex . Message , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Information )
End Try
End Sub
Private Sub cargarSucursal ( )
Dim ClassCom As New clsComplejo
Dim sSQL As String
Try
sSQL = " select IDSUCURSAL as Clave, NOMBRESUCURSAL Nombre from CAT_SUCURSAL order by 1 asc "
ClassCom . sbLlenaCombo ( sSQL , cboSucursal )
cboSucursal . SelectedIndex = - 1
Catch ex As Exception
MessageBox . Show ( ex . Message , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Information )
End Try
End Sub
Private Sub addRegistro ( )
cmbPlaza . DataSource = Nothing
cmbPlaza . Items . Clear ( )
cmbPlaza . Refresh ( )
cmbPlaza . Items . Add ( " Elija primero Entidad " )
End Sub
Private Sub cboSucursal_SelectionChangeCommitted ( sender As Object , e As EventArgs ) Handles cboSucursal . SelectionChangeCommitted
txtCPSucursal . Text = ObtenerCPSucursal ( )
End Sub
Private Sub btnRelacionadas_Click ( sender As Object , e As EventArgs ) Handles btnRelacionadas . Click
Dim frmDetalles As PersonasRelacionadas = New PersonasRelacionadas
frmDetalles . IdTipoalarma = 2 '--Inusual
frmDetalles . ShowDialog ( )
End Sub
Private Sub cmbEstado_SelectedIndexChanged ( sender As Object , e As EventArgs ) Handles cmbEstado . SelectedIndexChanged
'cargarPlaza()
End Sub
Private Sub cmbTipoPersona_SelectedIndexChanged ( sender As Object , e As EventArgs ) Handles cmbTipoPersona . SelectedIndexChanged
End Sub
Private Sub cmbTipoPersona_SelectionChangeCommitted ( sender As Object , e As EventArgs ) Handles cmbTipoPersona . SelectionChangeCommitted
If cmbTipoPersona . SelectedValue = 1 Or cmbTipoPersona . SelectedValue = 7 Then
'Persona Moral
If cmbTipoPersona . SelectedValue = 7 Then
lblNombre . Text = " Número de Fideicomiso "
Else
lblNombre . Text = " Denominación o Razon Social "
End If
lblCurp . Visible = False
2023-02-22 07:21:57 -06:00
txtCURP . Visible = False
txtApePaterno . Visible = False
2019-07-05 13:43:55 -05:00
txtApeMaterno . Visible = False
lblPaterno . Visible = False
lblMaterno . Visible = False
txtNombre . Location = New Point ( 188 , 30 )
txtNombre . Size = New Size ( 495 , 21 )
lblNombre . Location = New Point ( 5 , 33 )
lblNombre . Size = New Size ( 165 , 15 )
End If
2023-02-22 07:21:57 -06:00
If cmbTipoPersona . SelectedValue = 2 Then
'Persona Fisica
'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue
lblNombre . Text = " Nombre "
lblCurp . Visible = True
txtCURP . Visible = True
2019-07-05 13:43:55 -05:00
txtApePaterno . Visible = True
lblPaterno . Visible = True
lblMaterno . Visible = True
txtApeMaterno . Visible = True
txtNombre . Location = New Point ( 112 , 20 )
txtNombre . Size = New Size ( 571 , 21 )
lblNombre . Location = New Point ( 5 , 23 )
lblNombre . Size = New Size ( 52 , 15 )
End If
End Sub
Private Sub cmbEstado_SelectionChangeCommitted ( sender As Object , e As EventArgs ) Handles cmbEstado . SelectionChangeCommitted
2023-02-22 07:21:57 -06:00
cargarPlazaIdEstado ( )
End Sub
Private Sub cargarPlazaIdEstado ( )
2019-07-05 13:43:55 -05:00
Dim cargarCbo As New clsComplejo
Dim sSQL As String
cargarCbo = Nothing
cargarCbo = New clsComplejo
cargarCbo . sbLlenaCombo ( " select IDPLAZA clave, PLAZA nombre FROM CAT_PLAZA where activo = 1 and IDESTADO= " & cmbEstado . SelectedValue & " " , cmbLocalidad )
cmbLocalidad . SelectedIndex = - 1
End Sub
Private Sub DataGrid1_DoubleClick ( sender As Object , e As EventArgs ) Handles DataGrid1 . DoubleClick
Dim cargarCbo As New clsComplejo
Dim sSQL As String
cargarCbo = Nothing
cargarCbo = New clsComplejo
Try
Dim is24Hrs As Boolean
'MiRow = DataGrid1.DataSource.Tables(0).Rows(DataGrid1.CurrentRowIndex)
clsVaribles . Id_Transaccion = Me . DataGrid1 . Columns ( " ID " ) . Value
clsVaribles . Id_Producto = Me . DataGrid1 . Columns ( " Id Producto " ) . Value
clsVaribles . Id_Patron = Me . DataGrid1 . Columns ( " Id Patrón " ) . Value
'clsVaribles.Id_EstatusTransaccion = Me.DataGrid1.Columns("IDESTATUSTRANSACCION").Value
'clsVaribles.Id_Transaccion = MiRow.Item("ID")
'clsVaribles.Id_Producto = MiRow.Item("Id Producto")
'clsVaribles.Id_Patron = MiRow.Item("Id Patrón")
clsVaribles . Id_EstatusTransaccion = ( " IDESTATUSTRANSACCION " )
'lblIdPreocupSinTran.Text = MiRow.Item("idSinTransaccion")
lblIdPreocupSinTran . Text = Me . DataGrid1 . Columns ( " ID " ) . Value
'lblIdPreocupSinTran.Text = MiRow.Item("ID")
txtNombre . Text = Me . DataGrid1 . Columns ( " Nombre " ) . Value
'txtNombre.Text = MiRow.Item("Nombre")
txtApePaterno . Text = Me . DataGrid1 . Columns ( " Apellido Paterno " ) . Value
'txtApePaterno.Text = MiRow.Item("Apellido Paterno")
txtApeMaterno . Text = Me . DataGrid1 . Columns ( " Apellido Materno " ) . Value
'txtApeMaterno.Text = MiRow.Item("Apellido Materno")
txtRFC . Text = Me . DataGrid1 . Columns ( " RFC " ) . Value
'txtRFC.Text = MiRow.Item("RFC")
txtCURP . Text = Me . DataGrid1 . Columns ( " CURP " ) . Value
'txtCURP.Text = MiRow.Item("CURP")
dtpFechaNac . Value = Me . DataGrid1 . Columns ( " Fecha Nacimiento " ) . Value
'dtpFechaNac.Value = MiRow.Item("Fecha Nacimiento")
txtDomicilio . Text = Me . DataGrid1 . Columns ( " Domicilio " ) . Value
'txtDomicilio.Text = MiRow.Item("Domicilio")
txtColonia . Text = Me . DataGrid1 . Columns ( " Colonia " ) . Value
'txtColonia.Text = MiRow.Item("Colonia")
cmbEstado . SelectedValue = Me . DataGrid1 . Columns ( " Id Estado " ) . Value
'cmbEstado.SelectedValue = MiRow.Item("Id Estado")
cargarPlaza ( )
cboSucursal . SelectedValue = Me . DataGrid1 . Columns ( " idsucursal " ) . Value
'cboSucursal.SelectedValue = MiRow.Item("idsucursal")
txtCPSucursal . Text = Me . DataGrid1 . Columns ( " CodigoPostalSucursal " ) . Value
'txtCPSucursal.Text = MiRow.Item("CodigoPostalSucursal")
cmbPlaza . SelectedValue = Me . DataGrid1 . Columns ( " Ciudad " ) . Value
'cmbPlaza.SelectedValue = MiRow.Item("Ciudad")
txtTelefono . Text = Me . DataGrid1 . Columns ( " Telefono " ) . Value
'txtTelefono.Text = MiRow.Item("Telefono")
cmbActEconom . SelectedValue = Me . DataGrid1 . Columns ( " ACT. ECONOMICA " ) . Value
'cmbActEconom.SelectedValue = MiRow.Item("ACT. ECONOMICA")
'cmbFuncionario.SelectedValue = MiRow.Item("IdAgente")
txtNota . Text = Me . DataGrid1 . Columns ( " Nota " ) . Value
'txtNota.Text = MiRow.Item("Nota")
txtRazon . Text = Me . DataGrid1 . Columns ( " Razon " ) . Value
'txtRazon.Text = MiRow.Item("Razon")
dtpFechaDetecion . Value = Me . DataGrid1 . Columns ( " FECHA DETENCIÓN " ) . Value
'dtpFechaDetecion.Value = MiRow.Item("FECHA DETENCIÓN")
dtpFechaOper . Value = Me . DataGrid1 . Columns ( " FECHA OPERACIÓN " ) . Value
'dtpFechaOper.Value = MiRow.Item("FECHA OPERACIÓN")
cboNacionalidad . SelectedValue = Me . DataGrid1 . Columns ( " Pais Nacionalidad " ) . Value
'cboNacionalidad.SelectedValue = MiRow.Item("Pais Nacionalidad")
is24Hrs = Me . DataGrid1 . Columns ( " 24horas " ) . Value
'is24Hrs = MiRow.Item("24horas")
cmbTipoPersona . SelectedValue = Me . DataGrid1 . Columns ( " idTipoPersona " ) . Value
'cmbTipoPersona.SelectedValue = MiRow.Item("idTipoPersona")
cargarCbo . sbLlenaCombo ( " select IDPLAZA clave, PLAZA nombre FROM CAT_PLAZA where activo = 1 and IDESTADO= " & cmbEstado . SelectedValue & " " , cmbLocalidad )
cmbLocalidad . SelectedIndex = - 1
cmbLocalidad . SelectedValue = Me . DataGrid1 . Columns ( " idPlaza " ) . Value
'cmbLocalidad.SelectedValue = MiRow.Item("idPlaza")
chk24H . Checked = is24Hrs
'revisar si el estatus obtenido es final,
'si es asi entonces hay que bloquear los controles
'Dim clCmpX As clsComplejo = New clsComplejo
'Dim EsEstadoFinal As Boolean
'EsEstadoFinal = clCmpX.BuscaValores("bEsfinal", "EstatusTransacciones", "id_estatus = " & MiRow.Item("IdEstatusTransaccion"))
'obtener solo el estatus actual y los siguientes
'Dim cargarCbo As New clsComplejo
'cargarCbo.sbLlenaCombo("SELECT ET.Id_Estatus AS clave, ET.CDesc_Estatus AS nombre FROM EstatusTransacciones ET " &
' "INNER JOIN tbl_ReglasEstatusTransaccion RT ON ET.ID_ESTATUS = RT.IDESTATUSFINAL " &
' "WHERE RT.IDESTATUSINICIAL = " & MiRow.Item("IdEstatusTransaccion") & " ORDER BY 1", Me.cmbEstatusOper)
cboProducto . SelectedValue = Me . DataGrid1 . Columns ( " Id Producto " ) . Value
'cboProducto.SelectedValue = MiRow.Item("Id Producto")
cmbEstatusOper . SelectedValue = Me . DataGrid1 . Columns ( " ID ESTATUS TRANSACCIÓN " ) . Value
'cmbEstatusOper.SelectedValue = MiRow.Item("ID ESTATUS TRANSACCIÓN")
If cmbTipoPersona . SelectedValue = 1 Or cmbTipoPersona . SelectedValue = 7 Then
'Persona Moral
If cmbTipoPersona . SelectedValue = 7 Then
lblNombre . Text = " Número de Fideicomiso "
Else
lblNombre . Text = " Denominación o Razon Social "
End If
lblCurp . Visible = False
txtCURP . Visible = False
txtApePaterno . Visible = False
txtApeMaterno . Visible = False
lblPaterno . Visible = False
lblMaterno . Visible = False
txtNombre . Location = New Point ( 188 , 30 )
txtNombre . Size = New Size ( 495 , 21 )
lblNombre . Location = New Point ( 5 , 33 )
lblNombre . Size = New Size ( 165 , 15 )
End If
If cmbTipoPersona . SelectedValue = 2 Then
'Persona Fisica
'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue
lblNombre . Text = " Nombre "
lblCurp . Visible = True
txtCURP . Visible = True
txtApePaterno . Visible = True
lblPaterno . Visible = True
lblMaterno . Visible = True
txtApeMaterno . Visible = True
txtNombre . Location = New Point ( 112 , 20 )
txtNombre . Size = New Size ( 571 , 21 )
lblNombre . Location = New Point ( 5 , 23 )
lblNombre . Size = New Size ( 52 , 15 )
End If
If DataGrid1 . Columns ( " ID ESTATUS TRANSACCIÓN " ) . Value = " 4 " Or
DataGrid1 . Columns ( " ID ESTATUS TRANSACCIÓN " ) . Value = " 5 " Then
BloqueaCtrls ( )
Else
DesBloqueaCtrls ( )
End If
'If MiRow.Item("ID ESTATUS TRANSACCIÓN") = "4" Or
' MiRow.Item("ID ESTATUS TRANSACCIÓN") = "5" Then
' BloqueaCtrls()
'Else
' DesBloqueaCtrls()
'End If
CambiaColor ( )
'If MiRow.Item("OrigenRepAnonimo").ToString() = "True" Then
' txtNota.ReadOnly = True
'Else
' txtNota.ReadOnly = False
'End If
Catch ex As Exception
MessageBox . Show ( ex . Message , " Minds " , MessageBoxButtons . OK , MessageBoxIcon . Information )
End Try
End Sub
Private Sub panel2_Paint ( sender As Object , e As PaintEventArgs ) Handles panel2 . Paint
End Sub
2023-02-22 07:21:57 -06:00
Private Sub cboCliente_SelectionChangeCommitted ( sender As Object , e As EventArgs ) Handles cboCliente . SelectionChangeCommitted
If txtNombre . TextLength > 0 Then
If MsgBox ( " ¿Desea agregar la información del cliente selecccionado? " , MsgBoxStyle . YesNo + MsgBoxStyle . Question + vbDefaultButton2 , " Minds " ) = MsgBoxResult . Yes Then
ObtenerDatosClienteDomicilio ( cboCliente . SelectedValue )
Else
Exit Sub
End If
Else
ObtenerDatosClienteDomicilio ( cboCliente . SelectedValue )
End If
'SP_ConsultaClienteID
End Sub
Private Sub ObtenerDatosClienteDomicilio ( idcliente As Integer )
Dim dt As New DataTable
Dim consulta As New clsComplejo
dt = consulta . fdtDataTable ( " SP_ConsultaClienteID " & idcliente )
If dt . Rows . Count > 0 Then
cmbTipoPersona . SelectedValue = dt . Rows ( 0 ) ( " IDTIPOPERSONA " )
txtNombre . Text = dt . Rows ( 0 ) ( " NOMBREORAZONS " ) . ToString ( )
txtApePaterno . Text = dt . Rows ( 0 ) ( " APATERNO " ) . ToString ( )
txtApeMaterno . Text = dt . Rows ( 0 ) ( " AMATERNO " ) . ToString ( )
txtRFC . Text = dt . Rows ( 0 ) ( " RFC " ) . ToString ( )
txtCURP . Text = dt . Rows ( 0 ) ( " CURP " ) . ToString ( )
If dt . Rows ( 0 ) ( " FECHANACCONSTITUCION " ) . ToString <> " " Then
dtpFechaNac . Value = Date . Parse ( dt . Rows ( 0 ) ( " FECHANACCONSTITUCION " ) . ToString ( ) )
End If
txtDomicilio . Text = dt . Rows ( 0 ) ( " CALLE " ) . ToString ( ) & " " & dt . Rows ( 0 ) ( " NUMEROEXT " ) . ToString ( ) & " " & dt . Rows ( 0 ) ( " NUMEROINT " ) . ToString ( )
txtColonia . Text = dt . Rows ( 0 ) ( " COLONIA " ) . ToString ( )
cmbEstado . SelectedValue = dt . Rows ( 0 ) ( " IDESTADO " )
If cmbEstado . SelectedIndex >= 0 Then cargarPlazaIdEstado ( )
txtTelefono . Text = dt . Rows ( 0 ) ( " TELEFONO " ) . ToString ( )
cmbLocalidad . SelectedValue = dt . Rows ( 0 ) ( " IDPLAZA " ) . ToString ( )
cmbActEconom . SelectedValue = dt . Rows ( 0 ) ( " IDACTIVIDADECONOMICA " )
cboNacionalidad . SelectedValue = dt . Rows ( 0 ) ( " IDNACIONALIDAD " )
cboSucursal . SelectedValue = dt . Rows ( 0 ) ( " IDSUCURSAL " )
End If
End Sub
2019-07-05 13:43:55 -05:00
End Class
