diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 66fdf8815..eda93b9f0 100644 --- a/App_Code/ClsBancos.vb +++ b/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") diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 5ba9b918a..d2b1a1088 100644 --- a/Bancos/IE.aspx.vb +++ b/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 - GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados - End If - ObjCuentasBancos.Dispose() + 'If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then + ' GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados + 'End If + 'ObjCuentasBancos.Dispose() End If End Sub Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) diff --git a/Bancos/PopUpBuscarIE.aspx.vb b/Bancos/PopUpBuscarIE.aspx.vb index 8b5a2a8fe..90953e356 100644 --- a/Bancos/PopUpBuscarIE.aspx.vb +++ b/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 diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index d81393546..add465901 100644 --- a/Bancos/RepIE.aspx.vb +++ b/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