From d2846cf2d491723b7f33577c9f56112af299161b Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 16 Jun 2020 16:23:00 -0700
Subject: [PATCH 1/3] Correcion al generar cotizacion de factura

---
 Ventas/Ventas.aspx.vb | 41 +++++++++++++++++++++++++++++++++++------
 1 file changed, 35 insertions(+), 6 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ae5e7372b..29a9887a9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2306,9 +2306,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")
@@ -2346,6 +2346,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()
@@ -16239,6 +16253,11 @@ Partial Class Ventas
                                         If Not OcurrioError Then
                                             OcurrioError = Not GeneroMovimientoAlmacen
                                         End If
+
+                                        If OcurrioError Then
+                                            Exit For
+                                        End If
+
                                     End If
 
                                 End If
@@ -16250,6 +16269,10 @@ Partial Class Ventas
                                     Exit For
                                 End If
                             End If
+
+                            If OcurrioError Then
+                                Exit For
+                            End If
                         Next
 
 
@@ -23598,6 +23621,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
@@ -23684,9 +23716,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

From 2768aece090e42b36961180c01060919892d64ac Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 16 Jun 2020 16:23:36 -0700
Subject: [PATCH 2/3] Limpiar tabla al generar movimiento

---
 Inventarios/EntregaAlmacen.aspx.vb | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

From ce15f1dd07cda4934a6bf08966109fd0d67562e0 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 16 Jun 2020 16:24:04 -0700
Subject: [PATCH 3/3] correcion de "SerieLote" a "Serie"

---
 Ventas/PV.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))