539 lines
23 KiB
VB.net
539 lines
23 KiB
VB.net
|
Imports Microsoft.VisualBasic
|
|||
|
|
Imports CLIENTE.clsComplejo 'permite conectarme a la base de datos y establer parametros
|
|||
|
|
Imports System.Data.SqlClient 'para manejar objetos de datos SQL
|
|||
|
|
Imports CLIENTE.Registro 'clase que me permite encriptar el password
|
|||
|
|
Imports System.Data 'Para manejar objetos de estructuras de datos
|
|||
|
|
Imports CLIENTE.clBusqueda 'para realizar busqueda en un registro
|
|||
|
|
Imports CLIENTE.clOcultarColumna 'Permite ocultar columnas
|
|||
|
|
Imports CLIENTE.ValidaTexto 'Permite validad las cajas de texto o combox
|
|||
|
|
Public Class RazonAct
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
|
|||
|
|
|
|||
|
|
#Region " Windows Form Designer generated code "
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New()
|
|||
|
|
|
|||
|
|
'This call is required by the Windows Form Designer.
|
|||
|
|
InitializeComponent()
|
|||
|
|
|
|||
|
|
'Add any initialization after the InitializeComponent() call
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Form overrides dispose to clean up the component list.
|
|||
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|||
|
|
If disposing Then
|
|||
|
|
If Not (components Is Nothing) Then
|
|||
|
|
components.Dispose()
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
MyBase.Dispose(disposing)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Required by the Windows Form Designer
|
|||
|
|
Private components As System.ComponentModel.IContainer
|
|||
|
|
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
|||
|
|
Friend WithEvents PnPais As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
|
|||
|
|
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtClave As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|||
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents BntSalie As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents BtnAlta As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents BtnBorrar As System.Windows.Forms.Button
|
|||
|
|
|
|||
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
|||
|
|
'It can be modified using the Windows Form Designer.
|
|||
|
|
'Do not modify it using the code editor.
|
|||
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|||
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|||
|
|
Me.components = New System.ComponentModel.Container()
|
|||
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RazonAct))
|
|||
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|||
|
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
|||
|
|
Me.PnPais = New System.Windows.Forms.Panel()
|
|||
|
|
Me.chkActivo = New System.Windows.Forms.CheckBox()
|
|||
|
|
Me.txtNombre = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.txtClave = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|||
|
|
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|||
|
|
Me.Button1 = New System.Windows.Forms.Button()
|
|||
|
|
Me.BntSalie = New System.Windows.Forms.Button()
|
|||
|
|
Me.BtnAlta = New System.Windows.Forms.Button()
|
|||
|
|
Me.BtnLimpiar = New System.Windows.Forms.Button()
|
|||
|
|
Me.BtnBorrar = New System.Windows.Forms.Button()
|
|||
|
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.PnPais.SuspendLayout()
|
|||
|
|
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.SuspendLayout()
|
|||
|
|
'
|
|||
|
|
'ImageList1
|
|||
|
|
'
|
|||
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|||
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
|
|||
|
|
Me.ImageList1.Images.SetKeyName(0, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(1, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(2, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(3, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(4, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(5, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(6, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(7, "")
|
|||
|
|
'
|
|||
|
|
'PictureBox1
|
|||
|
|
'
|
|||
|
|
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
|||
|
|
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
|
|||
|
|
Me.PictureBox1.Image = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
|
|||
|
|
Me.PictureBox1.Location = New System.Drawing.Point(-2, 4)
|
|||
|
|
Me.PictureBox1.Name = "PictureBox1"
|
|||
|
|
Me.PictureBox1.Size = New System.Drawing.Size(142, 43)
|
|||
|
|
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
|||
|
|
Me.PictureBox1.TabIndex = 94
|
|||
|
|
Me.PictureBox1.TabStop = False
|
|||
|
|
'
|
|||
|
|
'PnPais
|
|||
|
|
'
|
|||
|
|
Me.PnPais.Controls.Add(Me.chkActivo)
|
|||
|
|
Me.PnPais.Controls.Add(Me.txtNombre)
|
|||
|
|
Me.PnPais.Controls.Add(Me.txtClave)
|
|||
|
|
Me.PnPais.Controls.Add(Me.Label2)
|
|||
|
|
Me.PnPais.Controls.Add(Me.Label1)
|
|||
|
|
Me.PnPais.Location = New System.Drawing.Point(3, 196)
|
|||
|
|
Me.PnPais.Name = "PnPais"
|
|||
|
|
Me.PnPais.Size = New System.Drawing.Size(725, 101)
|
|||
|
|
Me.PnPais.TabIndex = 89
|
|||
|
|
'
|
|||
|
|
'chkActivo
|
|||
|
|
'
|
|||
|
|
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.chkActivo.ForeColor = System.Drawing.Color.Red
|
|||
|
|
Me.chkActivo.Location = New System.Drawing.Point(17, 71)
|
|||
|
|
Me.chkActivo.Name = "chkActivo"
|
|||
|
|
Me.chkActivo.Size = New System.Drawing.Size(72, 21)
|
|||
|
|
Me.chkActivo.TabIndex = 5
|
|||
|
|
Me.chkActivo.Text = "Activo:"
|
|||
|
|
'
|
|||
|
|
'txtNombre
|
|||
|
|
'
|
|||
|
|
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtNombre.Location = New System.Drawing.Point(110, 46)
|
|||
|
|
Me.txtNombre.MaxLength = 1000
|
|||
|
|
Me.txtNombre.Name = "txtNombre"
|
|||
|
|
Me.txtNombre.Size = New System.Drawing.Size(478, 20)
|
|||
|
|
Me.txtNombre.TabIndex = 2
|
|||
|
|
'
|
|||
|
|
'txtClave
|
|||
|
|
'
|
|||
|
|
Me.txtClave.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtClave.Location = New System.Drawing.Point(110, 14)
|
|||
|
|
Me.txtClave.Name = "txtClave"
|
|||
|
|
Me.txtClave.ReadOnly = True
|
|||
|
|
Me.txtClave.Size = New System.Drawing.Size(56, 20)
|
|||
|
|
Me.txtClave.TabIndex = 1
|
|||
|
|
'
|
|||
|
|
'Label2
|
|||
|
|
'
|
|||
|
|
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label2.Location = New System.Drawing.Point(16, 46)
|
|||
|
|
Me.Label2.Name = "Label2"
|
|||
|
|
Me.Label2.Size = New System.Drawing.Size(63, 16)
|
|||
|
|
Me.Label2.TabIndex = 36
|
|||
|
|
Me.Label2.Text = "Nombre:"
|
|||
|
|
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
'
|
|||
|
|
'Label1
|
|||
|
|
'
|
|||
|
|
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label1.Location = New System.Drawing.Point(15, 15)
|
|||
|
|
Me.Label1.Name = "Label1"
|
|||
|
|
Me.Label1.Size = New System.Drawing.Size(64, 16)
|
|||
|
|
Me.Label1.TabIndex = 35
|
|||
|
|
Me.Label1.Text = "Clave Pa<50>s:"
|
|||
|
|
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
'
|
|||
|
|
'GridMaster
|
|||
|
|
'
|
|||
|
|
Me.GridMaster.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|||
|
|
Me.GridMaster.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
|||
|
|
Me.GridMaster.GroupByCaption = "AGRUPAR"
|
|||
|
|
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
|
|||
|
|
Me.GridMaster.Location = New System.Drawing.Point(3, 52)
|
|||
|
|
Me.GridMaster.Name = "GridMaster"
|
|||
|
|
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|||
|
|
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
|
|||
|
|
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|||
|
|
Me.GridMaster.Size = New System.Drawing.Size(727, 136)
|
|||
|
|
Me.GridMaster.TabIndex = 88
|
|||
|
|
Me.GridMaster.Text = "C1TrueDBGrid1"
|
|||
|
|
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
|
|||
|
|
'
|
|||
|
|
'Button1
|
|||
|
|
'
|
|||
|
|
Me.Button1.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
|
|||
|
|
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Button1.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.Button1.Image = Global.CLIENTE.My.Resources.Resources.botonPrint
|
|||
|
|
Me.Button1.Location = New System.Drawing.Point(736, 189)
|
|||
|
|
Me.Button1.Name = "Button1"
|
|||
|
|
Me.Button1.Size = New System.Drawing.Size(106, 33)
|
|||
|
|
Me.Button1.TabIndex = 113
|
|||
|
|
Me.Button1.Text = "Exportar"
|
|||
|
|
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.Button1.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'BntSalie
|
|||
|
|
'
|
|||
|
|
Me.BntSalie.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
|
|||
|
|
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.BntSalie.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.BntSalie.Image = CType(resources.GetObject("BntSalie.Image"), System.Drawing.Image)
|
|||
|
|
Me.BntSalie.Location = New System.Drawing.Point(736, 264)
|
|||
|
|
Me.BntSalie.Name = "BntSalie"
|
|||
|
|
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
|
|||
|
|
Me.BntSalie.TabIndex = 112
|
|||
|
|
Me.BntSalie.Text = "Cerrar"
|
|||
|
|
Me.BntSalie.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.BntSalie.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'BtnAlta
|
|||
|
|
'
|
|||
|
|
Me.BtnAlta.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
|
|||
|
|
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.BtnAlta.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.BtnAlta.Image = CType(resources.GetObject("BtnAlta.Image"), System.Drawing.Image)
|
|||
|
|
Me.BtnAlta.Location = New System.Drawing.Point(736, 115)
|
|||
|
|
Me.BtnAlta.Name = "BtnAlta"
|
|||
|
|
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
|
|||
|
|
Me.BtnAlta.TabIndex = 111
|
|||
|
|
Me.BtnAlta.Text = "Grabar"
|
|||
|
|
Me.BtnAlta.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.BtnAlta.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'BtnLimpiar
|
|||
|
|
'
|
|||
|
|
Me.BtnLimpiar.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
|
|||
|
|
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.BtnLimpiar.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.BtnLimpiar.Image = CType(resources.GetObject("BtnLimpiar.Image"), System.Drawing.Image)
|
|||
|
|
Me.BtnLimpiar.Location = New System.Drawing.Point(736, 225)
|
|||
|
|
Me.BtnLimpiar.Name = "BtnLimpiar"
|
|||
|
|
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
|
|||
|
|
Me.BtnLimpiar.TabIndex = 110
|
|||
|
|
Me.BtnLimpiar.Text = "Limpiar"
|
|||
|
|
Me.BtnLimpiar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.BtnLimpiar.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'BtnBorrar
|
|||
|
|
'
|
|||
|
|
Me.BtnBorrar.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.BtnBorrar.Cursor = System.Windows.Forms.Cursors.Hand
|
|||
|
|
Me.BtnBorrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.BtnBorrar.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.BtnBorrar.Image = Global.CLIENTE.My.Resources.Resources.botonErase
|
|||
|
|
Me.BtnBorrar.Location = New System.Drawing.Point(736, 152)
|
|||
|
|
Me.BtnBorrar.Name = "BtnBorrar"
|
|||
|
|
Me.BtnBorrar.Size = New System.Drawing.Size(106, 33)
|
|||
|
|
Me.BtnBorrar.TabIndex = 114
|
|||
|
|
Me.BtnBorrar.Text = "Borrar"
|
|||
|
|
Me.BtnBorrar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.BtnBorrar.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'RazonAct
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
|||
|
|
Me.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(850, 316)
|
|||
|
|
Me.Controls.Add(Me.BtnBorrar)
|
|||
|
|
Me.Controls.Add(Me.Button1)
|
|||
|
|
Me.Controls.Add(Me.BntSalie)
|
|||
|
|
Me.Controls.Add(Me.BtnAlta)
|
|||
|
|
Me.Controls.Add(Me.BtnLimpiar)
|
|||
|
|
Me.Controls.Add(Me.PictureBox1)
|
|||
|
|
Me.Controls.Add(Me.PnPais)
|
|||
|
|
Me.Controls.Add(Me.GridMaster)
|
|||
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
|||
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|||
|
|
Me.MaximizeBox = False
|
|||
|
|
Me.Name = "RazonAct"
|
|||
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|||
|
|
Me.Text = "Razones"
|
|||
|
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.PnPais.ResumeLayout(False)
|
|||
|
|
Me.PnPais.PerformLayout()
|
|||
|
|
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.ResumeLayout(False)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
Dim clCmp As clsComplejo = New clsComplejo
|
|||
|
|
Dim Bandera As Boolean 'True es una modificacion, False Inserta un elemento nuevo
|
|||
|
|
Dim Accion As Integer = 0 '1 Inserta, 2 Actualiza, 3 Elimina
|
|||
|
|
Dim Guardar As Boolean
|
|||
|
|
Dim Nuevo As Boolean
|
|||
|
|
|
|||
|
|
Dim desh As New clsDeshabilita()
|
|||
|
|
Dim dap As SqlDataAdapter = New SqlClient.SqlDataAdapter
|
|||
|
|
Dim cmd As SqlCommand
|
|||
|
|
Dim das As DataSet
|
|||
|
|
Dim cnn As SqlConnection
|
|||
|
|
Dim _Accion As String
|
|||
|
|
Dim clcmj1 As New clsComplejo
|
|||
|
|
Dim clsvariables As New clsVaribles
|
|||
|
|
Dim blnuevo As Boolean = True
|
|||
|
|
Dim blcarga As Boolean = True
|
|||
|
|
Dim sql As String
|
|||
|
|
Dim liClave As Integer
|
|||
|
|
|
|||
|
|
Private Sub llenagrid1()
|
|||
|
|
Dim SQLGRID As String = ""
|
|||
|
|
Try
|
|||
|
|
|
|||
|
|
clcmj1 = New clsComplejo
|
|||
|
|
SQLGRID = "spConRazon "
|
|||
|
|
|
|||
|
|
clcmj1.fdtDataSetTabla(SQLGRID)
|
|||
|
|
GridMaster.SetDataBinding(clcmj1.ds, "Tabla") 'Llena el grid
|
|||
|
|
ConfiguraGrid()
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show("Error al cargar usuarios " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
'Finally
|
|||
|
|
' cnn.Close()
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Private Sub RazonAct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
Dim SQLGrid As String
|
|||
|
|
Dim ds1 As DataSet
|
|||
|
|
Dim OcultarCol As clOcultarColumna = New clOcultarColumna()
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
|
|||
|
|
llenagrid1()
|
|||
|
|
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show("Error Busqueda; sbBuscas: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ConfiguraGrid()
|
|||
|
|
'Configura el grid
|
|||
|
|
Try
|
|||
|
|
Me.GridMaster.Splits(0).DisplayColumns("Razon").Width = 530
|
|||
|
|
Me.GridMaster.Splits(0).DisplayColumns("Activo").Width = 70
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show("Error RazonAct; ConfiguraGrid: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Limpiar()
|
|||
|
|
Try
|
|||
|
|
txtNombre.Text = ""
|
|||
|
|
txtClave.Text = ""
|
|||
|
|
chkActivo.Checked = False
|
|||
|
|
liClave = 0
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show("Error RazonAct; Limpiar: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub GridMaster_DoubleClick(sender As Object, e As System.EventArgs) Handles GridMaster.DoubleClick
|
|||
|
|
Dim SQLBenef As String
|
|||
|
|
Dim Fila As DataRow
|
|||
|
|
Dim Classcom As New clsComplejo
|
|||
|
|
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
liClave = Val(Me.GridMaster.Columns("id").Value)
|
|||
|
|
SQLBenef = "spConRazon 3," & liClave
|
|||
|
|
Classcom.fdtDataSet(SQLBenef)
|
|||
|
|
|
|||
|
|
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
|||
|
|
'LLENA COMBOS
|
|||
|
|
Fila = Classcom.ds.Tables(0).Rows(0)
|
|||
|
|
txtNombre.Text = Fila("Razon")
|
|||
|
|
txtClave.Text = Fila("id")
|
|||
|
|
|
|||
|
|
chkActivo.Checked = Fila("ACTIVO")
|
|||
|
|
chkActivo.Tag = Fila("ACTIVO")
|
|||
|
|
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
Catch ex As System.ArgumentOutOfRangeException
|
|||
|
|
MessageBox.Show("No existe Informacion", "MINDS Cliente", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|||
|
|
|
|||
|
|
Catch ex As System.IndexOutOfRangeException
|
|||
|
|
MessageBox.Show("No existe Informacion", "MINDS Cliente", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|||
|
|
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show("Error Busqueda; grdUsuario_DoubleClick: " & ex.Message, "MINDS Cliente", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
Exit Sub
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
|
|||
|
|
|
|||
|
|
Dim ClassAud As New ClassMyUtils
|
|||
|
|
Dim lssql As String
|
|||
|
|
Dim liactivo As Integer
|
|||
|
|
Try
|
|||
|
|
|
|||
|
|
If Len(Me.txtNombre.Text.Trim) = 0 Then
|
|||
|
|
MsgBox("Nombre no v<>lido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
|
|||
|
|
Me.txtNombre.Focus()
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If MsgBox("<EFBFBD>Desea guardar la Razon?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
|
|||
|
|
liactivo = chkActivo.CheckState
|
|||
|
|
|
|||
|
|
Dim liAud As Integer
|
|||
|
|
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 5," & Val(Me.txtClave.Text))
|
|||
|
|
If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
|
|||
|
|
liAud = 2
|
|||
|
|
Else
|
|||
|
|
liAud = 4
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
lssql = ""
|
|||
|
|
lssql = lssql & "spGrabaRazon "
|
|||
|
|
lssql = lssql & "A" & ", "
|
|||
|
|
lssql = lssql & Val(Me.txtClave.Text) & ", "
|
|||
|
|
lssql = lssql & "'" & Me.txtNombre.Text & "'," & liactivo
|
|||
|
|
clCmp.sbGuardaModifica(lssql)
|
|||
|
|
llenagrid1()
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 117, 41, clsVaribles.lsValAnt & " | Valores Nuevos: idRazon = " & Val(Me.txtClave.Text) & " Razon = " & Me.txtNombre.Text & ", Activo = " & liactivo)
|
|||
|
|
Limpiar()
|
|||
|
|
liClave = 0
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show("No se pudo dar de alta la Razon", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
liClave = 0
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub BtnBorrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnBorrar.Click
|
|||
|
|
'elimina el rgistro seleccionado
|
|||
|
|
Dim lsopcion As String
|
|||
|
|
Dim ClassAud As New ClassMyUtils
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
Dim lsSQL, lsNombre As String
|
|||
|
|
lsopcion = "E"
|
|||
|
|
If liClave = 0 Then
|
|||
|
|
MessageBox.Show("Debes seleccionar un Registro primero ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
If MessageBox.Show("Desea eliminar la Razon: " & lsNombre, "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
|
|||
|
|
'Formo el query
|
|||
|
|
Dim liAud As Integer
|
|||
|
|
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 5," & Val(Me.txtClave.Text))
|
|||
|
|
|
|||
|
|
liAud = 3
|
|||
|
|
|
|||
|
|
lsSQL = ""
|
|||
|
|
lsSQL = lsSQL & "spGrabaRazon "
|
|||
|
|
lsSQL = lsSQL & lsopcion & ", "
|
|||
|
|
lsSQL = lsSQL & liClave & ",'',0 "
|
|||
|
|
clCmp.sbGuardaModifica(lsSQL)
|
|||
|
|
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 117, 1, "Baja de Razon " & clsVaribles.lsValAnt)
|
|||
|
|
|
|||
|
|
BtnLimpiar.PerformClick()
|
|||
|
|
llenagrid1()
|
|||
|
|
ConfiguraGrid()
|
|||
|
|
liClave = 0
|
|||
|
|
'Me.btnGuardar.Enabled = False
|
|||
|
|
End If
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show("No se pudo dar de baja la Razon ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
liClave = 0
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub BntSalie_Click_1(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
|
|||
|
|
clcmj1 = New clsComplejo
|
|||
|
|
Dim sqlgrid As String
|
|||
|
|
Dim ds As DataSet
|
|||
|
|
ds = New DataSet
|
|||
|
|
sqlgrid = "spConRazon"
|
|||
|
|
clcmj1.fdtDataSetTabla(sqlgrid)
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
If clcmj1.ds.Tables.Count = 0 Then
|
|||
|
|
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
Else
|
|||
|
|
If clcmj1.ds.Tables(0).Rows.Count = 0 Then
|
|||
|
|
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
Else
|
|||
|
|
|
|||
|
|
'Dim clsExcel As aExcel = New aExcel
|
|||
|
|
'clsExcel = New aExcel
|
|||
|
|
''Obtenemos el nombre o el titulo del form
|
|||
|
|
'clsExcel.Titulo = Me.Text
|
|||
|
|
''Utilizo la funcion ExportDataset de la clase aExcel
|
|||
|
|
'clsvariables.LsTituloExcel = "Catalogo Razones"
|
|||
|
|
'clsExcel.ExportDataset(clcmj1.ds) 'Asigno el dataset a exportar
|
|||
|
|
'clsvariables.LsTituloExcel = ""
|
|||
|
|
|
|||
|
|
'Creamos una copia del dataset
|
|||
|
|
Dim copyDS As DataSet = clcmj1.ds.Copy()
|
|||
|
|
Dim clsExcel As aExcel = New aExcel
|
|||
|
|
'Obtenemos el nombre o el titulo del form
|
|||
|
|
clsExcel.Titulo = Me.Text
|
|||
|
|
'Utilizo la funcion ExportDataset de la clase aExcel
|
|||
|
|
''clsVaribles.LsTituloExcel = "Catalogo Razones"
|
|||
|
|
clsExcel.Titulo = "Catalogo Razones"
|
|||
|
|
clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
|
|||
|
|
clsVaribles.LsTituloExcel = ""
|
|||
|
|
|
|||
|
|
|
|||
|
|
'End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Catch ex As Exception
|
|||
|
|
clsvariables.LsTituloExcel = ""
|
|||
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
|
|||
|
|
Limpiar()
|
|||
|
|
End Sub
|
|||
|
|
End Class
|