Correciones en AF

AF/AF.aspx.vb

@@ -641,7 +641,17 @@ Partial Class AF_AF
         CargaResponsable()
         CargaEstatusActivoFijo()
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
+
+        'If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
+        '    lblProyecto.Text = "Proyecto:"
+        '    lblProyecto.Visible = True
+        '    DdlProyecto.Visible = True
+
+        '    LblSubProyecto.Text = "SubProyecto:"
+        'End If
+
         RowProyecto.Visible = DdlProyecto.Visible
+
         'CargaCliente()
         CargaGrupos()
         CargaMarcas()
@@ -874,7 +884,9 @@ Partial Class AF_AF
         End If
 
         ObjFolios.Dispose()
-        CargaSubTipoActivoFijo()
+        If CveActivoFijo <= 0 Then
+            CargaSubTipoActivoFijo()
+        End If
         UpDatos.Update()
     End Sub
 
@@ -916,7 +928,6 @@ Partial Class AF_AF
     End Sub
 
 #End Region
-
     Private Sub CargaDatos()
         Dim ObjActivoFijo As New ClsAF()
 
@@ -1024,7 +1035,7 @@ Partial Class AF_AF
 
                 DdlEstadoActivoFijo.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString
                 DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString
-                DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString
+                'DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString
                 CargaSubProyecto()
                 DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString
                 Ddlclientes.SelectedValue = ObjActivoFijo.CveCliente.ToString
@@ -3219,7 +3230,7 @@ Partial Class AF_AF
                 Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -4156,7 +4167,7 @@ Partial Class AF_AF
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If