administrador/SanchoToro
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2026-01-30 03

Browse Source
This commit is contained in:
Manuel Moguer
2026-01-30 12:07:23 +01:00
parent 6034845e65
commit 79ae74ee26
28 changed files with 319 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjercicioContable.xaml.vb
View File

@@ -39,12 +39,12 @@ Public Class ucEjercicioContable
If FuerzaNuevo OrElse _idEjercicio Is Nothing Then
ra = New bdGrupoSanchoToro.db.ejercicioscontables
ra.FechaApertura = Now.Date
ra.FechaApertura = DateOnly.FromDateTime(Now)
Dim Anno As Integer = Now.Year
If Now.Month > 1 Then Anno += 1
ra.Descripcion = Anno.ToString
ra.FechaInicio = New Date(Anno, 1, 1)
ra.FechaFin = New Date(Anno, 12, 31)
ra.FechaInicio = New DateOnly(Anno, 1, 1)
ra.FechaFin = New DateOnly(Anno, 12, 31)
ra.idEmpresa = bd.empresas.First(Function(x) x.FechaBaja.HasValue = False).idEmpresa
Me.DataContext = ra
_idEjercicio = Nothing
@@ -157,7 +157,7 @@ Public Class ucEjercicioContable
If Not DXSplashScreen.IsActive Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
DXSplashScreen.SetState("Obteniendo cuentas ...")
Dim Nivel As Integer = cbNivel.EditValue
Dim ctas = bdGrupoSanchoToro.db.vf_cuentas.Obtiene_vf_cuentas(bd, ra.ideje, Nivel)
Dim ctas = bdGrupoSanchoToro.db.vf_cuentas.Obtiene_vf_cuentas(bd, ra.idEjercicio, Nivel)
gcCuentas.ItemsSource = ctas
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
Catch ex As Exception
@@ -435,7 +435,7 @@ Public Class ucEjercicioContable
Dim ctaea = bd.cuentas.First(Function(x) x.idCuenta = cta.idCuenta)
CopiaCuenta(bd, ejnue, ctaea, ctne)
End If
.cuentas = ctne
.idCuentaNavigation = ctne
'.idCuenta = ejnue.cuentas.First(Function(x) x.NumeroCuenta = cta.NumeroCuenta).idCuenta
'.Fecha = ejnue.FechaInicio
.Concepto = "ASIENTO APERTURA"