diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 4c5689593..67c1d82b6 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -456,7 +456,7 @@
@@ -516,7 +516,7 @@
-
+
@@ -527,7 +527,7 @@
-
+
@@ -847,7 +847,7 @@
-
+
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 3f8e54856..abf8b8f12 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -666,9 +666,11 @@ Partial Class Inventarios_EntregaAlmacen
Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString
Case "Ing", "Ped"
Filtro = "CveConcepto IN (3,40)"
- Case "Dev", "dPe"
+ Case "Dev"
'cuand es devolucionventa=1, es cancelación de la devolución
If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto IN (3,40)"
+ Case "DPe"
+ Filtro = "CveConcepto = 9"
Case Else
Filtro = "CveConcepto = 9"
End Select
@@ -1208,11 +1210,11 @@ Partial Class Inventarios_EntregaAlmacen
DtDatosDetalle.AcceptChanges()
CargaSerie()
- End Sub
+ End Sub
#End Region
-
+
#Region " AGREGA CON LOTE BATCH "
-
+
Private Sub CreaDtDetalleLote()
If DtDatosDetalleLote Is Nothing Then
DtDatosDetalleLote = New DataTable