From 071adca2e11b5f8050dd3f7ce9e6b76af38fc35f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Apr 2020 20:01:31 -0700 Subject: [PATCH] - regreso de variable de idpoliza y folio --- App_Code/ClsVentas.vb | 3 ++- App_Code/Modelos.vb | 31 +++++++++++++++++++++---------- Ventas/Ventas.aspx.vb | 21 ++++++++++++--------- 3 files changed, 35 insertions(+), 20 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 46f49aa46..a9e28e571 100644 --- a/App_Code/ClsVentas.vb +++ b/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 diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index e9b6b1ee3..6c3cd5518 100644 --- a/App_Code/Modelos.vb +++ b/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.

Ver Poliza", 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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b495f0e2e..d9d67b00f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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.

Ver Poliza", 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