client/Catalogos/FRMyProducto.vb

Public Class FRMyProducto

    Private Sub FRMyProducto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Classcom As New clsComplejo
        Dim ClassCatalogos As New ClassCatalogos
        Dim SQL As String
        Dim FILA As DataRow

        PnPais.Visible = False

        Me.Text = "Productos"
        Me.PnPais.Visible = True
        DesHeader.text = Text
        If clsVaribles.lbDemo = True Then Exit Sub

        'LLENA GRID
        'SQL = "SELECT idproducto CLAVE,producto NOMBRE,ACTIVO FROM cat_producto ORDER BY producto"

        SQL = "sp_ConsultarProducto 0,NULL"

        ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)

        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        txtNombre.Enabled = False

    End Sub

    Private Sub GridMaster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridMaster.Click

    End Sub

    Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
        Dim classcom As New clsComplejo
        Dim strSQLComodin As String

        Select Case e.Button.Text
            Case "Agregar"

                'pnlBotones.Visible = True

                txtClave.Enabled = True
                txtClave.ReadOnly = False
                txtClave.Text = ""
                txtNombre.Text = ""
                'txtNombreIngles.Text = ""
                'cmbOrganismo.Text = ""
                clsVaribles.varProceso = "Agregar"
                txtClave.Focus()
                BtnOk.Enabled = True

                'txtClave.Enabled = True
                txtClave.Visible = False
                txtNombre.Enabled = True
                'Me.txtNombreIngles.Enabled = True
                'Me.cmbOrganismo.Enabled = True
                Me.chkActivo.Enabled = True

            Case "Actualizar"

                'VALIDACION DE CAMPOS

                'If txtClave.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                'If txtNombre.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Nombre del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                ''pnlBotones.Visible = False

                'strSQLComodin = "UPDATE PAIS SET Id_Pais  = " & TXTNumero.Text & " ,Id_Organismo = " & Me.cmbOrganismo.SelectedIndex & ""
                'strSQLComodin = strSQLComodin & ",Nombre = '" & txtNombre.Text & "',NombreUs = '" & txtNombreIngles.Text & "',Activo = " & Me.chkActivo.CheckState
                'strSQLComodin = strSQLComodin & " where ID_PAIS = " & TXTNumero.Text

                'classcom.sbInserta(strSQLComodin)

                ''AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                ''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
                'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 39, My.Computer.Name, "Minds Cliente", "Cambio de Pais CLAVE = " & TXTNumero.Text & " NOMBRE = " & txtNombre.Text)
                ''FIN AUDITORIA

                'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

                'C1TrueDBGrid1.DataSource = Nothing

                'clCmp.fdtDataSetTabla("spGridPais 0")
                'Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid

                'sbIniciaForma()

                clsVaribles.varProceso = "Actualizar"

                txtClave.Enabled = False
                'txtClave.Visible = False
                txtNombre.Enabled = True
                'Me.txtNombreIngles.Enabled = True
                'Me.cmbOrganismo.Enabled = True
                Me.chkActivo.Enabled = True


                BtnOk.Enabled = True

            Case "Desactivar"

                'If TXTNumero.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                'pnlBotones.Visible = False

                'strSQLComodin = "UPDATE pais SET ACTIVO = 0 where id_pais = " & TXTNumero.Text
                'classcom.sbInserta(strSQLComodin)

                ''AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                ''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
                'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 38, My.Computer.Name, "Minds Cliente", "Baja de Pais CLAVE = " & TXTNumero.Text & " NOMBRE = " & txtNombre.Text)
                ''FIN AUDITORIA

                'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

                clsVaribles.varProceso = "Eliminar"

                txtClave.Enabled = False
                txtNombre.Enabled = False
                'Me.txtNombreIngles.Enabled = False
                'Me.cmbOrganismo.Enabled = False
                'Me.chkActivo.Enabled = False

                BtnOk.Enabled = True

            Case "Salir"
                Me.Close()
        End Select

    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim classcom As New clsComplejo
        Dim strSQLComodin As String

        Dim ClassAud As New ClassMyUtils
        Dim varUser As Long
        Dim ClassComodin As New clsComplejo

        Select Case UCase(clsVaribles.varProceso)

            Case Is = "AGREGAR"

                txtClave.Enabled = True

                'VALIDACION DE CAMPOS

                'If txtClave.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                strSQLComodin = "SELECT idproducto FROM cat_producto WHERE producto = '" & txtNombre.Text & "'"

                If classcom.BuscaDatos(strSQLComodin) Then
                    MessageBox.Show("Este Nombre de Producto ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                strSQLComodin = "INSERT INTO  cat_producto (producto,Activo) VALUES ("
                strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "'," & Me.chkActivo.CheckState & ")"

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 92, 1, " | Valores Nuevos: producto: " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState)
                'FIN AUDITORIA

                MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)


            Case Is = "ACTUALIZAR"

                'VALIDACION DE CAMPOS

                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Numero del Producto ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre del Producto ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If
                clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 14," & txtClave.Text)

                'pnlBotones.Visible = False

                strSQLComodin = "UPDATE cat_producto SET "
                strSQLComodin = strSQLComodin & " producto = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState
                strSQLComodin = strSQLComodin & " where idproducto = " & txtClave.Text

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 93, 1, clsVaribles.lsValAnt & " | Valores Nuevos: producto: " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState)
                'FIN AUDITORIA

                MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

                classcom = New clsComplejo
                'classcom.fdtDataSetTabla("spGridPais 0")
                'Me.GridMaster.SetDataBinding(classcom.ds, "Tabla") 'Llena el grid

                'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Case Is = "ELIMINAR"

                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Numero  del Producto  ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'pnlBotones.Visible = False

                strSQLComodin = "UPDATE cat_producto SET ACTIVO = 0 where idproducto = " & txtClave.Text
                classcom.sbInserta(strSQLComodin)

                ''AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                ''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 93, 1, txtNombre.Text)

                '                ClassAud.RT_Auditoria(clsVaribles.varUsuario, 94, My.Computer.Name, "Minds Cliente", "Baja de Producto CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                ''FIN AUDITORIA

                MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Select

        BtnOk.Enabled = False


        Dim SQL As String
        Dim CLASSCATALOGOS As New ClassCatalogos

        GridMaster.DataSource = Nothing
        SQL = "SELECT idproducto CLAVE,producto NOMBRE,ACTIVO FROM cat_producto ORDER BY producto"
        CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)

        CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais)

    End Sub

    Private Sub BtnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click

        If clsVaribles.lbDemo = True Then Exit Sub

        'pnlBotones.Visible = True

        txtClave.Enabled = True
        txtClave.ReadOnly = True
        txtClave.Text = ""
        txtNombre.Text = ""
        'txtNombreIngles.Text = ""
        'cmbOrganismo.Text = ""
        clsVaribles.varProceso = "Agregar"
        'txtClave.Focus()
        BtnOk.Enabled = True

        'txtClave.Enabled = True
        'txtClave.Visible = False
        txtNombre.Enabled = True
        'Me.txtNombreIngles.Enabled = True
        'Me.cmbOrganismo.Enabled = True
        Me.chkActivo.Enabled = True

        BtnEditar.Enabled = False

        chkActivo.Checked = False
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        txtNombre.Focus()

    End Sub

    Private Sub BtnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEditar.Click

        If clsVaribles.lbDemo = True Then Exit Sub

        clsVaribles.varProceso = "Actualizar"

        txtClave.Enabled = False
        'txtClave.Visible = False
        txtNombre.Enabled = True
        'Me.txtNombreIngles.Enabled = True
        'Me.cmbOrganismo.Enabled = True
        Me.chkActivo.Enabled = True


        BtnOk.Enabled = True

        BtnEditar.Enabled = False
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        txtNombre.Focus()

    End Sub

    Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click

        If clsVaribles.lbDemo = True Then Exit Sub

        Dim classcom As New clsComplejo
        Dim strSQLComodin As String

        Dim ClassAud As New ClassMyUtils
        Dim varUser As Long
        Dim ClassComodin As New clsComplejo

        Select Case UCase(clsVaribles.varProceso)

            Case Is = "AGREGAR"

                txtClave.Enabled = True

                'VALIDACION DE CAMPOS

                'If txtClave.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    txtNombre.Focus()
                    Exit Sub
                End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                strSQLComodin = "SELECT idproducto FROM cat_producto WHERE producto = '" & txtNombre.Text & "'"

                If classcom.BuscaDatos(strSQLComodin) Then
                    MessageBox.Show("Este Nombre de Producto ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                strSQLComodin = "INSERT INTO  cat_producto (producto,Activo,Alias) VALUES ("
                strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "'," & Me.chkActivo.CheckState & ",'" & txtNombre.Text & "')"

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA

                'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 92, 1, " | Valores Nuevos: producto: " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState)

                '                ClassAud.RT_Auditoria(clsVaribles.varUsuario, 92, My.Computer.Name, "Minds Cliente", "ALTA DE PRODUCTO CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                'FIN AUDITORIA

                MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)


            Case Is = "ACTUALIZAR"

                'VALIDACION DE CAMPOS

                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Seleccionar el Producto que desea modificar. ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre del Producto ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    txtNombre.Focus()
                    Exit Sub
                End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If
                'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 14," & txtClave.Text)
                'pnlBotones.Visible = False

                strSQLComodin = "UPDATE cat_producto SET "
                strSQLComodin = strSQLComodin & " producto = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState & ",alias='" & txtNombre.Text & "'"
                strSQLComodin = strSQLComodin & " where idproducto = " & txtClave.Text

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 93, 1, clsVaribles.lsValAnt & " | Valores Nuevos: producto: " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState)
                'FIN AUDITORIA

                MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

                classcom = New clsComplejo
                'classcom.fdtDataSetTabla("spGridPais 0")
                'Me.GridMaster.SetDataBinding(classcom.ds, "Tabla") 'Llena el grid

                'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Case Is = "ELIMINAR"

                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Numero  del Producto  ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'pnlBotones.Visible = False

                strSQLComodin = "UPDATE cat_producto SET ACTIVO = 0 where idproducto = " & txtClave.Text
                classcom.sbInserta(strSQLComodin)

                ''AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                ''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 93, 1, txtNombre.Text)

                '                ClassAud.RT_Auditoria(clsVaribles.varUsuario, 94, My.Computer.Name, "Minds Cliente", "Baja de Producto CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                ''FIN AUDITORIA

                MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Select

        BtnOk.Enabled = False


        Dim SQL As String
        Dim CLASSCATALOGOS As New ClassCatalogos

        GridMaster.DataSource = Nothing
        'SQL = "SELECT idproducto CLAVE,producto NOMBRE,ACTIVO FROM cat_producto ORDER BY producto"
        SQL = "sp_ConsultarProducto 0,NULL"
        CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)

        CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais)
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        txtNombre.Enabled = False


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
        'Recupero Datos del gird
        Me.txtClave.Text = Me.GridMaster.Columns("CLAVE").Value
        Me.txtNombre.Text = Me.GridMaster.Columns("Nombre").Value
        'Me.txtNombreIngles.Text = Me.GridMaster.Columns("NOMBREUS").Value
        'Me.cmbOrganismo.ValueMember = Me.C1TrueDBGrid1.Columns("Id_Organismo").Text
        'Me.cmbOrganismo.SelectedValue = Me.GridMaster.Columns("Organismo").Value
        Me.chkActivo.Checked = Me.GridMaster.Columns("ACTIVO").Value
        'Hago una consulta ala base de datos para recuperar la clasificacion del pais

        txtClave.Visible = True
        txtClave.Enabled = False
        txtNombre.Enabled = False
        'Me.txtNombreIngles.Enabled = False
        'Me.cmbOrganismo.Enabled = False

        chkActivo.Enabled = False

        Dim SQL As String = ""

        'SQL = fsDefineSQL("spGridPaisClasificacion ")
        'clCmp1.fdtDataSetTabla(SQL)

        txtClave.Enabled = False

        'pnlBotones.Visible = False

        BtnEditar.Enabled = True
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)

    End Sub

End Class