From 8c51b7aee55afa5455af21ad856bca8de1c66f90 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Sat, 28 Jan 2023 11:59:09 -0700
Subject: [PATCH] RegPrePolzias Nombre archivo de resumen

---
 Contabilidad/RegPrePolizaS.aspx.vb | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 748b09afa..0edfc89d0 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -3293,7 +3293,24 @@ Partial Class ContabilidadC_RegPrePolizaS
                 RutaReprote = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc"
             End If
 
-            ImprimirbytesPDF(StreamPDF(RutaReprote, dtVC, params, "PrePoliza", Formato:=Tipo), "PrePoliza", Formato:=Tipo, Descarga:=True)
+            Dim TipoPolizaString = ""
+
+            Select Case DdlTipoPoliza.SelectedValue.ToEntero
+                Case 1
+                    TipoPolizaString = "I"
+                    Exit Select
+                Case 2
+                    TipoPolizaString = "E"
+                    Exit Select
+
+                Case Else
+                    TipoPolizaString = "D"
+                    Exit Select
+
+            End Select
+
+
+            ImprimirbytesPDF(StreamPDF(RutaReprote, dtVC, params, "PrePoliza", Formato:=Tipo), $"P{TipoPolizaString}{TxtFolio.Text}", Formato:=Tipo, Descarga:=True)
 
         End If
         ObjConta.Dispose()