707 lines
32 KiB
VB.net
707 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.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
|