RecepcionAlmacen.aspx.vb igualar a productivo

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3,6 +3,7 @@ Option Explicit On
 
 Imports System.Data
 Imports System.IO
+Imports System.Text
 Imports Extensiones
 Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
@@ -2299,6 +2300,10 @@ Partial Class Inventarios_RecepcionAlmacen
 
         'VERIFICA EXISTENCIAS
         If TipoMovimiento > 1 Then
+            Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimeroValor("CveTipoAlmacen", "").ToEntero
+            Dim ValidaExistencia As Boolean = True
+            If CveTipoAlmacen.Contiene(6, 21) AndAlso UsuarioActual.CveEmpresa = 140 Then ValidaExistencia = False ' si es garantia no valida existencia
+            If ValidaExistencia Then
                 Dim MensajeExistencias As New StringBuilder
                 Dim ObjInventarios As New ClsInventarios
                 For Each gvr As GridViewRow In GvInv.Rows
@@ -2330,6 +2335,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
             End If
+        End If
 
         Return True
     End Function