Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Clientes.aspx.vb

@@ -5590,6 +5590,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
@@ -5613,9 +5617,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
@@ -10675,5 +10679,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