- se dividió en 2 PA, repie y el getie, que solo obtendrá info de 1 IE

App_Code/ClsBancos.vb

@@ -89,7 +89,6 @@ Public Class ClsBancos
     Public Property DepositoRefCrediProveedor As String
     Public Property CuentaDepositado As String
     Public Property CveEstatusIE As Integer
-    Public Property CveProveedorIntermediario As Integer
     Public Property EstatusIE As String
     Public Property IDPoliza As Integer
     'Public Property IdCtaContDepreciacion As Integer
@@ -717,30 +716,7 @@ Public Class ClsBancos
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveIE", SqlDbType.Int).Value = CveIE
-            .Add("@CveBanco", SqlDbType.Int).Value = CveBanco
-            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
-            .Add("@TipoMovimiento", SqlDbType.VarChar).Value = TipoMovimiento
-            .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
-            .Add("@Folio", SqlDbType.VarChar).Value = Folio
-            .Add("@PagueseA", SqlDbType.NVarChar).Value = PagueseA
-            .Add("@Importe", SqlDbType.Money).Value = Importe
-            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@EsAbonoEnCuenta", SqlDbType.Int).Value = EsAbonoEnCuenta
-            .Add("@FueConciliado", SqlDbType.Int).Value = FueConciliado
-            .Add("@CveEstatusIE", SqlDbType.Int).Value = CveEstatusIE
-            .Add("@FechaI", SqlDbType.Date).Value = IfNull(FechaInicio, DBNull.Value, FechaInicio)
-            .Add("@FechaF", SqlDbType.Date).Value = IfNull(FechaFin, DBNull.Value, FechaFin)
-            .Add("@FechaAplicacionI", SqlDbType.Date).Value = IfNull(FechaAplicacionInicio, DBNull.Value, FechaAplicacionInicio)
-            .Add("@FechaAplicacionF", SqlDbType.Date).Value = IfNull(FechaAplicacionFin, DBNull.Value, FechaAplicacionFin)
-            .Add("@CveUsuarioConcilio", SqlDbType.Int).Value = CveUsuarioConcilio
-            .Add("@FechaConciliadoI", SqlDbType.Date).Value = IfNull(FechaConciliadoInicio, DBNull.Value, FechaConciliadoInicio)
-            .Add("@FechaConciliadoF", SqlDbType.Date).Value = IfNull(FechaConciliadoFin, DBNull.Value, FechaConciliadoFin)
-            .Add("@TImporte", SqlDbType.Float).Value = TImporte
-            .Add("@CveEstatusNotificacion", SqlDbType.Int).Value = CveEstatusNotificacion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveCuentaTarjeta", SqlDbType.Int).Value = CveCuentaTarjeta
-            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
-
         End With
 
         Try
@@ -769,7 +745,7 @@ Public Class ClsBancos
                 Me.FueConciliado = CBool(Data.Rows(0)("FueConciliado").ToString)
                 Me.FechaAplicado = Data.Rows(0)("FechaAplicado").ToString.ToDate
                 Me.CveEstatusIE = Data.Rows(0)("CveEstatusIE").ToString.ToEntero
-                Me.CveProveedorIntermediario = Data.Rows(0)("CveProveedorIntermediario").ToString.ToEntero
+               ' Me.CveProveedorIntermediario = Data.Rows(0)("CveProveedorIntermediario").ToString.ToEntero
                 BancoNumCuentaMoneda = Data.Rows(0)("BancoNumCuentaMoneda").ToString
                 IdCtaContable = Data.Rows(0)("IdCtaContable").ToString.ToEntero
                 IdCtaContableComplementaria = Data.Rows(0)("IdCtaContableComplementaria").ToString.ToEntero
@@ -825,6 +801,53 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
+
+    Public Function GetBancosRepIE(CveBanco As Integer, CveCuenta As Integer, TipoMovimiento As String, CveTipoTransaccion As Integer, Folio As String, PagueseA As String, Importe As Double,
+                                CveMoneda As Integer, EsAbonoEnCuenta As Integer, FueConciliado As Integer, CveEstatusIE As Integer,
+                                FechaInicio As Date, FechaFin As Date, FechaAplicacionInicio As Date, FechaAplicacionFin As Date,
+                                FechaConciliadoInicio As Date, FechaConciliadoFin As Date, CveUsuarioConcilio As Integer, TImporte As Double, CveEmpresa As Integer,
+                                Optional CveEstatusNotificacion As Integer = -1, Optional CveCuentaTarjeta As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Banc_IERepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveBanco", SqlDbType.Int).Value = CveBanco
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@TipoMovimiento", SqlDbType.VarChar).Value = TipoMovimiento
+            .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
+            .Add("@Folio", SqlDbType.VarChar).Value = Folio
+            .Add("@PagueseA", SqlDbType.NVarChar).Value = PagueseA
+            .Add("@Importe", SqlDbType.Money).Value = Importe
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+            .Add("@EsAbonoEnCuenta", SqlDbType.Int).Value = EsAbonoEnCuenta
+            .Add("@FueConciliado", SqlDbType.Int).Value = FueConciliado
+            .Add("@CveEstatusIE", SqlDbType.Int).Value = CveEstatusIE
+            .Add("@FechaI", SqlDbType.Date).Value = IfNull(FechaInicio, DBNull.Value, FechaInicio)
+            .Add("@FechaF", SqlDbType.Date).Value = IfNull(FechaFin, DBNull.Value, FechaFin)
+            .Add("@FechaAplicacionI", SqlDbType.Date).Value = IfNull(FechaAplicacionInicio, DBNull.Value, FechaAplicacionInicio)
+            .Add("@FechaAplicacionF", SqlDbType.Date).Value = IfNull(FechaAplicacionFin, DBNull.Value, FechaAplicacionFin)
+            .Add("@CveUsuarioConcilio", SqlDbType.Int).Value = CveUsuarioConcilio
+            .Add("@FechaConciliadoI", SqlDbType.Date).Value = IfNull(FechaConciliadoInicio, DBNull.Value, FechaConciliadoInicio)
+            .Add("@FechaConciliadoF", SqlDbType.Date).Value = IfNull(FechaConciliadoFin, DBNull.Value, FechaConciliadoFin)
+            .Add("@TImporte", SqlDbType.Float).Value = TImporte
+            .Add("@CveEstatusNotificacion", SqlDbType.Int).Value = CveEstatusNotificacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveCuentaTarjeta", SqlDbType.Int).Value = CveCuentaTarjeta
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Ingresos y Egresos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
     Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_PrePolizasDetalleGet")

Bancos/IE.aspx.vb

@@ -5308,12 +5308,13 @@ Partial Class Bancos_IE
     'Recaga CuentasBancarias de Proveedor
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
         If CveProveedor > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
+            GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
+            'Dim ObjCuentasBancos As New ClsGenerales
 
-            If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
+            'If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
-                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
+            '    GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
-            End If
+            'End If
-            ObjCuentasBancos.Dispose()
+            'ObjCuentasBancos.Dispose()
         End If
     End Sub
     Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)

Bancos/PopUpBuscarIE.aspx.vb

@@ -73,11 +73,11 @@ Partial Class Bancos_PopUpBuscarIE
         If ValidarFiltrosSeleccionado() Then
 
             Dim ObjBancosIE As New ClsBancos
-            If ObjBancosIE.GetBancosIE(-1, -1, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate,
+            If ObjBancosIE.GetBancosRepIE(-1, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate,
                                    MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then
                 DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados)
             Else
-                Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError)
+                Alert("Ocurrió un error al consultar bancos", TipoMensaje.MsgError)
                 DtDatos = Nothing
             End If
 

Bancos/RepIE.aspx.vb

@@ -149,7 +149,7 @@ Partial Class Bancos_RepIE
 
 
         Dim ObjBancosIE As New ClsBancos
-        If ObjBancosIE.GetBancosIE(-1, -1, Cuenta, DdlTipo.SelectedValue, DdlTipoTransaccion.SelectedValue.ToEntero, Folio, PagueseA, -1, DdlMoneda.SelectedValue.ToEntero,
+        If ObjBancosIE.GetBancosRepIE(-1, Cuenta, DdlTipo.SelectedValue, DdlTipoTransaccion.SelectedValue.ToEntero, Folio, PagueseA, -1, DdlMoneda.SelectedValue.ToEntero,
                                    If(ChkEsAbonoEnCuenta.Checked.ToEntero = 0, -1, 1),
                                    DdlConciliado.SelectedValue.ToEntero, DdlEstatusIE.SelectedValue.ToEntero, FechaI, FechaF, FechaAplicacionI, FechaAplicacionF,
                                     FechaConciliadoI, FechaConciliadoF, DdlUsuarioConcilio.SelectedValue.ToEntero, Importe, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjeta.SelectedValue.ToEntero) Then