- regreso de variable de idpoliza y folio

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