Public Class ActTipoCambio Inherits System.Windows.Forms.Form Dim clCmp As New clsComplejo() Private ltFecha As String Friend WithEvents BntSalie As System.Windows.Forms.Button Friend WithEvents BtnAlta As System.Windows.Forms.Button Friend WithEvents Btnbaja As System.Windows.Forms.Button Friend WithEvents BtnLimpiar As System.Windows.Forms.Button Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid Private lsComando As String Dim blnuevo As Boolean = True Dim blcarga As Boolean = True Dim clase As New ValidaTexto Private WithEvents panel2 As Panel Private WithEvents Img_logoCabecera As PictureBox Friend WithEvents Label1 As Label Private WithEvents panel3 As Panel Friend WithEvents Label3 As Label Friend WithEvents lblFooter As Label Dim clsfecha As New clsComplejo #Region " Código generado por el Diseñador de Windows Forms " Public Sub New() MyBase.New() 'El Diseñador de Windows Forms requiere esta llamada. InitializeComponent() 'Agregar cualquier inicialización después de la llamada a InitializeComponent() End Sub 'Form reemplaza a Dispose para limpiar la lista de componentes. 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 'Requerido por el Diseñador de Windows Forms Private components As System.ComponentModel.IContainer 'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento 'Puede modificarse utilizando el Diseñador de Windows Forms. 'No lo modifique con el editor de código. Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents grdTiposCambio As AxMSFlexGridLib.AxMSFlexGrid Friend WithEvents cmbMonedas As System.Windows.Forms.ComboBox Friend WithEvents txtBX As System.Windows.Forms.TextBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents dtpFecha As AxMSComCtl2.AxDTPicker Friend WithEvents pnlBotones As System.Windows.Forms.Panel Friend WithEvents btnAceptar As System.Windows.Forms.Button Friend WithEvents btnCancelar As System.Windows.Forms.Button Friend WithEvents txtIdTipoCambio As System.Windows.Forms.TextBox Friend WithEvents dtpfecha1 As System.Windows.Forms.DateTimePicker Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ActTipoCambio)) Me.cmbMonedas = New System.Windows.Forms.ComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.txtBX = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.pnlBotones = New System.Windows.Forms.Panel() Me.btnAceptar = New System.Windows.Forms.Button() Me.btnCancelar = New System.Windows.Forms.Button() Me.txtIdTipoCambio = New System.Windows.Forms.TextBox() Me.dtpfecha1 = New System.Windows.Forms.DateTimePicker() Me.BntSalie = New System.Windows.Forms.Button() Me.BtnAlta = New System.Windows.Forms.Button() Me.Btnbaja = New System.Windows.Forms.Button() Me.BtnLimpiar = New System.Windows.Forms.Button() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.panel2 = New System.Windows.Forms.Panel() Me.Img_logoCabecera = New System.Windows.Forms.PictureBox() Me.Label1 = New System.Windows.Forms.Label() Me.panel3 = New System.Windows.Forms.Panel() Me.Label3 = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label() Me.pnlBotones.SuspendLayout() Me.GroupBox1.SuspendLayout() CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit() Me.panel2.SuspendLayout() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() Me.panel3.SuspendLayout() Me.SuspendLayout() ' 'cmbMonedas ' Me.cmbMonedas.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmbMonedas.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbMonedas.Enabled = False Me.cmbMonedas.Location = New System.Drawing.Point(179, 57) Me.cmbMonedas.Name = "cmbMonedas" Me.cmbMonedas.Size = New System.Drawing.Size(493, 21) Me.cmbMonedas.TabIndex = 1 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue Me.Label4.Location = New System.Drawing.Point(24, 57) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(46, 13) Me.Label4.TabIndex = 53 Me.Label4.Text = "Moneda" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue Me.Label2.Location = New System.Drawing.Point(24, 28) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(117, 13) Me.Label2.TabIndex = 52 Me.Label2.Text = "Fecha Tipo de Cambio" ' '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, "") ' 'txtBX ' Me.txtBX.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtBX.BackColor = System.Drawing.Color.White Me.txtBX.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper Me.txtBX.Enabled = False Me.txtBX.Location = New System.Drawing.Point(179, 91) Me.txtBX.MaxLength = 12 Me.txtBX.Name = "txtBX" Me.txtBX.Size = New System.Drawing.Size(112, 20) Me.txtBX.TabIndex = 4 Me.txtBX.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue Me.Label5.Location = New System.Drawing.Point(24, 94) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(31, 13) Me.Label5.TabIndex = 60 Me.Label5.Text = "Valor" ' 'pnlBotones ' Me.pnlBotones.Controls.Add(Me.btnAceptar) Me.pnlBotones.Controls.Add(Me.btnCancelar) Me.pnlBotones.Location = New System.Drawing.Point(752, 57) Me.pnlBotones.Name = "pnlBotones" Me.pnlBotones.Size = New System.Drawing.Size(120, 80) Me.pnlBotones.TabIndex = 79 Me.pnlBotones.Visible = False ' 'btnAceptar ' Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnAceptar.ForeColor = System.Drawing.Color.Black Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image) Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAceptar.Location = New System.Drawing.Point(16, 8) Me.btnAceptar.Name = "btnAceptar" Me.btnAceptar.Size = New System.Drawing.Size(96, 23) Me.btnAceptar.TabIndex = 2 Me.btnAceptar.Text = "Aceptar" Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnAceptar.UseVisualStyleBackColor = False Me.btnAceptar.Visible = False ' 'btnCancelar ' Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCancelar.ForeColor = System.Drawing.Color.Black Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image) Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnCancelar.Location = New System.Drawing.Point(16, 40) Me.btnCancelar.Name = "btnCancelar" Me.btnCancelar.Size = New System.Drawing.Size(96, 23) Me.btnCancelar.TabIndex = 3 Me.btnCancelar.Text = "Cancelar" Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnCancelar.UseVisualStyleBackColor = False Me.btnCancelar.Visible = False ' 'txtIdTipoCambio ' Me.txtIdTipoCambio.BackColor = System.Drawing.Color.White Me.txtIdTipoCambio.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper Me.txtIdTipoCambio.Location = New System.Drawing.Point(675, 188) Me.txtIdTipoCambio.Name = "txtIdTipoCambio" Me.txtIdTipoCambio.Size = New System.Drawing.Size(104, 20) Me.txtIdTipoCambio.TabIndex = 80 Me.txtIdTipoCambio.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.txtIdTipoCambio.Visible = False ' 'dtpfecha1 ' Me.dtpfecha1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dtpfecha1.Location = New System.Drawing.Point(179, 26) Me.dtpfecha1.Name = "dtpfecha1" Me.dtpfecha1.Size = New System.Drawing.Size(493, 20) Me.dtpfecha1.TabIndex = 81 ' 'BntSalie ' Me.BntSalie.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.BntSalie.BackColor = System.Drawing.Color.Black 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.White Me.BntSalie.Location = New System.Drawing.Point(744, 348) Me.BntSalie.Name = "BntSalie" Me.BntSalie.Size = New System.Drawing.Size(106, 33) Me.BntSalie.TabIndex = 95 Me.BntSalie.Text = "Cerrar" Me.BntSalie.UseVisualStyleBackColor = False ' 'BtnAlta ' Me.BtnAlta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.BtnAlta.BackColor = System.Drawing.Color.Black 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.White Me.BtnAlta.Location = New System.Drawing.Point(744, 270) Me.BtnAlta.Name = "BtnAlta" Me.BtnAlta.Size = New System.Drawing.Size(106, 33) Me.BtnAlta.TabIndex = 93 Me.BtnAlta.Text = "Guardar" Me.BtnAlta.UseVisualStyleBackColor = False Me.BtnAlta.Visible = False ' 'Btnbaja ' Me.Btnbaja.BackColor = System.Drawing.Color.White Me.Btnbaja.Cursor = System.Windows.Forms.Cursors.Hand Me.Btnbaja.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Btnbaja.ForeColor = System.Drawing.Color.MidnightBlue Me.Btnbaja.Image = CType(resources.GetObject("Btnbaja.Image"), System.Drawing.Image) Me.Btnbaja.Location = New System.Drawing.Point(753, 149) Me.Btnbaja.Name = "Btnbaja" Me.Btnbaja.Size = New System.Drawing.Size(106, 33) Me.Btnbaja.TabIndex = 92 Me.Btnbaja.Text = "Baja" Me.Btnbaja.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Btnbaja.UseVisualStyleBackColor = True Me.Btnbaja.Visible = False ' 'BtnLimpiar ' Me.BtnLimpiar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.BtnLimpiar.BackColor = System.Drawing.Color.Black 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.White Me.BtnLimpiar.Location = New System.Drawing.Point(744, 309) Me.BtnLimpiar.Name = "BtnLimpiar" Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33) Me.BtnLimpiar.TabIndex = 90 Me.BtnLimpiar.Text = "Limpiar" Me.BtnLimpiar.UseVisualStyleBackColor = False ' 'GroupBox1 ' Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox1.Controls.Add(Me.dtpfecha1) Me.GroupBox1.Controls.Add(Me.txtBX) Me.GroupBox1.Controls.Add(Me.Label5) Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.cmbMonedas) Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Location = New System.Drawing.Point(12, 257) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(726, 125) Me.GroupBox1.TabIndex = 97 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Tipo de Cambio" ' 'GridMaster ' Me.GridMaster.AllowArrows = False Me.GridMaster.AllowUpdate = False Me.GridMaster.AllowUpdateOnBlur = False Me.GridMaster.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GridMaster.BackColor = System.Drawing.Color.White Me.GridMaster.EditDropDown = False Me.GridMaster.FilterBar = True Me.GridMaster.GroupByCaption = "AGRUPAR" Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image)) Me.GridMaster.Location = New System.Drawing.Point(12, 57) Me.GridMaster.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None 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(731, 182) Me.GridMaster.TabIndex = 98 Me.GridMaster.Text = "C1TrueDBGrid1" Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag") ' 'panel2 ' Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panel2.BackColor = System.Drawing.Color.Black Me.panel2.Controls.Add(Me.Img_logoCabecera) Me.panel2.Controls.Add(Me.Label1) Me.panel2.Controls.Add(Me.pnlBotones) Me.panel2.ForeColor = System.Drawing.Color.Navy Me.panel2.Location = New System.Drawing.Point(-3, 0) Me.panel2.Name = "panel2" Me.panel2.Size = New System.Drawing.Size(878, 39) Me.panel2.TabIndex = 160 ' 'Img_logoCabecera ' Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo Me.Img_logoCabecera.Location = New System.Drawing.Point(758, -11) Me.Img_logoCabecera.Name = "Img_logoCabecera" Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50) Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.Img_logoCabecera.TabIndex = 360 Me.Img_logoCabecera.TabStop = False ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.BackColor = System.Drawing.Color.Transparent Me.Label1.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.ForeColor = System.Drawing.SystemColors.Window Me.Label1.Location = New System.Drawing.Point(21, 8) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(158, 22) Me.Label1.TabIndex = 2 Me.Label1.Text = "Tipos de cambio" ' 'panel3 ' Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panel3.BackColor = System.Drawing.Color.Black Me.panel3.Controls.Add(Me.Label3) Me.panel3.Controls.Add(Me.lblFooter) Me.panel3.ForeColor = System.Drawing.Color.Navy Me.panel3.Location = New System.Drawing.Point(-3, 435) Me.panel3.Name = "panel3" Me.panel3.Size = New System.Drawing.Size(878, 29) Me.panel3.TabIndex = 361 ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.BackColor = System.Drawing.Color.Transparent Me.Label3.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.ForeColor = System.Drawing.SystemColors.Window Me.Label3.Location = New System.Drawing.Point(833, 7) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(42, 17) Me.Label3.TabIndex = 3 Me.Label3.Text = "Minds" ' 'lblFooter ' Me.lblFooter.AutoSize = True Me.lblFooter.BackColor = System.Drawing.Color.Transparent Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window Me.lblFooter.Location = New System.Drawing.Point(1019, 7) Me.lblFooter.Name = "lblFooter" Me.lblFooter.Size = New System.Drawing.Size(42, 17) Me.lblFooter.TabIndex = 2 Me.lblFooter.Text = "Minds" ' 'ActTipoCambio ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(871, 463) Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.GridMaster) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.txtIdTipoCambio) Me.Controls.Add(Me.BntSalie) Me.Controls.Add(Me.BtnAlta) Me.Controls.Add(Me.Btnbaja) Me.Controls.Add(Me.BtnLimpiar) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "ActTipoCambio" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Tipos de cambio" Me.pnlBotones.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit() Me.panel2.ResumeLayout(False) Me.panel2.PerformLayout() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit() Me.panel3.ResumeLayout(False) Me.panel3.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region Private Sub LIMPIAR() Me.txtBX.Text = "" cmbMonedas.SelectedIndex = -1 cmbMonedas.SelectedIndex = -1 End Sub Private Sub Habilita(ByVal Bandera As Boolean) If clsVaribles.lbDemo = True Then Exit Sub Me.txtBX.Enabled = Bandera 'Me.txtcompra.Enabled = Bandera 'Me.txtVenta.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 = " ConsultaTipoDeCambio '" & Classcom.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'" ClassCatalogos.LlenaGrid(SQL, Me.GridMaster) If GridMaster.RowCount > 0 Then GridMaster.Splits(0).DisplayColumns(0).Visible = False For Each c As C1.Win.C1TrueDBGrid.C1DisplayColumn In GridMaster.Splits(0).DisplayColumns c.AutoSize() Next 'Btnbaja.Visible = True End If Catch ex As Exception MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub Private Sub ActTipoCambio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If clsVaribles.lbDemo = True Then Exit Sub dtpfecha1.Value = Date.Now.Date Habilita(False) Try 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 GroupBox1.Visible = False Me.GroupBox1.Visible = True 'LLENA GRID 'SQL = "spConTipoCambio 2,'" & Classcom.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'" SQL = "ConsultaMoneda 0" Classcom.sbLlenaCombo(SQL, Me.cmbMonedas) Classcom = New clsComplejo blcarga = False llenagrid() Catch ex As Exception MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub Private Sub sbConfiguraGrid() If clsVaribles.lbDemo = True Then Exit Sub End Sub Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click Me.Close() End Sub Private Sub txtcompra_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) 'clase.NumeroDec(e, Me.txtcompra) End Sub Private Sub txtVenta_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) 'clase.NumeroDec(e, Me.txtVenta) End Sub Private Sub txtBX_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtBX.KeyPress clase.NumeroDec(e, Me.txtBX) End Sub Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.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 'VALIDACION DE CAMPOS Try If cmbMonedas.SelectedIndex = -1 Then MsgBox("Moneda no válida", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente") Exit Sub End If 'If Len(txtcompra.Text) = 0 Or Not IsNumeric(txtcompra.Text) Then ' MsgBox("Valor de compra no válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente") ' Exit Sub 'End If 'If Len(txtVenta.Text) = 0 Or Not IsNumeric(txtVenta.Text) Then ' MsgBox("Valor de venta no válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente") ' Exit Sub 'End If If Len(txtBX.Text) = 0 Or Not IsNumeric(txtBX.Text) Then MsgBox("El campo valor no es válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente") txtBX.Focus() Exit Sub End If If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub strSQLComodin = "sp_CargarTipoDeCambio " & cmbMonedas.SelectedValue & ",'" & dtpfecha1.Value.Date.ToString("yyyy/MM/dd") & "'," & txtBX.Text 'Dim liAud As Integer 'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 3," & Me.cmbMonedas.SelectedValue & ",'" & ClassComodin.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'") 'If Len(Trim(clsVaribles.lsValAnt)) = 0 Then ' liAud = 2 'Else ' liAud = 4 'End If ''strSQLComodin = "spGrabaTipoCambio " & Me.cmbMonedas.SelectedValue & " ,'" & ClassComodin.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'," & txtcompra.Text & "," & Me.txtVenta.Text & "," & Me.txtBX.Text & ",1" ClassComodin = New clsComplejo ClassComodin.sbInserta(strSQLComodin) 'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 111, 1, clsVaribles.lsValAnt & " | Valores Nuevos: Moneda = " & Me.cmbMonedas.Text & " Fecha = " & ClassComodin.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & " , Valor Compra " & txtcompra.Text & ", Valor Venta" & Me.txtVenta.Text & ", Valor BX" & Me.txtBX.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() 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 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 cmbMonedas.Text = "" Or cmbMonedas.SelectedIndex = -1 Then ' MessageBox.Show("Es Necesario seleccionar el tipo de Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) ' Exit Sub 'End If If GridMaster.RowCount < 0 Then MsgBox("No hay registros para Eliminar.", MsgBoxStyle.Question + "MINDS Cliente") Exit Sub End If If MsgBox("¿Desea Eliminar el registro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub 'Dim liAud As Integer 'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 3," & Me.cmbMonedas.SelectedValue & ",'" & ClassComodin.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'") 'liAud = 3 'strSQLComodin = "spGrabaTipoCambio " & Me.cmbMonedas.SelectedValue & " ,'" & clsfecha.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "',0,0,0,2" Dim idMoneda As Integer = GridMaster.Columns("IDMONEDA").Value Dim fechaCambio As Date = GridMaster.Columns("FECHA CAMBIO").Value strSQLComodin = "sp_EliminarTipoDeCambio " & idMoneda & " ,'" & fechaCambio.ToString("yyyy/MM/dd") & "'" ClassComodin = New clsComplejo ClassComodin.sbInserta(strSQLComodin) blnuevo = False ClassAud.RT_Auditoria(clsVaribles.varUsuario, 111, 1, "Eliminación de tipo de cambio") 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 GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click End Sub Private Sub GridMaster_DoubleClick(sender As 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 = "spConTipoCambio 3,'" & Classcom.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'," & Me.GridMaster.Columns("idmoneda").Value Classcom = New clsComplejo Classcom.fdtDataSet(SQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then Fila = Classcom.ds.Tables(0).Rows(0) Me.txtBX.Text = Fila("DIVISABX").ToString cmbMonedas.SelectedValue = Fila("IdMoneda") End If Catch ex As Exception MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub Private Sub dtpfecha1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpfecha1.ValueChanged llenagrid() End Sub Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click Me.txtBX.Text = "" cmbMonedas.SelectedValue = -1 dtpfecha1.Value = Date.Now.Date End Sub Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint End Sub End Class