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

-- propiedad rutaarchivos

Browse Source
This commit is contained in:
rrene
2023-05-14 09:32:44 -07:00
parent 09723660c9
commit cfcd6ae261
2 changed files with 10 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsSisEmpresas.vb
View File

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

28
App_Code/Empresa.vb
View File

@@ -97,36 +97,24 @@ Public Class Empresa
Public Property Soporte_PWD As String Public Property Soporte_PWD As String
Public Property Soporte_Tipo As String Public Property Soporte_Tipo As String
Public Property Timbres As Integer 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 Get
If Not String.IsNullOrEmpty(RutaArchivos) AndAlso ClsPaginas.EsProduccion Then If Not String.IsNullOrEmpty(_RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
Return RutaArchivos Return _RutaArchivos
Else Else
Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa) Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa)
End If End If
End Get End Get
Set(ByVal value As String) 'Set(ByVal value As String)
RutaArchivos = value ' _RutaArchivos = value
End Set 'End Set
End Property 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 PV_TerminalTipo As Integer
Public Property PlantillaMailVenta As String Public Property PlantillaMailVenta As String
Public Property AsuntoPlantillaMailVenta 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 IdCtaProveedor As Integer Public Property IdCtaProveedor As Integer
Public Property IdCtaCliente As Integer Public Property IdCtaCliente As Integer
Public Property IdCtaDeudores As Integer Public Property IdCtaDeudores As Integer