From 6ae972b002f2cc744990bcaabf80a8e783e53671 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 19 Oct 2022 16:13:39 -0700
Subject: [PATCH] Solo generar movimiento automatico en ingresos y devoluciones

---
 Ventas/Ventas.aspx.vb | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c6aa21d6f..2bb888f55 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14866,16 +14866,14 @@ Partial Class Ventas
                     Next
                 End If
 
-                If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+                If factura.TipoDocto.Contiene("Ing", "Dev") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
 
                     Dim Filtro As String = ""
                     Select Case factura.TipoDocto
-                        Case "Ing", "Ped"
+                        Case "Ing"
                             Filtro = "CveConcepto IN (3,40)"
                         Case "Dev"
                             Filtro = "CveConcepto IN (3,40)"
-                        Case Else
-                            Filtro = "CveConcepto = 9"
                     End Select
 
                     Dim CveConceptoAlmacen As Integer = 3