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

mejoras en fecha

Browse Source
This commit is contained in:
rrene
2021-10-27 16:16:33 -07:00
parent 9eee73c59e
commit cffab0e70c
1 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
General/SaldosIniciales.aspx.vb
View File

@@ -1697,7 +1697,7 @@ Partial Class General_SaldosIniciales
Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.FiltraParametros("Cuenta <> '' ").Rows
NombreCuenta = Row("NombreCuenta").ToString NombreCuenta = Row("NombreCuenta").ToString
Cuenta = Row("Cuenta").ToString Cuenta = Row("Cuenta").ToString
@@ -1709,11 +1709,8 @@ Partial Class General_SaldosIniciales
Dim YaExiste As Boolean = False Dim YaExiste As Boolean = False
Dim DataTemp As DataTable Dim DataTemp As DataTable
Dim SubP As String = Row("SubProyecto").ToString
If SubP <> "" Then
DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
End If
Cuenta = Cuenta.Replace(" ", "") Cuenta = Cuenta.Replace(" ", "")
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -1729,6 +1726,17 @@ Partial Class General_SaldosIniciales
Exit For Exit For
End If End If
Dim SubP As String = Row("SubProyecto").ToString
If SubP <> "" OrElse SubP <> "-" Then
DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
If CveSubProyecto <= 0 Then
Reporte.AppendLine($"'{SubP}' - no se encontró en los subproyectos </br>")
TieneError = True
Exit For
End If
End If
'If TipoCuenta.Contiene("A", "C", "E") Then 'If TipoCuenta.Contiene("A", "C", "E") Then
' CargoAbono = False ' CargoAbono = False
@@ -1738,6 +1746,8 @@ Partial Class General_SaldosIniciales
If IdCuenta > 0 Then If IdCuenta > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.ToDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.ToDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
TieneError = True TieneError = True
Reporte.Append(NombreCuenta)
NombreCuenta.GuardaLog
Exit For Exit For
End If End If
Else Else