diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 3e9bce566..a423e20fe 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -62,7 +62,7 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma()
         If DtAvance IsNot Nothing Then
 
-            For Each Row As DataRow In DtAvance.Rows
+            For Each Row As DataRow In DtAvance.FiltraParametros("CveAF > 0").Rows
                 If String.IsNullOrEmpty(Row("NombreAF").ToString()) Then
                     Row("NombreAF") = "Unidad no asignada"
                 End If