- mejora

AF/CatAF.aspx.vb

@@ -124,8 +124,8 @@ Partial Class AF_CatAF
         DdlTipoActivo.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
     Private Sub CargaResponsable()
-        Dim DtPersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
-        DdlResponsable.DataSource = DtPersonal
+
+        DdlResponsable.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
         DdlResponsable.DataBind()
     End Sub
     Protected Sub DdlTipoActivo_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -454,7 +454,7 @@ Partial Class AF_CatAF
     End Sub
 
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
-        If DtActivosFijos.Rows.Count > 0 Then
+        If DtActivosFijos IsNot Nothing AndAlso DtActivosFijos.Rows.Count > 0 Then
             Dim params As New List(Of ReportParameter)
             Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")