client/Catalogos/FRMyProducto.vb

513 lines
20 KiB
VB.net
Raw Blame History

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