jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
3c9d798741
client/HistoricoAlarmas/frmHistoricoAlarmasBI.vb

545 lines
25 KiB
VB.net
Raw Normal View History

Primera carga de Minds Cliente para el proyecto de blackrock
2019-07-05 13:43:55 -05:00

Public Class frmHistoricoAlarmasBI
Inherits System.Windows.Forms.Form
Dim clCmp As clsComplejo = New clsComplejo
Dim Patron As clsComplejo = New clsComplejo 'Para llenar combo patron
Dim Periodo As clsComplejo = New clsComplejo 'Para llenar combo periodo
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 utilizar varibles publicas
Dim BanCliente, BanCuenta, BanPatron, BanStatus As Boolean
Dim FilaActual As Integer = 0
Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick
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
Dim SQL As String
SQL = ""
SQL = fsDefineSQL("ReporteInusualHistoricoBI ")
''Auditoria
Dim ClassAud As New ClassMyUtils
Dim sTextoAud As String
sTextoAud = "Reporte Inusual Historico BI, Periodo del " & dtpFechaInicio.Value.Date & " al " & dtpFechaFin.Value.Date
If cmbPatron.Text <> "" Then
sTextoAud = sTextoAud & ", Patron:" & cmbPatron.Text
End If
If cmbCliente.Text <> "" Then
sTextoAud = sTextoAud & ", IdCliente:" & cmbCliente.SelectedValue
End If
If cmbCuenta.Text <> "" Then
sTextoAud = sTextoAud & ", Cuenta:" & cmbCuenta.Text
End If
If cmbStatus.Text <> "" Then
sTextoAud = sTextoAud & ", Estatus:" & cmbStatus.Text
End If
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
''Fin de auditoria
clCmp.fdtDataSetTabla(SQL)
OcultaColums()
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(2).Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(3).Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Visible = False
Me.C1TrueDBGrid1.Columns(15).NumberFormat = "Currency"
Me.C1TrueDBGrid1.Columns(16).NumberFormat = "Currency"
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).FetchStyle = True
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("idTransaccion").Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("idCuenta").Visible = False
'-- los datos de la columna de si es hostorico el dato los coloca en ROJO
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Style.ForeColor = Color.Red
'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Historico").Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Historico").Width = 30
Me.C1TrueDBGrid1.Visible = True
Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy
Dim Cont As Integer
Cont = clCmp.ds.Tables(0).Rows.Count
'LblNumReg.Text = "Elementos: " & Cont
LblNumReg.Text = "Elementos: " & Me.C1TrueDBGrid1.RowCount
Catch er As Exception
MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub refrescar()
'Combo cliente
Me.cmbCliente.SelectedIndex = -1
Me.cmbCliente.SelectedIndex = -1
'Combo Cuenta
Me.cmbCuenta.SelectedIndex = -1
Me.cmbCuenta.SelectedIndex = -1
'combo patron
Me.cmbPatron.SelectedIndex = -1
Me.cmbPatron.SelectedIndex = -1
'combo Estatus
Me.cmbStatus.SelectedIndex = -1
Me.cmbStatus.SelectedIndex = -1
'Grid
Me.C1TrueDBGrid1.Visible = False
Me.C1TrueDBGrid1.DataSource = Nothing
Me.C1TrueDBGrid1.DataBindings.Clear()
'etiqueta
Me.LblNumReg.Text = ""
'Establece las banderas a false para q sepuedan cargar los combos otra vez
BanCliente = False
BanCuenta = False
BanPatron = False
BanStatus = False
End Sub
Private Sub Exportar()
Dim objExlApp As Excel.Application
Dim o_Excel As Object
Dim o_Libro As Object
Dim o_Hoja As Object
Dim fs1, f As Object
Try
Dim ruta As String
ruta = System.IO.Path.GetTempPath()
Cursor = System.Windows.Forms.Cursors.WaitCursor
If Dir(ruta & "Reporte.csv") = "" Then
Else
'fs1 = CreateObject("Scripting.FileSystemObject")
'f = fs1.GetFile(App.Path & "\exporta.xls")
'f.Delete()
fs1 = CreateObject("Scripting.FileSystemObject")
f = fs1.GetFile(ruta & "Reporte.csv")
f.Delete()
End If
'TDBReporteRelevantes.ExportToDelimitedFile App.Path & "\exporta.xls", True, "|"
Me.C1TrueDBGrid1.ExportToDelimitedFile(ruta & "\Reporte.csv", C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ",", "", "", True, "ASCII")
System.Diagnostics.Process.Start(ruta & "\Reporte.csv")
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Cursor = System.Windows.Forms.Cursors.Default
'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 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
' '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("IdSubproducto")
' copyDS.Tables(0).Columns.Remove("IdPatron")
' copyDS.Tables(0).Columns.Remove("IdEstatusTransaccion")
' copyDS.Tables(0).Columns.Remove("idCuenta")
' '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
' 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()
Try
If clCmp.ds.Tables.Count <> 0 Then
clCmp.OcultarColumna("IdTransaccion")
clCmp.OcultarColumna("IdProducto")
clCmp.OcultarColumna("IdSubproducto")
clCmp.OcultarColumna("IdPatron")
clCmp.OcultarColumna("IdEstatusTransaccion")
clCmp.OcultarColumna("idCuenta")
End If
Catch er As Exception
' MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Function fsDefineSQL(ByVal SP As String) As String
'Defino mi cadena para el procedimiento almacenado
Try
Dim lsSQL As String = ""
Dim _Opcion As Integer
Dim lsIni As String = " NULL,"
Dim lsFin As String = " NULL"
Dim lsCliente As String = " NULL, "
Dim lsCuenta As String = " NULL, "
Dim lsPatron As String = " NULL, "
Dim lsEstatus As String = " NULL, "
Dim Classcom As New clsComplejo
Dim FchIni As Date
Dim meses As Integer
' ************ Fechas Periodo****************
lsIni = Classcom.ObtenFecha(CDate(dtpFechaInicio.Value.ToShortDateString), "yyyymmdd")
lsIni = " '" & lsIni & "', "
lsFin = Classcom.ObtenFecha(CDate(dtpFechaFin.Value.ToShortDateString), "yyyymmdd")
lsFin = "'" & lsFin & "'"
'*******************************************************************************
If Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text = "" Then
'-- se agrego esta opcion para que traiga todas las cuentas de un cliente
'-- c. clain 12/mar/2013
_Opcion = 9
lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
lsCuenta = "null, "
If Me.cmbPatron.SelectedIndex = -1 Then
lsPatron = "null, "
Else
lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
End If
If Me.cmbStatus.SelectedIndex = -1 Then
lsPatron = "null, "
Else
lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
End If
Else
'********************************************************************************************
If Me.cmbCliente.Text = "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text = "" Then
_Opcion = 1
ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
_Opcion = 2
lsEstatus = CInt(Me.cmbStatus.SelectedValue)
ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
_Opcion = 3
lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
_Opcion = 4
lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text = "" Then
_Opcion = 5
lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
lsCuenta = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
_Opcion = 6
lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
lsCuenta = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
_Opcion = 7
lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
lsCuenta = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
_Opcion = 8
lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
lsCuenta = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
End If
End If
lsSQL = ""
lsSQL = lsSQL & SP
lsSQL = lsSQL & lsPatron
lsSQL = lsSQL & lsCliente
lsSQL = lsSQL & lsCuenta
lsSQL = lsSQL & lsEstatus
lsSQL = lsSQL & lsIni
lsSQL = lsSQL & lsFin
'-- asigna valores a variables globales para en caso de que consulte el detalle
'-- del historico
clsVaribles.Finicio = CDate(dtpFechaInicio.Value.ToShortDateString) '-- FchIni '--lsIni
clsVaribles.Ffin = CDate(dtpFechaFin.Value.ToShortDateString) ' '--lsFin
'---
Return lsSQL
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Function
Private Sub frmHistoricoAlarmas_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BanCliente = False
BanCuenta = False
BanPatron = False
BanStatus = False
Cliente.sbLlenaCombo("spLlenaComboCliente " & clsVaribles.liPerfilB, Me.cmbCliente) ' ClsVaribles
cmbCliente.SelectedIndex = -1
Estatus.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.cmbStatus)
cmbStatus.SelectedIndex = -1
'' Omar Mendez. 6-marzo-2014. Este sp ya no usa el parametro.
'Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron)
Patron.sbLlenaCombo("sp_ConsultaPatrones", Me.cmbPatron)
''Patron.sbLlenaCombo("spLlenaComboPatron 'BANCAINTERNACIONAL'", Me.cmbPatron)
cmbPatron.SelectedIndex = -1
End Sub
Private Sub C1TrueDBGrid1_AfterFilter(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FilterEventArgs) Handles C1TrueDBGrid1.AfterFilter
LblNumReg.Text = "Elementos: " & Me.C1TrueDBGrid1.RowCount
End Sub
Private Sub C1TrueDBGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Click
End Sub
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
Try
Dim strHist As String
Dim FilaActual As Integer
FilaActual = Me.C1TrueDBGrid1.Row
Dim fila As DataRow
fila = clCmp.ds.Tables(0).Rows(FilaActual)
clsVaribles.VarIdCliente = C1TrueDBGrid1.Columns("IdCliente").Text
'-- los demas parametros no se envian ára que en la
'-- consulta del detalle se despliegen todas las que tiene el cliente
'-- en el periodo mencionado
strHist = C1TrueDBGrid1.Columns(0).Text
If strHist = "X" Then
Dim frmDetalleHistorico As frmDetalleHistoricoBI = New frmDetalleHistoricoBI
frmDetalleHistorico.Text = "Detalle Historico de Alarmas"
frmDetalleHistorico.ShowDialog()
'refrescar()
'c1.BackColor = System.Drawing.Color.White
sbBuscar()
Else
strHist = C1TrueDBGrid1.Columns(1).Text
If C1TrueDBGrid1.Columns(1).Text <> "RELEVANTE" Then
clsVar.ReportadoPor = C1TrueDBGrid1.Columns("ReportadoPor").Text
clsVar.Nombre = C1TrueDBGrid1.Columns("NOMBRE DEL CLIENTE").Text
clsVar.No_Referencia = C1TrueDBGrid1.Columns("NumeroReferencia").Text
clsVar.Id_Transaccion = C1TrueDBGrid1.Columns("idtransaccion").Text
clsVar.Id_Producto = C1TrueDBGrid1.Columns("IdProducto").Text
clsVar.Id_SubProducto = C1TrueDBGrid1.Columns("IdSubproducto").Text
clsVar.Id_Patron = C1TrueDBGrid1.Columns("IdPatron").Text
clsVar.Id_EstatusTransaccion = C1TrueDBGrid1.Columns("IdEstatusTransaccion").Text
Dim frmDetalles As Detalles = New Detalles
frmDetalles.Text = "Detalle Crédito"
frmDetalles.ShowDialog()
'refrescar()
sbBuscar()
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
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 S = "RELEVANTE" Then
e.CellStyle.BackColor = System.Drawing.Color.White
e.CellStyle.ForeColor = System.Drawing.Color.Black
End If
If S = "PREOCUPANTE" Then
e.CellStyle.BackColor = System.Drawing.Color.White
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 TRANSACCIONES" Then
e.CellStyle.BackColor = System.Drawing.Color.Blue
e.CellStyle.ForeColor = System.Drawing.Color.White
End If
If S = "PATRON FECHA" Then
e.CellStyle.BackColor = System.Drawing.Color.Yellow
e.CellStyle.ForeColor = System.Drawing.Color.Black
End If
If S = "PATRON MONTO KYC" Then
e.CellStyle.BackColor = System.Drawing.Color.BlueViolet
e.CellStyle.ForeColor = System.Drawing.Color.White
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 GEOGRAFIA" Then
e.CellStyle.BackColor = System.Drawing.Color.Maroon
e.CellStyle.ForeColor = System.Drawing.Color.White
End If
If S = "PATRON HORA" Then
e.CellStyle.BackColor = System.Drawing.Color.YellowGreen
e.CellStyle.ForeColor = System.Drawing.Color.Black
End If
If S = "PATRON DEPOSITANTE/BENEFICIARIO" Then
e.CellStyle.BackColor = System.Drawing.Color.Orange
e.CellStyle.ForeColor = System.Drawing.Color.Black
End If
If S = "PATRON DISPERSION" Then
e.CellStyle.BackColor = System.Drawing.Color.Turquoise
e.CellStyle.ForeColor = System.Drawing.Color.Black
End If
If S = "PATRON POSICIONESCONTRARIAS" Then
e.CellStyle.BackColor = System.Drawing.Color.Turquoise
e.CellStyle.ForeColor = System.Drawing.Color.White
End If
If S = "PATRON POSICIONESCONTRARIAS" Then
e.CellStyle.BackColor = System.Drawing.Color.Gray
e.CellStyle.ForeColor = System.Drawing.Color.White
End If
If S = "PATRON ZERO BALANCE ACCOUNT" Then
e.CellStyle.BackColor = System.Drawing.Color.DarkBlue
e.CellStyle.ForeColor = System.Drawing.Color.White
End If
If S = "PATRON MONTO HISTORICO" Then
e.CellStyle.BackColor = System.Drawing.Color.DarkCyan
e.CellStyle.ForeColor = System.Drawing.Color.White
End If
If S = "PATRON DISPOSICION INMEDIATA" Then
e.CellStyle.BackColor = System.Drawing.Color.IndianRed
e.CellStyle.ForeColor = System.Drawing.Color.White
End If
If S = "PATRON NUEVAS INUSUAL" Then
e.CellStyle.BackColor = System.Drawing.Color.White
e.CellStyle.ForeColor = System.Drawing.Color.Black
End If
'If S = "PREOCUPANTE" Then
' e.CellStyle.BackColor = System.Drawing.Color.White
' e.CellStyle.ForeColor = System.Drawing.Color.Black
'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 C1TrueDBGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1TrueDBGrid1.MouseDown
Dim iResp As Integer
'-- pregunta si presiono el boton derecho del raton
FilaActual = C1TrueDBGrid1.SelectedRows.IndexOf(0)
If e.Button = Windows.Forms.MouseButtons.Right Then
'MsgBox("presiono boton derecho")
'- indico cual fue la ultima linea donde se quedo
FilaActual = Me.C1TrueDBGrid1.Row
If Me.C1TrueDBGrid1.RowCount = 0 Then
Exit Sub
End If
'-- pregunta si quiere calificar o mostrar el detalle de la historia
iResp = MsgBox("¿Desea Calificar la Alarma?", MsgBoxStyle.YesNo, "MINDS CLIENTE 2.5")
If iResp = vbYes Then
Try
Dim FilaActual As Integer
FilaActual = Me.C1TrueDBGrid1.Row
Dim fila As DataRow
fila = clCmp.ds.Tables(0).Rows(FilaActual)
clsVar.ReportadoPor = C1TrueDBGrid1.Columns("ReportadoPor").Text
clsVar.Nombre = C1TrueDBGrid1.Columns("NOMBRE DEL CLIENTE").Text
clsVar.No_Referencia = C1TrueDBGrid1.Columns("NumeroReferencia").Text
clsVar.Id_Transaccion = C1TrueDBGrid1.Columns("idtransaccion").Text
clsVar.Id_Producto = C1TrueDBGrid1.Columns("IdProducto").Text
clsVar.Id_SubProducto = C1TrueDBGrid1.Columns("IdSubproducto").Text
clsVar.Id_Patron = C1TrueDBGrid1.Columns("IdPatron").Text
clsVar.Id_EstatusTransaccion = C1TrueDBGrid1.Columns("IdEstatusTransaccion").Text
Dim frmDetalles As Detalles = New Detalles
frmDetalles.Text = "Detalle Crédito"
frmDetalles.ShowDialog()
'refrescar()
sbBuscar()
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
'-- refresca la ventana
sbBuscar()
End If
End Sub
Private Sub cmbCuenta_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCuenta.DropDown
''Lena el combo de cuenta
Try
If Me.cmbCliente.Text = "" Then
Me.cmbCliente.Focus()
MessageBox.Show("Debes de seleccionar un cliente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
'If BanCuenta = False Then
Dim cad As String
cad = "spLlenaComboCuenta "
cad = cad & CInt(cmbCliente.SelectedValue) & ",2"
Cuenta.sbLlenaCombo1(cad, Me.cmbCuenta)
BanCuenta = True
'End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Reference in New Issue Copy Permalink