From 89a9dcb5045c529ee61138dc41ef75b5b996e8c5 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:36:31 -0700 Subject: [PATCH] -- que no cargue la tabla de historico, sino se usa --- Ventas/Ventas.aspx.vb | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index a2d323f13..a7cf2fcd7 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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