-- propiedad rutaarchivos

App_Code/ClsSisEmpresas.vb

@@ -465,7 +465,7 @@ Public Class ClsSisEmpresas
                 _Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString
                 _Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString
 
-                _Empresa.Ruta = Data.Rows(0)("RutaArchivos").ToString
+                _Empresa._RutaArchivos = Data.Rows(0)("RutaArchivos").ToString
 
             Else
                 'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia)

App_Code/Empresa.vb

@@ -97,36 +97,24 @@ Public Class Empresa
     Public Property Soporte_PWD As String
     Public Property Soporte_Tipo As String
     Public Property Timbres As Integer
-    Private Property RutaArchivos As String
+    Public Property _RutaArchivos As String
 
-    Public Property Ruta As String
+    Public ReadOnly Property Ruta As String
         Get
-            If Not String.IsNullOrEmpty(RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
-                Return RutaArchivos
+            If Not String.IsNullOrEmpty(_RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
+                Return _RutaArchivos
             Else
                 Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa)
             End If
         End Get
-        Set(ByVal value As String)
-            RutaArchivos = value
-        End Set
+        'Set(ByVal value As String)
+        '    _RutaArchivos = value
+        'End Set
     End Property
-    'Public Property IdCuentaIVAxTrasladar As Integer
-    'Public Property IdCuentaIVATrasladado As Integer
-    'Public Property IdCuentaPerdidaCambiaria As Integer
-    'Public Property IdCuentaGananciaCambiaria As Integer
-    ' Public Property ContaContabilizacionNC As Integer
+
     Public Property PV_TerminalTipo As Integer
     Public Property PlantillaMailVenta As String
-    Public Property AsuntoPlantillaMailVenta As String
-
-    'Nuevas
-    'Public Property IdCuentaIVAxAcreditar As Integer
-    'Public Property IdCuentaIVAAcreditable As Integer
-    'Public Property IdCuentaRetIVACirculacion As Integer
-    'Public Property IdCuentaRetISRCirculacion As Integer
-    'Public Property IdCuentaDSV As Integer
-    'Public Property IdCuentaImpuestosLocales As Integer
+    Public Property AsuntoPlantillaMailVenta As String
     Public Property IdCtaProveedor As Integer
     Public Property IdCtaCliente As Integer
     Public Property IdCtaDeudores As Integer