423 lines
17 KiB
VB.net
423 lines
17 KiB
VB.net
|
Public Class OperatividadBaja
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
|
|||
|
|
#Region " Windows Form Designer generated code "
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New()
|
|||
|
|
|
|||
|
|
'This call is required by the Windows Form Designer.
|
|||
|
|
InitializeComponent()
|
|||
|
|
|
|||
|
|
'Add any initialization after the InitializeComponent() call
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Form overrides dispose to clean up the component list.
|
|||
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|||
|
|
If disposing Then
|
|||
|
|
If Not (components Is Nothing) Then
|
|||
|
|
components.Dispose()
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
MyBase.Dispose(disposing)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Required by the Windows Form Designer
|
|||
|
|
Private components As System.ComponentModel.IContainer
|
|||
|
|
|
|||
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
|||
|
|
'It can be modified using the Windows Form Designer.
|
|||
|
|
'Do not modify it using the code editor.
|
|||
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|||
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
|||
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|||
|
|
Friend WithEvents btnConsultar As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents tlbOperatividadBaja As System.Windows.Forms.ToolBar
|
|||
|
|
Friend WithEvents btnGrafica As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents lblNumReg As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cmbProducto As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents dtpFechaInicio As System.Windows.Forms.DateTimePicker
|
|||
|
|
Friend WithEvents dtpFechaFin As System.Windows.Forms.DateTimePicker
|
|||
|
|
Friend WithEvents dtgOperatividadBaja As System.Windows.Forms.DataGrid
|
|||
|
|
Friend WithEvents btnRefrescar As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents btnExportar As System.Windows.Forms.ToolBarButton
|
|||
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|||
|
|
Me.components = New System.ComponentModel.Container()
|
|||
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(OperatividadBaja))
|
|||
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
|||
|
|
Me.dtpFechaFin = New System.Windows.Forms.DateTimePicker()
|
|||
|
|
Me.dtpFechaInicio = New System.Windows.Forms.DateTimePicker()
|
|||
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|||
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
|||
|
|
Me.cmbProducto = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|||
|
|
Me.dtgOperatividadBaja = New System.Windows.Forms.DataGrid()
|
|||
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|||
|
|
Me.tlbOperatividadBaja = New System.Windows.Forms.ToolBar()
|
|||
|
|
Me.btnConsultar = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnExportar = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnGrafica = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnRefrescar = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnSalir = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.lblNumReg = New System.Windows.Forms.Label()
|
|||
|
|
Me.GroupBox1.SuspendLayout()
|
|||
|
|
Me.GroupBox2.SuspendLayout()
|
|||
|
|
CType(Me.dtgOperatividadBaja, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.SuspendLayout()
|
|||
|
|
'
|
|||
|
|
'GroupBox1
|
|||
|
|
'
|
|||
|
|
Me.GroupBox1.Controls.Add(Me.dtpFechaFin)
|
|||
|
|
Me.GroupBox1.Controls.Add(Me.dtpFechaInicio)
|
|||
|
|
Me.GroupBox1.Controls.Add(Me.Label1)
|
|||
|
|
Me.GroupBox1.Controls.Add(Me.Label2)
|
|||
|
|
Me.GroupBox1.Location = New System.Drawing.Point(168, 12)
|
|||
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|||
|
|
Me.GroupBox1.Size = New System.Drawing.Size(304, 44)
|
|||
|
|
Me.GroupBox1.TabIndex = 0
|
|||
|
|
Me.GroupBox1.TabStop = False
|
|||
|
|
Me.GroupBox1.Text = "Fechas"
|
|||
|
|
'
|
|||
|
|
'dtpFechaFin
|
|||
|
|
'
|
|||
|
|
Me.dtpFechaFin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|||
|
|
Me.dtpFechaFin.Location = New System.Drawing.Point(187, 16)
|
|||
|
|
Me.dtpFechaFin.Name = "dtpFechaFin"
|
|||
|
|
Me.dtpFechaFin.Size = New System.Drawing.Size(104, 20)
|
|||
|
|
Me.dtpFechaFin.TabIndex = 1
|
|||
|
|
'
|
|||
|
|
'dtpFechaInicio
|
|||
|
|
'
|
|||
|
|
Me.dtpFechaInicio.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|||
|
|
Me.dtpFechaInicio.Location = New System.Drawing.Point(44, 16)
|
|||
|
|
Me.dtpFechaInicio.Name = "dtpFechaInicio"
|
|||
|
|
Me.dtpFechaInicio.Size = New System.Drawing.Size(104, 20)
|
|||
|
|
Me.dtpFechaInicio.TabIndex = 0
|
|||
|
|
'
|
|||
|
|
'Label1
|
|||
|
|
'
|
|||
|
|
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.Label1.Location = New System.Drawing.Point(12, 20)
|
|||
|
|
Me.Label1.Name = "Label1"
|
|||
|
|
Me.Label1.Size = New System.Drawing.Size(40, 16)
|
|||
|
|
Me.Label1.TabIndex = 2
|
|||
|
|
Me.Label1.Text = "Inicial"
|
|||
|
|
'
|
|||
|
|
'Label2
|
|||
|
|
'
|
|||
|
|
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.Label2.Location = New System.Drawing.Point(160, 21)
|
|||
|
|
Me.Label2.Name = "Label2"
|
|||
|
|
Me.Label2.Size = New System.Drawing.Size(30, 14)
|
|||
|
|
Me.Label2.TabIndex = 3
|
|||
|
|
Me.Label2.Text = "Final"
|
|||
|
|
'
|
|||
|
|
'GroupBox2
|
|||
|
|
'
|
|||
|
|
Me.GroupBox2.Controls.Add(Me.cmbProducto)
|
|||
|
|
Me.GroupBox2.Controls.Add(Me.Label3)
|
|||
|
|
Me.GroupBox2.Controls.Add(Me.GroupBox1)
|
|||
|
|
Me.GroupBox2.Location = New System.Drawing.Point(50, 58)
|
|||
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|||
|
|
Me.GroupBox2.Size = New System.Drawing.Size(496, 66)
|
|||
|
|
Me.GroupBox2.TabIndex = 1
|
|||
|
|
Me.GroupBox2.TabStop = False
|
|||
|
|
Me.GroupBox2.Text = "Parametros de consulta"
|
|||
|
|
'
|
|||
|
|
'cmbProducto
|
|||
|
|
'
|
|||
|
|
Me.cmbProducto.DropDownWidth = 180
|
|||
|
|
Me.cmbProducto.Location = New System.Drawing.Point(18, 32)
|
|||
|
|
Me.cmbProducto.Name = "cmbProducto"
|
|||
|
|
Me.cmbProducto.Size = New System.Drawing.Size(128, 21)
|
|||
|
|
Me.cmbProducto.TabIndex = 2
|
|||
|
|
'
|
|||
|
|
'Label3
|
|||
|
|
'
|
|||
|
|
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.Label3.Location = New System.Drawing.Point(16, 18)
|
|||
|
|
Me.Label3.Name = "Label3"
|
|||
|
|
Me.Label3.Size = New System.Drawing.Size(56, 16)
|
|||
|
|
Me.Label3.TabIndex = 1
|
|||
|
|
Me.Label3.Text = "Producto"
|
|||
|
|
'
|
|||
|
|
'dtgOperatividadBaja
|
|||
|
|
'
|
|||
|
|
Me.dtgOperatividadBaja.BackgroundColor = System.Drawing.Color.White
|
|||
|
|
Me.dtgOperatividadBaja.DataMember = ""
|
|||
|
|
Me.dtgOperatividadBaja.HeaderForeColor = System.Drawing.SystemColors.ControlText
|
|||
|
|
Me.dtgOperatividadBaja.Location = New System.Drawing.Point(6, 132)
|
|||
|
|
Me.dtgOperatividadBaja.Name = "dtgOperatividadBaja"
|
|||
|
|
Me.dtgOperatividadBaja.Size = New System.Drawing.Size(580, 244)
|
|||
|
|
Me.dtgOperatividadBaja.TabIndex = 2
|
|||
|
|
'
|
|||
|
|
'ImageList1
|
|||
|
|
'
|
|||
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|||
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
|
|||
|
|
Me.ImageList1.Images.SetKeyName(0, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(1, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(2, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(3, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(4, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(5, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(6, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(7, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(8, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(9, "")
|
|||
|
|
'
|
|||
|
|
'tlbOperatividadBaja
|
|||
|
|
'
|
|||
|
|
Me.tlbOperatividadBaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnConsultar, Me.btnExportar, Me.btnGrafica, Me.btnRefrescar, Me.btnSalir})
|
|||
|
|
Me.tlbOperatividadBaja.ButtonSize = New System.Drawing.Size(75, 40)
|
|||
|
|
Me.tlbOperatividadBaja.DropDownArrows = True
|
|||
|
|
Me.tlbOperatividadBaja.ImageList = Me.ImageList1
|
|||
|
|
Me.tlbOperatividadBaja.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.tlbOperatividadBaja.Name = "tlbOperatividadBaja"
|
|||
|
|
Me.tlbOperatividadBaja.ShowToolTips = True
|
|||
|
|
Me.tlbOperatividadBaja.Size = New System.Drawing.Size(592, 42)
|
|||
|
|
Me.tlbOperatividadBaja.TabIndex = 15
|
|||
|
|
'
|
|||
|
|
'btnConsultar
|
|||
|
|
'
|
|||
|
|
Me.btnConsultar.ImageIndex = 8
|
|||
|
|
Me.btnConsultar.Name = "btnConsultar"
|
|||
|
|
Me.btnConsultar.Text = "Consultar"
|
|||
|
|
'
|
|||
|
|
'btnExportar
|
|||
|
|
'
|
|||
|
|
Me.btnExportar.ImageIndex = 9
|
|||
|
|
Me.btnExportar.Name = "btnExportar"
|
|||
|
|
Me.btnExportar.Text = "Exportar"
|
|||
|
|
'
|
|||
|
|
'btnGrafica
|
|||
|
|
'
|
|||
|
|
Me.btnGrafica.ImageIndex = 0
|
|||
|
|
Me.btnGrafica.Name = "btnGrafica"
|
|||
|
|
Me.btnGrafica.Text = "Ver Grafica"
|
|||
|
|
Me.btnGrafica.Visible = False
|
|||
|
|
'
|
|||
|
|
'btnRefrescar
|
|||
|
|
'
|
|||
|
|
Me.btnRefrescar.ImageIndex = 0
|
|||
|
|
Me.btnRefrescar.Name = "btnRefrescar"
|
|||
|
|
Me.btnRefrescar.Text = "Refrescar"
|
|||
|
|
'
|
|||
|
|
'btnSalir
|
|||
|
|
'
|
|||
|
|
Me.btnSalir.ImageIndex = 4
|
|||
|
|
Me.btnSalir.Name = "btnSalir"
|
|||
|
|
Me.btnSalir.Text = "Salir"
|
|||
|
|
'
|
|||
|
|
'lblNumReg
|
|||
|
|
'
|
|||
|
|
Me.lblNumReg.Location = New System.Drawing.Point(372, 382)
|
|||
|
|
Me.lblNumReg.Name = "lblNumReg"
|
|||
|
|
Me.lblNumReg.Size = New System.Drawing.Size(208, 15)
|
|||
|
|
Me.lblNumReg.TabIndex = 27
|
|||
|
|
Me.lblNumReg.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'OperatividadBaja
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|||
|
|
Me.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(592, 401)
|
|||
|
|
Me.Controls.Add(Me.lblNumReg)
|
|||
|
|
Me.Controls.Add(Me.tlbOperatividadBaja)
|
|||
|
|
Me.Controls.Add(Me.dtgOperatividadBaja)
|
|||
|
|
Me.Controls.Add(Me.GroupBox2)
|
|||
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
|||
|
|
Me.MaximizeBox = False
|
|||
|
|
Me.Name = "OperatividadBaja"
|
|||
|
|
Me.Text = "Operatividad Baja"
|
|||
|
|
Me.GroupBox1.ResumeLayout(False)
|
|||
|
|
Me.GroupBox2.ResumeLayout(False)
|
|||
|
|
CType(Me.dtgOperatividadBaja, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.ResumeLayout(False)
|
|||
|
|
Me.PerformLayout()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
Dim clCmp As clsComplejo = New clsComplejo
|
|||
|
|
Dim clCmp1 As clsComplejo = New clsComplejo
|
|||
|
|
Public Shared No_Cuenta As String
|
|||
|
|
Public Shared _IdProducto As Integer
|
|||
|
|
Public Shared _Fecha As String
|
|||
|
|
Dim Bandera As Boolean = False
|
|||
|
|
Public Shared _Opcion As Integer
|
|||
|
|
|
|||
|
|
Private Sub OperatividadBaja_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbOperatividadBaja.ButtonClick
|
|||
|
|
'Botones de la toolbar
|
|||
|
|
Select Case e.Button.Text
|
|||
|
|
Case "Consultar"
|
|||
|
|
sbBuscar()
|
|||
|
|
Case "Exportar"
|
|||
|
|
Exportar()
|
|||
|
|
Case "Ver Grafica"
|
|||
|
|
Grafica()
|
|||
|
|
Case "Refrescar"
|
|||
|
|
Refrescar()
|
|||
|
|
Case "Salir"
|
|||
|
|
Me.Close()
|
|||
|
|
End Select
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Exportar()
|
|||
|
|
'llama a las rutinas para exportar a excel
|
|||
|
|
Try
|
|||
|
|
If clCmp.ds.Tables.Count = 0 Then
|
|||
|
|
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
Else
|
|||
|
|
If clCmp.ds.Tables(0).Rows.Count = 0 Then
|
|||
|
|
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
Else
|
|||
|
|
Dim Resul As DialogResult
|
|||
|
|
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, <20>Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
|||
|
|
If Resul = DialogResult.Yes Then
|
|||
|
|
Dim clsExcel As aExcel = New aExcel
|
|||
|
|
clsExcel.Titulo = Me.Text
|
|||
|
|
'Utilizo la funcion ExportDataset de la clase aExcel
|
|||
|
|
clsExcel.ExportDataset(clCmp.ds) 'Asigno el dataset a exportar
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
Private Sub Grafica()
|
|||
|
|
'Muestra el form de la grafica de operatividad baja
|
|||
|
|
Try
|
|||
|
|
If clCmp.ds.Tables.Count = 0 Then
|
|||
|
|
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
Else
|
|||
|
|
If clCmp.ds.Tables(0).Rows.Count = 0 Then
|
|||
|
|
MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
Else
|
|||
|
|
'Muestra el form
|
|||
|
|
NoCuenta() 'Llama a la funcion que recuepra datos del grid
|
|||
|
|
Dim frmGrfOperBaja As OperBaja = New OperBaja
|
|||
|
|
frmGrfOperBaja.ShowDialog()
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
Private Sub Refrescar()
|
|||
|
|
'Limpia los controles (Combos y datagrid)
|
|||
|
|
Me.cmbProducto.DataSource = Nothing
|
|||
|
|
Me.cmbProducto.Items.Clear()
|
|||
|
|
Me.dtgOperatividadBaja.DataSource = Nothing
|
|||
|
|
Me.dtgOperatividadBaja.DataBindings.Clear()
|
|||
|
|
Bandera = False
|
|||
|
|
End Sub
|
|||
|
|
Private Sub NoCuenta()
|
|||
|
|
'Se ontiene valores del grid
|
|||
|
|
Dim filaActual As Integer
|
|||
|
|
filaActual = Me.dtgOperatividadBaja.CurrentRowIndex
|
|||
|
|
Dim Fila As DataRow
|
|||
|
|
Fila = clCmp.ds.Tables(0).Rows(filaActual)
|
|||
|
|
No_Cuenta = Fila("No_cuenta")
|
|||
|
|
_Fecha = Fila("Fecha")
|
|||
|
|
End Sub
|
|||
|
|
Public Sub sbBuscar()
|
|||
|
|
'realiza una consulta en base al procedimiento almacenado
|
|||
|
|
Try
|
|||
|
|
'Formo el query de consulta
|
|||
|
|
If Me.cmbProducto.Text = "" Then
|
|||
|
|
MessageBox.Show("Es necesario seleccionar un producto", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
Dim SQL As String
|
|||
|
|
SQL = ""
|
|||
|
|
'SQL = fsDefineSQL("sbOperatividadBajaRep ")
|
|||
|
|
SQL = fsDefineSQL("spOperatividadBaja ")
|
|||
|
|
clCmp.fdtDataSetTabla(SQL)
|
|||
|
|
'Llena el grid
|
|||
|
|
Me.dtgOperatividadBaja.SetDataBinding(clCmp.ds, "Tabla")
|
|||
|
|
Catch er As Exception
|
|||
|
|
MessageBox.Show("Error al llenar el grid 'Sub: sbBuscar' " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
Dim x As Integer
|
|||
|
|
x = clCmp.ds.Tables(0).Rows.Count
|
|||
|
|
lblNumReg.Text = "N<EFBFBD>mero total de registros: " & x
|
|||
|
|
Catch er As Exception
|
|||
|
|
'MessageBox.Show("Error en el sub 'sbbuscar' en 'inusualesDivisas' " & er.Message)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Function fsDefineSQL(ByVal SP As String) As String
|
|||
|
|
'Defino mi cadena para el procedimiento almacenado
|
|||
|
|
Dim lsSQL As String
|
|||
|
|
Dim lsIni As String
|
|||
|
|
Dim lsFin As String
|
|||
|
|
Dim lsProducto As Integer
|
|||
|
|
Dim _Opcion As Integer
|
|||
|
|
Dim Classcom As New clsComplejo
|
|||
|
|
|
|||
|
|
' ************ Fechas ****************
|
|||
|
|
lsIni = Classcom.ObtenFecha(CDate(dtpFechaInicio.Value.ToShortDateString), "yyyymmdd")
|
|||
|
|
lsIni = "'" & lsIni & "'"
|
|||
|
|
lsFin = Classcom.ObtenFecha(CDate(dtpFechaFin.Value.ToShortDateString), "yyyymmdd")
|
|||
|
|
lsFin = "'" & lsFin & "'"
|
|||
|
|
|
|||
|
|
'*************** combo Producto*************
|
|||
|
|
If cmbProducto.SelectedIndex <> -1 Then
|
|||
|
|
lsProducto = CInt(cmbProducto.SelectedValue)
|
|||
|
|
_Opcion = 2 'Se establece que se filtrara a traves del id del producto
|
|||
|
|
Else
|
|||
|
|
_Opcion = 1 'Buscar todos
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'Formo el query
|
|||
|
|
lsSQL = ""
|
|||
|
|
lsSQL = lsSQL & SP & " "
|
|||
|
|
lsSQL = lsSQL & lsIni & ", "
|
|||
|
|
lsSQL = lsSQL & lsFin & ", "
|
|||
|
|
'lsSQL = lsSQL & _Opcion & ","
|
|||
|
|
lsSQL = lsSQL & lsProducto
|
|||
|
|
Return lsSQL
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub dtgOperatividadBaja_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtgOperatividadBaja.DoubleClick
|
|||
|
|
'Al dar doble click sobre una rejilla del grid
|
|||
|
|
Grafica()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cmbProducto_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbProducto.DropDown
|
|||
|
|
Try
|
|||
|
|
'Lleno el combo de productos
|
|||
|
|
If Bandera = False Then
|
|||
|
|
'Se utiliza un procedimiento almacenado para llenar el combo
|
|||
|
|
clCmp.sbLlenaCombo("spLlenaComboAliasProductos", Me.cmbProducto)
|
|||
|
|
End If
|
|||
|
|
Bandera = True
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub dtgOperatividadBaja_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles dtgOperatividadBaja.Navigate
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cmbProducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProducto.SelectedIndexChanged
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
End Class
|