client/Actualizadores/FRCalificacion.vb

270 lines
11 KiB
VB.net
Raw Blame History

Public Class FRCalificacion
Private Sub CBPatron_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBPatron.DropDown
Dim SQL As String
Dim clCmj1 As clsComplejo
Try
clCmj1 = New clsComplejo
'SQL = "spLlenaComboPatronI " & clsVaribles.idproducto
'SQL = " sp_ConsultarPatronXProducto " & clsVaribles.idproducto
SQL = "SELECT IDPATRON as clave,PATRON as nombre from cat_patron where IDPATRON = 4 "
'clCmj1.cm.CommandText = SQL
'clCmj1.ad.SelectCommand = clCmj1.cm
clCmj1.sbLlenaCombo(SQL, CBPatron)
Catch ex As Exception
MessageBox.Show("Mensaje: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub llenaComboPatron()
Dim SQL As String
Dim clCmj1 As clsComplejo
Try
clCmj1 = New clsComplejo
SQL = "SELECT IDPATRON as clave,PATRON as nombre from cat_patron where IDPATRON = 4 "
clCmj1.sbLlenaCombo(SQL, CBPatron)
Catch ex As Exception
MessageBox.Show("Mensaje: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub CBPatron_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBPatron.SelectedIndexChanged
End Sub
Private Sub FRCalificacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strTabla As String
Dim cmdSQL As String
Dim Classcom As New clsComplejo
Dim strNota As String
TXTNombre.Text = clsVaribles.Nombre
TXTReferencia.Text = clsVaribles.No_Referencia
TXTTransaccion.Text = clsVaribles.varTransaccion
If Me.TXTDescripcion.Text = "" Then
Select Case clsVaribles.idproducto
Case 1
strTabla = "BANCATRADICIONAL"
Case 2
strTabla = "MERCADODECAPITALES" '"MERCADODEDINERO"
Case 3
strTabla = "MERCADODECAPITALES"
Case 4
strTabla = "SOCIEDADESDEINVERSION"
Case 11
strTabla = "DIVISAS"
Case 8
strTabla = "CREDITO"
Case 7
strTabla = "BANCAINTERNACIONAL"
End Select
'Se asignan valores a los controles
'clsVAr.idproducto
'cmdSQL = "SELECT i.InstrumentoMonetario, t.tipooperacion as nombretipooperacion,c.monto,c.fecha,I.IdInstrumentoMonetario FROM " & strTabla & " c "
'cmdSQL = cmdSQL & " inner join cat_tipooperacion t on t.idtipooperacion = c.idtipooperacion "
'cmdSQL = cmdSQL & " inner join cat_instrumentomonetario i on i.IdInstrumentoMonetario = c.IdInstrumentoMonetario"
'cmdSQL = cmdSQL & " WHERE idtransaccion = '" & clsVaribles.varTransaccion & "'"
cmdSQL = "SELECT i.Nombre, t.tipooperacion as nombretipooperacion,c.monto,c.fecha,I.IdInstrumentoMonetario FROM " & strTabla & " c "
cmdSQL = cmdSQL & " inner join cat_tipooperacion t on t.idtipooperacion = c.idtipooperacion "
cmdSQL = cmdSQL & " inner join cat_instrumentomonetario i on i.IdInstrumentoMonetario = c.IdInstrumentoMonetario"
cmdSQL = cmdSQL & " WHERE idtransaccion = '" & clsVaribles.varTransaccion & "'"
' cmdSQL = "SELECT * FROM " & strTabla & " WHERE NO_REFERENCIA = '" & clsVaribles.No_Referencia & "'"
Classcom.fdtDataSet(cmdSQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
'Select Case Classcom.ds.Tables(0).Rows(0).Item("id_tipooperacion").ToString
' Case Is = "1" 'DEPOSITO
' strNota = "Deposito "
' Case Is = "2" 'RETIRO
' strNota = "Retiro "
' Case Is = "8" 'OTORGAMENTO DE CREDITO
' strNota = "Otorgamiento de Credito"
' Case Is = "9" 'PAGO DE CREDITO
' strNota = "Pago de Credito"
'End Select
strNota = Classcom.ds.Tables(0).Rows(0).Item("nombretipooperacion").ToString & " en " & Classcom.ds.Tables(0).Rows(0).Item("Nombre").ToString & " por " & Classcom.ds.Tables(0).Rows(0).Item("monto").ToString
'Select Case Classcom.ds.Tables(0).Rows(0).Item("ID_INSMONETARIO").ToString
' Case Is = "1" 'EFECTIVO
' strNota = Classcom.ds.Tables(0).Rows(0).Item("nombretipooperacion").ToString & " en Efectivo por " & Classcom.ds.Tables(0).Rows(0).Item("monto").ToString
' Case Is = "2" 'CHEQUE
' strNota = Classcom.ds.Tables(0).Rows(0).Item("nombretipooperacion").ToString & " mediante Cheque por " & Classcom.ds.Tables(0).Rows(0).Item("monto").ToString
' Case Is = "3" 'TRANSFERENCIA
' strNota = Classcom.ds.Tables(0).Rows(0).Item("nombretipooperacion").ToString & " mediante Transferencia por " & Classcom.ds.Tables(0).Rows(0).Item("monto").ToString
'End Select
End If
Me.TXTDescripcion.Text = strNota
End If
DesHeader.Text = Me.Text
llenaComboPatron()
End Sub
Private Sub CBEstatus_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBEstatus.DropDown
Dim SQL As String
Dim clCmj1 As clsComplejo
Try
clCmj1 = New clsComplejo
SQL = "spLlenaComboEstatusTransacciones"
'clCmj1.cm.CommandText = SQL
'clCmj1.ad.SelectCommand = clCmj1.cm
clCmj1.sbLlenaCombo(SQL, CBEstatus)
Catch ex As Exception
MessageBox.Show("Error CBO2Plaza_DropDown: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub CBEstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBEstatus.SelectedIndexChanged
End Sub
Private Sub BTAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTAceptar.Click
Dim classCom As New clsComplejo
Dim strSQL As String
Dim varIDTransaccion As Long
Dim varPatron As Long
Dim varEstatus As Long
Dim varFecha As String
Dim varProducto As String
Dim varSubproducto As Integer
Dim forma As New FrmNewInsuales
Try
'validacion de los campos requeridos
If Me.CBPatron.Text = "" Then
MessageBox.Show("Es necesario el patr<74>n para reportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Me.CBEstatus.Text = "" Then
MessageBox.Show("Es necesario el estatus para reportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Me.TXTDescripcion.Text = "" Then
MessageBox.Show("Es necesaria la descripci<63>n para reportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Me.TXTRazon.Text = "" Then
MessageBox.Show("Es necesaria la raz<61>n para reportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'idtransaccion,idproducto,ID_SUBPRODUCTO,ID_PATRON,ID_ALARMA,ID_ESTATUSTRANSACCION,FECHa,NOTA,RAZON
'INSERTA EN TRANSACCIONREPORTE
varProducto = classCom.BuscaValores("isnull(idproducto,0)", "cat_producto", "producto = '" & clsVaribles.strProdFraccionada & "'")
varPatron = classCom.BuscaValores("isnull(idpatron,0)", "cat_patron", "patron = '" & Me.CBPatron.Text & "'")
varSubproducto = classCom.BuscaValores("idsubproducto", clsVaribles.strProdFraccionada, " idtransaccion = " & clsVaribles.varTransaccion)
strSQL = "INSERT INTO TRANSACCIONREPORTE (idtransaccion, idproducto, IDSUBPRODUCTO, IDPATRON, IDTIPOALARMA, "
strSQL = strSQL & "IDESTATUSALARMA, FECHA, NOTA, RAZON, FECHADETECCION) VALUES ( "
strSQL = strSQL & clsVaribles.varTransaccion & ", " & varProducto & ", " & varSubproducto & ", "
strSQL = strSQL & varPatron & ", 2, " & Me.CBEstatus.SelectedValue & ", "
'''strSQL = strSQL & "CONVERT(DATETIME,'" & clsVaribles.varFecha & "',103), "
strSQL = strSQL & "'" & Year(clsVaribles.varFecha) & "-" & Month(clsVaribles.varFecha).ToString("00") & "-" & DateAndTime.Day(clsVaribles.varFecha).ToString("00") & "', "
strSQL = strSQL & "'" & TXTDescripcion.Text & "', "
strSQL = strSQL & "'" & TXTRazon.Text & "', "
'''strSQL = strSQL & "'" & classCom.ObtenFecha(Now.Date, "yyyymmdd") & "')"
strSQL = strSQL & "convert(datetime,'" & classCom.ObtenFecha(Now.Date, "yyyymmdd") & "',112))"
classCom.sbInserta(strSQL)
classCom = New clsComplejo
'- para kuspit no se usa el 24Horas
'classCom.sbInserta("Update Transaccionreporte set r24 = " & Math.Abs(CInt(Me.CHKr24.Checked)) & " where idtransaccion = " & clsVaribles.varTransaccion & " AND idproducto = " & varProducto)
MessageBox.Show("Operaci<EFBFBD>n satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
''Auditoria
Dim ClassAud As New ClassMyUtils
Dim sTextoAud As String
sTextoAud = "Calificacion de la transaccion : idtransaccion: " & clsVaribles.varTransaccion & ",Producto:" & clsVaribles.strProdFraccionada & ", Patron:" & Me.CBPatron.Text & ",Estatus: " & Me.CBEstatus.Text & ",Fecha: " & clsVaribles.varFecha & ",Nota: " & TXTDescripcion.Text & ",Razon: " & TXTRazon.Text & ",Fecha Deteccion. " & classCom.ObtenFecha(Now.Date, "dd/mm/yyyy")
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 112, 1, sTextoAud)
''Fin de Auditoria
forma.BTConsultar.PerformClick()
Me.Close()
Catch ex As Exception
MessageBox.Show("Error BTAceptar_Click: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub CHKr24_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CHKr24.CheckedChanged
Dim strDescripcionAnt As String
If Me.TXTDescripcion.Text <> "Reporte de 24 horas" Then
strDescripcionAnt = Me.TXTDescripcion.Text.Trim
End If
If CHKr24.Checked = True Then
TXTDescripcion.Text = "Reporte de 24 horas"
Else
TXTDescripcion.Text = strDescripcionAnt
End If
End Sub
Private Sub BtSalir_Click(sender As System.Object, e As System.EventArgs) Handles BtSalir.Click
Me.Close()
End Sub
Private Sub panel3_Paint(sender As Object, e As PaintEventArgs) Handles panel3.Paint
End Sub
End Class