From 4a55c65abfe735b489ab1bf6ff7726e521955432 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 10 Feb 2021 12:49:20 -0700
Subject: [PATCH] Refacturacion de anticipos

---
 App_Code/ClsVentas.vb | 3 ++-
 App_Code/Modelos.vb   | 8 ++++++--
 Ventas/Ventas.aspx.vb | 4 +++-
 3 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index a4b949dfd..391461856 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4202,13 +4202,14 @@ Public Class ClsVentas
         Return retorno
     End Function
 
-    Public Function TraspasaVentasAplicadasAnt(CveVentaNueva As Integer, CveVentaAnterior As Integer, CveEmpresa As Integer) As Boolean
+    Public Function TraspasaVentasAplicadasAnt(CveVentaNueva As Integer, CveVentaAnterior As Integer, CveEmpresa As Integer, CvePrePoliza As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_TraspasaVentasAplicadasAnt", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVentaNueva", SqlDbType.Int).Value = CveVentaNueva
             .Add("@CveVentaAnterior", SqlDbType.Int).Value = CveVentaAnterior
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 09b93ff06..2e54a07c1 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2652,7 +2652,7 @@ Namespace Modelos
                             Case 11 'Anticipo
 
                                 '[IPP] SI ES REFACTURACION LOS ANTICIPOS NO LOS DEBE APLICAR EN EL INGRESO REFACTURADO (VIEJO)
-                                If NuevaFactura = 1 And ObjFactura.CveVenta = CveDevolucion Then
+                                If CveEstatusRefacturacion > 0 Then
                                     Exit Select
                                 End If
 
@@ -4458,6 +4458,10 @@ Namespace Modelos
 
             Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
 
+            If Not EsRefacturacion Then
+                CveEstatusRefacturacion = 0
+            End If
+
             Dim CancelacionFecha As Date
             Dim FolioFiscal As String = ObjFactura.FolioFiscal
             Dim CancelacionAcuse As String = ""
@@ -4485,7 +4489,7 @@ Namespace Modelos
 
             If CveEstatusFacturaAsignado <= 0 Then
                 Try
-                    If ObjFactura.FolioFiscal <> "" Then
+                    If ObjFactura.FolioFiscal <> "" AndAlso UsuarioActual.Empresa.FacturaProduccion Then
                         If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs") Then
 
                             'VERIFICA SI DEBE VALIDAR ANTE EL SAT
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1fc29203d..119df860e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12728,7 +12728,7 @@ Partial Class Ventas
 
             'EN CASO DE SER REFACTURACION DE ANTICIPO SE ACTUALIZAN LAS VENTAS APLICADAS HACIA EL NUEVO
             If NuevaFactura = 1 AndAlso CveDevolucion > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ant") Then
-                If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa) Then
+                If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa, ObjFactura.CvePrePoliza) Then
                     ErrorPrepoliza = True
                 End If
             End If
@@ -26625,6 +26625,7 @@ Partial Class Ventas
             If Not DtCotizaciones.Columns.Contains("Aplicado") Then
                 DtCotizaciones.Columns.Add("Aplicado", Type.GetType("System.Boolean"))
             End If
+
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 GvCotPS.DataSource = DtCotizaciones.FiltraParametros("Cantidad > 0 AND EsAcumulador = False")
             Else
@@ -26699,6 +26700,7 @@ Partial Class Ventas
                 CotizacionesLista.Add(row("CveVenta").ToString().ToEntero())
             Next
 
+            'CARGA LOS USADOS RELACIONADOS A LOS PRODUCTOS SELECCIONADOS DE LA COTIZACION
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 CalculaUsadosCotizacion(Cves, DTSeleccionadas, DtCotizaciones)
             End If