diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index 102bcd838..62b6ad38d 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -272,6 +272,10 @@ Partial Class RepContratoDetalle
TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString
CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
DdlSubProyecto.SelectedValueExist(Contrato.Rows(0)("CveSubProyecto").ToString)
+ If Contrato.Rows(0)("CveAF").ToString <> "" Then
+ divAF.Visible = True
+ LblAF.Text = Contrato.Rows(0)("CodigoNombreAF").ToString
+ End If
CveSubProyectoOriginal = Contrato.Rows(0)("CveSubProyecto").ToString.ToEntero
CveMonedaOriginal = Contrato.Rows(0)("CveMoneda").ToString.ToEntero
diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx
index 0dee8652a..865151ea5 100644
--- a/Transportes/RepContratos.aspx
+++ b/Transportes/RepContratos.aspx
@@ -223,6 +223,11 @@
+
+
+
+
+