85 lines
3.2 KiB
VB.net
85 lines
3.2 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports Extensiones
|
|
|
|
Partial Class Contratos_CatPresupuestos
|
|
Inherits ClsPaginas
|
|
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
InicializaValores()
|
|
CargaDatos()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#Region "I N I C I A L I Z A - V A L O R E S"
|
|
Private Sub InicializaValores()
|
|
CargaProyecto()
|
|
Dim CveProyecto = DdlSubProyecto.SelectedValue.ToEntero
|
|
CargaSubProyecto(CveProyecto)
|
|
txtFechaI.Text = $"01/01/{NowADS().Year}"
|
|
txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
|
|
|
|
UPFiltros.Update()
|
|
End Sub
|
|
Private Sub CargaProyecto()
|
|
DdlProyecto.Items.Clear()
|
|
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
|
|
DdlProyecto.DataBind()
|
|
DdlProyecto.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
|
|
End Sub
|
|
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
|
CargaSubProyecto(DdlProyecto.SelectedValue.ToEntero)
|
|
UPFiltros.Update()
|
|
End Sub
|
|
Protected Sub CargaSubProyecto(CveProyecto As Integer)
|
|
DdlSubProyecto.Items.Clear()
|
|
If CveProyecto > 0 Then
|
|
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
|
|
DdlSubProyecto.DataBind()
|
|
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
|
|
Else
|
|
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
Private Sub CargaDatos()
|
|
Dim ObjPres As New ClsContratos
|
|
Dim FechaI = TxtFechaI.Text.ToDate
|
|
Dim FechaF = TxtFechaF.Text.ToDate
|
|
Dim CveSubProyecto = DdlProyecto.SelectedValue.ToEntero
|
|
Dim Estatus = DdlEstatus.SelectedValue.ToEntero
|
|
Dim CvePresupuesto = -1
|
|
Dim Nombre = "-1"
|
|
Dim CveUsuario = -1
|
|
If ObjPres.GetPresupuestosCat(CvePresupuesto, Nombre, CveSubProyecto, Estatus, CveUsuario, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
|
|
GvDatos.DataSource = ObjPres.DtResultados
|
|
End If
|
|
ObjPres.Dispose()
|
|
GvDatos.DataBind()
|
|
End Sub
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
Dim Estatus = DdlEstatus.SelectedValue.ToEntero
|
|
Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
|
|
Dim FechaI = txtFechaI.Text.ToDate
|
|
Dim FechaF = TxtFechaF.Text.ToDate
|
|
Dim CvePresupuesto = -1
|
|
Dim Nombre = "-1"
|
|
Dim CveUsuario = -1
|
|
Dim ObjPres As New ClsContratos
|
|
If ObjPres.GetPresupuestosCat(CvePresupuesto, Nombre, CveSubProyecto, Estatus, CveUsuario, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
|
|
GvDatos.DataSource = ObjPres.DtResultados
|
|
End If
|
|
ObjPres.Dispose()
|
|
GvDatos.DataBind()
|
|
|
|
UPFiltros.Update()
|
|
UpTitulos.Update()
|
|
End Sub
|
|
End Class
|