diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 63a160b67..6ee549e41 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -577,8 +577,12 @@ Partial Class Ventas_PVCobranza
             VentaActual.PorcentajeIVA = DbRowVenta("PorcentajeIVA").ToString.ToDecimal
             VentaActual.UsuarioActual = UsuarioActual
             VentaActual.CveSubProyecto = DbRowVenta("CveSubProyecto").ToString.ToEntero
+
             Dim CveVendedor As Integer = DbRowVenta("CveVendedor").ToString.ToEntero
             Dim ObservacionesAlmacen = DbRowVenta("ObservacionesAlmacen").ToString()
+            Dim Observaciones = DbRowVenta("Observaciones").ToString()
+            Dim PedidoContrato = DbRowVenta("PedidoContrato").ToString()
+            Dim OrdenCompra = DbRowVenta("OrdenCompra").ToString()
 
             If tCveCorte <= 0 AndAlso DbRowVenta("CveCorte").ToString.ToEntero > 0 Then tCveCorte = DbRowVenta("CveCorte").ToString.ToEntero
 
@@ -605,7 +609,7 @@ Partial Class Ventas_PVCobranza
 
                     CveVentaRemision = HdnCveVenta.Value.ToEntero
 
-                    respFactura = GenerarFactura(CveVendedor, VentaActual, ObjVentas2, ObjClientes, ObservacionesAlmacen, VentaContado, PlazoCobranza)
+                    respFactura = GenerarFactura(CveVendedor, VentaActual, ObjVentas2, ObjClientes, ObservacionesAlmacen, VentaContado, PlazoCobranza, Observaciones, PedidoContrato, OrdenCompra)
 
                     If respFactura Is Nothing Then
                         MsgError = "Ocurrió un error al generar la factura"
@@ -853,7 +857,7 @@ Partial Class Ventas_PVCobranza
         UpL.Update()
     End Sub
 
-    Private Function GenerarFactura(CveVendedor As Integer, ByRef VentaRemision As Venta, ByRef ObjVentas As ClsVentas, ByRef ObjClientes As ClsClientes, ObservacionesAlmacen As String, VentaConta As Boolean, PlazoCobranza As Integer) As Modelos.Factura.MMensajeFactura
+    Private Function GenerarFactura(CveVendedor As Integer, ByRef VentaRemision As Venta, ByRef ObjVentas As ClsVentas, ByRef ObjClientes As ClsClientes, ObservacionesAlmacen As String, VentaConta As Boolean, PlazoCobranza As Integer, Observaciones As String, PedidoContrato As String, OrdenCompra As String) As Modelos.Factura.MMensajeFactura
         Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing
         Dim SbAlert As New StringBuilder()
 
@@ -982,6 +986,11 @@ Partial Class Ventas_PVCobranza
 
             ObjFactura.CveVendedor = CveVendedor
 
+            ObjFactura.ObservacionesAlmacen = ObservacionesAlmacen
+            ObjFactura.Observaciones = Observaciones
+            ObjFactura.PedidoContrato = PedidoContrato
+            ObjFactura.OrdenCompra = OrdenCompra
+
             Retorno = ObjFactura.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Cobranza/GuardarVenta", MostrarURL:=True)
             Retorno.Factura = ObjFactura
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 22e4680b8..27a11d1a5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -26808,16 +26808,16 @@ Partial Class Ventas
 
                     Dim CancelacionPagos = OpcionesCancelacionPagos.SinPagos
 
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
+                    If (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1") AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
                         CancelacionPagos = OpcionesCancelacionPagos.ConPagos_CancelarIE
                     End If
 
                     'PARA GENERAR LA DEVOLUCION DE ALMACEN SIN ESPERAR LA ACEPTACION DEL SAT
                     Dim GenerarDevolucionAnticipada As Boolean = False
 
-                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
-                        CancelacionPagos = OpcionesCancelacionPagos.ConPagos_GenerarIxC
-                    End If
+                    'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
+                    '    CancelacionPagos = OpcionesCancelacionPagos.ConPagos_GenerarIxC
+                    'End If
 
                     If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion Then