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
|