Reportes contratos

2020-11-05 17:43:39 -07:00
parent 47085f87f8
commit 385f90ecca
8 changed files with 755 additions and 50 deletions
--- a/Contratos/RepContratosObraAvancesDetalle.aspx.vb
+++ b/Contratos/RepContratosObraAvancesDetalle.aspx.vb
@@ -0,0 +1,95 @@
+Imports Extensiones
+Imports System.Data
+
+Partial Class RepContratosObraAvancesDetalle
+    Inherits ClsPaginas
+
+
+    Property CveContrato As Integer
+
+        Get
+            If ViewState("CveContrato") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveContrato").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveContrato") = value
+        End Set
+
+
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+
+            CveContrato = If(Request("CveContrato") IsNot Nothing AndAlso Request("CveContrato").ToString.ToEntero > 0, Request("CveContrato").ToString.ToEntero, -1)
+
+            If CveContrato > 0 Then
+                CargaDatos()
+            End If
+        End If
+    End Sub
+
+
+    Private Sub CargaDatos()
+
+        Dim Con As New ClsContratos
+
+        If Con.GetContratosObraRepAvancesDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
+            GVDatos.DataSource = Con.DtResultados
+
+            If Con.DtResultados.Rows.Count = 0 Then
+                Alert("No se encontraron estimaciones.", TipoMensaje.MsgAdvertencia)
+            End If
+        Else
+            GVDatos.DataSource = Nothing
+
+        End If
+
+        Con.Dispose()
+
+        GVDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+    '#Region "C O M B O S"
+
+
+    '    Private Sub CargaContratos()
+    '        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31)	")
+    '        DdlContrato.DataBind()
+    '        DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
+    '    End Sub
+
+    '    Private Sub CargaClientes()
+    '        Dim dt As DataTable = Nothing
+    '        Dim Cli As New ClsClientes
+    '        If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+    '            dt = Cli.DtResultados
+    '        End If
+    '        Cli.Dispose()
+    '        DdlCliente.DataSource = dt
+    '        DdlCliente.DataBind()
+    '        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+    '    End Sub
+
+    '#End Region
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+        End If
+
+    End Sub
+
+    'Protected Sub CmdConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+    '    CargaDatos()
+    'End Sub
+
+
+End Class