client/Reportes/Relevantes.vb

781 lines
51 KiB
VB.net
Raw Normal View History

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