Ventas modal con dos opciones, Clientes carga tab conrtatos, rh columna subproyecto configurda y drops cambiar seleccione uno por todos

Ventas/Clientes.aspx.vb

@@ -5587,6 +5587,10 @@ Partial Class Clientes
 #End Region
 
 #Region "C O N T R A T O S"
+
+
+
+
     Private Sub CargaDatosContrato()
         If CveCliente <= 0 Then
             Exit Sub
@@ -5610,9 +5614,9 @@ Partial Class Clientes
         UpContratosInactivos.DataBind()
 
 
-        If GvDatosAvance.Rows.Count > 0 Or GvContratosClienteInactivos.Rows.Count > 0 Then
-            TabContratos.Visible = True
-        End If
+        'If GvDatosAvance.Rows.Count > 0 Or GvContratosClienteInactivos.Rows.Count > 0 Then
+        '    TabContratos.Visible = True
+        'End If
     End Sub
 
     Private Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound
@@ -10672,5 +10676,14 @@ Partial Class Clientes
             UpDatos.Update()
         End If
     End Sub
+
+    Protected Sub BtnCargaContratos_Click(sender As Object, e As EventArgs)
+        If CveCliente > 0 Then
+            CargaDatosContrato()
+            UpDatos.Update()
+        End If
+    End Sub
+
+
 End Class