-- mejoras

2024-10-29 19:05:50 -07:00
parent 8c97622340
commit 956bfe0a4d
3 changed files with 20 additions and 1 deletions
--- 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