Carga de Historial de ventas, CxC,anticipos y bancos al hacer click en el TAB

Ventas/Clientes.aspx.vb

@@ -25,9 +25,9 @@ Partial Class Clientes
     Private Opcion As Integer
     <PersistenceModeAttribute(PersistenceMode.InnerProperty)>
     Public ReadOnly Property RowStyle As TableItemStyle
-    Private ReadOnly Property CveCliente As Integer
+    Public ReadOnly Property CveCliente As Integer
         Get
-            Return ViewState("CveCliente").ToString().ToEntero()
+            Return If(IsNothing(ViewState("CveCliente")), "-1", ViewState("CveCliente").ToString()).ToEntero()
         End Get
     End Property
     Private Property DTCuentasBancos As DataTable
@@ -1400,6 +1400,7 @@ Partial Class Clientes
         HeedarContable.Attributes.Remove("onclick")
         UpFiscalContable.Update()
     End Sub
+
     Private Function CargaDatos() As Boolean
         Dim watch As New Diagnostics.Stopwatch()
         watch.Start()
@@ -1413,15 +1414,11 @@ Partial Class Clientes
                 CargaDdlSucursalCliente()
                 CargaDocumentosVenta(CveCliente)
 
-                Dim RetSC As Boolean = CargaSucursalesCliente()
-                Dim RetCC As Boolean = CargaCotizaciones()
-                CargaHistorial()
-                CargaResumenHistorial()
-                Dim RetCxC As Boolean = CargaCxC()
-                CargaAnticipos()
+                Dim RetSC As Boolean = CargaSucursalesCliente()
+
+
                 CargaPersonalAsignado()
                 CargaUsuariosPortal()
-                CargaBancos()
                 CargaOrdenesServiciosCliente()
                 CargaImpuestosLocales()
                 CargaCuentasContablesDdls()
@@ -2059,6 +2056,8 @@ Partial Class Clientes
         End If
         ObjMovtos.Dispose()
         GvBancos.DataBind()
+
+        UpBancos.Update()
     End Sub
 
     Protected Sub GvBancos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancos.RowDataBound
@@ -10627,5 +10626,32 @@ Partial Class Clientes
 
         CargaDispositivos(DdlEstatusDispositivos.SelectedValue.ToEntero())
     End Sub
+    Protected Sub BtnCargaCxC_Click(sender As Object, e As EventArgs)
+        If CveCliente > 0 Then
+            CargaCxC()
+            UpDatos.Update()
+        End If
+    End Sub
+    Protected Sub BtnHistorialVentas_Click(sender As Object, e As EventArgs)
+        If CveCliente > 0 Then
+            CargaCotizaciones()
+            CargaHistorial()
+            CargaResumenHistorial()
+
+            UpnHistorial.Update()
+            UpDatos.Update()
+        End If
+    End Sub
+    Protected Sub BtnCargaAnticipos_Click(sender As Object, e As EventArgs)
+        If CveCliente > 0 Then
+            CargaAnticipos()
+        End If
+    End Sub
+    Protected Sub BtnCargaBancos_Click(sender As Object, e As EventArgs)
+        If CveCliente > 0 Then
+            CargaBancos()
+            UpDatos.Update()
+        End If
+    End Sub
 End Class