Public Class TableroControl
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    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

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents OrejaTablero As System.Windows.Forms.TabControl
    Friend WithEvents OrejaTableroDato As System.Windows.Forms.TabPage
    Friend WithEvents OrejaTableroResultado As System.Windows.Forms.TabPage
    Friend WithEvents ListaComprobanteProductoCompra As System.Windows.Forms.ListBox
    Friend WithEvents EtiquetaComprobanteProductoCompra As System.Windows.Forms.Label
    Friend WithEvents ListaComprobanteProductoVenta As System.Windows.Forms.ListBox
    Friend WithEvents EtiquetaComprobanteProductoVenta As System.Windows.Forms.Label
    Friend WithEvents TextoIVAVenta As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaIVAVenta As System.Windows.Forms.Label
    Friend WithEvents EtiquetaIVACompra As System.Windows.Forms.Label
    Friend WithEvents TextoIVACompra As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaCompra As System.Windows.Forms.Label
    Friend WithEvents TextoCompra As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaVenta As System.Windows.Forms.Label
    Friend WithEvents TextoVenta As System.Windows.Forms.TextBox
    Friend WithEvents ListaComprobanteDineroPago As System.Windows.Forms.ListBox
    Friend WithEvents EtiquetaComprobanteDineroPago As System.Windows.Forms.Label
    Friend WithEvents ListaComprobanteDineroCobro As System.Windows.Forms.ListBox
    Friend WithEvents EtiquetaComprobanteDineroCobro As System.Windows.Forms.Label
    Friend WithEvents DiaHastaFecha As System.Windows.Forms.DateTimePicker
    Friend WithEvents EtiquetaDesdeFecha As System.Windows.Forms.Label
    Friend WithEvents EtiquetaHastaFecha As System.Windows.Forms.Label
    Friend WithEvents DiaDesdeFecha As System.Windows.Forms.DateTimePicker
    Friend WithEvents EtiquetaPago As System.Windows.Forms.Label
    Friend WithEvents TextoPago As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaCobro As System.Windows.Forms.Label
    Friend WithEvents TextoCobro As System.Windows.Forms.TextBox
    Friend WithEvents DisenoComentario As System.Windows.Forms.GroupBox
    Friend WithEvents EtiquetaComentario As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OrejaTablero = New System.Windows.Forms.TabControl
        Me.OrejaTableroDato = New System.Windows.Forms.TabPage
        Me.DiaHastaFecha = New System.Windows.Forms.DateTimePicker
        Me.EtiquetaDesdeFecha = New System.Windows.Forms.Label
        Me.EtiquetaHastaFecha = New System.Windows.Forms.Label
        Me.DiaDesdeFecha = New System.Windows.Forms.DateTimePicker
        Me.ListaComprobanteDineroPago = New System.Windows.Forms.ListBox
        Me.EtiquetaComprobanteDineroPago = New System.Windows.Forms.Label
        Me.ListaComprobanteDineroCobro = New System.Windows.Forms.ListBox
        Me.EtiquetaComprobanteDineroCobro = New System.Windows.Forms.Label
        Me.ListaComprobanteProductoCompra = New System.Windows.Forms.ListBox
        Me.EtiquetaComprobanteProductoCompra = New System.Windows.Forms.Label
        Me.ListaComprobanteProductoVenta = New System.Windows.Forms.ListBox
        Me.EtiquetaComprobanteProductoVenta = New System.Windows.Forms.Label
        Me.OrejaTableroResultado = New System.Windows.Forms.TabPage
        Me.EtiquetaCobro = New System.Windows.Forms.Label
        Me.TextoCobro = New System.Windows.Forms.TextBox
        Me.EtiquetaPago = New System.Windows.Forms.Label
        Me.TextoPago = New System.Windows.Forms.TextBox
        Me.EtiquetaCompra = New System.Windows.Forms.Label
        Me.TextoCompra = New System.Windows.Forms.TextBox
        Me.EtiquetaVenta = New System.Windows.Forms.Label
        Me.TextoVenta = New System.Windows.Forms.TextBox
        Me.EtiquetaIVACompra = New System.Windows.Forms.Label
        Me.TextoIVACompra = New System.Windows.Forms.TextBox
        Me.EtiquetaIVAVenta = New System.Windows.Forms.Label
        Me.TextoIVAVenta = New System.Windows.Forms.TextBox
        Me.DisenoComentario = New System.Windows.Forms.GroupBox
        Me.EtiquetaComentario = New System.Windows.Forms.Label
        Me.OrejaTablero.SuspendLayout()
        Me.OrejaTableroDato.SuspendLayout()
        Me.OrejaTableroResultado.SuspendLayout()
        Me.DisenoComentario.SuspendLayout()
        Me.SuspendLayout()
        '
        'OrejaTablero
        '
        Me.OrejaTablero.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.OrejaTablero.Controls.Add(Me.OrejaTableroDato)
        Me.OrejaTablero.Controls.Add(Me.OrejaTableroResultado)
        Me.OrejaTablero.Location = New System.Drawing.Point(16, 16)
        Me.OrejaTablero.Name = "OrejaTablero"
        Me.OrejaTablero.SelectedIndex = 0
        Me.OrejaTablero.Size = New System.Drawing.Size(616, 408)
        Me.OrejaTablero.TabIndex = 185
        '
        'OrejaTableroDato
        '
        Me.OrejaTableroDato.Controls.Add(Me.DiaHastaFecha)
        Me.OrejaTableroDato.Controls.Add(Me.EtiquetaDesdeFecha)
        Me.OrejaTableroDato.Controls.Add(Me.EtiquetaHastaFecha)
        Me.OrejaTableroDato.Controls.Add(Me.DiaDesdeFecha)
        Me.OrejaTableroDato.Controls.Add(Me.ListaComprobanteDineroPago)
        Me.OrejaTableroDato.Controls.Add(Me.EtiquetaComprobanteDineroPago)
        Me.OrejaTableroDato.Controls.Add(Me.ListaComprobanteDineroCobro)
        Me.OrejaTableroDato.Controls.Add(Me.EtiquetaComprobanteDineroCobro)
        Me.OrejaTableroDato.Controls.Add(Me.ListaComprobanteProductoCompra)
        Me.OrejaTableroDato.Controls.Add(Me.EtiquetaComprobanteProductoCompra)
        Me.OrejaTableroDato.Controls.Add(Me.ListaComprobanteProductoVenta)
        Me.OrejaTableroDato.Controls.Add(Me.EtiquetaComprobanteProductoVenta)
        Me.OrejaTableroDato.Location = New System.Drawing.Point(4, 22)
        Me.OrejaTableroDato.Name = "OrejaTableroDato"
        Me.OrejaTableroDato.Size = New System.Drawing.Size(608, 382)
        Me.OrejaTableroDato.TabIndex = 0
        Me.OrejaTableroDato.Text = "Datos"
        '
        'DiaHastaFecha
        '
        Me.DiaHastaFecha.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.DiaHastaFecha.Location = New System.Drawing.Point(336, 16)
        Me.DiaHastaFecha.Name = "DiaHastaFecha"
        Me.DiaHastaFecha.Size = New System.Drawing.Size(248, 20)
        Me.DiaHastaFecha.TabIndex = 199
        '
        'EtiquetaDesdeFecha
        '
        Me.EtiquetaDesdeFecha.AutoSize = True
        Me.EtiquetaDesdeFecha.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EtiquetaDesdeFecha.Location = New System.Drawing.Point(8, 16)
        Me.EtiquetaDesdeFecha.Name = "EtiquetaDesdeFecha"
        Me.EtiquetaDesdeFecha.Size = New System.Drawing.Size(55, 13)
        Me.EtiquetaDesdeFecha.TabIndex = 201
        Me.EtiquetaDesdeFecha.Text = "Desde el :"
        '
        'EtiquetaHastaFecha
        '
        Me.EtiquetaHastaFecha.AutoSize = True
        Me.EtiquetaHastaFecha.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EtiquetaHastaFecha.Location = New System.Drawing.Point(280, 16)
        Me.EtiquetaHastaFecha.Name = "EtiquetaHastaFecha"
        Me.EtiquetaHastaFecha.Size = New System.Drawing.Size(52, 13)
        Me.EtiquetaHastaFecha.TabIndex = 200
        Me.EtiquetaHastaFecha.Text = "Hasta el :"
        '
        'DiaDesdeFecha
        '
        Me.DiaDesdeFecha.Location = New System.Drawing.Point(64, 16)
        Me.DiaDesdeFecha.Name = "DiaDesdeFecha"
        Me.DiaDesdeFecha.Size = New System.Drawing.Size(208, 20)
        Me.DiaDesdeFecha.TabIndex = 198
        '
        'ListaComprobanteDineroPago
        '
        Me.ListaComprobanteDineroPago.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ListaComprobanteDineroPago.HorizontalScrollbar = True
        Me.ListaComprobanteDineroPago.Location = New System.Drawing.Point(312, 240)
        Me.ListaComprobanteDineroPago.Name = "ListaComprobanteDineroPago"
        Me.ListaComprobanteDineroPago.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
        Me.ListaComprobanteDineroPago.Size = New System.Drawing.Size(280, 121)
        Me.ListaComprobanteDineroPago.Sorted = True
        Me.ListaComprobanteDineroPago.TabIndex = 191
        '
        'EtiquetaComprobanteDineroPago
        '
        Me.EtiquetaComprobanteDineroPago.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaComprobanteDineroPago.AutoSize = True
        Me.EtiquetaComprobanteDineroPago.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EtiquetaComprobanteDineroPago.Location = New System.Drawing.Point(320, 224)
        Me.EtiquetaComprobanteDineroPago.Name = "EtiquetaComprobanteDineroPago"
        Me.EtiquetaComprobanteDineroPago.Size = New System.Drawing.Size(224, 13)
        Me.EtiquetaComprobanteDineroPago.TabIndex = 190
        Me.EtiquetaComprobanteDineroPago.Text = "Selección comprobantes de dinero de pagos :"
        '
        'ListaComprobanteDineroCobro
        '
        Me.ListaComprobanteDineroCobro.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.ListaComprobanteDineroCobro.HorizontalScrollbar = True
        Me.ListaComprobanteDineroCobro.Location = New System.Drawing.Point(8, 240)
        Me.ListaComprobanteDineroCobro.Name = "ListaComprobanteDineroCobro"
        Me.ListaComprobanteDineroCobro.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
        Me.ListaComprobanteDineroCobro.Size = New System.Drawing.Size(280, 121)
        Me.ListaComprobanteDineroCobro.Sorted = True
        Me.ListaComprobanteDineroCobro.TabIndex = 189
        '
        'EtiquetaComprobanteDineroCobro
        '
        Me.EtiquetaComprobanteDineroCobro.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaComprobanteDineroCobro.AutoSize = True
        Me.EtiquetaComprobanteDineroCobro.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EtiquetaComprobanteDineroCobro.Location = New System.Drawing.Point(16, 224)
        Me.EtiquetaComprobanteDineroCobro.Name = "EtiquetaComprobanteDineroCobro"
        Me.EtiquetaComprobanteDineroCobro.Size = New System.Drawing.Size(227, 13)
        Me.EtiquetaComprobanteDineroCobro.TabIndex = 188
        Me.EtiquetaComprobanteDineroCobro.Text = "Selección comprobantes de dinero de cobros :"
        '
        'ListaComprobanteProductoCompra
        '
        Me.ListaComprobanteProductoCompra.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.ListaComprobanteProductoCompra.HorizontalScrollbar = True
        Me.ListaComprobanteProductoCompra.Location = New System.Drawing.Point(312, 64)
        Me.ListaComprobanteProductoCompra.Name = "ListaComprobanteProductoCompra"
        Me.ListaComprobanteProductoCompra.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
        Me.ListaComprobanteProductoCompra.Size = New System.Drawing.Size(280, 147)
        Me.ListaComprobanteProductoCompra.Sorted = True
        Me.ListaComprobanteProductoCompra.TabIndex = 187
        '
        'EtiquetaComprobanteProductoCompra
        '
        Me.EtiquetaComprobanteProductoCompra.AutoSize = True
        Me.EtiquetaComprobanteProductoCompra.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EtiquetaComprobanteProductoCompra.Location = New System.Drawing.Point(320, 48)
        Me.EtiquetaComprobanteProductoCompra.Name = "EtiquetaComprobanteProductoCompra"
        Me.EtiquetaComprobanteProductoCompra.Size = New System.Drawing.Size(248, 13)
        Me.EtiquetaComprobanteProductoCompra.TabIndex = 186
        Me.EtiquetaComprobanteProductoCompra.Text = "Selección comprobantes de producto de compras :"
        '
        'ListaComprobanteProductoVenta
        '
        Me.ListaComprobanteProductoVenta.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.ListaComprobanteProductoVenta.HorizontalScrollbar = True
        Me.ListaComprobanteProductoVenta.Location = New System.Drawing.Point(8, 64)
        Me.ListaComprobanteProductoVenta.Name = "ListaComprobanteProductoVenta"
        Me.ListaComprobanteProductoVenta.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
        Me.ListaComprobanteProductoVenta.Size = New System.Drawing.Size(280, 147)
        Me.ListaComprobanteProductoVenta.Sorted = True
        Me.ListaComprobanteProductoVenta.TabIndex = 185
        '
        'EtiquetaComprobanteProductoVenta
        '
        Me.EtiquetaComprobanteProductoVenta.AutoSize = True
        Me.EtiquetaComprobanteProductoVenta.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EtiquetaComprobanteProductoVenta.Location = New System.Drawing.Point(16, 48)
        Me.EtiquetaComprobanteProductoVenta.Name = "EtiquetaComprobanteProductoVenta"
        Me.EtiquetaComprobanteProductoVenta.Size = New System.Drawing.Size(240, 13)
        Me.EtiquetaComprobanteProductoVenta.TabIndex = 184
        Me.EtiquetaComprobanteProductoVenta.Text = "Selección comprobantes de producto de ventas :"
        '
        'OrejaTableroResultado
        '
        Me.OrejaTableroResultado.Controls.Add(Me.EtiquetaCobro)
        Me.OrejaTableroResultado.Controls.Add(Me.TextoCobro)
        Me.OrejaTableroResultado.Controls.Add(Me.EtiquetaPago)
        Me.OrejaTableroResultado.Controls.Add(Me.TextoPago)
        Me.OrejaTableroResultado.Controls.Add(Me.EtiquetaCompra)
        Me.OrejaTableroResultado.Controls.Add(Me.TextoCompra)
        Me.OrejaTableroResultado.Controls.Add(Me.EtiquetaVenta)
        Me.OrejaTableroResultado.Controls.Add(Me.TextoVenta)
        Me.OrejaTableroResultado.Controls.Add(Me.EtiquetaIVACompra)
        Me.OrejaTableroResultado.Controls.Add(Me.TextoIVACompra)
        Me.OrejaTableroResultado.Controls.Add(Me.EtiquetaIVAVenta)
        Me.OrejaTableroResultado.Controls.Add(Me.TextoIVAVenta)
        Me.OrejaTableroResultado.Location = New System.Drawing.Point(4, 22)
        Me.OrejaTableroResultado.Name = "OrejaTableroResultado"
        Me.OrejaTableroResultado.Size = New System.Drawing.Size(608, 382)
        Me.OrejaTableroResultado.TabIndex = 1
        Me.OrejaTableroResultado.Text = "Resultados"
        '
        'EtiquetaCobro
        '
        Me.EtiquetaCobro.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaCobro.Location = New System.Drawing.Point(432, 320)
        Me.EtiquetaCobro.Name = "EtiquetaCobro"
        Me.EtiquetaCobro.Size = New System.Drawing.Size(64, 16)
        Me.EtiquetaCobro.TabIndex = 199
        Me.EtiquetaCobro.Text = "Cobros ($) :"
        '
        'TextoCobro
        '
        Me.TextoCobro.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoCobro.BackColor = System.Drawing.Color.Blue
        Me.TextoCobro.ForeColor = System.Drawing.Color.White
        Me.TextoCobro.Location = New System.Drawing.Point(504, 320)
        Me.TextoCobro.Name = "TextoCobro"
        Me.TextoCobro.ReadOnly = True
        Me.TextoCobro.Size = New System.Drawing.Size(88, 20)
        Me.TextoCobro.TabIndex = 198
        Me.TextoCobro.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'EtiquetaPago
        '
        Me.EtiquetaPago.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaPago.Location = New System.Drawing.Point(432, 352)
        Me.EtiquetaPago.Name = "EtiquetaPago"
        Me.EtiquetaPago.Size = New System.Drawing.Size(64, 16)
        Me.EtiquetaPago.TabIndex = 195
        Me.EtiquetaPago.Text = "Pagos  ($) :"
        '
        'TextoPago
        '
        Me.TextoPago.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoPago.BackColor = System.Drawing.Color.Yellow
        Me.TextoPago.Location = New System.Drawing.Point(504, 352)
        Me.TextoPago.Name = "TextoPago"
        Me.TextoPago.ReadOnly = True
        Me.TextoPago.Size = New System.Drawing.Size(88, 20)
        Me.TextoPago.TabIndex = 194
        Me.TextoPago.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'EtiquetaCompra
        '
        Me.EtiquetaCompra.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaCompra.Location = New System.Drawing.Point(216, 352)
        Me.EtiquetaCompra.Name = "EtiquetaCompra"
        Me.EtiquetaCompra.Size = New System.Drawing.Size(120, 16)
        Me.EtiquetaCompra.TabIndex = 193
        Me.EtiquetaCompra.Text = "Compras sin imp. ($) :"
        '
        'TextoCompra
        '
        Me.TextoCompra.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoCompra.BackColor = System.Drawing.Color.Red
        Me.TextoCompra.Location = New System.Drawing.Point(336, 352)
        Me.TextoCompra.Name = "TextoCompra"
        Me.TextoCompra.ReadOnly = True
        Me.TextoCompra.Size = New System.Drawing.Size(88, 20)
        Me.TextoCompra.TabIndex = 192
        Me.TextoCompra.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'EtiquetaVenta
        '
        Me.EtiquetaVenta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaVenta.Location = New System.Drawing.Point(224, 320)
        Me.EtiquetaVenta.Name = "EtiquetaVenta"
        Me.EtiquetaVenta.Size = New System.Drawing.Size(104, 16)
        Me.EtiquetaVenta.TabIndex = 191
        Me.EtiquetaVenta.Text = "Ventas sin imp. ($) :"
        '
        'TextoVenta
        '
        Me.TextoVenta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoVenta.BackColor = System.Drawing.Color.Lime
        Me.TextoVenta.Location = New System.Drawing.Point(336, 320)
        Me.TextoVenta.Name = "TextoVenta"
        Me.TextoVenta.ReadOnly = True
        Me.TextoVenta.Size = New System.Drawing.Size(88, 20)
        Me.TextoVenta.TabIndex = 190
        Me.TextoVenta.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'EtiquetaIVACompra
        '
        Me.EtiquetaIVACompra.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaIVACompra.Location = New System.Drawing.Point(16, 352)
        Me.EtiquetaIVACompra.Name = "EtiquetaIVACompra"
        Me.EtiquetaIVACompra.Size = New System.Drawing.Size(96, 16)
        Me.EtiquetaIVACompra.TabIndex = 189
        Me.EtiquetaIVACompra.Text = "IVA compras ($) :"
        '
        'TextoIVACompra
        '
        Me.TextoIVACompra.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoIVACompra.Location = New System.Drawing.Point(112, 352)
        Me.TextoIVACompra.Name = "TextoIVACompra"
        Me.TextoIVACompra.ReadOnly = True
        Me.TextoIVACompra.Size = New System.Drawing.Size(88, 20)
        Me.TextoIVACompra.TabIndex = 188
        Me.TextoIVACompra.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'EtiquetaIVAVenta
        '
        Me.EtiquetaIVAVenta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaIVAVenta.Location = New System.Drawing.Point(16, 320)
        Me.EtiquetaIVAVenta.Name = "EtiquetaIVAVenta"
        Me.EtiquetaIVAVenta.Size = New System.Drawing.Size(88, 16)
        Me.EtiquetaIVAVenta.TabIndex = 187
        Me.EtiquetaIVAVenta.Text = "IVA ventas ($) :"
        '
        'TextoIVAVenta
        '
        Me.TextoIVAVenta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoIVAVenta.Location = New System.Drawing.Point(112, 320)
        Me.TextoIVAVenta.Name = "TextoIVAVenta"
        Me.TextoIVAVenta.ReadOnly = True
        Me.TextoIVAVenta.Size = New System.Drawing.Size(88, 20)
        Me.TextoIVAVenta.TabIndex = 186
        Me.TextoIVAVenta.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'DisenoComentario
        '
        Me.DisenoComentario.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.DisenoComentario.Controls.Add(Me.EtiquetaComentario)
        Me.DisenoComentario.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoComentario.Location = New System.Drawing.Point(648, 40)
        Me.DisenoComentario.Name = "DisenoComentario"
        Me.DisenoComentario.Size = New System.Drawing.Size(104, 120)
        Me.DisenoComentario.TabIndex = 186
        Me.DisenoComentario.TabStop = False
        '
        'EtiquetaComentario
        '
        Me.EtiquetaComentario.Location = New System.Drawing.Point(8, 16)
        Me.EtiquetaComentario.Name = "EtiquetaComentario"
        Me.EtiquetaComentario.Size = New System.Drawing.Size(88, 96)
        Me.EtiquetaComentario.TabIndex = 0
        Me.EtiquetaComentario.Text = "Cada vez que se selecciona la pestaña ""Resultados"" se calculan los datos nuevamen" & _
            "te."
        '
        'TableroControl
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(768, 446)
        Me.Controls.Add(Me.DisenoComentario)
        Me.Controls.Add(Me.OrejaTablero)
        Me.Name = "TableroControl"
        Me.Text = "Tablero de control"
        Me.OrejaTablero.ResumeLayout(False)
        Me.OrejaTableroDato.ResumeLayout(False)
        Me.OrejaTableroDato.PerformLayout()
        Me.OrejaTableroResultado.ResumeLayout(False)
        Me.OrejaTableroResultado.PerformLayout()
        Me.DisenoComentario.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub TableroControl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        ' Borrar barra de estado
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
    End Sub

    Private Sub TableroControl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Icons
        SubIconVentana(Me, "MundoTec")
        ' Inicializar
        SubPuestaCeroResultado()
    End Sub

    Private Sub TableroControl_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Dim Ciclo As Int32
        On Error Resume Next
        SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProducto WHERE ConfiguracionDeduccion = 'Proveedor' AND Valorizable = True")
        SubAbrirTablaBD2("SELECT * FROM VTipoComprobanteProducto WHERE ConfiguracionDeduccion = 'Cliente' AND Valorizable = True")
        SubAbrirTablaBD3("SELECT * FROM VTipoComprobanteDinero WHERE MovimientoConCartera = 'Proveedor'")
        SubAbrirTablaBD4("SELECT * FROM VTipoComprobanteDinero WHERE MovimientoConCartera = 'Cliente'")
        ' Cargar combinada de datos
        ' Saber si hubo error
        If Not FnErrorADONET(Me) Then
            ' Cargar combinada comprobante de producto compras
            ListaComprobanteProductoCompra.Items.Clear()
            For Ciclo = 0 To TTabla.Rows.Count - 1
                Dim FTabla As DataRow = TTabla.Rows(Ciclo)
                ListaComprobanteProductoCompra.Items.Add(FTabla("NombreComprobanteProducto").ToString)
            Next
            ' Cargar combinada comprobante de producto ventas
            ListaComprobanteProductoVenta.Items.Clear()
            For Ciclo = 0 To TTabla2.Rows.Count - 1
                Dim FTabla2 As DataRow = TTabla2.Rows(Ciclo)
                ListaComprobanteProductoVenta.Items.Add(FTabla2("NombreComprobanteProducto").ToString)
            Next
            ' Cargar combinada comprobante de dinero compras
            ListaComprobanteDineroPago.Items.Clear()
            For Ciclo = 0 To TTabla3.Rows.Count - 1
                Dim FTabla3 As DataRow = TTabla3.Rows(Ciclo)
                ListaComprobanteDineroPago.Items.Add(FTabla3("NombreComprobanteDinero").ToString)
            Next
            ' Cargar combinada comprobante de dinero ventas
            ListaComprobanteDineroCobro.Items.Clear()
            For Ciclo = 0 To TTabla4.Rows.Count - 1
                Dim FTabla4 As DataRow = TTabla4.Rows(Ciclo)
                ListaComprobanteDineroCobro.Items.Add(FTabla4("NombreComprobanteDinero").ToString)
            Next
        End If
        On Error GoTo 0
        ' Seleccionar los comprobates de producto factura venta por defecto
        For Ciclo = 0 To ListaComprobanteProductoVenta.Items.Count - 1
            If ListaComprobanteProductoVenta.Items(Ciclo).ToString.ToLower.LastIndexOf("cliente") <> -1 Then ListaComprobanteProductoVenta.SetSelected(Ciclo, True)
        Next
        ' Seleccionar los comprobates de producto factura compra por defecto
        For Ciclo = 0 To ListaComprobanteProductoCompra.Items.Count - 1
            If ListaComprobanteProductoCompra.Items(Ciclo).ToString.ToLower.LastIndexOf("proveedor") <> -1 Then ListaComprobanteProductoCompra.SetSelected(Ciclo, True)
        Next
        ' Seleccionar los comprobates de dinero cobro por defecto
        For Ciclo = 0 To ListaComprobanteDineroCobro.Items.Count - 1
            If ListaComprobanteDineroCobro.Items(Ciclo).ToString.ToLower.LastIndexOf("cliente") <> -1 Then ListaComprobanteDineroCobro.SetSelected(Ciclo, True)
        Next
        ' Seleccionar los comprobates de dinero pago por defecto
        For Ciclo = 0 To ListaComprobanteDineroPago.Items.Count - 1
            If ListaComprobanteDineroPago.Items(Ciclo).ToString.ToLower.LastIndexOf("proveedor") <> -1 Then ListaComprobanteDineroPago.SetSelected(Ciclo, True)
        Next
    End Sub

    Private Sub SubCalculoResultados()
        Const Uno As Short = 1
        Dim Continuar As Boolean = True
        Dim CondicionComprobante As String
        Dim Ciclo As Int32
        Dim Fila As Short
        Dim CicloComprobante As Int32
        Dim CicloImpuesto As Int32
        Dim CicloProducto As Int32
        Dim DiasTotalesPeriodo As Long
        Dim FechaInicio As Date
        Dim FechaFinal As Date
        Dim FechaGrafico1 As Date
        ' ATENCION: FALTARIA COLOCAR UNA FECHA MAS EN EL GRAFICO Y NO LO PERMITE, PARA QUE SEA COHERENTE LA INFORMACION DEL GRAFICO
        'Dim FechaGrafico2 As Date
        'Dim FechaGrafico3 As Date
        'Dim FechaGrafico4 As Date
        Dim FechaGrafico5 As Date
        ' Variables I.V.A.
        Dim ImporteIVAVenta As Double
        Dim ImporteIVACompra As Double
        ' Variable comprobante
        Dim ImporteTotalVenta As Double
        Dim ImporteTotalVentaPeriodo As Double
        Dim ImportePuntoGraficoVenta(10) As Double
        Dim ImporteTotalCompra As Double
        Dim ImporteTotalCompraPeriodo As Double
        Dim ImportePuntoGraficoCompra(10) As Double
        Dim ImporteTotalCobro As Double
        Dim ImporteTotalCobroPeriodo As Double
        Dim ImportePuntoGraficoCobro(10) As Double
        Dim ImporteTotalPago As Double
        Dim ImporteTotalPagoPeriodo As Double
        Dim ImportePuntoGraficoPago(10) As Double
        If DiaDesdeFecha.Value = Nothing Or DiaHastaFecha.Value = Nothing Or ListaComprobanteProductoVenta.Text = "" Or ListaComprobanteProductoCompra.Text = "" Or ListaComprobanteDineroCobro.Text = "" Or ListaComprobanteDineroPago.Text = "" Then
            ' Falta dato requerido
            MessageBox.Show(LeyendaFaltaDatoRequerido, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            On Error Resume Next
            ' Inicializacion
            ImporteIVAVenta = 0
            ImporteTotalVenta = 0
            CondicionComprobante = ""
            DiasTotalesPeriodo = DateDiff(DateInterval.Day, DiaDesdeFecha.Value, DiaHastaFecha.Value)
            ' Calcular comprobantes de producto venta
            For CicloComprobante = 0 To ListaComprobanteProductoVenta.SelectedItems.Count - 1
                If CondicionComprobante = "" Then
                    CondicionComprobante = " AND (NombreComprobanteProducto = '" & ListaComprobanteProductoVenta.SelectedItems(CicloComprobante).ToString & "'"
                Else
                    CondicionComprobante += " OR NombreComprobanteProducto = '" & ListaComprobanteProductoVenta.SelectedItems(CicloComprobante).ToString & "'"
                End If
            Next
            CondicionComprobante += ") ORDER BY Fecha, PtoVtaComprobante, NumeroComprobante"
            ' ATENCION: FALTA CADA UNO DE LOS VALORES DEL GRAFICO: HECHO
            ' Fechas inical y final del gráfico
            FechaGrafico1 = DiaDesdeFecha.Value
            FechaGrafico5 = DiaHastaFecha.Value
            For Ciclo = 2 To 10 Step 2
                ' Inicializacion
                ImporteTotalVentaPeriodo = 0
                ' Definir fecha inicial y final según los puntos del gráfico
                FechaInicio = DiaDesdeFecha.Value.AddDays(DiasTotalesPeriodo * ((Ciclo - 2) / 10))
                FechaFinal = DiaHastaFecha.Value.AddDays(-(DiasTotalesPeriodo * ((10 - Ciclo) / 10)))
                ' Abrir tabla
                ' ATENCION: EXISTE UN TEMA EL = DE SQL EN LOS PERIODOS DE FECHA, NO SEA COSA DE QUE TOME UN DIA DOS VECES
                ' Saber que perído está
                If FechaInicio = DiaDesdeFecha.Value Then
                    ' Primer período
                    SubAbrirTablaBDRgt("SELECT * FROM VComprobanteProducto WHERE Fecha >= #" & FechaInicio.ToString("MM/dd/yyyy") & "# AND Fecha <= #" & FechaFinal.ToString("MM/dd/yyyy") & "#" & CondicionComprobante)
                Else
                    ' Resto de períodos
                    SubAbrirTablaBDRgt("SELECT * FROM VComprobanteProducto WHERE Fecha > #" & FechaInicio.ToString("MM/dd/yyyy") & "# AND Fecha <= #" & FechaFinal.ToString("MM/dd/yyyy") & "#" & CondicionComprobante)
                End If
                For CicloComprobante = 0 To TTablaRgt.Rows.Count - 1
                    Dim FTablaRgt As DataRow = TTablaRgt.Rows(CicloComprobante)
                    If Not FnErrorADONET(Me) Then
                        ' Abrir tabla ComprobantesImpuestos solo para impuestos I.V.A.
                        SubAbrirTablaBDRgt2("SELECT * FROM VComprobanteProductoImpuestos WHERE NombreComprobanteProducto = '" & FTablaRgt("NombreComprobanteProducto").ToString & "' AND PtoVtaComprobante = " & FTablaRgt("PtoVtaComprobante").ToString & " AND NumeroComprobante = " & FTablaRgt("NumeroComprobante").ToString & " AND ClienteProveedor = '" & FTablaRgt("ClienteProveedor").ToString & "' AND (NombreImpuesto LIKE '%I.V.A.%' OR NombreImpuesto LIKE '%i.v.a.%')")
                        Dim FTablaRgtCero As DataRow = TTablaRgt2.Rows(0)
                        ' ATENCION: Si hay error no tiene impuestos de I.V.A.
                        If Not CBool(Err.Number) Then
                            ' No hubo error. Tiene algún I.V.A.
                            ' Abrimos la tabla de ComprobantesProductos para saber los productos incluidos en ese comprobante
                            SubAbrirTablaBDRgt3("SELECT * FROM VComprobanteProductoProductos WHERE NombreComprobanteProducto = '" & FTablaRgt("NombreComprobanteProducto").ToString & "' AND PtoVtaComprobante = " & FTablaRgt("PtoVtaComprobante").ToString & " AND NumeroComprobante = " & FTablaRgt("NumeroComprobante").ToString & " AND ClienteProveedor = '" & FTablaRgt("ClienteProveedor").ToString & "'")
                            ' recorremos los impuestos de I.V.A.
                            For CicloImpuesto = 0 To TTablaRgt2.Rows.Count - 1
                                Dim FTablaRgt2 As DataRow = TTablaRgt2.Rows(CicloImpuesto)
                                ' Buscar en cada producto el valor del impuesto I.V.A.
                                ' Saber porcentajes en productos
                                For CicloProducto = 0 To TTablaRgt3.Rows.Count - 1
                                    Dim FTablaRgt3 As DataRow = TTablaRgt3.Rows(CicloProducto)
                                    SubAbrirTablaBDRgt4("SELECT * FROM VComprobanteProductoProductosImpuestos WHERE NombreComprobanteProducto = '" & FTablaRgt("NombreComprobanteProducto").ToString & "' AND PtoVtaComprobante = " & FTablaRgt("PtoVtaComprobante").ToString & " AND NumeroComprobante = " & FTablaRgt("NumeroComprobante").ToString & " AND ClienteProveedor = '" & FTablaRgt("ClienteProveedor").ToString & "' AND NombreImpuesto = '" & FTablaRgt2("NombreImpuesto").ToString & "' AND NombreProducto = '" & FTablaRgt3("NombreProducto").ToString & "'")
                                    Dim FTablaRgt4 As DataRow = TTablaRgt4.Rows(0)
                                    ' Si el registro existe se toma ese valor, sino el del comprobante
                                    ' ATENCION: LA SUMA SE HACE PORCENTUAL PORQUE I.V.A. ES ASI, PERO PUEDE SER ABSOLUTO
                                    If Not CBool(Err.Number) Then
                                        ' No hubo error, se toma el producto
                                        ' ATENCION: FALTA DESCUENTO DE CP
                                        ImporteIVAVenta += Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("Cantidad").ToString)) * Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("PrecioSinImpuestos").ToString)) * ((-Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("DescuentoProducto").ToString)) / 100) + 1) * ((-Val(FnFormulaNumeroComaPorPunto(FTablaRgt("DescuentoPorcentajeGlobal").ToString)) / 100) + 1) * (Val(FnFormulaNumeroComaPorPunto(FTablaRgt4("Valor").ToString)) / 100)
                                    Else
                                        ' Hubo error, se toma el comprobante
                                        Err.Clear()
                                        ' ATENCION: FALTA DESCUENTO DE CP
                                        ImporteIVAVenta += Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("Cantidad").ToString)) * Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("PrecioSinImpuestos").ToString)) * ((-Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("DescuentoProducto").ToString)) / 100) + 1) * ((-Val(FnFormulaNumeroComaPorPunto(FTablaRgt("DescuentoPorcentajeGlobal").ToString)) / 100) + 1) * (Val(FnFormulaNumeroComaPorPunto(FTablaRgt2("Valor").ToString)) / 100)
                                    End If
                                Next
                            Next
                        Else
                            ' Hubo error
                            Err.Clear()
                        End If
                        ' Sumar el total del comprobante sin impuestos
                        ImporteTotalVenta += +Val(FnFormulaNumeroComaPorPunto(FTablaRgt("Subtotal").ToString))
                        ImporteTotalVentaPeriodo += +Val(FnFormulaNumeroComaPorPunto(FTablaRgt("Subtotal").ToString))
                    Else
                        Continuar = False
                        Exit For
                    End If
                Next
                ' Si hubo error salir de For
                If Not Continuar Then Exit For
                ' Establecer parciales para el gráfico
                ' El índice salte de 2 en 2
                ' ATENCION: HACE EL NUMERO ACUMULADO, Y CADA PERIODO DEBE SER POR SEPARADO
                ImportePuntoGraficoVenta(Ciclo) = ImporteTotalVentaPeriodo
            Next
            ' En caso de no haber error continuar
            If Continuar Then
                ' Calcular comprobantes de producto compra
                ' Inicialización
                ImporteIVACompra = 0
                ImporteTotalCompra = 0
                CondicionComprobante = ""
                DiasTotalesPeriodo = DateDiff(DateInterval.Day, DiaDesdeFecha.Value, DiaHastaFecha.Value)
                ' Calcular comprobantes de producto compra
                For CicloComprobante = 0 To ListaComprobanteProductoCompra.SelectedItems.Count - 1
                    If CondicionComprobante = "" Then
                        CondicionComprobante = " AND (NombreComprobanteProducto = '" & ListaComprobanteProductoCompra.SelectedItems(CicloComprobante).ToString & "'"
                    Else
                        CondicionComprobante += " OR NombreComprobanteProducto = '" & ListaComprobanteProductoCompra.SelectedItems(CicloComprobante).ToString & "'"
                    End If
                Next
                CondicionComprobante += ") ORDER BY Fecha, PtoVtaComprobante, NumeroComprobante"
                ' ATENCION: FALTA CADA UNO DE LOS VALORES DEL GRAFICO: HECHO
                For Ciclo = 2 To 10 Step 2
                    ' Inicialización
                    ImporteTotalCompraPeriodo = 0
                    ' Definir fecha inicial y final según los puntos del gráfico
                    FechaInicio = DiaDesdeFecha.Value.AddDays(DiasTotalesPeriodo * ((Ciclo - 2) / 10))
                    FechaFinal = DiaHastaFecha.Value.AddDays(-(DiasTotalesPeriodo * ((10 - Ciclo) / 10)))
                    ' Abrir tabla
                    ' ATENCION: EXISTE UN TEMA EL = DE SQL EN LOS PERIODOS DE FECHA, NO SEA COSA DE QUE TOME UN DIA DOS VECES
                    ' Saber que perído está
                    If FechaInicio = DiaDesdeFecha.Value Then
                        ' Primer período
                        SubAbrirTablaBDRgt("SELECT * FROM VComprobanteProducto WHERE Fecha >= #" & FechaInicio.ToString("MM/dd/yyyy") & "# AND Fecha <= #" & FechaFinal.ToString("MM/dd/yyyy") & "#" & CondicionComprobante)
                    Else
                        SubAbrirTablaBDRgt("SELECT * FROM VComprobanteProducto WHERE Fecha > #" & FechaInicio.ToString("MM/dd/yyyy") & "# AND Fecha <= #" & FechaFinal.ToString("MM/dd/yyyy") & "#" & CondicionComprobante)
                    End If
                    For CicloComprobante = 0 To TTablaRgt.Rows.Count - 1
                        Dim FTablaRgt As DataRow = TTablaRgt.Rows(CicloComprobante)
                        If Not FnErrorADONET(Me) Then
                            ' Abrir tabla ComprobantesImpuestos solo para impuestos I.V.A.
                            SubAbrirTablaBDRgt2("SELECT * FROM VComprobanteProductoImpuestos WHERE NombreComprobanteProducto = '" & FTablaRgt("NombreComprobanteProducto").ToString & "' AND PtoVtaComprobante = " & FTablaRgt("PtoVtaComprobante").ToString & " AND NumeroComprobante = " & FTablaRgt("NumeroComprobante").ToString & " AND ClienteProveedor = '" & FTablaRgt("ClienteProveedor").ToString & "' AND (NombreImpuesto LIKE '%I.V.A.%' OR NombreImpuesto LIKE '%i.v.a.%')")
                            Dim FTablaRgtCero As DataRow = TTablaRgt2.Rows(0)
                            ' ATENCION: Si hay error no tiene impuestos de I.V.A.
                            If Not CBool(Err.Number) Then
                                ' No hubo error. Tiene algún I.V.A.
                                ' Abrimos la tabla de ComprobantesProductos para saber los productos incluidos en ese comprobante
                                SubAbrirTablaBDRgt3("SELECT * FROM VComprobanteProductoProductos WHERE NombreComprobanteProducto = '" & FTablaRgt("NombreComprobanteProducto").ToString & "' AND PtoVtaComprobante = " & FTablaRgt("PtoVtaComprobante").ToString & " AND NumeroComprobante = " & FTablaRgt("NumeroComprobante").ToString & " AND ClienteProveedor = '" & FTablaRgt("ClienteProveedor").ToString & "'")
                                ' recorremos los impuestos de I.V.A.
                                For CicloImpuesto = 0 To TTablaRgt2.Rows.Count - 1
                                    Dim FTablaRgt2 As DataRow = TTablaRgt2.Rows(CicloImpuesto)
                                    ' Buscar en cada producto el valor del impuesto I.V.A.
                                    ' Saber porcentajes en productos
                                    For CicloProducto = 0 To TTablaRgt3.Rows.Count - 1
                                        Dim FTablaRgt3 As DataRow = TTablaRgt3.Rows(CicloProducto)
                                        SubAbrirTablaBDRgt4("SELECT * FROM VComprobanteProductoProductosImpuestos WHERE NombreComprobanteProducto = '" & FTablaRgt("NombreComprobanteProducto").ToString & "' AND PtoVtaComprobante = " & FTablaRgt("PtoVtaComprobante").ToString & " AND NumeroComprobante = " & FTablaRgt("NumeroComprobante").ToString & " AND ClienteProveedor = '" & FTablaRgt("ClienteProveedor").ToString & "' AND NombreImpuesto = '" & FTablaRgt2("NombreImpuesto").ToString & "' AND NombreProducto = '" & FTablaRgt3("NombreProducto").ToString & "'")
                                        Dim FTablaRgt4 As DataRow = TTablaRgt4.Rows(0)
                                        ' Si el registro existe se toma ese valor, sino el del comprobante
                                        ' ATENCION: LA SUMA SE HACE PORCENTUAL PORQUE I.V.A. ES ASI, PERO PUEDE SER ABSOLUTO
                                        If Not CBool(Err.Number) Then
                                            ' No hubo error, se toma el producto
                                            ' ATENCION: FALTA DESCUENTO DE CP
                                            ImporteIVACompra += Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("Cantidad").ToString)) * Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("PrecioSinImpuestos").ToString)) * ((-Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("DescuentoProducto").ToString)) / 100) + 1) * ((-Val(FnFormulaNumeroComaPorPunto(FTablaRgt("DescuentoPorcentajeGlobal").ToString)) / 100) + 1) * (Val(FnFormulaNumeroComaPorPunto(FTablaRgt4("Valor").ToString)) / 100)
                                        Else
                                            ' Hubo error, se toma el comprobante
                                            Err.Clear()
                                            ' ATENCION: FALTA DESCUENTO DE CP
                                            ImporteIVACompra += Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("Cantidad").ToString)) * Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("PrecioSinImpuestos").ToString)) * ((-Val(FnFormulaNumeroComaPorPunto(FTablaRgt3("DescuentoProducto").ToString)) / 100) + 1) * ((-Val(FnFormulaNumeroComaPorPunto(FTablaRgt("DescuentoPorcentajeGlobal").ToString)) / 100) + 1) * (Val(FnFormulaNumeroComaPorPunto(FTablaRgt2("Valor").ToString)) / 100)
                                        End If
                                    Next
                                Next
                            Else
                                ' Hubo error
                                Err.Clear()
                            End If
                            ' Sumar el total del comprobante sin impuestos
                            ImporteTotalCompra += +Val(FnFormulaNumeroComaPorPunto(FTablaRgt("Subtotal").ToString))
                            ImporteTotalCompraPeriodo += +Val(FnFormulaNumeroComaPorPunto(FTablaRgt("Subtotal").ToString))
                        Else
                            Continuar = False
                            Exit For
                        End If
                    Next
                    ' Si hubo error salir de For
                    If Not Continuar Then Exit For
                    ' Establecer parciales para el gráfico
                    ' El índice salta de 2 en 2
                    ' ATENCION: HACE EL NUMERO ACUMULADO, Y CADA PERIODO DEBE SER POR SEPARADO
                    ImportePuntoGraficoCompra(Ciclo) = ImporteTotalCompraPeriodo
                Next
                ' En caso de no haber error continuar
                If Continuar Then
                    ' Calcular comprobantes de dinero cobro
                    ' Inicialización
                    ImporteTotalCobro = 0
                    CondicionComprobante = ""
                    DiasTotalesPeriodo = DateDiff(DateInterval.Day, DiaDesdeFecha.Value, DiaHastaFecha.Value)
                    ' Calcular comprobantes de dinero cobro
                    For CicloComprobante = 0 To ListaComprobanteDineroCobro.SelectedItems.Count - 1
                        If CondicionComprobante = "" Then
                            CondicionComprobante = " AND (NombreComprobanteDinero = '" & ListaComprobanteDineroCobro.SelectedItems(CicloComprobante).ToString & "'"
                        Else
                            CondicionComprobante += " OR NombreComprobanteDinero = '" & ListaComprobanteDineroCobro.SelectedItems(CicloComprobante).ToString & "'"
                        End If
                    Next
                    CondicionComprobante += ") ORDER BY Fecha, PtoVtaComprobante, NumeroComprobante"
                    ' ATENCION: FALTA CADA UNO DE LOS VALORES DEL GRAFICO: HECHO
                    For Ciclo = 2 To 10 Step 2
                        ' Inicialización
                        ImporteTotalCobroPeriodo = 0
                        ' Definir fecha inicial y final según los puntos del gráfico
                        FechaInicio = DiaDesdeFecha.Value.AddDays(DiasTotalesPeriodo * ((Ciclo - 2) / 10))
                        FechaFinal = DiaHastaFecha.Value.AddDays(-(DiasTotalesPeriodo * ((10 - Ciclo) / 10)))
                        ' Abrir tabla
                        ' ATENCION: EXISTE UN TEMA EL = DE SQL EN LOS PERIODOS DE FECHA, NO SEA COSA DE QUE TOME UN DIA DOS VECES
                        ' Saber que perído está
                        If FechaInicio = DiaDesdeFecha.Value Then
                            ' Primer período
                            SubAbrirTablaBDRgt("SELECT * FROM VComprobanteDinero WHERE Fecha >= #" & FechaInicio.ToString("MM/dd/yyyy") & "# AND Fecha <= #" & FechaFinal.ToString("MM/dd/yyyy") & "#" & CondicionComprobante)
                        Else
                            SubAbrirTablaBDRgt("SELECT * FROM VComprobanteDinero WHERE Fecha > #" & FechaInicio.ToString("MM/dd/yyyy") & "# AND Fecha <= #" & FechaFinal.ToString("MM/dd/yyyy") & "#" & CondicionComprobante)
                        End If
                        For CicloComprobante = 0 To TTablaRgt.Rows.Count - 1
                            Dim FTablaRgt As DataRow = TTablaRgt.Rows(CicloComprobante)
                            If Not FnErrorADONET(Me) Then
                                ' Sumar el total del comprobante a total cobros
                                ImporteTotalCobro += +Val(FnFormulaNumeroComaPorPunto(FTablaRgt("ImporteTotal").ToString))
                                ImporteTotalCobroPeriodo += +Val(FnFormulaNumeroComaPorPunto(FTablaRgt("ImporteTotal").ToString))
                            Else
                                Continuar = False
                                Exit For
                            End If
                        Next
                        ' Si hubo error salir de For
                        If Not Continuar Then Exit For
                        ' Establecer parciales para el gráfico
                        ' El índice salta de 2 en 2
                        ' ATENCION: HACE EL NUMERO ACUMULADO, Y CADA PERIODO DEBE SER POR SEPARADO
                        ImportePuntoGraficoCobro(Ciclo) = ImporteTotalCobroPeriodo
                    Next
                    ' En caso de no haber error continuar
                    If Continuar Then
                        ' Calcular comprobantes de dinero pago
                        ' Inicialización
                        ImporteTotalPago = 0
                        CondicionComprobante = ""
                        DiasTotalesPeriodo = DateDiff(DateInterval.Day, DiaDesdeFecha.Value, DiaHastaFecha.Value)
                        ' Calcular comprobantes de dinero pago
                        For CicloComprobante = 0 To ListaComprobanteDineroPago.SelectedItems.Count - 1
                            If CondicionComprobante = "" Then
                                CondicionComprobante = " AND (NombreComprobanteDinero = '" & ListaComprobanteDineroPago.SelectedItems(CicloComprobante).ToString & "'"
                            Else
                                CondicionComprobante += " OR NombreComprobanteDinero = '" & ListaComprobanteDineroPago.SelectedItems(CicloComprobante).ToString & "'"
                            End If
                        Next
                        CondicionComprobante += ") ORDER BY Fecha, PtoVtaComprobante, NumeroComprobante"
                        ' ATENCION: FALTA CADA UNO DE LOS VALORES DEL GRAFICO: HECHO
                        For Ciclo = 2 To 10 Step 2
                            ' Inicialización
                            ImporteTotalPagoPeriodo = 0
                            ' Definir fecha inicial y final según los puntos del gráfico
                            FechaInicio = DiaDesdeFecha.Value.AddDays(DiasTotalesPeriodo * ((Ciclo - 2) / 10))
                            FechaFinal = DiaHastaFecha.Value.AddDays(-(DiasTotalesPeriodo * ((10 - Ciclo) / 10)))
                            ' Abrir tabla
                            ' ATENCION: EXISTE UN TEMA EL = DE SQL EN LOS PERIODOS DE FECHA, NO SEA COSA DE QUE TOME UN DIA DOS VECES
                            ' Saber que perído está
                            If FechaInicio = DiaDesdeFecha.Value Then
                                ' Primer período
                                SubAbrirTablaBDRgt("SELECT * FROM VComprobanteDinero WHERE Fecha >= #" & FechaInicio.ToString("MM/dd/yyyy") & "# AND Fecha <= #" & FechaFinal.ToString("MM/dd/yyyy") & "#" & CondicionComprobante)
                            Else
                                SubAbrirTablaBDRgt("SELECT * FROM VComprobanteDinero WHERE Fecha > #" & FechaInicio.ToString("MM/dd/yyyy") & "# AND Fecha <= #" & FechaFinal.ToString("MM/dd/yyyy") & "#" & CondicionComprobante)
                            End If
                            For CicloComprobante = 0 To TTablaRgt.Rows.Count - 1
                                Dim FTablaRgt As DataRow = TTablaRgt.Rows(CicloComprobante)
                                If Not FnErrorADONET(Me) Then
                                    ' Sumar el total del comprobante a total cobros
                                    ImporteTotalPago += +Val(FnFormulaNumeroComaPorPunto(FTablaRgt("ImporteTotal").ToString))
                                    ImporteTotalPagoPeriodo += +Val(FnFormulaNumeroComaPorPunto(FTablaRgt("ImporteTotal").ToString))
                                Else
                                    Continuar = False
                                    Exit For
                                End If
                            Next
                            ' Si hubo error salir de For
                            If Not Continuar Then Exit For
                            ' Establecer parciales para el gráfico
                            ' El índice salta de 2 en 2
                            ' ATENCION: HACE EL NUMERO ACUMULADO, Y CADA PERIODO DEBE SER POR SEPARADO
                            ImportePuntoGraficoPago(Ciclo) = ImporteTotalPagoPeriodo
                        Next
                    End If
                End If
            End If
            ' Visualizar resultados en pantalla en caso de no haber error
            If Continuar Then
                ' Visualizar en pantalla
                ' Mostrar compras de productos a proveedores
                Fila = 0
                For Ciclo = 2 To 10 Step 2
                    Fila += +Uno
                    Grafico.Row = Fila
                    Grafico.Column = 1
                    Grafico.Data = FnFormulaNumeroPuntoPorComa(Str(ImportePuntoGraficoCompra(Ciclo)))
                    ' Colocar fechas en gráfico
                    ' ATENCION: FALTARIA COLOCAR UNA FECHA MAS EN EL GRAFICO Y NO LO PERMITE, PARA QUE SEA COHERENTE LA INFORMACION DEL GRAFICO
                    If Ciclo = 2 Then
                        Grafico.RowLabel = FormatDateTime(FechaGrafico1, DateFormat.ShortDate)
                        Grafico.ColumnLabel = "$"
                    ElseIf Ciclo = 4 Then
                        Grafico.RowLabel = "Período 2"
                    ElseIf Ciclo = 6 Then
                        Grafico.RowLabel = "Período 3"
                    ElseIf Ciclo = 8 Then
                        Grafico.RowLabel = "Período 4"
                    ElseIf Ciclo = 10 Then
                        Grafico.RowLabel = FormatDateTime(FechaGrafico5, DateFormat.ShortDate)
                    End If
                Next
                ' Mostrar ventas de productos a clientes
                Fila = 0
                For Ciclo = 2 To 10 Step 2
                    Fila += +Uno
                    Grafico.Row = Fila
                    Grafico.Column = 2
                    Grafico.Data = FnFormulaNumeroPuntoPorComa(Str(ImportePuntoGraficoVenta(Ciclo)))
                Next
                ' Mostrar pagos de comprobantes productos a proveedores
                Fila = 0
                For Ciclo = 2 To 10 Step 2
                    Fila += +Uno
                    Grafico.Row = Fila
                    Grafico.Column = 4
                    Grafico.Data = FnFormulaNumeroPuntoPorComa(Str(ImportePuntoGraficoPago(Ciclo)))
                Next
                ' Mostrar cobros de comprobantes productos a clientes
                Fila = 0
                For Ciclo = 2 To 10 Step 2
                    Fila += +Uno
                    Grafico.Row = Fila
                    Grafico.Column = 3
                    Grafico.Data = FnFormulaNumeroPuntoPorComa(Str(ImportePuntoGraficoCobro(Ciclo)))
                Next
                ' Mostrar en pantalla totales I.V.A. y facturaciones
                TextoVenta.Text = FormatNumber(ImporteTotalVenta, 2)
                TextoCobro.Text = FormatNumber(ImporteTotalCobro, 2)
                TextoCompra.Text = FormatNumber(ImporteTotalCompra, 2)
                TextoPago.Text = FormatNumber(ImporteTotalPago, 2)
                TextoIVAVenta.Text = FormatNumber(ImporteIVAVenta, 2)
                TextoIVACompra.Text = FormatNumber(ImporteIVACompra, 2)
                ' Etiqueta Y
            Else
                ' Hubo error
                MessageBox.Show(LeyendaNoTableroControl & Err.Description, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Error)
                SubPuestaCeroResultado()
            End If
            On Error GoTo 0
            Me.Cursor = System.Windows.Forms.Cursors.Default
        End If
    End Sub

    Private Function FnFormulaNumeroPuntoPorComa(ByVal FormulaNumero As String) As String
        Dim PosicionNumero As Int32
        ' Cambiar las comas de la parte decimal de formula por puntos
        PosicionNumero = InStr(1, FormulaNumero, ".")
        Do While PosicionNumero <> 0
            'FormulaNumero = Left(FormulaNumero, PosicionNumero - 1) & "," & Right(FormulaNumero, Len(FormulaNumero) - PosicionNumero)
            FormulaNumero = FormulaNumero.Substring(0, PosicionNumero - 1) & "," & FormulaNumero.Substring(PosicionNumero)
            PosicionNumero = InStr(1, FormulaNumero, ".")
        Loop
        FnFormulaNumeroPuntoPorComa = FormulaNumero
    End Function

    Private Sub TableroControl_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        CType(Me.MdiParent, VentaTec).MenuPrincipal.MenuItems(1).MenuItems(16).Enabled = True
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
    End Sub

    Private Sub OrejaTablero_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrejaTablero.SelectedIndexChanged
        ' Si se cambia al tab Resultado, calcular nuevamente los resultados
        If OrejaTablero.SelectedIndex = 1 Then SubCalculoResultados()
    End Sub

    Private Sub SubPuestaCeroResultado()
        Const Uno As Short = 1
        Dim Ciclo As Int32
        Dim Fila As Short
        ' Visualizar en pantalla
        ' Mostrar compras de productos a proveedores
        Fila = 0
        For Ciclo = 2 To 10 Step 2
            Fila += +Uno
            Grafico.Row = Fila
            Grafico.Column = 1
            Grafico.Data = Str(0)
        Next
        ' Mostrar ventas de productos a clientes
        Fila = 0
        For Ciclo = 2 To 10 Step 2
            Fila += +Uno
            Grafico.Row = Fila
            Grafico.Column = 2
            Grafico.Data = Str(0)
        Next
        ' Mostrar pagos de comprobantes productos a proveedores
        Fila = 0
        For Ciclo = 2 To 10 Step 2
            Fila += +Uno
            Grafico.Row = Fila
            Grafico.Column = 3
            Grafico.Data = Str(0)
        Next
        ' Mostrar cobros de comprobantes productos a clientes
        Fila = 0
        For Ciclo = 2 To 10 Step 2
            Fila += +Uno
            Grafico.Row = Fila
            Grafico.Column = 4
            Grafico.Data = Str(0)
        Next
        ' Mostrar en pantalla totales I.V.A. y facturaciones
        TextoVenta.Text = ""
        TextoCobro.Text = ""
        TextoCompra.Text = ""
        TextoPago.Text = ""
        TextoIVAVenta.Text = ""
        TextoIVACompra.Text = ""
    End Sub
End Class
