From 393a924b15208a4d11ab5c904bd5f72cb5035fe4 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 22 Mar 2023 23:05:14 -0700 Subject: [PATCH] --Correcion en devolucion de almacen --- Ventas/Ventas.aspx.vb | 25 ++++++++++++++++++++----- 1 file changed, 20 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 4df58ba8c..6dcf09124 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -24803,15 +24803,30 @@ Partial Class Ventas If SaldoVenta <> 0 Then - If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then + If UsuarioActual.TienePermisoProceso(269) Then + DivDevAlm.Visible = True + TieneAlmacen = True + End If + + If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then DivDevAlm.Visible = True TieneAlmacen = True - If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then - ChkDevAlm.Checked = True - ChkDevAlm.Enabled = False - End If + ChkDevAlm.Checked = True + ChkDevAlm.Enabled = False End If + + If (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then + Using ObjInv As New ClsInventarios + If ObjInv.GetInv_Mov(Me.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInv.DtResultados.Rows.Count > 0 Then + Dim RowInv As DataRow = ObjInv.DtResultados.FiltroPrimero("CveConcepto IN (3,40)") + If RowInv IsNot Nothing Then + CveAlmacenDevolucion = RowInv("CveAlmacen").ToString().ToEntero() + End If + End If + End Using + End If + End If End If