AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ordenes de servicio, correciones soportes IE,Saldos iniciales,catps

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-01-04 18:46:38 -07:00
parent d705444dcf
commit 578d016b24
15 changed files with 193 additions and 192 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Ventas/CatPS.aspx.vb
View File

@@ -254,10 +254,26 @@ Partial Class CatPS
Dim lista = New List(Of CrystalParametro)
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario))
lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString))
lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString))
'lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
If Imagen.Exists Then
lista.Add(New CrystalParametro("LogoPath", $"file://{Imagen.FullName}"))
Else
lista.Add(New CrystalParametro("LogoPath", ""))
End If
If Archivo.Exists Then
ImprimirbytesPDF(ImprimirPDFCrystal(Archivo.FullName, DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
Else
Dim Ruta As String = ModExtensiones.DirectorioBaseEmpresas + $"Empresas\Grales\Formatos\CatPS.rpt"
ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
End If
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
End Sub