From fe680f5fb6e0119a11dbba9b9b42a6cb777603f1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 2 Dec 2023 14:41:16 -0700
Subject: [PATCH] -- quitar idcta

---
 Compras/Reembolsos.aspx.vb | 19 ++++---------------
 1 file changed, 4 insertions(+), 15 deletions(-)

diff --git a/Compras/Reembolsos.aspx.vb b/Compras/Reembolsos.aspx.vb
index bdafaa1c6..9204686d0 100644
--- a/Compras/Reembolsos.aspx.vb
+++ b/Compras/Reembolsos.aspx.vb
@@ -26,14 +26,6 @@ Partial Class Compras_Reembolsos
             ViewState("CveMoneda") = value
         End Set
     End Property
-    Private Property IdCuentaBancaria As Integer
-        Get
-            Return ViewState("IdCuentaBancaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("IdCuentaBancaria") = value
-        End Set
-    End Property
     Private Property DtCheques As DataTable
         Get
             Return CType(ViewState("DtCheques"), DataTable)
@@ -202,7 +194,6 @@ Partial Class Compras_Reembolsos
 
         If dr IsNot Nothing Then
             CveMoneda = dr("CveMoneda").ToString.ToEntero
-            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
         End If
 
         If HdnTipoTransaccion.Value = "Egs" Then
@@ -309,7 +300,6 @@ Partial Class Compras_Reembolsos
 
                 If dr IsNot Nothing Then
                     CveMoneda = dr("CveMoneda").ToString.ToEntero
-                    IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
                 End If
 
                 If ChkChequeExcedente.Checked Then
@@ -325,9 +315,9 @@ Partial Class Compras_Reembolsos
                 'inserto los movimientos de la conta para abonar al saldo
 
                 If (TxtImporte.Text.ToDouble > 0 And CvePrePolizaNueva > 0) Or (TxtImporteVinculado.Text.ToDouble > 0 And HdnCheque.Value.ToEntero > 0 And CvePrePolizaVieja > 0) Then
-                    Dim SaldoCheque = TxtChequeSaldo.Text.ToDecimal
-                    Dim SaldoActual = 0.0D
-                    Dim SaldoAbonado = 0.0D
+                    Dim SaldoCheque As Decimal = TxtChequeSaldo.Text.ToDecimal
+                    Dim SaldoActual As Decimal = 0
+                    Dim SaldoAbonado As Decimal = 0
                     Dim PorcentajePago As Decimal = 1
                     'inserto las compras que voy a pagar
                     For Each gvr As GridViewRow In GvCxP.Rows
@@ -588,8 +578,7 @@ Partial Class Compras_Reembolsos
         'Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaDiferencia.SelectedValue)
 
         'If dr IsNot Nothing Then
-        '    CveMoneda = dr("CveMoneda").ToString.ToEntero
-        '    IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
+        '    CveMoneda = dr("CveMoneda").ToString.ToEntero 
         'End If
 
         'If HdnTipoTransaccion.Value = "Egs" Then