diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index ec9d01588..2ed421cce 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2889,7 +2889,7 @@ Partial Class Bancos_IE
 
                                 Dim importeMX As Decimal
                                 Dim Multiplicador As Integer
-                                Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                                Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
 
                                 'OTROS INGRESOS/EGRESOS
                                 Dim TCC As Decimal = 1
@@ -3136,7 +3136,7 @@ Partial Class Bancos_IE
                                 Dim ImporteAplicarMN = 0.0D
                                 Dim ImporteAplicarME = 0.0D
                                 Dim ReferenciaAplicar = ObjIE.Folio
-                                Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                                Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
 
                                 Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}"