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

Cambios para ContaSIG - Saldos Iniciales Cuentas

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-03-31 12:03:31 -07:00
parent 6a9161d7a4
commit 5516cd2bc6
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
General/SaldosIniciales.aspx.vb
View File

@@ -1981,7 +1981,7 @@ Partial Class General_SaldosIniciales
Dim CvePrePoliza As Integer = 0 Dim CvePrePoliza As Integer = 0
Dim Cuenta As String = "" Dim Cuenta As String = ""
Dim Reporte As New StringBuilder Dim Reporte As New StringBuilder
Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, Now.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, Now.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.Rows
@@ -1994,12 +1994,14 @@ Partial Class General_SaldosIniciales
Dim CveSubProyecto As Integer = -1 Dim CveSubProyecto As Integer = -1
Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
Dim YaExiste As Boolean = False Dim YaExiste As Boolean = False
Dim DataTemp As DataTable
Dim SubP As String = Row("SubProyecto").ToString Dim SubP As String = Row("SubProyecto").ToString
If SubP <> "" Then If SubP <> "" Then
CveSubProyecto = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", "").ToEntero DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
End If End If
Cuenta = Cuenta.Replace(" ", "")
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then
IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero