client/Actualizadores/Form1.vb

252 lines
9.6 KiB
VB.net

Public Class frmCatalogos
Dim blnuevo As Boolean = True
Dim blcarga As Boolean = True
Private Sub Form1_Load(sender As System.Object, 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
If clsVaribles.lbDemo = True Then Exit Sub
PnPais.Visible = False
Me.PnPais.Visible = True
Classcom = New clsComplejo
'LLENA GRID
SQL = "spCargaCatalogo"
Classcom.sbLlenaCombo(SQL, Me.CMBGrupo)
Me.CMBGrupo.SelectedIndex = -1
blcarga = False
End Sub
Private Sub llenagrid()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
PnPais.Visible = False
If blcarga = True Then Exit Sub
Me.PnPais.Visible = True
If Me.CMBGrupo.Text <> "" Then
'LLENA GRID
SQL = " spConcatalogo " & Me.CMBGrupo.SelectedValue
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
If Me.CMBGrupo.SelectedValue = 14 Then
txtClave.Enabled = True
txtClave.ReadOnly = False
Else
txtClave.Enabled = False
txtClave.ReadOnly = True
End If
End If
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub CMBGrupo_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMBGrupo.SelectedValueChanged
LlenaGrid()
blnuevo = True
Me.Text = "Mantenimiento Catalogo de " & CMBGrupo.Text
End Sub
Private Sub limpiar()
txtClave.Text = ""
cboParamRango.SelectedIndex = -1
txtValor.Text = ""
blnuevo = False
llenagrid()
End Sub
Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
If clsVaribles.lbDemo = True Then Exit Sub
Dim Classcom As New clsComplejo
'0 Dim sql As String
'Recupero Datos del gird
Dim SQL As String = ""
Dim Fila As DataRow
' Dim Clsvar As clsVaribles
Try
SQL = "spConcatalogoOpcion " & CMBGrupo.SelectedValue & "," & Me.GridMaster.Columns("id").Value
Classcom = New clsComplejo
Classcom.fdtDataSet(SQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = Classcom.ds.Tables(0).Rows(0)
Me.txtValor.Text = Fila("descripcion").ToString
txtClave.Text = Fila("id")
If CMBGrupo.SelectedValue = 1 Or CMBGrupo.SelectedValue = 2 Then
chkActivo.Visible = False
Else
chkActivo.Visible = True
chkActivo.Enabled = True
chkActivo.Checked = Fila("Estatus")
End If
blnuevo = True
End If
txtValor.Enabled = True
cboParamRango.Enabled = True
If Me.CMBGrupo.SelectedValue = 14 Then
txtClave.Enabled = True
txtClave.ReadOnly = False
Else
txtClave.Enabled = False
txtClave.ReadOnly = True
End If
'--txtClave.Enabled = False
Me.txtValor.Focus()
Catch ex As Exception
MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim liclave As Integer
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
txtClave.Enabled = True
'VALIDACION DE CAMPOS
Try
'If cboParamRango.Text = "" Or cboParamRango.SelectedIndex = -1 Then
' MessageBox.Show("Es Necesario Introducir el Nombre o Descripcion", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Exit Sub
'End If
If txtValor.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Valor y/o Descripcion para el catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtValor.Focus()
Exit Sub
End If
If Me.CMBGrupo.SelectedValue = 14 Then
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Valor de la clave para el catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtClave.Focus()
Exit Sub
Else
liclave = Val(txtClave.Text)
End If
Else
If txtClave.Text = "" Then
liclave = 999999
Else
liclave = Val(txtClave.Text)
End If
End If
strSQLComodin = "spGrabaCatalogos 'A' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & Math.Abs(CInt(Me.chkActivo.Checked)) & "," & clsVaribles.varUsuario & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"
'Else
' strSQLComodin = "spParametroGrupo " & Me.CMBGrupo.SelectedValue & " ," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',3"
'End If
classcom = New clsComplejo
classcom.sbInserta(strSQLComodin)
blnuevo = True
limpiar()
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
limpiar()
End Sub
Private Sub BtnBorrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnBorrar.Click
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim liclave As Integer
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
txtClave.Enabled = True
'VALIDACION DE CAMPOS
Try
If blnuevo = False Then
MessageBox.Show("Es necesario seleccionar un registro", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
If txtClave.Text = "" Then
liclave = 99999
Else
liclave = Val(txtClave.Text)
End If
' strSQLComodin = "spGrabaCatalogos 'E' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & chkActivo.Checked & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"
strSQLComodin = "spGrabaCatalogos 'E' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & chkActivo.Checked & "," & clsVaribles.varUsuario & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"
' strSQLComodin = "spGrabaCatalogos " & Me.CMBGrupo.SelectedValue & " ,'E'," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',2"
classcom = New clsComplejo
classcom.sbInserta(strSQLComodin)
blnuevo = False
limpiar()
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnImprimir_Click(sender As System.Object, e As System.EventArgs) Handles BtnImprimir.Click
End Sub
Private Sub CMBGrupo_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CMBGrupo.SelectedIndexChanged
limpiar()
End Sub
Private Sub GridMaster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub txtClave_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClave.TextChanged
End Sub
End Class