-- limpieza de variables de cuentas.

Bancos/DepositoTerminal.aspx.vb

@@ -29,23 +29,7 @@ Partial Class Bancos_DepositoTerminal
         Set(value As Integer)
             ViewState("IdCuentaBancariaComplementaria") = 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 CveCuentaBancariaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaBancariaComplementaria") = value
-        End Set
-    End Property
+    End Property
     Private Property IdCuentaCliente As Integer
         Get
             Return ViewState("IdCuentaCliente").ToString.ToEntero
@@ -154,9 +138,6 @@ Partial Class Bancos_DepositoTerminal
         If dr IsNot Nothing Then
             IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
             IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
-
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
-            CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
         Else
             IdCuentaBancaria = 0
             IdCuentaBancariaComplementaria = 0
@@ -258,9 +239,8 @@ Partial Class Bancos_DepositoTerminal
                     Dim tipoCambioVenta As Decimal
                     Dim tipoCambioActual As Decimal
                     Dim tipoCambioManual As Decimal
-                    Dim CuentasContablesInvalidas As New StringBuilder
-                    Dim CuentasContablesInvalidasSIG As New StringBuilder
-
+                    Dim CuentasContablesInvalidas As New StringBuilder
+
                     If ObjContabilidad.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
                         dtConceptos = ObjContabilidad.DtResultados
                     End If
@@ -455,7 +435,7 @@ Partial Class Bancos_DepositoTerminal
                         End If
                     Next
 
-                    If IdCuentaBancariaComplementaria > 0 OrElse CveCuentaBancariaComplementaria > 0 Then
+                    If IdCuentaBancariaComplementaria > 0 Then
                         If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then
                             MsgError = "No se pudo insertar la póliza"
                         End If