From 956bfe0a4d20b567e45809c68fa1bb0261316255 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 29 Oct 2024 19:05:50 -0700 Subject: [PATCH] -- mejoras --- Transportes/RepContratoDetalle.aspx | 12 +++++++++++- Transportes/RepContratoDetalle.aspx.vb | 4 ++++ Transportes/RepContratos.aspx | 5 +++++ 3 files changed, 20 insertions(+), 1 deletion(-) diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 050d5191a..c084c4ad8 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -297,7 +297,17 @@ - +
+ +
+
+ +
+ +
+
+
+
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 @@ + + + + +