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

-- visualización de la cuenta si es tipoconta=1

Browse Source
This commit is contained in:
rrene
2023-04-17 09:37:03 -07:00
parent 473f4428e0
commit 645f086df3
1 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Bancos/PolizaCheque.aspx.vb
View File

@@ -108,7 +108,7 @@ Partial Class Bancos_PolizaCheque
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
If Conta.GetCuentas(-1, "-1", 1) Then If Conta.GetCuentas(-1, "-1", 1) Then
@@ -118,6 +118,17 @@ Partial Class Bancos_PolizaCheque
End If End If
Conta.Dispose() Conta.Dispose()
End If
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim Conta As New ClsContabilidad
If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
dt = Conta.DtResultados
DtCuentasContables = Conta.DtResultados
Session("DtCuentas") = Conta.DtResultados
End If
Conta.Dispose()
End If End If
TipoPlantilla = 0 TipoPlantilla = 0
@@ -405,6 +416,18 @@ Partial Class Bancos_PolizaCheque
NombreCuenta = "" NombreCuenta = ""
If UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.UsaContabilidad Then
If drt("CveCuenta").ToString.ToEntero > 0 Then
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))
If drr IsNot Nothing Then
IdCuenta = drt("IdCtaContable").ToString.ToEntero
CodigoCuenta = drr("CuentaFormato").ToString()
NombreCuenta = drr("Nombre").ToString()
'Cuenta = drr("Nombre").ToString()
End If
EsComodin = 0
End If
If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))