Commit inicial Ventas Productivo

Contratos/CatPresupuestos.aspx.vb

@@ -0,0 +1,84 @@
+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/{Now.Year}"
+        txtFechaF.Text = Now.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(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).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