client/Actualizadores/FRCalificacion.vb

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