jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
298bea23d4
client/HistoricoAlarmas/frmHistoricoAlarmasDIV.vb

544 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 frmHistoricoAlarmasDIV
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("ReporteInusualHistoricoDIVISAS ")
clCmp.fdtDataSetTabla(SQL)
''Auditoria
Dim ClassAud As New ClassMyUtils
Dim sTextoAud As String
sTextoAud = "Reporte Inusual Historico DIV, 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
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(14).NumberFormat = "Currency"
Me.C1TrueDBGrid1.Columns(15).NumberFormat = "Currency"
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).FetchStyle = True
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
'REVISAR LOS CAMPOS A GUARDAR
'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), "yyyy/MM/dd")
lsIni = " '" & lsIni & "', "
lsFin = Classcom.ObtenFecha(CDate(dtpFechaFin.Value.ToShortDateString), "yyyy/MM/dd")
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 lleva el parametro.
Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron)
'''Patron.sbLlenaCombo("spLlenaComboPatron 'TESORERIA'", 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 frmDetalleHistoricoDIV = New frmDetalleHistoricoDIV
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 = "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
Private Function Session() As Object
Throw New NotImplementedException
End Function
End Class
Reference in New Issue Copy Permalink