diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb
index 1ee85db95..a9dac3d27 100644
--- a/AF/CatAF.aspx.vb
+++ b/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()
-
-        DdlResponsable.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        Dim DtPersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        DdlResponsable.DataSource = DtPersonal
         DdlResponsable.DataBind()
     End Sub
     Protected Sub DdlTipoActivo_SelectedIndexChanged(sender As Object, e As EventArgs)