386 lines
16 KiB
VB.net
386 lines
16 KiB
VB.net
Public Class FrmCuentasRelacionadas
|
||
|
||
Private Sub FrmCuentasRelacionadas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
Dim Classcom As clsComplejo
|
||
Dim SQLGrid As String
|
||
Dim ds1 As DataSet
|
||
Dim clcmj1 As New clsComplejo
|
||
|
||
'BTAgregar.Enabled = True
|
||
|
||
Try
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
clcmj1 = New clsComplejo
|
||
' MessageBox.Show("'cuentas'")
|
||
clcmj1.sbLimpiaControlesEsp(GRPBDatosPer)
|
||
|
||
' ''SQLGrid = "SELECT * FROM CuentasRelacionadas WHERE idtransaccion = " & clsVaribles.idtransaccion & " and idproducto = " & clsVaribles.idproducto
|
||
''SQLGrid = "Select CtaR.idCtaRelacc, CtaR.NumCuenta,CtaR.CuentaRelacionada,CtaR.TitularCtaRelac " & _
|
||
'' "From CuentasRelacionadas CtaR Inner Join " & _
|
||
'' "Cuenta Cta on Cta.numCuenta = CtaR.NumCuenta " & _
|
||
'' "Where cta.IdCuenta =" & clsVaribles.idCuenta
|
||
|
||
|
||
|
||
SQLGrid = "Select CtaR.id ID, Cta.numCuenta Cuenta, CtaR.Clave, CtaR.Nombre, CtaR.APaterno 'Apellido Paterno', CtaR.AMaterno 'Apellido Materno', " & _
|
||
" CtaR.IDTransaccion Transaccion " & _
|
||
"From CuentasRel CtaR Inner Join Cuenta Cta on Cta.idCuenta = CtaR.idCuenta " & _
|
||
"Where cta.IdCuenta =" & clsVaribles.idCuenta
|
||
|
||
clcmj1.fdtDataSetTabla(SQLGrid)
|
||
|
||
GRDContactos.SetDataBinding(clcmj1.ds, "Tabla") 'Llena el grid
|
||
|
||
Classcom = New clsComplejo
|
||
|
||
clsVaribles.CampoID = "id "
|
||
clsVaribles.Tabla = " CuentasRel "
|
||
|
||
'GRDContactos.TableStyles(0).GridColumnStyles(0).Width = 0
|
||
'GRDContactos.TableStyles(0).GridColumnStyles(1).Width = 0
|
||
'GRDContactos.TableStyles(0).GridColumnStyles(6).Width = 0
|
||
'GRDContactos.TableStyles(0).GridColumnStyles(7).Width = 0
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error Busqueda; sbBuscas: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
'Exit Sub
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub BTLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
Dim clcmj1 As New clsComplejo
|
||
clcmj1.sbLimpiaControlesEsp(GRPBDatosPer)
|
||
|
||
End Sub
|
||
|
||
Private Sub BTEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
Dim FilaActual As Integer
|
||
Dim ClassCom As clsComplejo
|
||
Dim Fila As DataRow
|
||
Dim SQLDelete As String
|
||
Dim SQLGrid As String
|
||
|
||
Try
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
If GRDContactos.CurrentRowIndex <> -1 Then
|
||
FilaActual = GRDContactos.CurrentRowIndex
|
||
|
||
SQLDelete = "DELETE FROM " & clsVaribles.Tabla & " WHERE id = " & GRDContactos.Item(FilaActual, 0)
|
||
|
||
ClassCom = New clsComplejo
|
||
|
||
ClassCom.sbInserta(SQLDelete)
|
||
|
||
MsgBox("Operacion Satisfactoria")
|
||
|
||
ClassCom = New clsComplejo
|
||
|
||
'limpia controles de la forma
|
||
BtnLimpiar.PerformClick()
|
||
|
||
SQLGrid = "SELECT * FROM cuentasrel WHERE idtransaccion = " & clsVaribles.idtransaccion & " and idproducto = " & clsVaribles.idproducto
|
||
ClassCom.fdtDataSetTabla(SQLGrid)
|
||
|
||
GRDContactos.SetDataBinding(ClassCom.ds, "Tabla") 'Llena el grid
|
||
|
||
'lleno el campo de idcliente
|
||
'TXT0idcliente.Text = ClsVariables.VarIdCliente
|
||
|
||
'actualiza ell grid con los nuevos cambios
|
||
'ClassCom.ActualizaGrid(Me.GRDContactos)
|
||
|
||
|
||
Btnbaja.Enabled = False
|
||
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error Busqueda; sbBuscas: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Exit Sub
|
||
End Try
|
||
|
||
|
||
End Sub
|
||
|
||
Private Sub BTAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
Dim ListaControles As String
|
||
Dim Classcom As clsComplejo
|
||
Dim VarReturn As String
|
||
Dim SQLInsert As String
|
||
Dim SQLGrid As String
|
||
|
||
Try
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
'TXT0idcliente.Text = ClsVariables.VarIdCliente
|
||
|
||
Classcom = New clsComplejo
|
||
|
||
Dim ClassSQL As New clsComplejo
|
||
Dim SQL As String
|
||
Dim ValorReturn As Object
|
||
Dim SentenciaWHERE As String
|
||
Dim SQLUpdate As String
|
||
|
||
|
||
'VERIFICA LISTAS RESTRINGIDAS
|
||
Dim Classcom2 As New clsComplejo
|
||
Dim ClCmj1 As New clsComplejo
|
||
'Dim Detalle As New KYC.FrDetLista
|
||
Dim VARCliente As String
|
||
Dim VARCliente2 As String
|
||
|
||
VARCliente = ""
|
||
VARCliente2 = ""
|
||
|
||
'*********************
|
||
|
||
'SQL = "SELECT 1 FROM " & clsVaribles.Tabla & " WHERE idproducto = " & clsVaribles.idproducto
|
||
'SQL = SQL & " AND idtransaccion = " & clsVaribles.idtransaccion
|
||
'SQL = SQL & " AND nombre = '" & Me.TXT0Nombre.Text.Trim & "" & "' and apaterno = '" & Me.TXT0APaterno.Text.Trim & "" & "'"
|
||
'SQL = SQL & " AND amaterno = '" & Me.TXT0Amaterno.Text.Trim & "" & "'"
|
||
|
||
ClassSQL = New clsComplejo
|
||
|
||
|
||
|
||
|
||
|
||
'SQL = "UPDATE CUENTASREL SET NOMBRE = '" & Me.TXT0Nombre.Text.Trim & "',APATERNO = '" & Me.TXT0APaterno.Text.Trim & "',"
|
||
'SQL = SQL & "AMATERNO = '" & Me.TXT0Amaterno.Text.Trim & "',no_cuenta = '" & Me.TXT0No_cuenta.Text.Trim & "',"
|
||
'SQL = SQL & "CLAVE = '" & Me.TXT0Clave.Text.Trim & "' WHERE ID = " & TXTComodin.Text.Trim
|
||
|
||
ClassSQL.sbInserta(SQL)
|
||
|
||
|
||
'SQL = "INSERT INTO CUENTASREL (NOMBRE,APATERNO,AMATERNO,CLAVE,NO_CUENTA,idtransaccion,idproducto)"
|
||
'SQL = SQL & " Values ("
|
||
'SQL = SQL & " '" & Me.TXT0Nombre.Text.Trim & "','" & Me.TXT0APaterno.Text.Trim & "','" & Me.TXT0Amaterno.Text.Trim & "',"
|
||
'SQL = SQL & " '" & Me.TXT0Clave.Text.Trim & "','" & Me.TXT0No_cuenta.Text.Trim & "',"
|
||
'SQL = SQL & clsVaribles.idtransaccion & "," & clsVaribles.idproducto & ")"
|
||
|
||
ClassSQL.sbInserta(SQL)
|
||
|
||
|
||
|
||
'SQLInsert = Classcom.ProcesoInsert("TXT0", "CBO0", "CHK0", "DTP0", "KYC_contacto", PNPrincipal)
|
||
'Classcom.sbInserta(SQLInsert)
|
||
|
||
MsgBox("Operacion Satisfactoria")
|
||
|
||
Classcom = New clsComplejo
|
||
|
||
Classcom.sbLimpiaControlesEsp(GRPBDatosPer)
|
||
'clcmj1.sbLimpiaControlesEsp(GRPBLocalizacion)
|
||
|
||
'SQLGrid = "SELECT * FROM cuantasrel WHERE idcliente = " & ClsVariables.VarIdCliente
|
||
SQLGrid = "SELECT * FROM cuentasrel WHERE idtransaccion = " & clsVaribles.idtransaccion & " and idproducto = " & clsVaribles.idproducto
|
||
Classcom.fdtDataSetTabla(SQLGrid)
|
||
|
||
GRDContactos.SetDataBinding(Classcom.ds, "Tabla") 'Llena el grid
|
||
|
||
'TXT0Nombre.Focus()
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error Busqueda; sbBuscas: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Exit Sub
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub GRDContactos_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GRDContactos.DoubleClick
|
||
|
||
Dim SQL As String
|
||
Dim CLasscom As New clsComplejo
|
||
Dim FilaActual As Integer
|
||
|
||
Try
|
||
FilaActual = GRDContactos.CurrentRowIndex
|
||
'SQL = "Select CtaR.idCtaRelacc, CtaR.NumCuenta,CtaR.CuentaRelacionada,CtaR.TitularCtaRelac, " & _
|
||
' " cte.Nombre,cte.ApellidoPaterno, cte.ApellidoMaterno " & _
|
||
' "From CuentasRelacionadas CtaR Inner Join Cuenta Cta on Cta.numCuenta = CtaR.NumCuenta " & _
|
||
' " Inner Join Cliente Cte on Cta.IdCliente = cte.IdCliente " & _
|
||
' "Where cta.NumCuenta = '" & GRDContactos.Item(FilaActual, 1) & "'"
|
||
|
||
SQL = "Select CtaR.id, CtaR.idCuenta,CtaR.Clave, CtaR.Nombre, CtaR.APaterno, CtaR.AMaterno, CtaR.IDTransaccion, CtaR.IDProducto " & _
|
||
"From CuentasRel CtaR Inner Join Cuenta Cta on Cta.idCuenta = CtaR.idCuenta " & _
|
||
"Where cta.numCuenta = '" & GRDContactos.Item(FilaActual, 1) & "' and ctar.id = " & GRDContactos.Item(FilaActual, 0) & " "
|
||
|
||
CLasscom.fdtDataSet(SQL)
|
||
|
||
If CLasscom.ds.Tables(0).Rows.Count <> 0 Then
|
||
|
||
txtNumCuenta.Text = CLasscom.ds.Tables(0).Rows(0).Item("Clave") & ""
|
||
txtNumCtaRel.Text = clsVaribles.numCuenta & ""
|
||
|
||
txtidcliente.Text = CLasscom.ds.Tables(0).Rows(0).Item("id") & ""
|
||
txtNombre.Text = CLasscom.ds.Tables(0).Rows(0).Item("Nombre") & ""
|
||
txtPaterno.Text = CLasscom.ds.Tables(0).Rows(0).Item("APaterno") & ""
|
||
txtMaterno.Text = CLasscom.ds.Tables(0).Rows(0).Item("AMaterno") & ""
|
||
|
||
Else
|
||
txtNumCtaRel.Text = clsVaribles.numCuenta & ""
|
||
End If
|
||
|
||
Me.Btnbaja.Enabled = True
|
||
|
||
Catch ex As Exception
|
||
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Private Sub GRDContactos_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles GRDContactos.Navigate
|
||
|
||
End Sub
|
||
|
||
Private Sub BTRegresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
Me.Close()
|
||
End Sub
|
||
|
||
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
|
||
Me.Close()
|
||
End Sub
|
||
|
||
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
|
||
' If clsVaribles.lbDemo = True Then Exit Sub
|
||
Dim clcmj1 As New clsComplejo
|
||
clcmj1.sbLimpiaControlesEsp(GRPBDatosPer)
|
||
|
||
End Sub
|
||
|
||
Private Sub Btnbaja_Click(sender As System.Object, e As System.EventArgs) Handles Btnbaja.Click
|
||
Dim FilaActual As Integer
|
||
Dim ClassCom As clsComplejo
|
||
Dim Fila As DataRow
|
||
Dim SQLDelete As String
|
||
Dim SQLGrid As String
|
||
|
||
Try
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
If GRDContactos.CurrentRowIndex <> -1 Then
|
||
FilaActual = GRDContactos.CurrentRowIndex
|
||
|
||
SQLDelete = "DELETE FROM " & clsVaribles.Tabla & " WHERE id = " & GRDContactos.Item(FilaActual, 0)
|
||
|
||
ClassCom = New clsComplejo
|
||
|
||
ClassCom.sbInserta(SQLDelete)
|
||
|
||
MsgBox("Operacion Satisfactoria")
|
||
|
||
ClassCom = New clsComplejo
|
||
|
||
'limpia controles de la forma
|
||
BtnLimpiar.PerformClick()
|
||
|
||
SQLGrid = "SELECT * FROM cuentasrel WHERE idtransaccion = " & clsVaribles.idtransaccion & " and idproducto = " & clsVaribles.idproducto
|
||
ClassCom.fdtDataSetTabla(SQLGrid)
|
||
|
||
GRDContactos.SetDataBinding(ClassCom.ds, "Tabla") 'Llena el grid
|
||
|
||
'lleno el campo de idcliente
|
||
'TXT0idcliente.Text = ClsVariables.VarIdCliente
|
||
|
||
'actualiza ell grid con los nuevos cambios
|
||
'ClassCom.ActualizaGrid(Me.GRDContactos)
|
||
|
||
|
||
'auditoria'
|
||
Dim ClassAud As New ClassMyUtils
|
||
Dim sTextoAud As String
|
||
sTextoAud = "Baja de Cuentas Relacionadas, "
|
||
sTextoAud = sTextoAud & "id: " & GRDContactos.Item(FilaActual, 0)
|
||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 114, 1, sTextoAud)
|
||
'Fin de auditoria'
|
||
|
||
Btnbaja.Enabled = False
|
||
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error Busqueda; sbBuscas: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Exit Sub
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
|
||
Dim ClassSQL As New clsComplejo
|
||
Dim Classcom As New clsComplejo
|
||
Dim SQL As String
|
||
Dim SQLGrid As String
|
||
|
||
Try
|
||
|
||
If txtidcliente.Text = "" And (txtNumCuenta.Text <> "" And txtNombre.Text <> "" And txtPaterno.Text <> "" And txtMaterno.Text <> "") Then
|
||
SQL = "INSERT INTO CuentasRel "
|
||
SQL = SQL & " Values (" & clsVaribles.idCuenta & ",'" & txtNumCuenta.Text & "','" & txtNombre.Text & "', '" & txtPaterno.Text & "', '" & txtMaterno.Text & "', " & clsVaribles.idtransaccion & ", " & clsVaribles.idproducto & ")"
|
||
ClassSQL.sbInserta(SQL)
|
||
'auditoria'
|
||
Dim ClassAud As New ClassMyUtils
|
||
Dim sTextoAud As String
|
||
sTextoAud = "Alta de Cuentas Relacionadas, "
|
||
sTextoAud = sTextoAud & " IdCuenta:" & clsVaribles.idCuenta & ","
|
||
sTextoAud = sTextoAud & "NumCuenta:" & txtNumCuenta.Text & ","
|
||
sTextoAud = sTextoAud & "Nombre:" & txtNombre.Text & " " & txtPaterno.Text & " " & txtMaterno.Text & ","
|
||
sTextoAud = sTextoAud & "IdTransaccion:" & clsVaribles.idtransaccion & ","
|
||
sTextoAud = sTextoAud & "IdProducto:" & clsVaribles.idproducto
|
||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 114, 1, sTextoAud)
|
||
'Fin de auditoria'
|
||
|
||
ElseIf txtidcliente.Text <> "" And txtNumCuenta.Text <> "" Then
|
||
SQL = "Update CuentasRel Set Clave = '" & txtNumCuenta.Text & _
|
||
"', Nombre ='" & txtNombre.Text & _
|
||
"', Apaterno ='" & txtPaterno.Text & _
|
||
"', Amaterno ='" & txtMaterno.Text & "' " & _
|
||
" Where id = " & txtidcliente.Text
|
||
ClassSQL.sbInserta(SQL)
|
||
'auditoria'
|
||
Dim ClassAud As New ClassMyUtils
|
||
Dim sTextoAud As String
|
||
sTextoAud = "Actualizaci<EFBFBD>n de Cuentas Relacionadas, "
|
||
sTextoAud = sTextoAud & " Clave:" & txtNumCuenta.Text & ","
|
||
sTextoAud = sTextoAud & "Nombre:" & txtNombre.Text & " " & txtPaterno.Text & " " & txtMaterno.Text
|
||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 114, 1, sTextoAud)
|
||
'Fin de auditoria'
|
||
|
||
Else
|
||
MsgBox("Complete la informaci<63>n para registrar")
|
||
Exit Sub
|
||
End If
|
||
|
||
MsgBox("Operacion Satisfactoria")
|
||
|
||
|
||
Classcom.sbLimpiaControlesEsp(GRPBDatosPer)
|
||
|
||
SQLGrid = "Select CtaR.id ID, Cta.numCuenta Cuenta, CtaR.Clave, CtaR.Nombre, CtaR.APaterno 'Apellido Paterno', CtaR.AMaterno 'Apellido Materno', " & _
|
||
" CtaR.IDTransaccion Transaccion " & _
|
||
"From CuentasRel CtaR Inner Join Cuenta Cta on Cta.idCuenta = CtaR.idCuenta " & _
|
||
"Where cta.IdCuenta =" & clsVaribles.idCuenta
|
||
Classcom.fdtDataSetTabla(SQLGrid)
|
||
|
||
GRDContactos.SetDataBinding(Classcom.ds, "Tabla") 'Llena el grid
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error Guardar; sbCtsRel: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Exit Sub
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub BtnCambios_Click(sender As System.Object, e As System.EventArgs) Handles BtnCambios.Click
|
||
BtnAlta.PerformClick()
|
||
End Sub
|
||
|
||
Private Sub btnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsulta.Click
|
||
|
||
End Sub
|
||
|
||
Private Sub BtnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnImprimir.Click
|
||
|
||
End Sub
|
||
|
||
Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
|
||
|
||
End Sub
|
||
End Class |