diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index beed05ef0..7ea26166e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -20940,6 +20940,13 @@ Partial Class Ventas
             If Not OcurrioError Then
                 If MovimientoPrePoliza AndAlso CveMovimientoInventario > 0 Then
                     'OcurrioError = Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoInventario, CveAlmacen)
+                    Dim CveSubProyectoPrePoliza As Integer = ObjFactura.CveSubProyecto
+                    If CveAlmacen > 0 Then
+                        Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto").ToString().ToEntero()
+                        If CveSubProyectoAlmacen > 0 Then
+                            CveSubProyectoPrePoliza = CveSubProyectoAlmacen
+                        End If
+                    End If
 
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                         Dim DtCostos = ObjInventario.DtResultados.Copy
@@ -20968,8 +20975,13 @@ Partial Class Ventas
                             End If
 
                             Try
+                                Dim CveSubProyecto69 As Integer = CveSubProyectoPrePoliza
+                                If UsuarioActual.CveEmpresa = 119 Then
+                                    CveSubProyecto69 = ObjFactura.CveSubProyecto
+                                End If
+
                                 'If ValorInventario <> 0 Then
-                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto69, ValorInventario, ValorInventario, 69, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto69, ValorInventario, ValorInventario, 69, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=CveSubProyecto69) Then
                                     OcurrioError = True
                                     Exit For
                                 End If
@@ -20984,7 +20996,7 @@ Partial Class Ventas
 
                         If Not OcurrioError Then
                             IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero()
-                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovto69, TotalCosto, TotalCosto, 68, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovto69, TotalCosto, TotalCosto, 68, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=CveSubProyectoPrePoliza) Then
                                 OcurrioError = True
                             End If
                         End If
@@ -22723,6 +22735,13 @@ Partial Class Ventas
                     End If
 
                 End If
+
+                If NuevaFactura = 1 Then
+                    'SI ES REFACTURACION CON PAGOS NO PERMITIR AGREGAR PAGO
+                    If ObjFacturaNC.Pagado > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(586).ToEntero() = 2 Then
+                        BtnAgregarPago.Visible = False
+                    End If
+                End If
             Case 3 ' TERMINAL
                 DivTerminal.Visible = True
                 TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
@@ -22871,6 +22890,14 @@ Partial Class Ventas
         UpContado.Update()
     End Sub
     Private Sub BtnAgregarPago_Click(sender As Object, e As EventArgs) Handles BtnAgregarPago.Click
+        If NuevaFactura = 1 Then
+            'SI ES REFACTURACION CON PAGOS NO PERMITIR AGREGAR PAGO
+            If ObjFacturaNC.Pagado > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(586).ToEntero() = 2 Then
+                Alert("No se puede agregar un pago a una refacturación con pagos", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
         Dim abonado, saldo As Double
         Dim total As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal
 
@@ -32327,13 +32354,45 @@ Partial Class Ventas
         End If
         ObjClientes.Dispose()
 
+        Dim CveSubProyectoVenta As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
+        Dim SubProyectoVenta As String = DdlSubProyectoDatos.SelectedItem.Text
+
+        Dim CveProyectoVenta As Integer = -1
+        Dim ProyectoVenta As String = ""
+
+        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyectoVenta > 0 Then
+            Dim RowSP = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyectoVenta, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+            If RowSP IsNot Nothing Then
+                CveProyectoVenta = RowSP("CveProyecto").ToString().ToEntero()
+                ProyectoVenta = RowSP("Proyecto").ToString()
+            End If
+        End If
+
         If DtRemisionesPS IsNot Nothing Then
             Dim tCantidad As Decimal = 0
             For Each Dr As DataRow In DtRemisionesPS.Select()
+                Dim CveProyecto As Integer = -1
+                Dim Proyecto As String = ""
+
+                Dim CveSubProyecto As Integer = -1
+                Dim SubProyecto As String = ""
+
+                If UsuarioActual.CveEmpresa = 119 Then
+                    CveProyecto = CveProyectoVenta
+                    Proyecto = ProyectoVenta
+                    CveSubProyecto = CveSubProyectoVenta
+                    SubProyecto = SubProyectoVenta
+                Else
+                    CveProyecto = Dr("CveProyecto").ToString().ToEntero()
+                    Proyecto = Dr("Proyecto").ToString()
+                    CveSubProyecto = Dr("CveSubProyecto").ToString().ToEntero()
+                    SubProyecto = Dr("SubProyecto").ToString()
+                End If
+
                 tCantidad = If(ChkRemProductos.Checked, GvRemPS.Rows(IndiceGVDataKey(GvRemPS, "CveVentaDetalle", $"{Dr("CveVentaDetalle")}")).FCTextBox("TxtCantidadRem").Text, Dr("Cantidad")).ToString().ToDecimal
                 AgregarProductoServicio(tCantidad, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),
                                           Dr("CvePS").ToString().ToEntero(), Dr("PS").ToString(), Dr("Obs").ToString(), Dr("PU").ToString().ToDecimal, Dr("Descuento").ToString().ToDecimal,
-                                          Dr("CveProyecto").ToString().ToEntero(), Dr("Proyecto").ToString(), Dr("CveSubProyecto").ToString().ToEntero(), Dr("SubProyecto").ToString(),
+                                          CveProyecto, Proyecto, CveSubProyecto, SubProyecto,
                                           CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero(),
                                           CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero(), RegeneraIEPS:=True)
             Next