560 lines
25 KiB
VB.net
560 lines
25 KiB
VB.net
|
||
Public Class ReporteRelevantes
|
||
|
||
Inherits System.Windows.Forms.Form
|
||
Public Shared No_Cuenta As Integer
|
||
Dim clCmp As clsComplejo = New clsComplejo
|
||
Dim Patron As clsComplejo = New clsComplejo 'Para llenar combo patron
|
||
Dim Cliente As clsComplejo = New clsComplejo 'para llenar combo cliente
|
||
Dim Estatus As clsComplejo = New clsComplejo 'para llenar combo estatus
|
||
Dim Cuenta As clsComplejo = New clsComplejo 'para llenar el combo de cuenta
|
||
Dim clsVar As clsVaribles = New clsVaribles 'Para tener acceso a varibales publicas
|
||
Dim BanCliente, BanCuenta, BanPatron, BanStatus As Boolean
|
||
|
||
Private Sub InusualesDivisas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
clCmp.TipoReporte = 97 'para cargar la grafica de geografia
|
||
BanCliente = False
|
||
BanCuenta = False
|
||
BanPatron = False
|
||
BanStatus = False
|
||
If BanPatron = False Then
|
||
'Lleno combo de patrones con el procedimiento almacenado "spLlenaComboPatron"
|
||
Patron.sbLlenaCombo("sp_ConsultarProducto 0,1", Me.cmbPatron)
|
||
' Patron = New clsComplejo
|
||
' Patron.sbLlenaCombo("spLlenaComboClienteno", Me.cmbCliente)
|
||
'Patron = New clsComplejo
|
||
|
||
'Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron)
|
||
|
||
End If
|
||
Me.cmbPatron.SelectedIndex = -1
|
||
Cliente.sbLlenaCombo("spLlenaComboCliente " & clsVaribles.liPerfilB, Me.cmbCliente) ' ClsVaribles
|
||
cmbCliente.SelectedIndex = -1
|
||
Me.cmbCliente.SelectedIndex = -1
|
||
BanPatron = True
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
|
||
Select Case e.Button.Text
|
||
Case "Consultar"
|
||
sbBuscar()
|
||
Case "Exportar"
|
||
Exportar()
|
||
Case "Limpiar"
|
||
refrescar()
|
||
Case "Salir"
|
||
Me.Close()
|
||
End Select
|
||
End Sub
|
||
|
||
Public Sub sbBuscar()
|
||
Try
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
Dim SQL As String
|
||
Dim SQL2 As String
|
||
Dim Classcom As New clsComplejo
|
||
Dim Classcom2 As New clsComplejo
|
||
Dim ClassUtils As New ClassMyUtils
|
||
|
||
Dim strproducto As String
|
||
|
||
If Me.cmbPatron.SelectedIndex = -1 Then
|
||
MessageBox.Show("Es necesario Seleccionar un Producto, favor de Validar", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
cmbPatron.Focus()
|
||
Exit Sub
|
||
End If
|
||
|
||
SQL = "SELECT * FROM cat_PRODUCTO WHERE ACTIVO = 1"
|
||
|
||
If Me.cmbPatron.Text <> "" Then
|
||
'Esto es codigo duro
|
||
'SQL = SQL & " AND PRODUCTO = '" & ClassUtils.ObtenNombreProducto(Me.cmbPatron.Text.Trim) & "' "
|
||
SQL = SQL & " AND PRODUCTO = '" & Me.cmbPatron.Text.Trim & "' "
|
||
End If
|
||
|
||
Classcom.fdtDataSet(SQL)
|
||
|
||
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
|
||
SQL2 = ""
|
||
For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1
|
||
|
||
|
||
Select Case cmbPatron.Text
|
||
|
||
Case "BANCA INTERNACIONAL"
|
||
|
||
SQL2 = "sp_ReportRelevanteBI " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL")
|
||
'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL")
|
||
SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL")
|
||
SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'"
|
||
|
||
|
||
Case "BANCA TRADICIONAL"
|
||
|
||
SQL2 = "sp_ReportRelevanteBT " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL")
|
||
'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL")
|
||
SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL")
|
||
SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'"
|
||
|
||
|
||
Case "CREDITO"
|
||
|
||
SQL2 = "sp_ReportRelevanteCDTO " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL")
|
||
'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL")
|
||
SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL")
|
||
SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'"
|
||
|
||
|
||
Case "DIVISAS"
|
||
|
||
SQL2 = "sp_ReportRelevanteDivisas " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL")
|
||
'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL")
|
||
SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL")
|
||
SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'"
|
||
|
||
|
||
Case "MERCADO DE DINERO" '"MERCADO DE CAPITALES"
|
||
|
||
SQL2 = "sp_ReportRelevanteMCapitales " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL")
|
||
'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL")
|
||
SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL")
|
||
SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'"
|
||
|
||
|
||
Case Else
|
||
Exit Sub
|
||
End Select
|
||
Next
|
||
|
||
|
||
|
||
clCmp = New clsComplejo
|
||
clCmp.fdtDataSetTabla(SQL2)
|
||
|
||
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
|
||
|
||
clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
|
||
'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
|
||
' Me.C1TrueDBGrid1.Columns("FECHA").NumberFormat = "DD/MM/YYYY"
|
||
Me.C1TrueDBGrid1.Columns(24).NumberFormat = "Currency"
|
||
Me.C1TrueDBGrid1.Columns(25).NumberFormat = "Currency"
|
||
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).FetchStyle = True
|
||
'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
|
||
Me.C1TrueDBGrid1.Visible = True
|
||
|
||
For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In C1TrueDBGrid1.Splits(0).DisplayColumns
|
||
If InStr(col.Name, "ID") > 0 Then
|
||
col.Visible = False
|
||
End If
|
||
Next
|
||
|
||
Dim Cont As Integer
|
||
Cont = clCmp.ds.Tables(0).Rows.Count
|
||
lblNumReg.Text = "Numero de Registros : " & Cont
|
||
|
||
End If
|
||
|
||
''Auditoria
|
||
Dim ClassAud As New ClassMyUtils
|
||
Dim sTextoAud As String
|
||
sTextoAud = "Reporte de Relevantes, Periodo del " & Me.dtpFechaInicio.Value.Date & " al " & Me.dtpFechaFin.Value.Date
|
||
If cmbPatron.Text <> "" Then
|
||
sTextoAud = sTextoAud & ", Producto:" & cmbPatron.Text
|
||
End If
|
||
If cmbCliente.Text <> "" Then
|
||
sTextoAud = sTextoAud & ", IdCliente:" & cmbCliente.SelectedValue
|
||
End If
|
||
If txtCuenta.Text.Trim <> "" Then
|
||
sTextoAud = sTextoAud & ", NumCuenta:" & txtCuenta.Text
|
||
End If
|
||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
|
||
''Fin de auditoria
|
||
|
||
Catch er As Exception
|
||
MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub refrescar()
|
||
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
'Grid
|
||
'Me.C1TrueDBGrid1.Visible = False
|
||
Me.C1TrueDBGrid1.DataSource = Nothing
|
||
Me.C1TrueDBGrid1.DataBindings.Clear()
|
||
|
||
|
||
|
||
Me.cmbPatron.SelectedIndex = -1
|
||
Me.cmbCliente.SelectedIndex = -1
|
||
|
||
txtCuenta.Text = ""
|
||
|
||
'etiqueta
|
||
Me.lblNumReg.Text = ""
|
||
|
||
'Establece las banderas a false para q sepuedan cargar lso combos otra vez
|
||
BanCliente = False
|
||
BanCuenta = False
|
||
BanPatron = False
|
||
BanStatus = False
|
||
|
||
clsVaribles.lsClienteNombre = ""
|
||
clsVaribles.lsClienteNombreT = ""
|
||
Me.cmbCliente.Text = ""
|
||
Me.cmbPatron.Text = ""
|
||
Me.cmbPatron.SelectedIndex = -1
|
||
Me.cmbCliente.SelectedIndex = -1
|
||
Me.cmbCliente.SelectedValue = 0
|
||
|
||
End Sub
|
||
|
||
Private Sub Exportar()
|
||
Dim ClassUtils As New ClassMyUtils
|
||
|
||
Try
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
If clCmp.ds.Tables.Count = 0 Then
|
||
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
If clCmp.ds.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, <20>Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||
If Resul = DialogResult.Yes Then
|
||
'Creamos una copia del dataset
|
||
Dim copyDS As DataSet = clCmp.ds.Copy()
|
||
'Quitamos las siguientes columnas para no exportarlas
|
||
'copyDS.Tables(0).Columns.Remove("idtransaccion")
|
||
'copyDS.Tables(0).Columns.Remove("idproducto")
|
||
'copyDS.Tables(0).Columns.Remove("Id_Subproducto")
|
||
'copyDS.Tables(0).Columns.Remove("Id_Patron")
|
||
'copyDS.Tables(0).Columns.Remove("Id_EstatusTransaccion")
|
||
'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
|
||
clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
|
||
Dim ClassAud As New ClassMyUtils
|
||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 11, 1, "Exportacion a Excel Relevantes de " & ClassUtils.ObtenNombreProducto(Me.cmbPatron.Text.Trim) & " entre la fecha " & Me.dtpFechaInicio.Value.Date & " y " & Me.dtpFechaFin.Value.Date)
|
||
|
||
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 OcultaColums()
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
Try
|
||
If clCmp.ds.Tables.Count <> 0 Then
|
||
clCmp.OcultarColumna("idtransaccion")
|
||
clCmp.OcultarColumna("idproducto")
|
||
clCmp.OcultarColumna("IdSubproducto")
|
||
clCmp.OcultarColumna("IdPatron")
|
||
clCmp.OcultarColumna("IdEstatusTransaccion")
|
||
End If
|
||
Catch er As Exception
|
||
' MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
|
||
Try
|
||
Dim FilaActual As Integer
|
||
FilaActual = Me.C1TrueDBGrid1.Row
|
||
If Me.C1TrueDBGrid1.RowCount = 0 Then
|
||
Exit Sub
|
||
End If
|
||
''Dim fila As DataRow
|
||
''fila = C1TrueDBGrid1.DataSource.Tables(0).Rows(FilaActual) '' clCmp.ds.Tables(0).Rows(FilaActual)
|
||
''clsVaribles.ReportadoPor = "Relevante" ' Cambio clsVar 8 lineas por clsVaribles
|
||
''clsVaribles.Nombre = fila("NOMBREORAZONS")
|
||
''clsVaribles.No_Referencia = fila("NUMEROREFERENCIA")
|
||
''clsVaribles.Id_Transaccion = fila("IDTransaccion")
|
||
''clsVaribles.Id_Producto = cmbPatron.SelectedValue
|
||
''clsVaribles.Id_SubProducto = fila("IdSubproducto")
|
||
''clsVaribles.Id_Patron = fila("IdPatron")
|
||
''clsVaribles.Id_EstatusTransaccion = 3
|
||
''Dim frmDetalles As Detalles = New Detalles
|
||
''frmDetalles.Text = "Detalle"
|
||
''frmDetalles.IsRelevante()
|
||
''frmDetalles.ShowDialog()
|
||
''sbBuscar()
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub lblMonto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
'Muestra el formulario de la grafica de monto
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
Try
|
||
If clCmp.ds.Tables.Count = 0 Then
|
||
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
If clCmp.ds.Tables(0).Rows.Count = 0 Then
|
||
MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
'Se limpian las variables globales
|
||
clCmp._FechaFin = ""
|
||
clCmp._FechaIni = ""
|
||
clCmp._NoCuenta = ""
|
||
'Recupero los valores para pasarlesos al formulario donde se mostrara la grafica
|
||
Dim FilaActual As Integer
|
||
FilaActual = Me.C1TrueDBGrid1.Row
|
||
Dim fila As DataRow
|
||
fila = clCmp.ds.Tables(0).Rows(FilaActual)
|
||
clCmp._NoCuenta = Me.C1TrueDBGrid1.Columns("numerocuenta").Text
|
||
clCmp._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString
|
||
clCmp._FechaFin = Me.dtpFechaFin.Value.ToShortDateString
|
||
' Se instancia el formulario de la grafica de monto y se muestra
|
||
'' ''Dim frmMonto As MontoGrafica = New MontoGrafica
|
||
'' ''frmMonto.ShowDialog()
|
||
End If
|
||
End If
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub lblFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
'Muestra el formulario de la grafica de fecha
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
Try
|
||
If clCmp.ds.Tables.Count = 0 Then
|
||
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
If clCmp.ds.Tables(0).Rows.Count = 0 Then
|
||
MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
'Se limpian las variables globales
|
||
clCmp._FechaFin = ""
|
||
clCmp._FechaIni = ""
|
||
clCmp._NoCuenta = ""
|
||
'Recupero los valores para pasarlos al formulario donde se mostrara la grafica
|
||
Dim FilaActual As Integer
|
||
FilaActual = Me.C1TrueDBGrid1.Row
|
||
Dim fila As DataRow
|
||
fila = clCmp.ds.Tables(0).Rows(FilaActual)
|
||
clCmp._NoCuenta = Me.C1TrueDBGrid1.Columns("numerocuenta").Text
|
||
clCmp._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString
|
||
clCmp._FechaFin = Me.dtpFechaFin.Value.ToShortDateString
|
||
' Se instancia el formulario de la grafica de fecha y se muestra
|
||
'' ''Dim frmFecha As FechaGrafica = New FechaGrafica
|
||
'' ''frmFecha.ShowDialog()
|
||
End If
|
||
End If
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
'Private Sub lblGeografia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblGeografia.Click
|
||
' Try
|
||
' If clCmp.ds.Tables.Count = 0 Then
|
||
' MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
' Else
|
||
' If clCmp.ds.Tables(0).Rows.Count = 0 Then
|
||
' MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
' Else
|
||
' Dim FilaActual As Integer
|
||
' FilaActual = Me.C1TrueDBGrid1.Row
|
||
' Dim fila As DataRow
|
||
' fila = clCmp.ds.Tables(0).Rows(FilaActual)
|
||
' No_Cuenta = fila("No_Cuenta")
|
||
' Dim frmGeo As GeografiaGrafica = New GeografiaGrafica
|
||
' frmGeo.ShowDialog()
|
||
' End If
|
||
' End If
|
||
' Catch ex As Exception
|
||
' MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
' End Try
|
||
'End Sub
|
||
|
||
Private Sub PatronesMouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
||
'Hace que cambie la apariencia de la etiqueta
|
||
Dim Etiqueta As Label
|
||
Dim x, y As Integer
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
Try
|
||
Etiqueta = sender
|
||
Etiqueta.Size = New System.Drawing.Size(92, 20)
|
||
Etiqueta.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub PatronesPrincipalLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
'Vuelve el estado original de la etiqueta
|
||
Dim Etiqueta As Label
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
Try
|
||
Etiqueta = sender
|
||
Etiqueta.Size = New System.Drawing.Size(88, 16)
|
||
Etiqueta.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub cmbCliente_DropDown(ByVal sender As Object, ByVal e As System.EventArgs)
|
||
Try
|
||
'If BanCliente = False Then
|
||
' 'Lleno combo de clientes con el procedimiento alamcenado "spLlenaComboCliente"
|
||
' Cliente.sbLlenaCombo("spLlenaComboCliente", Me.cmbCliente)
|
||
'End If
|
||
'BanCliente = True
|
||
Catch ex As Exception
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub cmbPatron_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPatron.DropDown
|
||
'If BanPatron = False Then
|
||
' 'Lleno combo de patrones con el procedimiento almacenado "spLlenaComboPatron"
|
||
' Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron)
|
||
'End If
|
||
'BanPatron = True
|
||
End Sub
|
||
|
||
Private Sub cmbCliente_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
|
||
'Limpia el combo de cuenta al seleccionar otro elemento en el combo de cliente
|
||
'cmbCuenta.SelectedValue = -1
|
||
End Sub
|
||
|
||
Private Sub C1TrueDBGrid1_FetchCellStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles C1TrueDBGrid1.FetchCellStyle
|
||
|
||
Dim S As String = Me.C1TrueDBGrid1(e.Row, e.Col)
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
If S = "BANCATRADICIONAL" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Yellow
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
|
||
If S = "CREDITO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Purple
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
|
||
If S = "BANCAINTERNACIONAL" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Crimson
|
||
e.CellStyle.ForeColor = System.Drawing.Color.White
|
||
End If
|
||
|
||
If S = "TESORERIA" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Salmon
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
|
||
If S = "PATRON MONTO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Red
|
||
e.CellStyle.ForeColor = System.Drawing.Color.White
|
||
End If
|
||
|
||
If S = "PATRON GEOGRAFIA" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Lime
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
|
||
If S = "PATRON TRANSACCIONES" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Blue
|
||
e.CellStyle.ForeColor = System.Drawing.Color.White
|
||
End If
|
||
If S = "PATRON TASA" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Aquamarine
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
If S = "PATRON FUNCIONARIO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Pink
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
If S = "PATRON REVOLVENCIA" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.DarkKhaki
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
If S = "PATRON DIVISA" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Gold
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
If S = "PATRON TIPOCAMBIO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.DarkTurquoise
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
If S = "PATRON BANCO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.SkyBlue
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
If S = "PATRON ORDENANTE/BENEFICIARIO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.DarkGreen
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub BntSalie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
Me.Close()
|
||
End Sub
|
||
|
||
Private Sub BntSalie_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BntSalie.Click
|
||
Me.Close()
|
||
End Sub
|
||
|
||
Private Sub btnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsulta.Click
|
||
sbBuscar()
|
||
End Sub
|
||
|
||
Private Sub C1TrueDBGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Click
|
||
|
||
End Sub
|
||
|
||
Private Sub BtnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnImprimir.Click
|
||
Exportar()
|
||
End Sub
|
||
|
||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||
Dim fRefBan As New FrmBuscaListas(cmbCliente.Text & "%")
|
||
|
||
|
||
If fRefBan.Text <> "0" Then
|
||
fRefBan.ShowDialog()
|
||
If clsVaribles.lsClienteNombre <> "" Then
|
||
sbBuscar()
|
||
'cmbCuenta.SelectedIndex = -1
|
||
cmbCliente.Text = clsVaribles.lsClienteNombreT
|
||
End If
|
||
Else
|
||
MessageBox.Show("No se Encontraron Coincidencias en Cliente", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
End If
|
||
fRefBan.Dispose()
|
||
End Sub
|
||
|
||
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
|
||
refrescar()
|
||
End Sub
|
||
|
||
Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint
|
||
|
||
End Sub
|
||
|
||
Private Sub cmbCuenta_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
|
||
End Sub
|
||
|
||
Private Sub cmbPatron_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPatron.SelectedIndexChanged
|
||
|
||
End Sub
|
||
|
||
Private Sub cmbCliente_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCliente.SelectedIndexChanged
|
||
|
||
End Sub
|
||
End Class |