diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 3b7809560..83a8a4a08 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9587,13 +9587,26 @@ Partial Class Clientes
         Dim IVAFactura As Decimal = TmpDT.SUMD("ImporteIVA")
 
         Dim Folio As Integer = -1
-        Dim Serie As String = ""
-
-        'If FolioNotaCredito(Tipo) Then
-        '    Folio = FolioNotaAcumulador
-        '    Serie = SerieNotaAcumulador
-        'End If
-
+        Dim Serie As String = ""
+
+        If CveSubProyecto > 0 Then
+            Dim ObjFolios As New ClsGralFolios()
+            If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
+                Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros("Estado = 'Activo'")
+                If DT.Rows.Count > 0 Then
+                    Serie = DT.Rows(0)("Serie").ToString()
+                End If
+                DT.Dispose()
+            End If
+            ObjFolios.Dispose()
+        End If
+
+
+        'If FolioNotaCredito(Tipo) Then
+        '    Folio = FolioNotaAcumulador
+        '    Serie = SerieNotaAcumulador
+        'End If
+
         If ObjFactura IsNot Nothing Then
             ObjFactura.Dispose()
             ObjFactura = Nothing
@@ -9678,9 +9691,9 @@ Partial Class Clientes
         End If
 
         ObjFactura.FechaEjecucion = NowADS()
-        ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
-        ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
-        ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
+        ObjFactura.CveSubProyecto = CveSubProyecto
+        ObjFactura.CveSubProyectoCobranza = CveSubProyecto
+        ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
 
 
         ObjFactura.SubTotal = SubTotalFactura