From c5413c53ca2ee77ac91c63beecf5031e030b0d04 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 3 May 2024 15:25:44 -0700
Subject: [PATCH] --BDH, serie en RNC de bonificacion

---
 Ventas/Clientes.aspx.vb | 33 +++++++++++++++++++++++----------
 1 file changed, 23 insertions(+), 10 deletions(-)

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