781 lines
51 KiB
VB.net
781 lines
51 KiB
VB.net
|
Public Class Inusuales
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
Private dtClientes As New DataTable() 'Tabla de combo de Clientes
|
|||
|
|
Private dtProductos As New DataTable() 'Tabla de Combo de Productos
|
|||
|
|
Private dtSubProductos As New DataTable() 'Tabla de Combo de SubProductos
|
|||
|
|
Private dtAlarmas As New DataTable() 'Tabla de datos de Alarmas
|
|||
|
|
Private dtReporte As New DataTable() 'Tabla de datos de reprote
|
|||
|
|
Private LlenaCombo As New LlenaCombo()
|
|||
|
|
Private LlenaGrid As New LlenaGrid()
|
|||
|
|
Private LlenaDVExpress As New LlenaDVExpress()
|
|||
|
|
Private strFechaIni As String
|
|||
|
|
Private strFechaFin As String
|
|||
|
|
Private reporte As Int16
|
|||
|
|
Private NombreReporte As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
#Region " C<>digo generado por el Dise<73>ador de Windows Forms "
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New()
|
|||
|
|
|
|||
|
|
'El Dise<73>ador de Windows Forms requiere esta llamada.
|
|||
|
|
InitializeComponent()
|
|||
|
|
|
|||
|
|
'Agregar cualquier inicializaci<63>n despu<70>s de la llamada a InitializeComponent()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Form reemplaza a Dispose para limpiar la lista de componentes.
|
|||
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|||
|
|
If disposing Then
|
|||
|
|
If Not (components Is Nothing) Then
|
|||
|
|
components.Dispose()
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
MyBase.Dispose(disposing)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Requerido por el Dise<73>ador de Windows Forms
|
|||
|
|
Private components As System.ComponentModel.IContainer
|
|||
|
|
|
|||
|
|
'NOTA: el Dise<73>ador de Windows Forms requiere el siguiente procedimiento
|
|||
|
|
'Puede modificarse utilizando el Dise<73>ador de Windows Forms.
|
|||
|
|
'No lo modifique con el editor de c<>digo.
|
|||
|
|
Friend WithEvents tlbCatUnuarios As System.Windows.Forms.ToolBar
|
|||
|
|
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents btnConsultar As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents btnExportar As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|||
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents grbPeriodo As System.Windows.Forms.GroupBox
|
|||
|
|
Friend WithEvents lblFechaIni As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents lblFechaFin As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents lblProd As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cboProductos As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
|
|||
|
|
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents dtgRep As DevExpress.XtraGrid.GridControl
|
|||
|
|
Friend WithEvents PersistentRepository1 As DevExpress.XtraEditors.Repository.PersistentRepository
|
|||
|
|
Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
|
|||
|
|
Friend WithEvents Transaccion As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents No_Cuenta As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents Sucursal As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents No_Referencia As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents TipoOperacion As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents InsMon As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents Divisa As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents Monto As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents Cliente As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents dtpFechaFin As System.Windows.Forms.DateTimePicker
|
|||
|
|
Friend WithEvents dtpFechaIni As System.Windows.Forms.DateTimePicker
|
|||
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cboClientes As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents Fecha As DevExpress.XtraGrid.Columns.GridColumn
|
|||
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cboReportes As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents vwreporte As DevExpress.XtraGrid.Views.Grid.GridView
|
|||
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cboSubProductos As System.Windows.Forms.ComboBox
|
|||
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|||
|
|
Me.components = New System.ComponentModel.Container()
|
|||
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Inusuales))
|
|||
|
|
Me.tlbCatUnuarios = New System.Windows.Forms.ToolBar()
|
|||
|
|
Me.btnConsultar = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnExportar = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnSalir = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|||
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.cboSubProductos = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.cboReportes = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Panel3 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|||
|
|
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|||
|
|
Me.cboProductos = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.grbPeriodo = New System.Windows.Forms.GroupBox()
|
|||
|
|
Me.dtpFechaFin = New System.Windows.Forms.DateTimePicker()
|
|||
|
|
Me.lblFechaFin = New System.Windows.Forms.Label()
|
|||
|
|
Me.lblFechaIni = New System.Windows.Forms.Label()
|
|||
|
|
Me.dtpFechaIni = New System.Windows.Forms.DateTimePicker()
|
|||
|
|
Me.cboClientes = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.lblProd = New System.Windows.Forms.Label()
|
|||
|
|
Me.Label5 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.dtgRep = New DevExpress.XtraGrid.GridControl()
|
|||
|
|
Me.PersistentRepository1 = New DevExpress.XtraEditors.Repository.PersistentRepository()
|
|||
|
|
Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
|
|||
|
|
Me.vwreporte = New DevExpress.XtraGrid.Views.Grid.GridView()
|
|||
|
|
Me.Transaccion = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.No_Cuenta = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.Sucursal = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.No_Referencia = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.Fecha = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.TipoOperacion = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.InsMon = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.Divisa = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.Monto = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.Cliente = New DevExpress.XtraGrid.Columns.GridColumn()
|
|||
|
|
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
|||
|
|
Me.Panel1.SuspendLayout()
|
|||
|
|
Me.Panel3.SuspendLayout()
|
|||
|
|
Me.grbPeriodo.SuspendLayout()
|
|||
|
|
Me.Panel2.SuspendLayout()
|
|||
|
|
CType(Me.dtgRep, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
CType(Me.vwreporte, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.SuspendLayout()
|
|||
|
|
'
|
|||
|
|
'tlbCatUnuarios
|
|||
|
|
'
|
|||
|
|
Me.tlbCatUnuarios.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
|||
|
|
Me.tlbCatUnuarios.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnConsultar, Me.btnExportar, Me.btnSalir})
|
|||
|
|
Me.tlbCatUnuarios.ButtonSize = New System.Drawing.Size(75, 40)
|
|||
|
|
Me.tlbCatUnuarios.DropDownArrows = True
|
|||
|
|
Me.tlbCatUnuarios.ImageList = Me.ImageList1
|
|||
|
|
Me.tlbCatUnuarios.Name = "tlbCatUnuarios"
|
|||
|
|
Me.tlbCatUnuarios.ShowToolTips = True
|
|||
|
|
Me.tlbCatUnuarios.Size = New System.Drawing.Size(680, 44)
|
|||
|
|
Me.tlbCatUnuarios.TabIndex = 24
|
|||
|
|
'
|
|||
|
|
'btnConsultar
|
|||
|
|
'
|
|||
|
|
Me.btnConsultar.ImageIndex = 8
|
|||
|
|
Me.btnConsultar.Text = "Consultar"
|
|||
|
|
'
|
|||
|
|
'btnExportar
|
|||
|
|
'
|
|||
|
|
Me.btnExportar.ImageIndex = 9
|
|||
|
|
Me.btnExportar.Text = "Exportar"
|
|||
|
|
'
|
|||
|
|
'btnSalir
|
|||
|
|
'
|
|||
|
|
Me.btnSalir.ImageIndex = 4
|
|||
|
|
Me.btnSalir.Text = "Salir"
|
|||
|
|
'
|
|||
|
|
'ImageList1
|
|||
|
|
'
|
|||
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|||
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|||
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|||
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
|
|||
|
|
'
|
|||
|
|
'Panel1
|
|||
|
|
'
|
|||
|
|
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.cboSubProductos, Me.cboReportes, Me.Label4, Me.Panel3, Me.cboProductos, Me.grbPeriodo, Me.cboClientes, Me.lblProd, Me.Label5, Me.Label1})
|
|||
|
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
|||
|
|
Me.Panel1.Location = New System.Drawing.Point(0, 44)
|
|||
|
|
Me.Panel1.Name = "Panel1"
|
|||
|
|
Me.Panel1.Size = New System.Drawing.Size(680, 156)
|
|||
|
|
Me.Panel1.TabIndex = 25
|
|||
|
|
'
|
|||
|
|
'cboSubProductos
|
|||
|
|
'
|
|||
|
|
Me.cboSubProductos.Location = New System.Drawing.Point(696, 48)
|
|||
|
|
Me.cboSubProductos.Name = "cboSubProductos"
|
|||
|
|
Me.cboSubProductos.Size = New System.Drawing.Size(216, 21)
|
|||
|
|
Me.cboSubProductos.TabIndex = 8
|
|||
|
|
Me.cboSubProductos.Text = "ComboBox2"
|
|||
|
|
'
|
|||
|
|
'cboReportes
|
|||
|
|
'
|
|||
|
|
Me.cboReportes.Items.AddRange(New Object() {"Relevantes", "Inusuales"})
|
|||
|
|
Me.cboReportes.Location = New System.Drawing.Point(104, 88)
|
|||
|
|
Me.cboReportes.Name = "cboReportes"
|
|||
|
|
Me.cboReportes.Size = New System.Drawing.Size(208, 21)
|
|||
|
|
Me.cboReportes.TabIndex = 6
|
|||
|
|
Me.cboReportes.Text = "ComboBox2"
|
|||
|
|
'
|
|||
|
|
'Label4
|
|||
|
|
'
|
|||
|
|
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label4.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.Label4.Location = New System.Drawing.Point(24, 88)
|
|||
|
|
Me.Label4.Name = "Label4"
|
|||
|
|
Me.Label4.Size = New System.Drawing.Size(64, 16)
|
|||
|
|
Me.Label4.TabIndex = 5
|
|||
|
|
Me.Label4.Text = "Reporte :"
|
|||
|
|
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|||
|
|
'
|
|||
|
|
'Panel3
|
|||
|
|
'
|
|||
|
|
Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.ComboBox2, Me.Label3, Me.ComboBox1, Me.Label2})
|
|||
|
|
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
|
|||
|
|
Me.Panel3.Location = New System.Drawing.Point(0, 108)
|
|||
|
|
Me.Panel3.Name = "Panel3"
|
|||
|
|
Me.Panel3.Size = New System.Drawing.Size(680, 48)
|
|||
|
|
Me.Panel3.TabIndex = 4
|
|||
|
|
Me.Panel3.Visible = False
|
|||
|
|
'
|
|||
|
|
'ComboBox2
|
|||
|
|
'
|
|||
|
|
Me.ComboBox2.Location = New System.Drawing.Point(480, 8)
|
|||
|
|
Me.ComboBox2.Name = "ComboBox2"
|
|||
|
|
Me.ComboBox2.Size = New System.Drawing.Size(376, 21)
|
|||
|
|
Me.ComboBox2.TabIndex = 7
|
|||
|
|
Me.ComboBox2.Text = "ComboBox2"
|
|||
|
|
'
|
|||
|
|
'Label3
|
|||
|
|
'
|
|||
|
|
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label3.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.Label3.Location = New System.Drawing.Point(352, 16)
|
|||
|
|
Me.Label3.Name = "Label3"
|
|||
|
|
Me.Label3.Size = New System.Drawing.Size(120, 16)
|
|||
|
|
Me.Label3.TabIndex = 6
|
|||
|
|
Me.Label3.Text = "Estatus Reporte :"
|
|||
|
|
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|||
|
|
'
|
|||
|
|
'ComboBox1
|
|||
|
|
'
|
|||
|
|
Me.ComboBox1.Location = New System.Drawing.Point(112, 8)
|
|||
|
|
Me.ComboBox1.Name = "ComboBox1"
|
|||
|
|
Me.ComboBox1.Size = New System.Drawing.Size(240, 21)
|
|||
|
|
Me.ComboBox1.TabIndex = 5
|
|||
|
|
Me.ComboBox1.Text = "ComboBox2"
|
|||
|
|
'
|
|||
|
|
'Label2
|
|||
|
|
'
|
|||
|
|
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label2.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.Label2.Location = New System.Drawing.Point(32, 16)
|
|||
|
|
Me.Label2.Name = "Label2"
|
|||
|
|
Me.Label2.Size = New System.Drawing.Size(72, 16)
|
|||
|
|
Me.Label2.TabIndex = 4
|
|||
|
|
Me.Label2.Text = "Patron :"
|
|||
|
|
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|||
|
|
'
|
|||
|
|
'cboProductos
|
|||
|
|
'
|
|||
|
|
Me.cboProductos.Location = New System.Drawing.Point(416, 48)
|
|||
|
|
Me.cboProductos.Name = "cboProductos"
|
|||
|
|
Me.cboProductos.Size = New System.Drawing.Size(176, 21)
|
|||
|
|
Me.cboProductos.TabIndex = 3
|
|||
|
|
Me.cboProductos.Text = "ComboBox2"
|
|||
|
|
'
|
|||
|
|
'grbPeriodo
|
|||
|
|
'
|
|||
|
|
Me.grbPeriodo.Controls.AddRange(New System.Windows.Forms.Control() {Me.dtpFechaFin, Me.lblFechaFin, Me.lblFechaIni, Me.dtpFechaIni})
|
|||
|
|
Me.grbPeriodo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.grbPeriodo.ForeColor = System.Drawing.SystemColors.ActiveCaption
|
|||
|
|
Me.grbPeriodo.Location = New System.Drawing.Point(8, 0)
|
|||
|
|
Me.grbPeriodo.Name = "grbPeriodo"
|
|||
|
|
Me.grbPeriodo.Size = New System.Drawing.Size(312, 80)
|
|||
|
|
Me.grbPeriodo.TabIndex = 0
|
|||
|
|
Me.grbPeriodo.TabStop = False
|
|||
|
|
Me.grbPeriodo.Text = "Periodo "
|
|||
|
|
'
|
|||
|
|
'dtpFechaFin
|
|||
|
|
'
|
|||
|
|
Me.dtpFechaFin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.dtpFechaFin.Location = New System.Drawing.Point(96, 48)
|
|||
|
|
Me.dtpFechaFin.Name = "dtpFechaFin"
|
|||
|
|
Me.dtpFechaFin.Size = New System.Drawing.Size(208, 20)
|
|||
|
|
Me.dtpFechaFin.TabIndex = 2
|
|||
|
|
'
|
|||
|
|
'lblFechaFin
|
|||
|
|
'
|
|||
|
|
Me.lblFechaFin.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.lblFechaFin.Location = New System.Drawing.Point(8, 48)
|
|||
|
|
Me.lblFechaFin.Name = "lblFechaFin"
|
|||
|
|
Me.lblFechaFin.Size = New System.Drawing.Size(88, 16)
|
|||
|
|
Me.lblFechaFin.TabIndex = 1
|
|||
|
|
Me.lblFechaFin.Text = "Fecha Final :"
|
|||
|
|
'
|
|||
|
|
'lblFechaIni
|
|||
|
|
'
|
|||
|
|
Me.lblFechaIni.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.lblFechaIni.Location = New System.Drawing.Point(8, 24)
|
|||
|
|
Me.lblFechaIni.Name = "lblFechaIni"
|
|||
|
|
Me.lblFechaIni.Size = New System.Drawing.Size(88, 16)
|
|||
|
|
Me.lblFechaIni.TabIndex = 0
|
|||
|
|
Me.lblFechaIni.Text = "Fecha Inicial :"
|
|||
|
|
'
|
|||
|
|
'dtpFechaIni
|
|||
|
|
'
|
|||
|
|
Me.dtpFechaIni.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.dtpFechaIni.Location = New System.Drawing.Point(96, 16)
|
|||
|
|
Me.dtpFechaIni.Name = "dtpFechaIni"
|
|||
|
|
Me.dtpFechaIni.Size = New System.Drawing.Size(208, 20)
|
|||
|
|
Me.dtpFechaIni.TabIndex = 0
|
|||
|
|
'
|
|||
|
|
'cboClientes
|
|||
|
|
'
|
|||
|
|
Me.cboClientes.ItemHeight = 13
|
|||
|
|
Me.cboClientes.Location = New System.Drawing.Point(416, 8)
|
|||
|
|
Me.cboClientes.Name = "cboClientes"
|
|||
|
|
Me.cboClientes.Size = New System.Drawing.Size(496, 21)
|
|||
|
|
Me.cboClientes.TabIndex = 0
|
|||
|
|
Me.cboClientes.Text = "ComboBox1"
|
|||
|
|
'
|
|||
|
|
'lblProd
|
|||
|
|
'
|
|||
|
|
Me.lblProd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.lblProd.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.lblProd.Location = New System.Drawing.Point(336, 56)
|
|||
|
|
Me.lblProd.Name = "lblProd"
|
|||
|
|
Me.lblProd.Size = New System.Drawing.Size(72, 16)
|
|||
|
|
Me.lblProd.TabIndex = 2
|
|||
|
|
Me.lblProd.Text = "Productos :"
|
|||
|
|
Me.lblProd.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|||
|
|
'
|
|||
|
|
'Label5
|
|||
|
|
'
|
|||
|
|
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label5.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.Label5.Location = New System.Drawing.Point(600, 56)
|
|||
|
|
Me.Label5.Name = "Label5"
|
|||
|
|
Me.Label5.Size = New System.Drawing.Size(88, 16)
|
|||
|
|
Me.Label5.TabIndex = 7
|
|||
|
|
Me.Label5.Text = "Subproductos :"
|
|||
|
|
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|||
|
|
'
|
|||
|
|
'Label1
|
|||
|
|
'
|
|||
|
|
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label1.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.Label1.Location = New System.Drawing.Point(336, 16)
|
|||
|
|
Me.Label1.Name = "Label1"
|
|||
|
|
Me.Label1.Size = New System.Drawing.Size(72, 16)
|
|||
|
|
Me.Label1.TabIndex = 1
|
|||
|
|
Me.Label1.Text = "Clientes :"
|
|||
|
|
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|||
|
|
'
|
|||
|
|
'Panel2
|
|||
|
|
'
|
|||
|
|
Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.dtgRep})
|
|||
|
|
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.Panel2.Location = New System.Drawing.Point(0, 200)
|
|||
|
|
Me.Panel2.Name = "Panel2"
|
|||
|
|
Me.Panel2.Size = New System.Drawing.Size(680, 349)
|
|||
|
|
Me.Panel2.TabIndex = 26
|
|||
|
|
'
|
|||
|
|
'dtgRep
|
|||
|
|
'
|
|||
|
|
Me.dtgRep.BackColor = System.Drawing.Color.RoyalBlue
|
|||
|
|
Me.dtgRep.Cursor = System.Windows.Forms.Cursors.Arrow
|
|||
|
|
Me.dtgRep.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.dtgRep.EditorsRepository = Me.PersistentRepository1
|
|||
|
|
Me.dtgRep.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.dtgRep.MainView = Me.vwreporte
|
|||
|
|
Me.dtgRep.Name = "dtgRep"
|
|||
|
|
Me.dtgRep.Size = New System.Drawing.Size(680, 349)
|
|||
|
|
Me.dtgRep.Styles.AddReplace("FooterPanel", New DevExpress.Utils.ViewStyle("FooterPanel", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Far, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.InactiveCaption, System.Drawing.SystemColors.ControlText))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("GroupButton", New DevExpress.Utils.ViewStyle("GroupButton", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.ControlLightLight, System.Drawing.SystemColors.ControlText))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("FilterButtonPressed", New DevExpress.Utils.ViewStyle("FilterButtonPressed", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.ControlText, System.Drawing.SystemColors.InfoText))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("EvenRow", New DevExpress.Utils.ViewStyle("EvenRow", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", DevExpress.Utils.StyleOptions.None, True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.Lime, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("HideSelectionRow", New DevExpress.Utils.ViewStyle("HideSelectionRow", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage), True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.Info, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("PressedColumn", New DevExpress.Utils.ViewStyle("PressedColumn", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "HeaderPanel", (((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor), True, False, False, DevExpress.Utils.HorzAlignment.Near, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.Info, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("GroupPanel", New DevExpress.Utils.ViewStyle("GroupPanel", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Near, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.ActiveCaptionText, System.Drawing.SystemColors.ControlText))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("Empty", New DevExpress.Utils.ViewStyle("Empty", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.AliceBlue, System.Drawing.SystemColors.MenuText))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("HeaderPanel", New DevExpress.Utils.ViewStyle("HeaderPanel", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Near, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.HighlightText, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("GroupRow", New DevExpress.Utils.ViewStyle("GroupRow", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Near, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.GhostWhite, System.Drawing.Color.Blue))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("FocusedRow", New DevExpress.Utils.ViewStyle("FocusedRow", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage), True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.Info, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("GroupFooter", New DevExpress.Utils.ViewStyle("GroupFooter", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Far, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.ActiveCaptionText, System.Drawing.SystemColors.ControlText))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("FocusedCell", New DevExpress.Utils.ViewStyle("FocusedCell", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage), True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.Info, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("OddRow", New DevExpress.Utils.ViewStyle("OddRow", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", DevExpress.Utils.StyleOptions.None, True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.Info, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("SelectedRow", New DevExpress.Utils.ViewStyle("SelectedRow", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage), True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.Info, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("FocusedGroup", New DevExpress.Utils.ViewStyle("FocusedGroup", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "FocusedRow", DevExpress.Utils.StyleOptions.StyleEnabled, True, False, False, DevExpress.Utils.HorzAlignment.Near, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.SystemColors.Info, System.Drawing.SystemColors.HotTrack))
|
|||
|
|
Me.dtgRep.Styles.AddReplace("Row", New DevExpress.Utils.ViewStyle("Row", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", DevExpress.Utils.StyleOptions.StyleEnabled, True, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.AliceBlue, System.Drawing.SystemColors.WindowText))
|
|||
|
|
Me.dtgRep.TabIndex = 3
|
|||
|
|
'
|
|||
|
|
'PersistentRepository1
|
|||
|
|
'
|
|||
|
|
Me.PersistentRepository1.Items.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1})
|
|||
|
|
'
|
|||
|
|
'RepositoryItemTextEdit1
|
|||
|
|
'
|
|||
|
|
Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1"
|
|||
|
|
Me.RepositoryItemTextEdit1.Properties.AllowFocused = False
|
|||
|
|
Me.RepositoryItemTextEdit1.Properties.AutoHeight = False
|
|||
|
|
Me.RepositoryItemTextEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
|
|||
|
|
'
|
|||
|
|
'vwreporte
|
|||
|
|
'
|
|||
|
|
Me.vwreporte.BehaviorOptions = ((((((((((((((((DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.AllowFilter Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.AllowZoomDetail) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.AutoZoomDetail) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.EnableMasterViewMode) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.SmartDetailHeight) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.SmartVertScrollBar) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.ShowAllTableValuesInFilterPopup) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.MultiSelect) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.AutoSelectAllInEditor) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.UseTabKey) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.EnterMoveNextColumn) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.KeepGroupExpandedOnSorting) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.UseFastDraw) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.UseNewCustomFilterDialog) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.AllowSort) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.AllowGroup) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.BehaviorOptionsFlags.RowAutoHeight)
|
|||
|
|
Me.vwreporte.BorderStyle = DevExpress.XtraGrid.Views.Grid.ViewBorderStyle.Flat
|
|||
|
|
Me.vwreporte.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.Transaccion, Me.No_Cuenta, Me.Sucursal, Me.No_Referencia, Me.Fecha, Me.TipoOperacion, Me.InsMon, Me.Divisa, Me.Monto, Me.Cliente})
|
|||
|
|
Me.vwreporte.CustomizationRowCount = 3
|
|||
|
|
Me.vwreporte.DefaultEdit = Me.RepositoryItemTextEdit1
|
|||
|
|
Me.vwreporte.FilterPopupMaxRecordsCount = 0
|
|||
|
|
Me.vwreporte.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
|
|||
|
|
Me.vwreporte.FormatConditions.AddRange(New DevExpress.XtraGrid.StyleFormatCondition() {New DevExpress.XtraGrid.StyleFormatCondition(DevExpress.XtraGrid.FormatConditionEnum.None, Nothing, "", Nothing, Nothing, Nothing, False)})
|
|||
|
|
Me.vwreporte.GroupFooterShowMode = DevExpress.XtraGrid.Views.Grid.GroupFooterShowMode.VisibleAlways
|
|||
|
|
Me.vwreporte.GroupFormat = "{0}: {1} "
|
|||
|
|
Me.vwreporte.GroupPanelText = ""
|
|||
|
|
Me.vwreporte.Name = "vwreporte"
|
|||
|
|
Me.vwreporte.PreviewFieldName = "1"
|
|||
|
|
Me.vwreporte.PrintOptions = ((((((((DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.AutoWidth Or DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.ExpandAllGroups) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.ExpandAllDetails) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.PrintFilterInfo) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.PrintGroupFooter) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.PrintHeader) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.PrintHorzLines) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.PrintPreview) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.PrintOptionsFlags.PrintVertLines)
|
|||
|
|
Me.vwreporte.PrintStyles.AddReplace("FilterPanel", New DevExpress.Utils.ViewStyle("FilterPanel", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, True, False, DevExpress.Utils.HorzAlignment.Near, DevExpress.Utils.VertAlignment.Top, Nothing, System.Drawing.Color.Gray, System.Drawing.Color.White))
|
|||
|
|
Me.vwreporte.PrintStyles.AddReplace("FooterPanel", New DevExpress.Utils.ViewStyle("FooterPanel", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, True, False, DevExpress.Utils.HorzAlignment.Far, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.DarkGray, System.Drawing.Color.Black))
|
|||
|
|
Me.vwreporte.PrintStyles.AddReplace("HeaderPanel", New DevExpress.Utils.ViewStyle("HeaderPanel", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Center, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.Silver, System.Drawing.Color.Black))
|
|||
|
|
Me.vwreporte.PrintStyles.AddReplace("Row", New DevExpress.Utils.ViewStyle("Row", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), False, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.White, System.Drawing.Color.Black))
|
|||
|
|
Me.vwreporte.PrintStyles.AddReplace("Lines", New DevExpress.Utils.ViewStyle("Lines", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), False, False, False, DevExpress.Utils.HorzAlignment.Default, DevExpress.Utils.VertAlignment.Default, Nothing, System.Drawing.Color.DarkGray, System.Drawing.Color.DarkGray))
|
|||
|
|
Me.vwreporte.PrintStyles.AddReplace("GroupRow", New DevExpress.Utils.ViewStyle("GroupRow", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, False, DevExpress.Utils.HorzAlignment.Near, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.Gainsboro, System.Drawing.Color.Black))
|
|||
|
|
Me.vwreporte.PrintStyles.AddReplace("GroupFooter", New DevExpress.Utils.ViewStyle("GroupFooter", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, False, True, DevExpress.Utils.HorzAlignment.Far, DevExpress.Utils.VertAlignment.Center, Nothing, System.Drawing.Color.LightGray, System.Drawing.Color.Black))
|
|||
|
|
Me.vwreporte.PrintStyles.AddReplace("Preview", New DevExpress.Utils.ViewStyle("Preview", "GridView", New System.Drawing.Font("Microsoft Sans Serif", 8.0!), "", (((((((((DevExpress.Utils.StyleOptions.StyleEnabled Or DevExpress.Utils.StyleOptions.UseBackColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawEndEllipsis) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseDrawFocusRect) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseFont) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseForeColor) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseHorzAlignment) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseImage) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseWordWrap) _
|
|||
|
|
Or DevExpress.Utils.StyleOptions.UseVertAlignment), True, True, False, DevExpress.Utils.HorzAlignment.Near, DevExpress.Utils.VertAlignment.Top, Nothing, System.Drawing.Color.White, System.Drawing.Color.DimGray))
|
|||
|
|
Me.vwreporte.ShowButtonMode = DevExpress.XtraGrid.Views.Base.ShowButtonModeEnum.ShowAlways
|
|||
|
|
Me.vwreporte.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
|
|||
|
|
Me.vwreporte.ViewOptions = ((((((((DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.ShowColumns Or DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.ShowFilterPanel) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.ShowGroupedColumns) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.ShowGroupPanel) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.ShowHorzLines) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.ShowIndicator) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.ShowVertLines) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.ShowDetailButtons) _
|
|||
|
|
Or DevExpress.XtraGrid.Views.Grid.ViewOptionsFlags.SingleFocusStyle)
|
|||
|
|
'
|
|||
|
|
'Transaccion
|
|||
|
|
'
|
|||
|
|
Me.Transaccion.Caption = "Transaccion"
|
|||
|
|
Me.Transaccion.FieldName = "Id_Transaccion"
|
|||
|
|
Me.Transaccion.MinWidth = 40
|
|||
|
|
Me.Transaccion.Name = "Transaccion"
|
|||
|
|
Me.Transaccion.VisibleIndex = 0
|
|||
|
|
'
|
|||
|
|
'No_Cuenta
|
|||
|
|
'
|
|||
|
|
Me.No_Cuenta.Caption = "No_Cuenta"
|
|||
|
|
Me.No_Cuenta.FieldName = "No_Cuenta"
|
|||
|
|
Me.No_Cuenta.MinWidth = 30
|
|||
|
|
Me.No_Cuenta.Name = "No_Cuenta"
|
|||
|
|
Me.No_Cuenta.VisibleIndex = 1
|
|||
|
|
'
|
|||
|
|
'Sucursal
|
|||
|
|
'
|
|||
|
|
Me.Sucursal.Caption = "Sucursal"
|
|||
|
|
Me.Sucursal.FieldName = "NombreSucursal"
|
|||
|
|
Me.Sucursal.MinWidth = 100
|
|||
|
|
Me.Sucursal.Name = "Sucursal"
|
|||
|
|
Me.Sucursal.VisibleIndex = 2
|
|||
|
|
Me.Sucursal.Width = 100
|
|||
|
|
'
|
|||
|
|
'No_Referencia
|
|||
|
|
'
|
|||
|
|
Me.No_Referencia.Caption = "No_Referencia"
|
|||
|
|
Me.No_Referencia.FieldName = "No_Referencia"
|
|||
|
|
Me.No_Referencia.MinWidth = 40
|
|||
|
|
Me.No_Referencia.Name = "No_Referencia"
|
|||
|
|
Me.No_Referencia.VisibleIndex = 3
|
|||
|
|
'
|
|||
|
|
'Fecha
|
|||
|
|
'
|
|||
|
|
Me.Fecha.Caption = "Fecha"
|
|||
|
|
Me.Fecha.FieldName = "Fecha"
|
|||
|
|
Me.Fecha.Name = "Fecha"
|
|||
|
|
Me.Fecha.VisibleIndex = 9
|
|||
|
|
'
|
|||
|
|
'TipoOperacion
|
|||
|
|
'
|
|||
|
|
Me.TipoOperacion.Caption = "TipoOperacion"
|
|||
|
|
Me.TipoOperacion.FieldName = "NombreTipoOperacion"
|
|||
|
|
Me.TipoOperacion.MinWidth = 120
|
|||
|
|
Me.TipoOperacion.Name = "TipoOperacion"
|
|||
|
|
Me.TipoOperacion.VisibleIndex = 4
|
|||
|
|
Me.TipoOperacion.Width = 120
|
|||
|
|
'
|
|||
|
|
'InsMon
|
|||
|
|
'
|
|||
|
|
Me.InsMon.Caption = "InstrumentoMonetario"
|
|||
|
|
Me.InsMon.FieldName = "Nombre"
|
|||
|
|
Me.InsMon.MinWidth = 100
|
|||
|
|
Me.InsMon.Name = "InsMon"
|
|||
|
|
Me.InsMon.VisibleIndex = 5
|
|||
|
|
Me.InsMon.Width = 100
|
|||
|
|
'
|
|||
|
|
'Divisa
|
|||
|
|
'
|
|||
|
|
Me.Divisa.Caption = "Divisa"
|
|||
|
|
Me.Divisa.FieldName = "Divisa"
|
|||
|
|
Me.Divisa.MinWidth = 18
|
|||
|
|
Me.Divisa.Name = "Divisa"
|
|||
|
|
Me.Divisa.VisibleIndex = 6
|
|||
|
|
'
|
|||
|
|
'Monto
|
|||
|
|
'
|
|||
|
|
Me.Monto.Caption = "Monto"
|
|||
|
|
Me.Monto.FieldName = "Monto"
|
|||
|
|
Me.Monto.Name = "Monto"
|
|||
|
|
Me.Monto.VisibleIndex = 7
|
|||
|
|
'
|
|||
|
|
'Cliente
|
|||
|
|
'
|
|||
|
|
Me.Cliente.Caption = "Cliente"
|
|||
|
|
Me.Cliente.FieldName = "Cliente"
|
|||
|
|
Me.Cliente.MinWidth = 240
|
|||
|
|
Me.Cliente.Name = "Cliente"
|
|||
|
|
Me.Cliente.VisibleIndex = 8
|
|||
|
|
Me.Cliente.Width = 240
|
|||
|
|
'
|
|||
|
|
'SaveFileDialog1
|
|||
|
|
'
|
|||
|
|
Me.SaveFileDialog1.FileName = "doc1"
|
|||
|
|
'
|
|||
|
|
'Inusuales
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(680, 549)
|
|||
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel2, Me.Panel1, Me.tlbCatUnuarios})
|
|||
|
|
Me.Name = "Inusuales"
|
|||
|
|
Me.Text = "Relevantes"
|
|||
|
|
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
|||
|
|
Me.Panel1.ResumeLayout(False)
|
|||
|
|
Me.Panel3.ResumeLayout(False)
|
|||
|
|
Me.grbPeriodo.ResumeLayout(False)
|
|||
|
|
Me.Panel2.ResumeLayout(False)
|
|||
|
|
CType(Me.dtgRep, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
CType(Me.vwreporte, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.ResumeLayout(False)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
Private Sub tlbCatUnuarios_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCatUnuarios.ButtonClick
|
|||
|
|
|
|||
|
|
Select Case e.Button.Text
|
|||
|
|
Case "Consultar"
|
|||
|
|
Dim cad As String
|
|||
|
|
Try
|
|||
|
|
strFechaIni = Me.dtpFechaIni.Value.ToShortDateString
|
|||
|
|
strFechaFin = Me.dtpFechaFin.Value.ToShortDateString
|
|||
|
|
If Me.reporte = 2 Then
|
|||
|
|
LlenaDVExpress.LlenaData("spReporteInusuales '" _
|
|||
|
|
& strFechaIni.ToString & "', '" _
|
|||
|
|
& strFechaFin.ToString & "'", _
|
|||
|
|
dtgRep, Me.dtReporte)
|
|||
|
|
'*********************************
|
|||
|
|
'LlenaDVExpress.LlenaData("spReporteInusuales '" _
|
|||
|
|
'& strFechaIni.ToString & "', '" _
|
|||
|
|
'& strFechaFin.ToString & "' ," _
|
|||
|
|
'& Me.cboProductos.SelectedValue & "," _
|
|||
|
|
'& Me.cboSubProductos.SelectedValue & "," _
|
|||
|
|
'& Me.cboClientes.SelectedValue & "," _
|
|||
|
|
'& Me.cboReportes.SelectedValue, _
|
|||
|
|
'dtgRep, Me.dtReporte)
|
|||
|
|
End If
|
|||
|
|
Catch er As Exception
|
|||
|
|
MessageBox.Show("Error al generar reporte " & er.Message)
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
Case "Salir"
|
|||
|
|
Me.Close()
|
|||
|
|
|
|||
|
|
Case "Exportar"
|
|||
|
|
|
|||
|
|
End Select
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Inusuales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
dtpFechaIni.Value = Date.Now
|
|||
|
|
dtpFechaFin.Value = Date.Now
|
|||
|
|
LlenaCombo.LlenaData("spListaCliente", cboClientes, dtClientes)
|
|||
|
|
LlenaCombo.LlenaData("spcbDatosCombo '" & "Productos'", cboProductos, Me.dtProductos)
|
|||
|
|
LlenaCombo.LlenaData("spListaSubProducto " & CType(cboProductos.SelectedValue, String), cboSubProductos, dtSubProductos)
|
|||
|
|
LlenaCombo.LlenaData("spListaAlarmas", Me.cboReportes, dtAlarmas)
|
|||
|
|
cboReportes.SelectedValue = Me.reporte
|
|||
|
|
Me.Text = NombreReporte
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub TipoReprote(ByVal Reporte As Integer, ByVal NombreReporte As String)
|
|||
|
|
Me.reporte = Reporte
|
|||
|
|
Me.NombreReporte = NombreReporte
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub dtgRep_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtgRep.DoubleClick
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
|
|||
|
|
Dim Califiacion As New CalificacionReprotes()
|
|||
|
|
Califiacion.entra(vwreporte.GetRow(Me.vwreporte.FocusedRowHandle).item("Id_Transaccion"), vwreporte.GetRow(Me.vwreporte.FocusedRowHandle).item("No_Cuenta"), vwreporte.GetRow(Me.vwreporte.FocusedRowHandle).item("Cliente"), Me.cboProductos.SelectedValue)
|
|||
|
|
Califiacion.ShowDialog()
|
|||
|
|
Catch w As Exception
|
|||
|
|
MessageBox.Show(w.Message)
|
|||
|
|
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cboProductos_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboProductos.SelectionChangeCommitted
|
|||
|
|
LlenaCombo.LlenaData("spListaSubProducto " & CType(cboProductos.SelectedValue, String), cboSubProductos, dtSubProductos)
|
|||
|
|
End Sub
|
|||
|
|
End Class
|