diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index bd1291701..cb015e6f0 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -581,7 +581,7 @@ Partial Class Inventarios_RecepcionAlmacen
     ''' </summary>
     ''' <param name="CveSubProyecto"></param>
     ''' <param name="CveTiposAlmacen">Parametro sin espacios y separado por comas ["1,2,3,21"]</param>
-    Private Sub CargaAlmacenes(CveSubProyecto As Integer, Optional CveTiposAlmacen As String = "", Optional CveTipoCompra As Integer = -1)
+    Private Sub CargaAlmacenes(CveSubProyecto As Integer, Optional CveTiposAlmacen As String = "", Optional CveTipoCompra As Integer = -1, Optional RecargaGrid As Boolean = True)
         Dim StrAlmacenes As String = ""
         Dim Strtmp As String = If(TipoMovimiento = 2, ",21", "") ' cuando es solicitud de devolución de almacen ,considerar los almacenes de dev prov
         StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,14,19" & Strtmp)}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
@@ -597,25 +597,20 @@ Partial Class Inventarios_RecepcionAlmacen
         DdlAlmacen.DataBind()
         If UsuarioActual.CveAlmacen > 0 Then
             DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
-            RecargaporAlmacenes()
+            If RecargaGrid Then RecargaporAlmacenes()
         End If
 
         UpGenerales.Update()
     End Sub
 
-
-
     Private Sub RecargaporAlmacenes()
         CveTipoAlmacen = -1
         If DdlAlmacen.SelectedValue <> "-1" Then
 
             Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimero("")
             If drr IsNot Nothing Then
-
                 CveTipoAlmacen = drr("CveTipoAlmacen").ToString.ToEntero
-
             End If
-
             CargaGVInv()
             'For Each Gvr As GridViewRow In GvInv.Rows
             '    If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then
@@ -1076,7 +1071,9 @@ Partial Class Inventarios_RecepcionAlmacen
                             If TipoMovimiento = 3 Then
                                 CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "21", CveTipoCompra)
                             Else
-                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
+                                Dim tTipoAlm As String = "22"
+                                If CveTipoCompra = 16 Then tTipoAlm = "22,1,24" ' apoyos, "acumuladores sin virtual" o "virtual solo"
+                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, tTipoAlm, CveTipoCompra, RecargaGrid:=False)
                             End If
 
                         Else
@@ -1096,11 +1093,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         End If
                     End If
 
-
-
-
                     CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero
-
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero
 
                     'SI ES MOTOBATERIA NO GENERA MOVIMIENTO VIRTUAL
@@ -1112,8 +1105,8 @@ Partial Class Inventarios_RecepcionAlmacen
                         DivVirtualAdvertencia.Visible = False
                     End If
 
-                    'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL
-                    If Not SumarImporteUsados AndAlso CveTipoCompra = 9 Then
+                    'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL (9) y  apoyo sin virtual (16)
+                    If Not SumarImporteUsados AndAlso CveTipoCompra.Contiene(9, 16) Then
                         RealizarMovimientoVirtual = False
                         DivVirtualAdvertencia.Visible = False
                     End If
@@ -1447,6 +1440,7 @@ Partial Class Inventarios_RecepcionAlmacen
         If UsuarioActual.CveEmpresa = 119 Then
             DtInv = DtInv.FiltraParametros("", "PS")
         End If
+        If Not DtInv.Columns.Contains("Consec") Then DtInv.Columns.Add("Consec", GetType(Integer))
 
         Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
         If DtInv IsNot Nothing AndAlso DtInv.Rows.Count > 0 Then
@@ -1744,7 +1738,7 @@ Partial Class Inventarios_RecepcionAlmacen
     Private Sub CreaDtDetalle()
         If DtDatosDetalle Is Nothing Then
             DtDatosDetalle = New DataTable
-            DtDatosDetalle.Columns.Add("Consec", GetType(Integer))
+            If Not DtDatosDetalle.Columns.Contains("Consec") Then DtDatosDetalle.Columns.Add("Consec", GetType(Integer))
             DtDatosDetalle.Columns.Add("ConsecId", GetType(Integer))
             DtDatosDetalle.Columns.Add("CvePS", GetType(Integer))
             DtDatosDetalle.Columns.Add("CveUM", GetType(Integer))
@@ -1996,7 +1990,7 @@ Partial Class Inventarios_RecepcionAlmacen
     Private Sub CreaDtLoteDetalle()
         If DtDatosLoteDetalle Is Nothing Then
             DtDatosLoteDetalle = New DataTable
-            DtDatosLoteDetalle.Columns.Add("Consec", GetType(Integer))
+            If Not DtDatosLoteDetalle.Columns.Contains("Consec") Then DtDatosLoteDetalle.Columns.Add("Consec", GetType(Integer))
             DtDatosLoteDetalle.Columns.Add("ConsecId", GetType(Integer))
             DtDatosLoteDetalle.Columns.Add("Cantidad", GetType(Decimal))
             DtDatosLoteDetalle.Columns.Add("CvePS", GetType(Integer))
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d4f2051a7..721d2d035 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2876,6 +2876,7 @@ Partial Class Ventas
                         TmpDT = ObjCGame.DtResultados
                         TmpDT.Columns.Add("Costo", GetType(Decimal))
                         TmpDT.Columns("Costo").DefaultValue = 0D
+                        If Not TmpDT.Columns.Contains("NumeroParte") Then TmpDT.Columns.Add("NumeroParte", GetType(String))
 
                         GvPS.DataBind()
                     End If