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

.

Browse Source
This commit is contained in:
rrene
2023-03-18 10:03:13 -07:00
parent d244a0ec1b
commit 903b7b9afd
1 changed files with 1 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/IE.aspx.vb
View File

@@ -2506,25 +2506,16 @@ Partial Class Bancos_IE
End If End If
Dep.Dispose() Dep.Dispose()
If CveOCSolicitudAnticipo > 0 Then If CveOCSolicitudAnticipo > 0 Then
Dim ObjOC As New ClsOC Dim ObjOC As New ClsOC
If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal.Round(2) SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal.RoundSQL(2)
Else Else
SaldoOCAnticipo = 0 SaldoOCAnticipo = 0
End If End If
ObjOC.Dispose() ObjOC.Dispose()
Dim ImporteComparacion As Decimal = TxtImporte.Text.ToDecimal Dim ImporteComparacion As Decimal = TxtImporte.Text.ToDecimal
'
If ChkPagarPesos.Checked Then If ChkPagarPesos.Checked Then
ImporteComparacion = ImporteOriginalDolaras ImporteComparacion = ImporteOriginalDolaras
End If End If