From 903b7b9afdbc6857442ac11d2902be860b00c0c2 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 Mar 2023 10:03:13 -0700 Subject: [PATCH] . --- Bancos/IE.aspx.vb | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 5e3f93992..3c54087eb 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2506,25 +2506,16 @@ Partial Class Bancos_IE End If Dep.Dispose() - - - If CveOCSolicitudAnticipo > 0 Then - - - - Dim ObjOC As New ClsOC 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 SaldoOCAnticipo = 0 End If ObjOC.Dispose() Dim ImporteComparacion As Decimal = TxtImporte.Text.ToDecimal - - ' If ChkPagarPesos.Checked Then ImporteComparacion = ImporteOriginalDolaras End If