Public Class FrmAgentes Private lsComando As String Dim blnuevo As Boolean = True Friend WithEvents txtcompra As System.Windows.Forms.TextBox Dim blcarga As Boolean = True Dim clase As New ValidaTexto Dim clsfecha As New clsComplejo Private Sub LIMPIAR() Me.txtNombre.Text = "" Me.txtid.Text = "" Me.txtLinea.Text = "" cmbAplicativo.SelectedIndex = -1 cmbAplicativo.SelectedIndex = -1 cmbAgencia.SelectedIndex = -1 cmbAgencia.SelectedIndex = -1 cmbOficina.SelectedIndex = -1 cmbOficina.SelectedIndex = -1 End Sub Private Sub Habilita(ByVal Bandera As Boolean) If clsVaribles.lbDemo = True Then Exit Sub Me.txtcompra.Enabled = Bandera Me.txtid.Enabled = Bandera Me.txtLinea.Enabled = Bandera End Sub Private Sub llenagrid() Dim Classcom As New clsComplejo Dim ClassCatalogos As New ClassCatalogos Dim SQL As String Dim FILA As DataRow Try 'LLENA GRID SQL = " spConAgente 0" ClassCatalogos.LlenaGrid(SQL, Me.GridMaster) Catch ex As Exception MessageBox.Show("Error al cargar llenar Grid" & 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 Btnbaja_Click(sender As System.Object, e As System.EventArgs) Handles Btnbaja.Click Dim strSQLComodin As String Dim ClassAud As New ClassMyUtils Dim varUser As Long Dim ClassComodin As New clsComplejo If clsVaribles.lbDemo = True Then Exit Sub clsfecha = New clsComplejo 'VALIDACION DE CAMPOS Try If txtid.Text = "" Then MessageBox.Show("Es Necesario seleccionar el tipo de Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If MsgBox("¿Desea Eliminar el registro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 16," & txtid.Text) strSQLComodin = "spGrabaAgentes 'E'," & txtid.Text ClassComodin = New clsComplejo ClassComodin.sbInserta(strSQLComodin) blnuevo = False LIMPIAR() 'auditoria ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, clsVaribles.lsValAnt) 'FIN AUDITORIA llenagrid() ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie) 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 BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click Dim strSQLComodin As String Dim liId As Integer Dim ClassAud As New ClassMyUtils Dim varUser As Long Dim ClassComodin As New clsComplejo If clsVaribles.lbDemo = True Then Exit Sub 'VALIDACION DE CAMPOS Try 'If cmbAplicativo.SelectedIndex = -1 Then ' MsgBox("Aplicativo no válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente") ' Exit Sub 'End If If Len(txtNombre.Text) = 0 Then MsgBox("El Nombre no puede ser un campo sin valor", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente") Exit Sub End If If Len(txtid.Text) = 0 Then liId = 9999999 Else liId = txtid.Text End If If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub Dim liAud As Integer clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 16," & liId) If Len(Trim(clsVaribles.lsValAnt)) = 0 Then liAud = 2 Else liAud = 4 End If strSQLComodin = "spGrabaAgentes 'A'," & liId & " ,'" & IIf(cmbAgencia.SelectedIndex = -1, "", cmbAgencia.SelectedValue) & "'" strSQLComodin = strSQLComodin & ",'" & IIf(cmbOficina.SelectedIndex = -1, "", cmbOficina.SelectedValue) & "'" strSQLComodin = strSQLComodin & ",'" & txtLinea.Text & "'," & IIf(cmbAplicativo.SelectedIndex = -1, "''", cmbAplicativo.SelectedValue) & ",'" & txtNombre.Text & "'" ClassComodin = New clsComplejo ClassComodin.sbInserta(strSQLComodin) ClassAud.RT_Auditoria(clsVaribles.varUsuario, liAud, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdAgente = " & txtid.Text & " Descripcion = " & txtNombre.Text _ & ", Direccion Agencia: " & cmbAgencia.Text & ", Oficina: " & cmbOficina.Text & ", Aplicativo GNP: " & cmbAplicativo.Text & ", Linea de Negocio: " & txtLinea.Text) 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() ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie) 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 GridMaster_DoubleClick(sender As System.Object, 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 = "spConAgente 3,'" & 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.txtLinea.Text = Fila("lineadenegocio").ToString Me.txtid.Text = Fila("IdFuncionario").ToString Me.txtNombre.Text = Fila("descripcion").ToString 'cmbAplicativo.SelectedValue = Fila("IdAplicativoGNP") 'cmbAgencia.SelectedValue = Fila("IdDirAgencia") 'cmbOficina.SelectedValue = Fila("IdOficina") End If ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie) Catch ex As Exception MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning) 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() Dim ClassCatalogos As New ClassCatalogos ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie) End Sub Private Sub FrmAgentes_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 Try llenagrid() DesHeader.Text = Me.Text 'SQL = "spConAplicativo " 'Classcom.sbLlenaCombo(SQL, cmbAplicativo) 'Classcom = New clsComplejo 'SQL = "spConDireccionAgenciaC " 'Classcom.sbLlenaCombo(SQL, cmbAgencia) 'Classcom = New clsComplejo 'SQL = "spConOficinasC " 'Classcom.sbLlenaCombo(SQL, cmbOficina) ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie) Catch ex As Exception MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub End Class