Local

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

Bancos/DepositosCaja.aspx.vb

@@ -194,8 +194,7 @@ Partial Class Bancos_DepositosCaja
         Dim Fecha As Date = TxtFecha.Text.ToDate
         Dim IdCuentaBancariaOrigen As Integer = 0
         Dim IdCuentaBancariaDestino As Integer = 0
-        Dim CveCuentaBancariaOrigen As Integer = 0
-        Dim CveCuentaBancariaDestino As Integer = 0
+        Dim CveCuentaBancariaOrigen As Integer = 0
         Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero
@@ -215,14 +214,12 @@ Partial Class Bancos_DepositosCaja
 
         If drOrigen IsNot Nothing Then
             CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
-            IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero
-            CveCuentaBancariaOrigen = drOrigen("IdCtaContableSIG").ToString.ToEntero
+            IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero
         End If
 
         If drDestino IsNot Nothing Then
             CveMoneda = drDestino("CveMoneda").ToString.ToEntero
-            IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero
-            CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero
+            IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero
         End If
 
         NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1)

Bancos/PopIEVentas.aspx.vb

@@ -1060,7 +1060,6 @@ Partial Class Bancos_PopIEVentas
 
             IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
             IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
 
             If dr("UsaTarjeta").ToString = "True" Then
                 CargaGridTarjetas()

Bancos/RegistroPagoIntermediario.aspx.vb

@@ -22,14 +22,6 @@ Partial Class Bancos_PagosIntermediarios
             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 CveMoneda As Integer
         Get
             Return ViewState("CveMoneda").ToString.ToEntero
@@ -89,7 +81,6 @@ Partial Class Bancos_PagosIntermediarios
         If dr IsNot Nothing Then
             CveMoneda = dr("CveMoneda").ToString.ToEntero
             IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -215,7 +206,7 @@ Partial Class Bancos_PagosIntermediarios
                 End If
             Next
 
-            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaBancaria) Then
+            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio) Then
                 MsgError = "No se pudo insertar la póliza"
             End If
 

Bancos/Transferencias.aspx.vb

@@ -330,12 +330,10 @@ Partial Class Bancos_Transferencias
                     If RowCuentaOrigen IsNot Nothing Then
                         IdCtaContableOrigen = RowCuentaOrigen("IdCtaContable").ToString.ToEntero
                         IDCtaContableComplementariaOrigen = RowCuentaOrigen("IDCtaContableComplementaria").ToString.ToEntero
-                        CveCuentaOrigen = RowCuentaOrigen("IdCtaContableSIG").ToString.ToEntero
                     End If
                     If RowCuentaDestino IsNot Nothing Then
                         IdCtaContableDestino = RowCuentaDestino("IdCtaContable").ToString.ToEntero
                         IDCtaContableComplementariaDestino = RowCuentaDestino("IDCtaContableComplementaria").ToString.ToEntero
-                        CveCuentaDestino = RowCuentaDestino("IdCtaContableSIG").ToString.ToEntero
                     End If
 
                     'Conta ContPAQ