From 1d3f9bd9f1d299ca2bddfd7975aecad5c22a7376 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 30 Oct 2020 11:23:31 -0700 Subject: [PATCH] -- cambios en textos, y en vb. tipodocto --- Inventarios/EntregaAlmacen.aspx | 8 ++++---- Inventarios/EntregaAlmacen.aspx.vb | 10 ++++++---- 2 files changed, 10 insertions(+), 8 deletions(-) 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