client/Actualizadores/ActTipoCambio.vb

704 lines
32 KiB
VB.net

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
<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.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.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
'
'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(True)
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