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

RepProgramasOperativosAvances

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-22 20:47:05 -07:00
parent 7de237282f
commit d7690054d8
7 changed files with 415 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
General/SaldosIniciales.aspx.vb
View File

@@ -1824,7 +1824,7 @@ Partial Class General_SaldosIniciales
Dim Codigo As String = Row("Código").ToString()
Dim Descripcion As String = Row("Descripción").ToString()
Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
Dim CuentaContable As String = Row("Cuenta Contable").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
If CveCuentaContable > 0 Then
@@ -1834,6 +1834,7 @@ Partial Class General_SaldosIniciales
ErrorAF = True
End If
End If
CuentaContable = Row("Cuenta Depreciación").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
@@ -1844,6 +1845,7 @@ Partial Class General_SaldosIniciales
ErrorAF = True
End If
End If
CuentaContable = Row("Cuenta Depreciación Acumulada").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
@@ -1876,8 +1878,8 @@ Partial Class General_SaldosIniciales
Dim Descripcion As String = Row("Descripción").ToString()
Dim TipoAF As String = Row("Tipo").ToString().Trim
Dim SubTipo As String = Row("SubTipo").ToString().Trim
Dim Valor As Decimal = Row("Valor de compra").ToString().ToDecimal
Dim FechaAF As Date = Row("Fecha de compra").ToString().ToDate
Dim Valor As Decimal = Row("Valor").ToString().ToDecimal
Dim FechaAF As Date = Row("Fecha").ToString().ToDate
Dim NumeroSerie As String = Row("No. Serie").ToString()
Dim Año As Integer = Row("Año").ToString().ToEntero()
Dim CuentaContable As String = Row("Cuenta Contable").ToString()