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ñador de Windows Forms " Public Sub New() MyBase.New() 'El Diseñador de Windows Forms requiere esta llamada. InitializeComponent() 'Agregar cualquier inicialización después de la llamada a InitializeComponent() End Sub 'Form reemplaza a Dispose para limpiar la lista de componentes. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Requerido por el Diseñador de Windows Forms Private components As System.ComponentModel.IContainer 'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento 'Puede modificarse utilizando el Diseñador de Windows Forms. 'No lo modifique con el editor de código. Friend WithEvents 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 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