-- que no cargue la tabla de historico, sino se usa

Ventas/Ventas.aspx.vb

@@ -6372,7 +6372,7 @@ Partial Class Ventas
 
         If CveCliente > 0 Then CargaAnticipos(CveCliente) : UpAnticipos.Update()
 
-        If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa = 140 Then
+        If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
             DivVentasUsados.Visible = True
 
             Dim ObjClientes As New ClsClientes
@@ -22461,12 +22461,13 @@ Partial Class Ventas
 
 #Region "  DEVOLUCION ALMACEN  "
     Private Sub InicializaDevolucionAlmacen()
-        If Not GvInv.Rows.Count > 0 Then
-            Exit Sub
+
+        If CveVenta.Contiene(2035312, 2035310, 2039679) Then
+            LBAplicaDevolucion.Visible = True
         End If
 
-        If CveVenta = 1651560 Then
-            LBAplicaDevolucion.Visible = True
+        If Not GvInv.Rows.Count > 0 Then
+            Exit Sub
         End If
 
         If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then