diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index f54ffac71..3817d2111 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1,21 +1,15 @@
 Option Strict On
 Option Explicit On
 
-Imports Extensiones
 Imports System.Data
-Imports Microsoft.Reporting.WebForms
-Imports System.Xml
 Imports System.IO
+Imports System.Xml
+Imports Extensiones
 Imports iTextSharp.text
 Imports iTextSharp.text.pdf
-
+Imports Microsoft.Reporting.WebForms
 Imports Stimulsoft.Report
-Imports Stimulsoft.Report.Components
-Imports Stimulsoft.Report.Dictionary
 Imports Stimulsoft.Report.Web
-Imports Newtonsoft.Json.Linq
-Imports System
-Imports Microsoft.VisualBasic
 
 Partial Class PopUpVerFactura
     Inherits ClsPaginas
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 09deb5ebe..3c9bf20ce 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -1,6 +1,6 @@
 
-Imports Extensiones
 Imports System.Data
+Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Compras_ReembolsosComprobaciones
@@ -1424,7 +1424,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
         GvCxP.Visible = True
 
-        ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim))
+        ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), OpcionSaldo:=1)
         DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0")
         GvCxP.DataSource = DtDatos
         CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero
diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index 3c1bb16b5..bef7e5cdb 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -261,7 +261,7 @@ Partial Class Compras_RepRembolsoComprobaciones
         Dim FechaI As DateTime = If(String.IsNullOrEmpty(txtFechaI.Text.Trim()), ModExtensiones.MinFecha, txtFechaI.Text.ToDateTime())
         Dim FechaF As DateTime = If(String.IsNullOrEmpty(txtFechaF.Text.Trim()), ModExtensiones.MaxFecha, txtFechaF.Text.ToDateTime())
 
-        ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF)
+        ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1)
         DtDatos = ObjMovtos.DtResultados
         GvCxP.DataSource = DtDatos
 
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index f12ed7e4d..104f5bc38 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2,15 +2,15 @@
 Option Explicit On
 
 Imports System.Data
-Imports Extensiones
 Imports System.Diagnostics
+Imports System.Globalization
 Imports System.IO
 Imports System.IO.Compression
 Imports System.Xml
-Imports Microsoft.Reporting.WebForms
-Imports System.Globalization
 Imports ADSistemaLibrary.SatXml
 Imports ADSistemaLibrary.SatXml.XmlSatCFDI
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Compras_eFacturas
     Inherits ClsPaginas