From 0ef907f6962e5e251621fcf4b9244354d6c94dc9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 25 Apr 2022 14:48:19 -0700
Subject: [PATCH] =?UTF-8?q?--=20generar=20p=C3=B3liza=20ac,=20de=20ingreso?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx    |  2 +-
 Ventas/Ventas.aspx.vb | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index e17048cde..879b6f7fd 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3853,7 +3853,7 @@
                                             <asp:Button ID="BtnGeneraAutorizacion" runat="server" Text="Generar Autorización" OnClick="BtnGeneraAutorizacion_Click" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la autorización?" data-btn-ok-label="si" />
 
                                             <%--<asp:Button ID="Button2" runat="server" Text="Button" />--%>
-                                            <asp:Button ID="BtnGenerarPoliza" runat="server" Text="GenerarPoliza" Visible="false" CssClass="btn myventasbutton btn-primary" />
+                                            <asp:Button ID="BtnGenerarPoliza" runat="server" Text="GenerarPoliza" OnClick="BtnGenerarPoliza_Click" Visible="false" CssClass="btn myventasbutton btn-primary" />
                                             <asp:Button ID="BtnGenerarOS" runat="server" Text="Generar OS" Visible="false" CssClass="btn myventasbutton btn-primary" />
 
                                             <asp:Button ID="BtnEditarCotizacion" runat="server" Text="Actualizar" Visible="false" CssClass="btn myventasbutton btn-primary" />
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e97a4095f..eaea4a866 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -34374,5 +34374,38 @@ Partial Class Ventas
         UpEmitirTransitorio.Update()
     End Sub
 #End Region
+
+    Protected Sub BtnGenerarPoliza_Click(sender As Object, e As EventArgs)
+        CreaObjetosVenta()
+        Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim Msgok As New StringBuilder
+        If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
+
+            Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFactura)
+
+            If IDPoliza.IdPoliza > 0 Then
+
+                Dim ObjVentas As New ClsVentas
+
+                If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, CvePrePoliza, CveVenta, UsuarioActual.CveEmpresa) Then
+
+                    'Si se facturó la cotización hay que vincular la venta
+                    Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
+                End If
+
+                ObjVentas.Dispose()
+
+                'Si se facturó la cotización hay que vincular la venta
+                Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
+
+            Else
+                ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
+            End If
+
+        Else
+            Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
+        End If
+        ObjAC.dispose
+    End Sub
 End Class