- regreso de variable de idpoliza y folio

App_Code/ClsVentas.vb

@@ -600,12 +600,13 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateVentaPrePoliza(IDPoliza As Integer, CvePrePoliza As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
+    Public Function UpdateVentaPrePoliza(IDPoliza As Integer, FolioPoliza As Integer, CvePrePoliza As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentaPrePolizaUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@IDPoliza", SqlDbType.Int).Value = IDPoliza
+            .Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa

App_Code/Modelos.vb

@@ -128,6 +128,10 @@ Namespace Modelos
         Public Property Tick As DateTime
     End Class
 
+    Public Class RetornoPolizaConta
+        Public Property IdPoliza As Integer = -1
+        Public Property FolioPoliza As Integer = -1
+    End Class
     Public Class OrdenCompra
         Public Sub New()
             CveOrdenCompra = -1
@@ -3748,11 +3752,11 @@ Namespace Modelos
                 If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
                     'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
-                    Dim IDPoliza As Integer = GenerarPolizaAC(factura, ObjAC)
+                    Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(factura, ObjAC)
 
-                    If IDPoliza > 0 Then
+                    If IDPoliza.IdPoliza > 0 Then
 
-                        If ObjVentas.UpdateVentaPrePoliza(IDPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then
+                        If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, factura.CvePrePoliza, factura.CveVenta, factura.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)
@@ -4636,7 +4640,8 @@ Namespace Modelos
                     'POLIZA DE CANCELACION
                     If Not ErrorCancelar Then
                         If UsuarioActual.Empresa.UsaAC Then
-                            IDPoliza = GenerarPolizaAC(ObjFactura, ObjAC, True)
+                            Dim Pol As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjFactura, ObjAC, True)
+                            IDPoliza = Pol.IdPoliza
                             If IDPoliza <= 0 Then
                                 ErrorCancelar = True
                                 MensajeError = "Ocurrió un error al generar la poliza de cancelación."
@@ -5108,7 +5113,9 @@ Namespace Modelos
                 If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
                     'falta verificar traer el acuse y reenviarlo 
                     If UsuarioActual.Empresa.UsaAC Then
-                        IDPoliza = GenerarPolizaAC(Me, ObjAC, True)
+                        Dim Pol As Modelos.RetornoPolizaConta = GenerarPolizaAC(Me, ObjAC, True)
+                        IDPoliza = Pol.IdPoliza
+
                         If IDPoliza <= 0 Then
                             Mensaje = "No se pudo generar la poliza"
                             ErrorCancelar = True
@@ -5144,8 +5151,11 @@ Namespace Modelos
 
             Return ProcesoCorrecto
         End Function
-        Private Function GenerarPolizaAC(ObjFactura As Modelos.Factura, ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As Integer
-            Dim Retorno As Integer = 0
+
+
+
+        Private Function GenerarPolizaAC(ObjFactura As Modelos.Factura, ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As RetornoPolizaConta
+            Dim Retorno As New RetornoPolizaConta
             Dim IDPoliza As Integer = 0
 
             Dim ErrorAC As Boolean = False
@@ -5172,7 +5182,8 @@ Namespace Modelos
 
 
             If IDPoliza > 0 Then
-
+                Retorno.IdPoliza = IDPoliza
+                Retorno.FolioPoliza = ObjAC.Folio
                 'Orden de PAGO 
                 If ObjFactura.TipoDocto = "OP" Then
                     'ORDEN DE PAGO
@@ -5239,9 +5250,9 @@ Namespace Modelos
             If Not ErrorAC Then
                 ObjAC.AjustaPoliza(IDPoliza)
 
-                Retorno = IDPoliza
+                ' Retorno = IDPoliza
             Else
-                Retorno = -1
+                'Retorno = -1
                 'Alert("Error al Agregar la Póliza de AC.", TipoMensaje.MsgError)
             End If
 

Ventas/Ventas.aspx.vb

@@ -11209,8 +11209,8 @@ Partial Class Ventas
                                     End If
                                 End If
 
-
-
+                            Else
+                                OcurrioError = True
                             End If
                             factura.Inv_CveMovimiento = CveMovimientoInventario
                             factura.Inv_ValorInventario = ValorInventario
@@ -11249,11 +11249,11 @@ Partial Class Ventas
             If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
                 'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
-                Dim IDPoliza As Integer = GenerarPolizaAC(ObjAC, factura)
+                Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, factura)
 
-                If IDPoliza > 0 Then
+                If IDPoliza.IdPoliza > 0 Then
 
-                    If ObjVentas.UpdateVentaPrePoliza(IDPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then
+                    If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, factura.CvePrePoliza, factura.CveVenta, factura.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)
@@ -15078,8 +15078,8 @@ Partial Class Ventas
         End If
         ObjVentas.Dispose()
     End Sub
-    Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, factura As Modelos.Factura, Optional CancelacionIngreso As Boolean = False) As Integer
-        Dim Retorno As Integer = 0
+    Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, factura As Modelos.Factura, Optional CancelacionIngreso As Boolean = False) As RetornoPolizaConta
+        Dim Retorno As New Modelos.RetornoPolizaConta
         Dim IDPoliza As Integer = 0
 
         Dim ErrorAC As Boolean = False
@@ -15106,7 +15106,8 @@ Partial Class Ventas
         ' Dim NombreCliente As String = ViewState("NombreCliente").ToString
 
         If IDPoliza > 0 Then
-
+            Retorno.IdPoliza = IDPoliza
+            Retorno.FolioPoliza = ObjAC.Folio
             'Orden de PAGO 
             If factura.TipoDocto = "OP" Then
 
@@ -15186,7 +15187,7 @@ Partial Class Ventas
         If Not ErrorAC Then
             ObjAC.AjustaPoliza(IDPoliza)
 
-            Retorno = IDPoliza
+            ' Retorno = IDPoliza
         Else
 
             Alert("Error al agregar la Póliza de AC.", TipoMensaje.MsgError)
@@ -15197,6 +15198,8 @@ Partial Class Ventas
         Return Retorno
 
     End Function
+
+
     Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As Integer
         Dim Retorno As Integer = 0
         Dim IDPoliza As Integer = 0