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

-- cambio a decimal

Browse Source
This commit is contained in:
rrene
2024-07-06 09:42:27 -07:00
parent ae69672fe3
commit c2f2c2b593
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -571,7 +571,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Dim Dt1 As New DataTable Dim Dt1 As New DataTable
Dt1 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'") Dt1 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'")
Dim TotalDt1 As Double = Dt1.SUM("Importe") Dim TotalDt1 As Decimal = Dt1.SUMD("Importe")
Dim Row1 As DataRow = Dt1.NewRow Dim Row1 As DataRow = Dt1.NewRow
Row1("Importe") = TotalDt1 Row1("Importe") = TotalDt1
@@ -581,7 +581,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Dim Dt2 As New DataTable Dim Dt2 As New DataTable
Dt2 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'") Dt2 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'")
Dim TotalDt2 As Double = Dt2.SUM("Importe") Dim TotalDt2 As Decimal = Dt2.SUMD("Importe")
Dim Row2 As DataRow = Dt2.NewRow Dim Row2 As DataRow = Dt2.NewRow
Row2("Importe") = TotalDt2 Row2("Importe") = TotalDt2
@@ -591,7 +591,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Dim Dt3 As New DataTable Dim Dt3 As New DataTable
Dt3 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'") Dt3 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'")
Dim TotalDt3 As Double = Dt3.SUM("Importe") Dim TotalDt3 As Decimal = Dt3.SUMD("Importe")
Dim Row3 As DataRow = Dt3.NewRow Dim Row3 As DataRow = Dt3.NewRow
Row3("Importe") = TotalDt3 Row3("Importe") = TotalDt3
@@ -601,7 +601,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Dim Dt4 As New DataTable Dim Dt4 As New DataTable
Dt4 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'") Dt4 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'")
Dim TotalDt4 As Double = Dt4.SUM("Importe") Dim TotalDt4 As Decimal = Dt4.SUMD("Importe")
Dim Row4 As DataRow = Dt4.NewRow Dim Row4 As DataRow = Dt4.NewRow
Row4("Importe") = TotalDt4 Row4("Importe") = TotalDt4
@@ -628,7 +628,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
lrds.Add(rds4) lrds.Add(rds4)
params.Add(New ReportParameter("SaldoFinalEstadoCuenta", (TxtSaldoFinal.Text.FormatoNumero))) params.Add(New ReportParameter("SaldoFinalEstadoCuenta", (TxtSaldoFinal.Text.FormatoNumero)))
Dim SaldoFinalLibros As Double = (TxtSaldoFinal.Text.ToDouble - TotalDt1 + TotalDt2 + TotalDt3 - TotalDt4) Dim SaldoFinalLibros As Decimal = (TxtSaldoFinal.Text.ToDecimal - TotalDt1 + TotalDt2 + TotalDt3 - TotalDt4)
params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero)) params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero))
Dim SaldoFinalContabilidad As Double = 0 Dim SaldoFinalContabilidad As Double = 0