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