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

-- solo con movtos

Browse Source
This commit is contained in:
rrene
2025-07-07 11:32:22 -07:00
parent 77c2f67eff
commit 26778e4ff3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -186,7 +186,7 @@ Partial Class Contabilidad_ContabilidadElectronica
Dim Archivopfx As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX }" Dim Archivopfx As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX }"
Dim Clavepfx As String = UsuarioActual.Empresa.FielPassword Dim Clavepfx As String = UsuarioActual.Empresa.FielPassword
Dim xsltPath As String Dim xsltPath As String = ""
Select Case Opcion Select Case Opcion
Case 1 Case 1
xsltPath = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\CatalogoCuentas_1_3.xslt" xsltPath = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\CatalogoCuentas_1_3.xslt"
@@ -265,7 +265,7 @@ Partial Class Contabilidad_ContabilidadElectronica
Dim DtCuentas As New DataTable Dim DtCuentas As New DataTable
If UsuarioActual.Empresa.TipoContabilidad = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim objconta As New ClsContabilidad Dim objconta As New ClsContabilidad
If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then If objconta.GetBalanzaComprobacion(FechaI, FechaF, 5, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
DtCuentas = objconta.DtResultados DtCuentas = objconta.DtResultados
End If End If
objconta.Dispose() objconta.Dispose()