Cambios GlobalDTSubPoryecto

Cambio GlobalDTUsuario

Transportes/RepContratoDetalle.aspx.vb

@@ -165,6 +165,16 @@ Partial Class RepContratoDetalle
                 CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
                 DdlSubProyecto.SelectedValueExist(Contrato.Rows(0)("CveSubProyecto").ToString)
 
+
+                HypRemision.Text = Contrato.Rows(0)("RemisionSerieFolio").ToString
+                HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ Contrato.Rows(0)("CveVentaRemision").ToString}"
+
+                If Contrato.Rows(0)("RemisionSaldo").ToString.ToDecimal > 0 Then
+                    LblSaldo.Text = $"Saldo { Contrato.Rows(0)("RemisionSaldo").ToString.ToDecimal.ToString("###,###,###.00")}"
+                Else
+                    LblSaldo.Text = ""
+                End If
+
                 If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then
                     ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo)
                     BtnDescargar.Visible = True