Reportes contratos

Contratos/RepContratosObraAvances.aspx.vb

@@ -0,0 +1,75 @@
+Imports Extensiones
+Imports System.Data
+
+Partial Class RepContratosObraAvances
+    Inherits ClsPaginas
+
+
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaClientes()
+            CargaContratos()
+            'CargaDatos()
+
+        End If
+    End Sub
+
+
+    Private Sub CargaDatos()
+
+        Dim Con As New ClsContratos
+
+        If Con.GetContratosObraRepAvances(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GVDatos.DataSource = Con.DtResultados
+        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