Formato OC

App_Code/ClsPaginas.vb

@@ -7607,6 +7607,9 @@ Public Class ClsPaginas
         Dim bytes As Byte() = Nothing
         Dim CveEmpresaActual As Integer
         Dim params As New List(Of ReportParameter)
+
+
+
         Try
             Dim DtDetalle As DataTable = Nothing
             Dim ObjOC As New ClsOC
@@ -7634,8 +7637,20 @@ Public Class ClsPaginas
 
                 Dim DomicilioSucursal As String = ""
 
+                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta))
 
-                If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197 Then
+                If Not Archivo.Exists Then
+
+                    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                    If Imagen.Exists Then    ''POR EMPRESA
+                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
+                    Else
+                        params.Add(New ReportParameter("LogoPath", ""))
+                    End If
+
+                End If
+
+                If Not Archivo.Exists Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then
 
                     Dim SBDomicilioSucursal As New StringBuilder()
                     Dim CiudadSucursal As String = ""
@@ -7688,6 +7703,8 @@ Public Class ClsPaginas
                         End If
 
                     End If
+
+
                 End If
 
 
@@ -7718,10 +7735,11 @@ Public Class ClsPaginas
                 End If
 
                 Dim nombreautorizo As String = dtOC(0)("UsuarioAutorizo").ToString
-                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta))
+
                 If Not Archivo.Exists OrElse EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 122, 126, 158) Then
                     params.Add(New ReportParameter("Descuento", DtDetalle.SUM("Descuento").ToString.FormatoNumero(2)))
                 End If
+
                 'DATOS PARA DESCUENTO
                 If EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 119, 122, 126, 158) Then 'EMPRESAS QUE YA TIENEN EL AJUSTE EN EL FORMATO
                     params.Add(New ReportParameter("SubTotal", ObjOC.SubTotal.ToString))
@@ -7811,7 +7829,7 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, ImageToBase64(Drawing.Image.FromFile(FirmaAut.FullName), Drawing.Imaging.ImageFormat.Png), "")))
 
 
-                If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197 Then
+                If Not Archivo.Exists Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then
 
                     Dim ObjProveedor As New ClsCompProveedores
                     If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ObjOC.CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, EmpresaActual.CveEmpresa) Then