-- limpieza de cuentas

Compras/Compras.aspx.vb

@@ -385,14 +385,6 @@ Partial Class Compras_Compras
             ViewState("IdCuentaBancaria") = value
         End Set
     End Property
-    Private Property CveCuentaBancaria As Integer
-        Get
-            Return ViewState("CveCuentaBancaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaBancaria") = value
-        End Set
-    End Property
     Private Property IdCuentaBancariaComplementaria As Integer
         Get
             Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero
@@ -401,14 +393,6 @@ Partial Class Compras_Compras
             ViewState("IdCuentaBancariaComplementaria") = value
         End Set
     End Property
-    Private Property CveCuentaBancariaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaBancariaComplementaria") = value
-        End Set
-    End Property
     Private Property IvaAcumulado As Double
         Get
             Return ViewState("IvaAcumulado").ToString.ToDouble
@@ -1210,11 +1194,9 @@ Partial Class Compras_Compras
                 CompraSaldo = 0
                 ViewState("CvePersonal") = -1
                 IdCuentaBancaria = 0
-                CveCuentaBancaria = 0
             End If
 
             IdCuentaBancariaComplementaria = 0
-            CveCuentaBancariaComplementaria = 0
 
             'If UsuarioActual.TienePermisoProceso(259) Then
             DivEsNoDeducible.Visible = True
@@ -12864,9 +12846,7 @@ Partial Class Compras_Compras
         If dr IsNot Nothing Then
             CveMoneda = dr("CveMoneda").ToString.ToEntero
             IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
             IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
-            CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
             If dr("UsaTarjeta").ToString = "True" Then
                 CargaGridTarjetas()
             Else
@@ -12891,7 +12871,6 @@ Partial Class Compras_Compras
         If dr IsNot Nothing Then
             CveMoneda = dr("CveMoneda").ToString.ToEntero
             IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
             EstaAsociadoACajaChica = True
         End If