Filtro por contrato en rep cxc y mostrar descripcion en personalizar en rep cxc detalle

CxC/RepCxCDetalle.aspx.vb

@@ -242,8 +242,8 @@ Partial Class RepCxCDetalle
 
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "CARGAS"
     Private Sub CargaCombos()
         Dim CveCliente, CveVendedor, CveUsuario, CveSubProyecto,
@@ -366,7 +366,7 @@ Partial Class RepCxCDetalle
         CargaClientes()
         If CveCliente > 0 Then
             DdlClientesWS.SelectedValue = CveCliente.ToString
-            DdlClientesWS.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("NombreComercial", $"CveCliente = {CveCliente}")
+            'DdlClientesWS.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("NombreComercial", $"CveCliente = {CveCliente}")
         End If
         'DdlClientes.SelectedValueExist(CveCliente)
         DdlUsuario.SelectedValueExist(CveUsuario)
@@ -426,7 +426,23 @@ Partial Class RepCxCDetalle
 
         If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
 
-        DdlTieneLineaAdicional.SelectedValueExist(If(Request("TieneLineaAdicional") IsNot Nothing, Request("TieneLineaAdicional").ToString, "-1").ToString)
+        DdlTieneLineaAdicional.SelectedValueExist(If(Request("TieneLineaAdicional") IsNot Nothing, Request("TieneLineaAdicional").ToString, "-1").ToString)
+
+        If UsuarioActual.CveEmpresa = 13 Then
+            CargaContratos()
+        End If
+        DdlContrato.SelectedValueExist(If(Request("CveContrato") IsNot Nothing, Request("CveContrato").ToString, "-1").ToString)
+
+    End Sub
+    Private Sub CargaContratos()
+        Dim ObjContratos As New ClsContratos
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente:=-1) Then
+            DdlContrato.DataSource = ObjContratos.DtResultados
+        End If
+
+        ObjContratos.Dispose()
+        DdlContrato.DataBind()
+
     End Sub
     Private Function CargaDatos() As DataSet
 
@@ -852,9 +868,17 @@ Partial Class RepCxCDetalle
             SePersonalizo = 1
         Else
             GvDatos.Columns(45).Visible = False
+        End If
+
+        If ChkMostrarDescripcionVenta.Checked Then
+            GvDatos.Columns(46).Visible = True
+            SePersonalizo = 1
+        Else
+            GvDatos.Columns(46).Visible = False
         End If
 
 
+
         If SePersonalizo = 1 Then
             ImgExcelPersonalizado.Visible = True
         Else