1087 lines
47 KiB
VB.net
1087 lines
47 KiB
VB.net
Imports System.Collections.Generic
|
|
|
|
Public Class FRMFraccionadas
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
Dim clCmpCte As New clsComplejo()
|
|
Dim clCmpCta As New clsComplejo()
|
|
Dim clCmpPro As New clsComplejo()
|
|
Dim clCmp As New clsComplejo
|
|
Dim Estatus As clsComplejo = New clsComplejo 'para llenar combo estatus
|
|
Dim clCmpDev As New clsComplejo
|
|
Dim Cuenta As clsComplejo = New clsComplejo 'para llenar el combo de cuenta
|
|
Dim Cliente As clsComplejo = New clsComplejo 'para llenar combo cliente
|
|
Dim gsidtran As String = ""
|
|
Dim BanCliente, BanCuenta, BanPatron, BanStatus, BanProducto As Boolean
|
|
'Friend WithEvents dgvFraccionada As System.Windows.Forms.DataGridView
|
|
Dim lgfila As Integer = 0
|
|
'Dim m_Excel As New Excel.Application
|
|
'Dim FILENAME As String = ("grids.xls")
|
|
Dim aPath As String
|
|
'Friend WithEvents cboEstatus As System.Windows.Forms.ComboBox
|
|
'Friend WithEvents lblEstatus As System.Windows.Forms.Label
|
|
'Friend WithEvents lblFrac As System.Windows.Forms.Label
|
|
'Friend WithEvents lblDetFra As System.Windows.Forms.Label
|
|
'Friend WithEvents txtTotFrac As System.Windows.Forms.TextBox
|
|
'Friend WithEvents txtTotFraccionada As System.Windows.Forms.TextBox
|
|
'Friend WithEvents Flgdetalle As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
'Friend WithEvents cmbCliente As System.Windows.Forms.ComboBox
|
|
'Friend WithEvents cmbCuenta As System.Windows.Forms.ComboBox
|
|
Dim aName As String
|
|
Dim clsVar As clsVaribles = New clsVaribles 'Para utilizar varibles publicas
|
|
Dim strVariables As clsVaribles = New clsVaribles
|
|
Private limpiando As Boolean = False
|
|
|
|
#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 btnSalir As System.Windows.Forms.ToolBarButton
|
|
'Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
'Friend WithEvents tlbCliente As System.Windows.Forms.ToolBar
|
|
'Friend WithEvents btnBuscar As System.Windows.Forms.ToolBarButton
|
|
'Friend WithEvents btnExportar As System.Windows.Forms.ToolBarButton
|
|
'Friend WithEvents btnLimpiar As System.Windows.Forms.ToolBarButton
|
|
'Friend WithEvents Label5 As System.Windows.Forms.Label
|
|
'Friend WithEvents Label4 As System.Windows.Forms.Label
|
|
'Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
'Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
'Friend WithEvents dtpFin As AxMSComCtl2.AxDTPicker
|
|
'Friend WithEvents dtpInicio As AxMSComCtl2.AxDTPicker
|
|
'Friend WithEvents dtgFraccionadas As System.Windows.Forms.DataGrid
|
|
'Friend WithEvents PersistentRepository1 As DevExpress.XtraEditors.Repository.PersistentRepository
|
|
'Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
|
'Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FRMFraccionadas))
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.dtpFechaInicial = New System.Windows.Forms.DateTimePicker()
|
|
Me.dtpFechaFinal = New System.Windows.Forms.DateTimePicker()
|
|
Me.dgvFraccionada = New System.Windows.Forms.DataGridView()
|
|
Me.cboEstatus = New System.Windows.Forms.ComboBox()
|
|
Me.lblEstatus = New System.Windows.Forms.Label()
|
|
Me.lblFrac = New System.Windows.Forms.Label()
|
|
Me.lblDetFra = New System.Windows.Forms.Label()
|
|
Me.txtTotFrac = New System.Windows.Forms.TextBox()
|
|
Me.txtTotFraccionada = New System.Windows.Forms.TextBox()
|
|
Me.Flgdetalle = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.cmbCliente = New System.Windows.Forms.ComboBox()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.cboProducto = New System.Windows.Forms.ComboBox()
|
|
Me.txtCuenta = New System.Windows.Forms.TextBox()
|
|
Me.Label6 = New System.Windows.Forms.Label()
|
|
Me.btnConsulta = New System.Windows.Forms.Button()
|
|
Me.BtnLimpiar1 = New System.Windows.Forms.Button()
|
|
Me.BtnImprimir = New System.Windows.Forms.Button()
|
|
Me.BntSalir = New System.Windows.Forms.Button()
|
|
Me.panel2 = New System.Windows.Forms.Panel()
|
|
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
|
|
Me.Label17 = New System.Windows.Forms.Label()
|
|
Me.panel3 = New System.Windows.Forms.Panel()
|
|
Me.lblFooter = New System.Windows.Forms.Label()
|
|
CType(Me.dgvFraccionada, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.Flgdetalle, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.panel2.SuspendLayout()
|
|
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.panel3.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'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.MidnightBlue
|
|
Me.Label4.Location = New System.Drawing.Point(28, 96)
|
|
Me.Label4.Name = "Label4"
|
|
Me.Label4.Size = New System.Drawing.Size(52, 16)
|
|
Me.Label4.TabIndex = 7
|
|
Me.Label4.Text = "Cliente:"
|
|
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|
'
|
|
'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.MidnightBlue
|
|
Me.Label3.Location = New System.Drawing.Point(282, 70)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(82, 13)
|
|
Me.Label3.TabIndex = 3
|
|
Me.Label3.Text = "Fecha Final:"
|
|
'
|
|
'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.MidnightBlue
|
|
Me.Label2.Location = New System.Drawing.Point(28, 70)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(100, 16)
|
|
Me.Label2.TabIndex = 1
|
|
Me.Label2.Text = "Fecha Inicial:"
|
|
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|
'
|
|
'dtpFechaInicial
|
|
'
|
|
Me.dtpFechaInicial.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|
Me.dtpFechaInicial.Location = New System.Drawing.Point(134, 66)
|
|
Me.dtpFechaInicial.Name = "dtpFechaInicial"
|
|
Me.dtpFechaInicial.Size = New System.Drawing.Size(120, 20)
|
|
Me.dtpFechaInicial.TabIndex = 2
|
|
'
|
|
'dtpFechaFinal
|
|
'
|
|
Me.dtpFechaFinal.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|
Me.dtpFechaFinal.Location = New System.Drawing.Point(382, 65)
|
|
Me.dtpFechaFinal.Name = "dtpFechaFinal"
|
|
Me.dtpFechaFinal.Size = New System.Drawing.Size(120, 20)
|
|
Me.dtpFechaFinal.TabIndex = 4
|
|
'
|
|
'dgvFraccionada
|
|
'
|
|
Me.dgvFraccionada.AllowUserToAddRows = False
|
|
Me.dgvFraccionada.AllowUserToDeleteRows = False
|
|
Me.dgvFraccionada.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.dgvFraccionada.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
|
|
Me.dgvFraccionada.BackgroundColor = System.Drawing.Color.White
|
|
Me.dgvFraccionada.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
|
Me.dgvFraccionada.Location = New System.Drawing.Point(31, 162)
|
|
Me.dgvFraccionada.Name = "dgvFraccionada"
|
|
Me.dgvFraccionada.RowTemplate.Height = 18
|
|
Me.dgvFraccionada.RowTemplate.ReadOnly = True
|
|
Me.dgvFraccionada.Size = New System.Drawing.Size(816, 157)
|
|
Me.dgvFraccionada.TabIndex = 11
|
|
'
|
|
'cboEstatus
|
|
'
|
|
Me.cboEstatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|
Me.cboEstatus.FormattingEnabled = True
|
|
Me.cboEstatus.Location = New System.Drawing.Point(134, 122)
|
|
Me.cboEstatus.Name = "cboEstatus"
|
|
Me.cboEstatus.Size = New System.Drawing.Size(215, 21)
|
|
Me.cboEstatus.TabIndex = 6
|
|
'
|
|
'lblEstatus
|
|
'
|
|
Me.lblEstatus.AutoSize = True
|
|
Me.lblEstatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblEstatus.ForeColor = System.Drawing.Color.MidnightBlue
|
|
Me.lblEstatus.Location = New System.Drawing.Point(28, 126)
|
|
Me.lblEstatus.Name = "lblEstatus"
|
|
Me.lblEstatus.Size = New System.Drawing.Size(49, 13)
|
|
Me.lblEstatus.TabIndex = 5
|
|
Me.lblEstatus.Text = "Estatus"
|
|
'
|
|
'lblFrac
|
|
'
|
|
Me.lblFrac.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.lblFrac.AutoSize = True
|
|
Me.lblFrac.ForeColor = System.Drawing.Color.MidnightBlue
|
|
Me.lblFrac.Location = New System.Drawing.Point(31, 339)
|
|
Me.lblFrac.Name = "lblFrac"
|
|
Me.lblFrac.Size = New System.Drawing.Size(98, 13)
|
|
Me.lblFrac.TabIndex = 14
|
|
Me.lblFrac.Text = "Total Fraccionadas"
|
|
Me.lblFrac.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
'
|
|
'lblDetFra
|
|
'
|
|
Me.lblDetFra.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.lblDetFra.AutoSize = True
|
|
Me.lblDetFra.ForeColor = System.Drawing.Color.MidnightBlue
|
|
Me.lblDetFra.Location = New System.Drawing.Point(31, 532)
|
|
Me.lblDetFra.Name = "lblDetFra"
|
|
Me.lblDetFra.Size = New System.Drawing.Size(67, 13)
|
|
Me.lblDetFra.TabIndex = 16
|
|
Me.lblDetFra.Text = "Total Detalle"
|
|
'
|
|
'txtTotFrac
|
|
'
|
|
Me.txtTotFrac.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.txtTotFrac.BorderStyle = System.Windows.Forms.BorderStyle.None
|
|
Me.txtTotFrac.Enabled = False
|
|
Me.txtTotFrac.Location = New System.Drawing.Point(132, 339)
|
|
Me.txtTotFrac.Name = "txtTotFrac"
|
|
Me.txtTotFrac.Size = New System.Drawing.Size(38, 13)
|
|
Me.txtTotFrac.TabIndex = 15
|
|
Me.txtTotFrac.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
|
'
|
|
'txtTotFraccionada
|
|
'
|
|
Me.txtTotFraccionada.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.txtTotFraccionada.BorderStyle = System.Windows.Forms.BorderStyle.None
|
|
Me.txtTotFraccionada.Enabled = False
|
|
Me.txtTotFraccionada.Location = New System.Drawing.Point(132, 532)
|
|
Me.txtTotFraccionada.Name = "txtTotFraccionada"
|
|
Me.txtTotFraccionada.Size = New System.Drawing.Size(38, 13)
|
|
Me.txtTotFraccionada.TabIndex = 17
|
|
Me.txtTotFraccionada.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
|
'
|
|
'Flgdetalle
|
|
'
|
|
Me.Flgdetalle.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.Flgdetalle.CaptionHeight = 17
|
|
Me.Flgdetalle.GroupByCaption = "AGRUPAR"
|
|
Me.Flgdetalle.Images.Add(CType(resources.GetObject("Flgdetalle.Images"), System.Drawing.Image))
|
|
Me.Flgdetalle.Location = New System.Drawing.Point(31, 364)
|
|
Me.Flgdetalle.Name = "Flgdetalle"
|
|
Me.Flgdetalle.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.Flgdetalle.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.Flgdetalle.PreviewInfo.ZoomFactor = 75.0R
|
|
Me.Flgdetalle.PrintInfo.PageSettings = CType(resources.GetObject("Flgdetalle.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.Flgdetalle.RowHeight = 15
|
|
Me.Flgdetalle.Size = New System.Drawing.Size(816, 162)
|
|
Me.Flgdetalle.TabIndex = 13
|
|
Me.Flgdetalle.Text = "Resultados"
|
|
Me.Flgdetalle.PropBag = resources.GetString("Flgdetalle.PropBag")
|
|
'
|
|
'cmbCliente
|
|
'
|
|
Me.cmbCliente.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|
Me.cmbCliente.DropDownWidth = 490
|
|
Me.cmbCliente.Location = New System.Drawing.Point(134, 95)
|
|
Me.cmbCliente.Name = "cmbCliente"
|
|
Me.cmbCliente.Size = New System.Drawing.Size(368, 21)
|
|
Me.cmbCliente.TabIndex = 8
|
|
'
|
|
'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.MidnightBlue
|
|
Me.Label1.Location = New System.Drawing.Point(558, 69)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(67, 16)
|
|
Me.Label1.TabIndex = 18
|
|
Me.Label1.Text = "Producto:"
|
|
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|
'
|
|
'cboProducto
|
|
'
|
|
Me.cboProducto.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|
Me.cboProducto.FormattingEnabled = True
|
|
Me.cboProducto.Location = New System.Drawing.Point(631, 65)
|
|
Me.cboProducto.Name = "cboProducto"
|
|
Me.cboProducto.Size = New System.Drawing.Size(216, 21)
|
|
Me.cboProducto.TabIndex = 19
|
|
'
|
|
'txtCuenta
|
|
'
|
|
Me.txtCuenta.Location = New System.Drawing.Point(632, 96)
|
|
Me.txtCuenta.Name = "txtCuenta"
|
|
Me.txtCuenta.Size = New System.Drawing.Size(215, 20)
|
|
Me.txtCuenta.TabIndex = 38
|
|
'
|
|
'Label6
|
|
'
|
|
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue
|
|
Me.Label6.Location = New System.Drawing.Point(558, 97)
|
|
Me.Label6.Name = "Label6"
|
|
Me.Label6.Size = New System.Drawing.Size(48, 16)
|
|
Me.Label6.TabIndex = 39
|
|
Me.Label6.Text = "Cuenta:"
|
|
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|
'
|
|
'btnConsulta
|
|
'
|
|
Me.btnConsulta.BackColor = System.Drawing.Color.Black
|
|
Me.btnConsulta.Cursor = System.Windows.Forms.Cursors.Hand
|
|
Me.btnConsulta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.btnConsulta.ForeColor = System.Drawing.Color.White
|
|
Me.btnConsulta.Location = New System.Drawing.Point(865, 370)
|
|
Me.btnConsulta.Name = "btnConsulta"
|
|
Me.btnConsulta.Size = New System.Drawing.Size(106, 33)
|
|
Me.btnConsulta.TabIndex = 66
|
|
Me.btnConsulta.Text = "Buscar"
|
|
Me.btnConsulta.UseCompatibleTextRendering = True
|
|
Me.btnConsulta.UseVisualStyleBackColor = False
|
|
'
|
|
'BtnLimpiar1
|
|
'
|
|
Me.BtnLimpiar1.BackColor = System.Drawing.Color.Black
|
|
Me.BtnLimpiar1.Cursor = System.Windows.Forms.Cursors.Hand
|
|
Me.BtnLimpiar1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.BtnLimpiar1.ForeColor = System.Drawing.Color.White
|
|
Me.BtnLimpiar1.Location = New System.Drawing.Point(865, 411)
|
|
Me.BtnLimpiar1.Name = "BtnLimpiar1"
|
|
Me.BtnLimpiar1.Size = New System.Drawing.Size(106, 33)
|
|
Me.BtnLimpiar1.TabIndex = 67
|
|
Me.BtnLimpiar1.Text = "Limpiar"
|
|
Me.BtnLimpiar1.UseCompatibleTextRendering = True
|
|
Me.BtnLimpiar1.UseVisualStyleBackColor = False
|
|
'
|
|
'BtnImprimir
|
|
'
|
|
Me.BtnImprimir.BackColor = System.Drawing.Color.Black
|
|
Me.BtnImprimir.Cursor = System.Windows.Forms.Cursors.Hand
|
|
Me.BtnImprimir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.BtnImprimir.ForeColor = System.Drawing.Color.White
|
|
Me.BtnImprimir.Location = New System.Drawing.Point(865, 452)
|
|
Me.BtnImprimir.Name = "BtnImprimir"
|
|
Me.BtnImprimir.Size = New System.Drawing.Size(106, 33)
|
|
Me.BtnImprimir.TabIndex = 68
|
|
Me.BtnImprimir.Text = "Exportar"
|
|
Me.BtnImprimir.UseCompatibleTextRendering = True
|
|
Me.BtnImprimir.UseVisualStyleBackColor = False
|
|
'
|
|
'BntSalir
|
|
'
|
|
Me.BntSalir.BackColor = System.Drawing.Color.Black
|
|
Me.BntSalir.Cursor = System.Windows.Forms.Cursors.Hand
|
|
Me.BntSalir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.BntSalir.ForeColor = System.Drawing.Color.White
|
|
Me.BntSalir.Location = New System.Drawing.Point(865, 493)
|
|
Me.BntSalir.Name = "BntSalir"
|
|
Me.BntSalir.Size = New System.Drawing.Size(106, 33)
|
|
Me.BntSalir.TabIndex = 69
|
|
Me.BntSalir.Text = "Cerrar"
|
|
Me.BntSalir.UseCompatibleTextRendering = True
|
|
Me.BntSalir.UseVisualStyleBackColor = False
|
|
'
|
|
'panel2
|
|
'
|
|
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.panel2.BackColor = System.Drawing.Color.Black
|
|
Me.panel2.Controls.Add(Me.Img_logoCabecera)
|
|
Me.panel2.Controls.Add(Me.Label17)
|
|
Me.panel2.ForeColor = System.Drawing.Color.Navy
|
|
Me.panel2.Location = New System.Drawing.Point(-3, -2)
|
|
Me.panel2.Name = "panel2"
|
|
Me.panel2.Size = New System.Drawing.Size(994, 50)
|
|
Me.panel2.TabIndex = 186
|
|
'
|
|
'Img_logoCabecera
|
|
'
|
|
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
|
|
Me.Img_logoCabecera.Location = New System.Drawing.Point(868, 3)
|
|
Me.Img_logoCabecera.Name = "Img_logoCabecera"
|
|
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
|
|
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
|
Me.Img_logoCabecera.TabIndex = 361
|
|
Me.Img_logoCabecera.TabStop = False
|
|
'
|
|
'Label17
|
|
'
|
|
Me.Label17.AutoSize = True
|
|
Me.Label17.BackColor = System.Drawing.Color.Transparent
|
|
Me.Label17.Font = New System.Drawing.Font("Century Gothic", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label17.ForeColor = System.Drawing.SystemColors.Window
|
|
Me.Label17.Location = New System.Drawing.Point(21, 14)
|
|
Me.Label17.Name = "Label17"
|
|
Me.Label17.Size = New System.Drawing.Size(236, 23)
|
|
Me.Label17.TabIndex = 2
|
|
Me.Label17.Text = "Reportes Fraccionadas"
|
|
'
|
|
'panel3
|
|
'
|
|
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.panel3.BackColor = System.Drawing.Color.Black
|
|
Me.panel3.Controls.Add(Me.lblFooter)
|
|
Me.panel3.ForeColor = System.Drawing.Color.Navy
|
|
Me.panel3.Location = New System.Drawing.Point(-3, 564)
|
|
Me.panel3.Name = "panel3"
|
|
Me.panel3.Size = New System.Drawing.Size(994, 34)
|
|
Me.panel3.TabIndex = 405
|
|
'
|
|
'lblFooter
|
|
'
|
|
Me.lblFooter.AutoSize = True
|
|
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
|
|
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
|
|
Me.lblFooter.Location = New System.Drawing.Point(932, 3)
|
|
Me.lblFooter.Name = "lblFooter"
|
|
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
|
|
Me.lblFooter.TabIndex = 2
|
|
Me.lblFooter.Text = "Minds"
|
|
'
|
|
'FRMFraccionadas
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.BackColor = System.Drawing.Color.White
|
|
Me.ClientSize = New System.Drawing.Size(983, 593)
|
|
Me.Controls.Add(Me.panel3)
|
|
Me.Controls.Add(Me.panel2)
|
|
Me.Controls.Add(Me.BntSalir)
|
|
Me.Controls.Add(Me.BtnImprimir)
|
|
Me.Controls.Add(Me.BtnLimpiar1)
|
|
Me.Controls.Add(Me.btnConsulta)
|
|
Me.Controls.Add(Me.Label6)
|
|
Me.Controls.Add(Me.txtCuenta)
|
|
Me.Controls.Add(Me.cboProducto)
|
|
Me.Controls.Add(Me.Label1)
|
|
Me.Controls.Add(Me.cmbCliente)
|
|
Me.Controls.Add(Me.Flgdetalle)
|
|
Me.Controls.Add(Me.txtTotFraccionada)
|
|
Me.Controls.Add(Me.txtTotFrac)
|
|
Me.Controls.Add(Me.lblDetFra)
|
|
Me.Controls.Add(Me.lblFrac)
|
|
Me.Controls.Add(Me.lblEstatus)
|
|
Me.Controls.Add(Me.cboEstatus)
|
|
Me.Controls.Add(Me.dgvFraccionada)
|
|
Me.Controls.Add(Me.dtpFechaFinal)
|
|
Me.Controls.Add(Me.dtpFechaInicial)
|
|
Me.Controls.Add(Me.Label4)
|
|
Me.Controls.Add(Me.Label3)
|
|
Me.Controls.Add(Me.Label2)
|
|
Me.ForeColor = System.Drawing.Color.MidnightBlue
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.MaximizeBox = False
|
|
Me.MinimizeBox = False
|
|
Me.Name = "FRMFraccionadas"
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.Text = "Reporte Fraccionadas"
|
|
CType(Me.dgvFraccionada, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.Flgdetalle, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.panel2.ResumeLayout(False)
|
|
Me.panel2.PerformLayout()
|
|
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.panel3.ResumeLayout(False)
|
|
Me.panel3.PerformLayout()
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub tlbCliente_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
|
|
Try
|
|
Select Case e.Button.Text
|
|
Case "Buscar"
|
|
sbBuscar()
|
|
Case "Exportar"
|
|
'MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
sbExportar()
|
|
Case "Limpiar"
|
|
'sbIniciaForma()
|
|
txtTotFraccionada.Text = ""
|
|
txtTotFrac.Text = ""
|
|
'cboProducto.SelectedIndex = -1
|
|
'cMBCliente.SelectedIndex = -1
|
|
cboProducto.SelectedIndex = -1
|
|
txtCuenta.Text = ""
|
|
cboEstatus.SelectedIndex = -1
|
|
cmbCliente.SelectedIndex = -1
|
|
cmbCliente.SelectedIndex = -1
|
|
'dtgFraccionadas.DataSource = Nothing
|
|
limpiando = True
|
|
dgvFraccionada.Columns.Clear()
|
|
Flgdetalle.DataSource = Nothing
|
|
limpiando = False
|
|
Case "Salir"
|
|
Me.Close()
|
|
End Select
|
|
Catch ex As Exception
|
|
MessageBox.Show("Error al Buscar datos", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub RepFraccionadas_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
|
|
|
|
'Dim strsql As String
|
|
'Dim clcmj1 As New clsComplejo
|
|
'strsql = fsDefineSQL("spConFraccionadasCredito", 2)
|
|
'clcmj1.fdtDataSetTabla(strsql)
|
|
'Me.Flgdetalle.SetDataBinding(clcmj1.ds, "Tabla") 'Llena el grid
|
|
''FormatGrid(Me.Flgdetalle)
|
|
'txtTotFraccionada.Text = clcmj1.ds.Tables(0).Rows.Count
|
|
|
|
'Me.Flgdetalle.AutoSizeCols()
|
|
End Sub
|
|
|
|
Private Sub RepFraccionadas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
Me.dgvFraccionada.RowsDefaultCellStyle.BackColor = Color.White
|
|
Me.dgvFraccionada.AlternatingRowsDefaultCellStyle.BackColor = Color.LightSteelBlue
|
|
Dim clCmpCombo As clsComplejo = New clsComplejo
|
|
clCmpCombo = New clsComplejo
|
|
'LLENO COMBO de estatus de transaccion
|
|
|
|
|
|
clCmpCombo.sbLlenaCombo("spConProducto", Me.cboProducto)
|
|
|
|
cboProducto.SelectedIndex = -1
|
|
|
|
clCmpCombo = Nothing
|
|
|
|
clCmpCombo = New clsComplejo
|
|
|
|
'clCmpCombo.sbLlenaCombo("spLlenaComboEstatusTransaccionesRelevantesFraccionadas", Me.cboEstatus)
|
|
clCmpCombo.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.cboEstatus)
|
|
'Me.cboEstatus.Text = clsVaribles.Id_EstatusTransaccion
|
|
|
|
cboEstatus.SelectedIndex = -1
|
|
|
|
Cliente.sbLlenaCombo("spLlenaComboCliente 1 ", Me.cmbCliente)
|
|
'spLlenaComboCliente
|
|
cmbCliente.SelectedIndex = -1
|
|
|
|
|
|
|
|
|
|
'aName = _
|
|
' System.Reflection.Assembly.GetExecutingAssembly. _
|
|
' GetModules()(0).FullyQualifiedName
|
|
|
|
'aPath = System.IO.Path.GetDirectoryName(aName)
|
|
'FILENAME = aPath & "\" & FILENAME
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub sbIniciaForma()
|
|
|
|
'clCmpPro.sbLlenaCombo("spLlenaComboProductoAlias", Me.cboProducto)
|
|
|
|
End Sub
|
|
|
|
Public Sub sbBuscar()
|
|
Try
|
|
Dim clcmj1 As New clsComplejo
|
|
Dim varGlobales As New clsVaribles
|
|
Dim strsql As String = ""
|
|
|
|
Dim listaParametros As New List(Of String)
|
|
|
|
If Me.cboProducto.SelectedIndex = -1 Then
|
|
MessageBox.Show("Es necesario Seleccionar un Producto, favor de Validar", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
cboProducto.Focus()
|
|
Exit Sub
|
|
End If
|
|
dgvFraccionada.Columns.Clear()
|
|
listaParametros.Add(IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL"))
|
|
listaParametros.Add(IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL"))
|
|
listaParametros.Add(IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL"))
|
|
listaParametros.Add(IIf(cboEstatus.SelectedValue <> Nothing, cboEstatus.SelectedValue, "NULL"))
|
|
listaParametros.Add("'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "'")
|
|
listaParametros.Add("'" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "'")
|
|
|
|
|
|
Select Case cboProducto.Text
|
|
|
|
Case "BANCA INTERNACIONAL"
|
|
|
|
strsql = "sp_ReportFraccionadasBI " & String.Join(",", listaParametros.ToArray())
|
|
|
|
Case "BANCA TRADICIONAL"
|
|
|
|
strsql = "sp_ReportFraccionadasBT " & String.Join(",", listaParametros.ToArray())
|
|
|
|
Case "CREDITO"
|
|
|
|
strsql = "sp_ReportFraccionadasCDTO " & String.Join(",", listaParametros.ToArray())
|
|
|
|
Case "DIVISAS"
|
|
|
|
strsql = "sp_ReportFraccionadasDIVISAS " & String.Join(",", listaParametros.ToArray())
|
|
|
|
Case "MERCADO DE DINERO" '"MERCADO DE CAPITALES"
|
|
|
|
strsql = "sp_ReportFraccionadasMCAPITALES " & String.Join(",", listaParametros.ToArray())
|
|
|
|
Case Else
|
|
Exit Sub
|
|
End Select
|
|
|
|
|
|
|
|
'strsql = fsDefineSQL("spConFraccionadasCredito", 3)
|
|
varGlobales.varProceso = strsql
|
|
clcmj1.fdtDataSetTabla(strsql)
|
|
|
|
|
|
If clcmj1.ds.Tables(0).Rows.Count > 0 Then
|
|
|
|
txtTotFrac.Text = clcmj1.ds.Tables(0).Rows.Count
|
|
|
|
Me.dgvFraccionada.DataSource() = clcmj1.ds.Tables(0)
|
|
|
|
'this.dataGridView1.Columns["CustomerID"].Visible = false
|
|
Me.dgvFraccionada.Columns(7).DefaultCellStyle.Format = "c2"
|
|
'FormatGrid(Me.Flgdetalle)
|
|
dgvFraccionada.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
For Each col As DataGridViewColumn In dgvFraccionada.Columns
|
|
If InStr(col.Name, "ID") = 1 Then
|
|
col.Visible = False
|
|
End If
|
|
Next
|
|
Else
|
|
txtTotFrac.Text = 0
|
|
txtTotFraccionada.Text = 0
|
|
'Me.Flgdetalle.DataSource = Nothing
|
|
'Flgdetalle.DataSource = Nothing
|
|
'Me.dgvFraccionada.DataSource = Nothing
|
|
'Flgdetalle.DataSource = Nothing
|
|
dgvFraccionada.Columns.Clear()
|
|
Flgdetalle.ClearFields()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
|
|
MsgBox(ex.Message)
|
|
|
|
Throw ex
|
|
End Try
|
|
'clCmpDev.sbLlenaDevExpress(lsSQL, Me.dveFraccionadas)
|
|
End Sub
|
|
|
|
Public Sub sbExportar()
|
|
Dim lsSQL As String
|
|
Dim clExc As New clsExcel
|
|
|
|
'Try
|
|
' Dim oApp As New Excel.Application()
|
|
' oApp.Visible = True
|
|
' oApp.UserControl = True
|
|
' Dim oldCI As System.Globalization.CultureInfo = _
|
|
' System.Threading.Thread.CurrentThread.CurrentCulture
|
|
' System.Threading.Thread.CurrentThread.CurrentCulture = _
|
|
' New System.Globalization.CultureInfo("en-US")
|
|
|
|
'If ChkExportar.Checked = True Then
|
|
' Dim clcmj1 As New clsComplejo
|
|
' Dim strsql As String = ""
|
|
' strsql = fsDefineSQL("spConFraccionadas", 3)
|
|
' clcmj1.fdtDataSetTabla(strsql)
|
|
' Me.Flgdetalle.SetDataBinding(clcmj1.ds, "Tabla") 'Llena el grid
|
|
' FormatGrid(Me.Flgdetalle)
|
|
' Me.Flgdetalle.AutoSizeCols()
|
|
'End If
|
|
|
|
' Me.Flgdetalle.SaveExcel(FILENAME, Me.Flgdetalle.Name, FileFlags.IncludeFixedCells)
|
|
' m_Excel = New Excel.Application
|
|
' m_Excel.Workbooks.Open(FILENAME)
|
|
' m_Excel.Visible = True
|
|
' System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
|
|
'Catch EX As Exception
|
|
' MessageBox.Show(EX.Message)
|
|
' End Try
|
|
|
|
Dim fs1, f As Object
|
|
|
|
Try
|
|
'Dim ruta As String
|
|
'ruta = System.IO.Path.GetTempPath()
|
|
'Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
'If Dir(ruta & "Reporte.xls") = "" Then
|
|
'Else
|
|
' fs1 = CreateObject("Scripting.FileSystemObject")
|
|
' f = fs1.GetFile(ruta & "Reporte.xls")
|
|
' f.Delete()
|
|
'End If
|
|
|
|
'Me.Flgdetalle.ExportToDelimitedFile(ruta & "Reporte.xls", C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, vbTab, "", "", True, "Unicode")
|
|
'System.Diagnostics.Process.Start(ruta & "Reporte.xls")
|
|
Exportar()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End Try
|
|
Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub Exportar()
|
|
|
|
If Flgdetalle.DataSource Is Nothing Then
|
|
MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
Return
|
|
End If
|
|
|
|
''Preparo la tabla a exportar
|
|
''hago una copia por valor de la tabla
|
|
Dim copyDS As DataSet = Flgdetalle.DataSource.Copy() ''clCmp.ds.Copy()
|
|
If copyDS.Tables(0) Is Nothing Then
|
|
MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
Return
|
|
End If
|
|
If copyDS.Tables(0).Rows.Count = 0 Then
|
|
MessageBox.Show("No existen datos para exportar", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
Return
|
|
End If
|
|
Dim Resul As DialogResult
|
|
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
|
If Resul = DialogResult.No Then
|
|
Return
|
|
End If
|
|
|
|
''Quito las columnas ocultas del grid.
|
|
Dim i As Integer
|
|
For i = 0 To Flgdetalle.Columns.Count - 1
|
|
If Me.Flgdetalle.Splits(0).DisplayColumns(i).Visible = False Then
|
|
Dim j As Integer
|
|
For j = 0 To copyDS.Tables(0).Columns.Count - 1
|
|
If Me.Flgdetalle.Splits(0).DisplayColumns(i).Name = copyDS.Tables(0).Columns.Item(j).ColumnName Then
|
|
copyDS.Tables(0).Columns.Remove(copyDS.Tables(0).Columns.Item(j).ColumnName)
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
Next
|
|
|
|
Try
|
|
Dim sError As String = ""
|
|
''Inicia Exportacion
|
|
'Creo una instancia de la clase aExcel
|
|
Dim clsExcel As aExcel = New aExcel
|
|
'Obtenemos el nombre o el titulo del form
|
|
clsExcel.Titulo = "Rep. Oper. Inusuales Frac."
|
|
'Utilizo la funcion ExportDataset de la clase aExcel
|
|
clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End Try
|
|
Cursor = System.Windows.Forms.Cursors.Default
|
|
|
|
End Sub
|
|
|
|
|
|
Private Function fsDefineSQL(ByVal SP As String, ByVal opcion As Integer) As String
|
|
Dim lsSQL As String
|
|
Dim lsIni As String
|
|
Dim lsFin As String
|
|
Dim lsCliente As String
|
|
Dim lsCuenta As String
|
|
Dim lsEstatus As String
|
|
Dim cls As clsComplejo
|
|
cls = New clsComplejo
|
|
Dim clsvariables As New clsVaribles
|
|
'Dim fechas As New clsvariables
|
|
lsIni = cls.ObtenFecha(Me.dtpFechaInicial.Value.Date, "YYYYMMDD")
|
|
lsIni = "'" & lsIni & "'"
|
|
lsFin = cls.ObtenFecha(Me.dtpFechaFinal.Value.Date, "YYYYMMDD")
|
|
If opcion = 1 Then
|
|
lsFin = "'" & lsFin & "',1,'0'"
|
|
ElseIf opcion = 2 Then
|
|
'dgvFraccionada.Columns(1)
|
|
lsFin = "'" & lsFin & "',2,'" & gsidtran & "',"
|
|
Else
|
|
lsFin = "'" & lsFin & "',3,''," ' & gsidtran & "',"
|
|
End If
|
|
If cboEstatus.SelectedIndex <> -1 Then
|
|
lsEstatus = CStr(cboEstatus.SelectedValue)
|
|
lsEstatus = "'" & lsEstatus & "'"
|
|
Else
|
|
lsEstatus = "''"
|
|
End If
|
|
|
|
|
|
If cmbCliente.SelectedIndex <> -1 Then
|
|
lsCliente = CStr(cmbCliente.SelectedValue)
|
|
lsCliente = "'" & lsCliente & "'"
|
|
Else
|
|
lsCliente = "''"
|
|
End If
|
|
If txtCuenta.Text.Trim <> "" Then
|
|
lsCuenta = txtCuenta.Text.Trim
|
|
lsCuenta = "'" & lsCuenta & "'"
|
|
Else
|
|
lsCuenta = "''"
|
|
End If
|
|
lsSQL = ""
|
|
lsSQL = lsSQL & SP & " "
|
|
lsSQL = lsSQL & lsIni & ", "
|
|
lsSQL = lsSQL & lsFin
|
|
lsSQL = lsSQL & lsCliente & ", "
|
|
lsSQL = lsSQL & lsCuenta & ", "
|
|
lsSQL = lsSQL & lsEstatus
|
|
'clsVaribles.varFecIni = lsIni
|
|
'clsvariables.varFecFin = Mid(lsFin, 1, 10) & ",2"
|
|
|
|
Return lsSQL
|
|
End Function
|
|
|
|
Private Sub dtgFraccionadas_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
|
|
'Dim clcmj1 As New clsComplejo
|
|
'Dim Classcom As New clsComplejo
|
|
'clcmj1 = New clsComplejo
|
|
'gsidtran = "0"
|
|
'With dtgFraccionadas
|
|
' gsidtran = CStr(.Item(.CurrentRowIndex, 0))
|
|
'End With
|
|
|
|
|
|
'Dim strsql As String = ""
|
|
'strsql = fsDefineSQL("spConFraccionadasCredito", 2)
|
|
'clcmj1.fdtDataSetTabla(strsql)
|
|
'Me.Flgdetalle.SetDataBinding(clcmj1.ds, "Tabla") 'Llena el grid
|
|
'--------------
|
|
'FormatGrid(Me.Flgdetalle)
|
|
'Me.Flgdetalle.AutoSizeCols()
|
|
|
|
|
|
End Sub
|
|
'Private Sub FormatGrid(ByVal grid As C1.Win.C1FlexGrid.C1FlexGrid)
|
|
|
|
' 'grid.Cols(0).Width = 20
|
|
' 'Dim s As CellStyleCollection = grid.Styles
|
|
' 's.Normal.Border.Color = SystemColors.InactiveBorder
|
|
' 's.Highlight.Clear()
|
|
' 's.Highlight.ForeColor = s.Normal.ForeColor
|
|
' 's.Highlight.BackColor = Color.FromArgb(238, 239, 247)
|
|
|
|
'End Sub
|
|
'Private Sub cboCuenta_DropDown(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
' Try
|
|
' If Me.cmbCliente.Text = "" Then
|
|
' Me.cmbCliente.Focus()
|
|
' MessageBox.Show("Debes de seleccionar un cliente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
' Else
|
|
' If BanCuenta = False Then
|
|
' Dim cad As String
|
|
' cad = "spLlenaComboCuenta "
|
|
' cad = cad & CInt(cmbCliente.SelectedValue)
|
|
' Cuenta.sbLlenaCombo1(cad, Me.cmbCuenta)
|
|
' BanCuenta = True
|
|
' End If
|
|
' End If
|
|
' Catch ex As Exception
|
|
' MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
' End Try
|
|
'End Sub
|
|
|
|
Private Sub cboCliente_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
'Limpia el combo de cuenta al seleccionar otro elemento en el combo de cliente
|
|
Try
|
|
BanCuenta = False
|
|
Catch ex As Exception
|
|
End Try
|
|
Dim Intcuenta As String
|
|
End Sub
|
|
|
|
Private Sub cmbCliente_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCliente.DropDown
|
|
'Try
|
|
' If BanCliente = False Then
|
|
' 'Lleno combo de clientes con el procedimiento alamcenado "spLlenaComboCliente"
|
|
' Cliente.sbLlenaCombo("spLlenaComboCliente", Me.cmbCliente)
|
|
' End If
|
|
' BanCliente = True
|
|
'Catch ex As Exception
|
|
'End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvFraccionada_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
Dim clcmj1 As New clsComplejo
|
|
|
|
clcmj1 = New clsComplejo
|
|
'Dim txtCuenta As String
|
|
Try
|
|
If dgvFraccionada.Rows.Count <= 0 Then
|
|
Exit Sub
|
|
End If
|
|
' aqui se condiciona si entra a calificar o ver el detalle
|
|
gsidtran = dgvFraccionada.Item(1, dgvFraccionada.CurrentRow.Index).Value
|
|
clsVaribles.No_Referencia = dgvFraccionada.Item(2, dgvFraccionada.CurrentRow.Index).Value
|
|
'clsVaribles.no_cuenta = dgvFraccionada.Item(5, dgvFraccionada.CurrentRow.Index).Value
|
|
clsVaribles.Id_EstatusTransaccion = dgvFraccionada.Item(6, dgvFraccionada.CurrentRow.Index).Value
|
|
' con este parametro trae las operaciones del producto y sirve cuando hay mas de uno
|
|
'txtCuenta = dgvFraccionada.Item(5, dgvFraccionada.CurrentRow.Index).Value
|
|
Dim strsql As String = ""
|
|
'Dim result1 As DialogResult = MessageBox.Show("Deseas Calificar la Fraccionada ?", _
|
|
'"Important Question", _
|
|
'MessageBoxButtons.YesNo)
|
|
'If result1 = Windows.Forms.DialogResult.Yes Then
|
|
'Dim Detalles As DetallesFracc = New DetallesFracc
|
|
'DetallesFracc.Text = "Califica Fraccionadas"
|
|
'DetallesFracc.ShowDialog()
|
|
|
|
sbBuscar()
|
|
'Dim clsVar As New clsVaribles
|
|
'Dim clcmj1 As New clsComplejo
|
|
'Dim strsql As String = ""
|
|
'strsql = "spConFraccionadas '', '', 3, '" & clsVAr.Id_Transaccion & "', ''"
|
|
'clcmj1.fdtDataSetTabla(clsVar.varProceso)
|
|
'If clcmj1.ds.Tables(0).Rows.Count > 0 Then
|
|
|
|
'txtTotFrac.Text = clcmj1.ds.Tables(0).Rows.Count
|
|
'Me.dgvFraccionada.DataSource = clcmj1.ds.Tables(0)
|
|
'FormatGrid(Me.Flgdetalle)
|
|
'dgvFraccionada.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
'Else
|
|
'Me.dgvFraccionada.DataSource = Nothing
|
|
'End If
|
|
'Else
|
|
|
|
'End If
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
'Private Sub dgvFraccionada_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvFraccionada.CellContentClick
|
|
' Dim strsql As String
|
|
' Dim strValId As String
|
|
' Dim clcmj1 As New clsComplejo
|
|
' strValId = dgvFraccionada.Item(1, dgvFraccionada.CurrentCell.RowIndex).Value.ToString()
|
|
' 'strValId = dgvFraccionada.CurrentCell.RowIndex
|
|
' strsql = "spConFraccionadas '20120501', '20121129',2,'" & strValId & "','','',''"
|
|
|
|
|
|
' clcmj1.fdtDataSetTabla(strsql)
|
|
' Me.Flgdetalle.SetDataBinding(clcmj1.ds, "Tabla") 'Llena el grid
|
|
' FormatGrid(Me.Flgdetalle)
|
|
' txtTotFraccionada.Text = clcmj1.ds.Tables(0).Rows.Count
|
|
|
|
' Me.Flgdetalle.AutoSizeCols()
|
|
'End Sub
|
|
|
|
Private Function llenarDetalle() As Boolean
|
|
Dim strsql As String
|
|
Dim strValId As String
|
|
Dim clcmj1 As New clsComplejo
|
|
Dim ds As DataSet
|
|
Try
|
|
If Not dgvFraccionada.CurrentCell Is Nothing Then
|
|
strValId = dgvFraccionada.Item(0, dgvFraccionada.CurrentCell.RowIndex).Value.ToString()
|
|
Select Case cboProducto.SelectedValue
|
|
Case 1
|
|
strsql = "sp_ReportFraccionadasBT_Detalle "
|
|
Case 2
|
|
strsql = "sp_ReportFraccionadasMCAP_Detalle "
|
|
Case 7
|
|
strsql = "sp_ReportFraccionadasBI_Detalle "
|
|
Case 8
|
|
strsql = "sp_ReportFraccionadasCDTO_Detalle "
|
|
Case 11
|
|
strsql = "sp_ReportFraccionadasDIV_Detalle "
|
|
End Select
|
|
|
|
|
|
strsql += strValId
|
|
ds = clcmj1.fdtDataSetTabla(strsql)
|
|
clcmj1 = Nothing
|
|
If ds.Tables(0).Rows.Count > 0 Then
|
|
Me.Flgdetalle.SetDataBinding(ds, "Tabla") 'Llena el grid
|
|
'Me.Flgdetalle.Columns(7).NumberFormat = "Currency"
|
|
'Me.Flgdetalle.Columns(8).NumberFormat = "Currency"
|
|
txtTotFraccionada.Text = ds.Tables(0).Rows.Count
|
|
strVariables.Nombre = dgvFraccionada.Item(2, dgvFraccionada.CurrentCell.RowIndex).Value.ToString()
|
|
strVariables.Id_Transaccion = dgvFraccionada.Item(0, dgvFraccionada.CurrentCell.RowIndex).Value.ToString()
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Function
|
|
|
|
|
|
|
|
Private Sub dgvFraccionada_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgvFraccionada.SelectionChanged
|
|
If Not limpiando Then llenarDetalle()
|
|
End Sub
|
|
|
|
Private Sub BntSalir_Click(sender As Object, e As EventArgs) Handles BntSalir.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub BtnLimpiar1_Click(sender As Object, e As EventArgs) Handles BtnLimpiar1.Click
|
|
'sbIniciaForma()
|
|
txtTotFraccionada.Text = ""
|
|
txtTotFrac.Text = ""
|
|
'cboProducto.SelectedIndex = -1
|
|
'cMBCliente.SelectedIndex = -1
|
|
cboProducto.SelectedIndex = -1
|
|
txtCuenta.Text = ""
|
|
cboEstatus.SelectedIndex = -1
|
|
cmbCliente.SelectedIndex = -1
|
|
cmbCliente.SelectedIndex = -1
|
|
'dtgFraccionadas.DataSource = Nothing
|
|
limpiando = True
|
|
dgvFraccionada.Columns.Clear()
|
|
Flgdetalle.DataSource = Nothing
|
|
limpiando = False
|
|
|
|
End Sub
|
|
|
|
Private Sub Img_logoCabecera_Click(sender As Object, e As EventArgs) Handles Img_logoCabecera.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub cmbCliente_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCliente.SelectedIndexChanged
|
|
Try
|
|
BanCuenta = False
|
|
Catch ex As Exception
|
|
End Try
|
|
Dim Intcuenta As String
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvFraccionada_RowHeaderMouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvFraccionada.RowHeaderMouseDoubleClick
|
|
|
|
|
|
Try
|
|
Dim FilaActual As Integer
|
|
Dim IdTranMax As Integer
|
|
Dim Classcom As New clsComplejo
|
|
|
|
FilaActual = e.RowIndex
|
|
|
|
IdTranMax = dgvFraccionada.Rows(FilaActual).Cells(0).Value
|
|
|
|
'Classcom.fdtDataSet("spConsultaValoresFraccionadasCredito " & IdTranMax)
|
|
clsVaribles.ReportadoPor = "FRACCIONADA"
|
|
clsVaribles.Nombre = dgvFraccionada.Item("NOMBREORAZONS", FilaActual).Value.ToString()
|
|
clsVaribles.No_Referencia = dgvFraccionada.Item("NUMEROREFERENCIA", FilaActual).Value.ToString()
|
|
clsVaribles.Id_Transaccion = dgvFraccionada.Item("IDTRANSACCION", FilaActual).Value.ToString()
|
|
clsVaribles.Id_Producto = cboProducto.SelectedValue
|
|
clsVaribles.Id_SubProducto = dgvFraccionada.Item("IDSUBPRODUCTO", FilaActual).Value.ToString()
|
|
clsVaribles.Id_Patron = 3 'Classcom.ds.Tables(0).Rows(0).Item(5).ToString()
|
|
clsVaribles.Id_EstatusTransaccion = dgvFraccionada.Item("idestatusalarma", FilaActual).Value.ToString()
|
|
|
|
Dim frmDetalles As Detalles = New Detalles
|
|
frmDetalles.Text = "Detalle Operación"
|
|
frmDetalles.chk24H.Visible = False
|
|
frmDetalles.ShowDialog()
|
|
'refrescar()
|
|
sbBuscar()
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub btnConsulta_Click(sender As Object, e As EventArgs) Handles btnConsulta.Click
|
|
sbBuscar()
|
|
End Sub
|
|
Private Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
|
|
sbExportar()
|
|
End Sub
|
|
|
|
End Class |