Ratios, consulta enviando fechas 2

This commit is contained in:
Oscar Irigoyen
2023-05-13 14:45:10 -07:00
parent 6d760d1bcf
commit a23494042b
9 changed files with 1566 additions and 2095 deletions

View File

@@ -2772,10 +2772,18 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
If Archivo.Exists Then
ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
Else
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
End If
ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True)
End If