T129 Auditoria SAT

Compras/RepDocumentacionProveedor.aspx.vb

@@ -212,8 +212,20 @@ Partial Class Proveedores_RepDocumentacionProveedor
         DdlProveedores.setEsWebService(True)
         DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
         DdlProveedores.SelectedText = "Todos"
-        DdlProveedores.SelectedValue = "-1"
-
+        DdlProveedores.SelectedValue = "-1"
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoFiltro, Nothing, LblSubProyectoFiltro)
+
+        Dim ObjProveedor As New ClsCompProveedores
+
+        If ObjProveedor.GetTiposContratos(-1, UsuarioActual.CveEmpresa, 1) Then
+            DdlTipoContratoFiltro.DataSource = ObjProveedor.DtResultados
+        End If
+        ObjProveedor.Dispose()
+
+        DdlTipoContratoFiltro.DataBind()
+        DdlTipoContratoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
 
 
@@ -247,7 +259,7 @@ Partial Class Proveedores_RepDocumentacionProveedor
 
         Dim obEDoc As New ClsEdocumentacion
 
-        If obEDoc.DocumentacionElectronicaAuditoriaGet(CveProveedor, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 3, DdlEstatus.SelectedValue.ToEntero) Then
+        If obEDoc.DocumentacionElectronicaAuditoriaGet(CveProveedor, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 3, DdlEstatus.SelectedValue.ToEntero, DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlTipoContratoFiltro.SelectedValue.ToEntero) Then
             GvDocumentos.DataSource = obEDoc.DtResultados
         Else
             GvDocumentos.DataSource = Nothing
@@ -269,6 +281,10 @@ Partial Class Proveedores_RepDocumentacionProveedor
     Protected Sub GvDocumentos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentos.RowDataBound
 
 
+        If e.Row.RowType = DataControlRowType.Header Then
+            e.Row.FCLabel("LblSubProyecto").Text = LblSubProyectoFiltro.Text
+        End If
+
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString