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()