--BDH, serie en RNC de bonificacion

Ventas/Clientes.aspx.vb

@@ -9589,6 +9589,19 @@ Partial Class Clientes
         Dim Folio As Integer = -1
         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
@@ -9678,9 +9691,9 @@ Partial Class Clientes
         End If
 
         ObjFactura.FechaEjecucion = NowADS()
-        ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
+        ObjFactura.CveSubProyecto = CveSubProyecto
-        ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
+        ObjFactura.CveSubProyectoCobranza = CveSubProyecto
-        ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
+        ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
 
 
         ObjFactura.SubTotal = SubTotalFactura