--SMS, Unificacion y facturacion de pedidos

App_Code/Modelos.vb

@@ -5646,8 +5646,6 @@ Namespace Modelos
                                 Case "Ing"
                                     Filtro = "CveConcepto IN (3, 40)"
                                     FiltroDevAlmacen = "CveConcepto IN (18, 41)"
-                                Case "Ped"
-                                    Filtro = "CveConcepto IN (3, 40)"
                                 Case "Dev"
                                     Filtro = "CveConcepto = 18"
                                 Case Else
@@ -5703,7 +5701,7 @@ Namespace Modelos
 
                             If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then
                                 'REALIZA DEVOLUCION A LAS SALIDAS PENDIENTES
-                                If ObjFactura.TipoDocto <> "Rem" Then
+                                If Not ObjFactura.TipoDocto.Contiene("Rem", "Ped") Then
                                     For Each RowMovimiento As DataRow In DtSalidas.Rows
                                         Dim CveConceptoMovimiento As Integer = -1
                                         Dim CveAlmacenMovimiento As Integer = -1
@@ -6014,8 +6012,8 @@ Namespace Modelos
 
                                 End If
 
-                                'CANCELACION DE MOVIMIENTOS DE REMISION
-                                If Not ErrorCancelar AndAlso ObjFactura.TipoDocto = "Rem" AndAlso RealizarDevolucionAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then
+                                'CANCELACION DE MOVIMIENTOS DE REMISION, PEDIDOS
+                                If Not ErrorCancelar AndAlso ObjFactura.TipoDocto.Contiene("Rem", "Ped") AndAlso RealizarDevolucionAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then
                                     Dim CveMovimientoUsado As Integer = -1
                                     Dim CveAlmacenUsado As Integer = 0
                                     Dim CveAlmacenGeneral As Integer = 0

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -46,7 +46,7 @@ Partial Class Inventarios_Default
                 DivSucursal.Visible = True
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(186) Then
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 LtPrecioPS.Visible = True
                 DivListasPrecios.Visible = True
                 DivListasPreciosRow2.Visible = True
@@ -89,7 +89,7 @@ Partial Class Inventarios_Default
         Dim Txt As String = IfNull(Request("Txt"), "").ToString
         If Txt <> "" Then LblTitulo.Text = String.Format("Búsqueda de {0}", Txt)
 
-        If UsuarioActual.CveEmpresa = 186 Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             CargaListasPrecios()
         End If
 
@@ -167,7 +167,7 @@ Partial Class Inventarios_Default
                 CvePrecioLista = -2
             End If
 
-            If UsuarioActual.CveEmpresa = 186 Then
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 If DdlPrecioLista.SelectedValue.ToEntero() > 0 Then
                     CvePrecioLista = DdlPrecioLista.SelectedValue.ToEntero()
                 Else

Ventas/ActualizarPrecios.aspx.vb

@@ -87,7 +87,7 @@ Partial Class Ventas_ActualizarPrecios
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            If UsuarioActual.CveEmpresa = 186 Then
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 LblModalidad.Visible = True
                 DivModalidad.Visible = True
             End If

Ventas/Clientes.aspx.vb

@@ -1212,7 +1212,7 @@ Partial Class Clientes
             DivPrecioLista.Visible = False
         End If
 
-        If UsuarioActual.CveEmpresa = 186 Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             DivCrearPrecioLista.Visible = True
         End If