-- cambios en textos, y en vb. tipodocto

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