Refacturacion de anticipos

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