AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- regreso de variable de idpoliza y folio

Browse Source
This commit is contained in:
rrene
2020-04-20 20:01:31 -07:00
parent 1189c70719
commit 071adca2e1
3 changed files with 35 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsVentas.vb
View File

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

31
App_Code/Modelos.vb
View File

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

21
Ventas/Ventas.aspx.vb
View File

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