From 813860beb9eef90ed0f5551df660e0c9f6aa2397 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 14 Jan 2020 18:48:11 -0700 Subject: [PATCH] -- devoluciones que tome concepto 40 --- Inventarios/RecepcionEntrega.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 88bc69fb7..d6f6cf9ab 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -625,10 +625,10 @@ Partial Class Inventarios_RecepcionEntrega Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString.Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9") Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString Case "Ing", "Ped" - Filtro = "CveConcepto = 3" + Filtro = "CveConcepto IN (3,40)" Case "Dev" 'cuand es devolucionventa=1, es cancelación de la devolución - If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto = 3" + If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto IN (3,40)" Case Else Filtro = "CveConcepto = 9" End Select