-- poner un timmer cuando se activa la modalidad de liquidación, para que no expire el tiempo

Ventas/ClientesAbonar.aspx.vb

@@ -1499,7 +1499,7 @@ Partial Class Ventas_ClientesAbonar
                         End If
                     End If
 
-                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
+                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) AndAlso UsuarioActual.CveEmpresa <> 158 Then
                         If ObjMov.ValorPolizaDescuadre > 0 Then
                             MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia
                         End If
@@ -2871,11 +2871,15 @@ Partial Class Ventas_ClientesAbonar
 
 #Region "LIQUIDACION"
 
+    Protected Sub TimTiempo_Tick(sender As Object, e As EventArgs)
+        Dim a As String = "se recarga para que no pierda sesíón el registro puede tardar más de una hora en llenar todos los datos" 'solo para que se ejecute sin que afecte a lo demás
+    End Sub
+
     Protected Sub ChkLiquidacion_CheckedChanged(sender As Object, e As EventArgs)
 
 
         If ChkLiquidacion.Checked Then
-
+            TimTiempo.Enabled = True 'para que no me saque
             GvCxC.Columns(4).Visible = False
             GvCxC.Columns(5).Visible = False
             GvCxC.Columns(6).Visible = False
@@ -2899,6 +2903,7 @@ Partial Class Ventas_ClientesAbonar
 
 
         Else
+            TimTiempo.Enabled = False
             GvCxC.Columns(4).Visible = True
             GvCxC.Columns(5).Visible = True
             GvCxC.Columns(6).Visible = True
@@ -2919,7 +2924,6 @@ Partial Class Ventas_ClientesAbonar
             GvCxC.Columns(27).Visible = True
             GvCxC.Columns(28).Visible = True
 
-
         End If
 
         UPVentas.Update()