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

Reportes conta 177, Compras reembolsos unificaion de poliza al actualizar

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-12-07 21:19:06 -07:00
parent 2facf3f6be
commit 6801fa4674
14 changed files with 240 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/LibroMayor.aspx.vb
View File

@@ -78,14 +78,14 @@ Partial Class Contabilidad_LibroMayor
FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
'140
Dim CvecuentaPadre As Integer = 57416 '140
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim ObjConta As New ClsContabilidad
If ObjConta.GetLibroMayorSIG(CvecuentaPadre, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
If ObjConta.GetLibroMayorSIG(-1, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados
Else
DtDatos = Nothing