client/Actualizadores/ActTipoCambio.vb

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<73>ador de Windows Forms "

    Public Sub New()
        MyBase.New()

        'El Dise<73>ador de Windows Forms requiere esta llamada.
        InitializeComponent()

        'Agregar cualquier inicializaci<63>n despu<70>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<73>ador de Windows Forms
    Private components As System.ComponentModel.IContainer

    'NOTA: el Dise<73>ador de Windows Forms requiere el siguiente procedimiento
    'Puede modificarse utilizando el Dise<73>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
    <System.Diagnostics.DebuggerStepThrough()> 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("<EFBFBD>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<EFBFBD>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("<EFBFBD>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<EFBFBD>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<EFBFBD>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