diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index e16e212d4..0190cc9f0 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -822,11 +822,10 @@ Partial Class Inventarios_EntregaAlmacen
 
             If AplicaSeccion Then GvDatos.Columns(7).Visible = True
             If AplicaLote Then GvDatos.Columns(8).Visible = True
-            If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
-
-            GvDatos.DataSource = DtDatos
+            If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
+
         End If
-
+        GvDatos.DataSource = DtDatos
 
         GvDatos.DataBind()
         UpDatos.Update()
@@ -3253,6 +3252,8 @@ Partial Class Inventarios_EntregaAlmacen
         TimmerRefresh.Enabled = True
         UpGenerales.Update()
         CargaGvDatos()
+
+        UpDatos.Update()
     End Sub
 
 #End Region
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 427b7f4f4..927c6b1ad 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3837,7 +3837,7 @@ Partial Class PV
         TmpDT.Columns.Add("NoIdentificacion", GetType(String))
         TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
         TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
-        TmpDT.Columns.Add("SerieLote", GetType(String))
+        TmpDT.Columns.Add("Serie", GetType(String))
         TmpDT.Columns.Add("CuentaPredial", GetType(String))
         TmpDT.Columns.Add("Obs", GetType(String))
         TmpDT.Columns.Add("TiempoEntrega", GetType(String))
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f4e8cc241..53404b0dc 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2308,9 +2308,9 @@ Partial Class Ventas
             ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero(), 0)
             ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero(), 0)
 
-            If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
-                EsCreaApartirDe = True
-            End If
+            'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
+            '    EsCreaApartirDe = True
+            'End If
 
             If ViewState("CveRemision").ToString().ToEntero() > 0 Or ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
                 'ViewState("CveRemision") = Request("CveRemision")
@@ -2348,6 +2348,20 @@ Partial Class Ventas
 
                 'CargaDetalle de Almacen
                 InventarioMov()
+
+                If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
+
+                    CargaCotizaciones()
+
+                    If DtCotizaciones IsNot Nothing Then
+                        For Each Row As DataRow In DtCotizaciones.Select($"CveVenta={ViewState("CveCotizacion").ToString().ToEntero()}")
+                            Row("Aplicado") = True
+                        Next
+                    End If
+
+                    CargarCotizacionesAFacturar()
+                End If
+
             End If
 
             If Not ExFolioFactura Then SetPermisos()
@@ -16241,6 +16255,11 @@ Partial Class Ventas
                                         If Not OcurrioError Then
                                             OcurrioError = Not GeneroMovimientoAlmacen
                                         End If
+
+                                        If OcurrioError Then
+                                            Exit For
+                                        End If
+
                                     End If
 
                                 End If
@@ -16252,6 +16271,10 @@ Partial Class Ventas
                                     Exit For
                                 End If
                             End If
+
+                            If OcurrioError Then
+                                Exit For
+                            End If
                         Next
 
 
@@ -23600,6 +23623,15 @@ Partial Class Ventas
 
         'MARCA LAS SELECCIONADAS
         VerificaCotizaciones(DtCotizaciones)
+
+        CargarCotizacionesAFacturar()
+
+        RegistraScript("$('#DivCotizaciones').modal('hide');")
+
+    End Sub
+
+    Private Sub CargarCotizacionesAFacturar()
+
         Dim DTSeleccionadas = DtCotizaciones.FiltraParametros("Aplicado = True")
 
         If DTSeleccionadas.Rows.Count = 0 Then
@@ -23686,9 +23718,6 @@ Partial Class Ventas
         UpFacturar.Update()
         UpPS.Update()
         UpParametros.Update()
-
-        RegistraScript("$('#DivCotizaciones').modal('hide');")
-
     End Sub
     Private Sub VerificaCotizaciones(ByRef dt As DataTable)
         If ChkCotProductos.Checked Then