Refacturacion de anticipos

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)

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

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