-- quitar idcta

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