diff --git a/Ventas/FacturacionGlobal.aspx.vb b/Ventas/FacturacionGlobal.aspx.vb
index 39be6ba13..794f72424 100644
--- a/Ventas/FacturacionGlobal.aspx.vb
+++ b/Ventas/FacturacionGlobal.aspx.vb
@@ -152,7 +152,6 @@ Partial Class Ventas_FacturacionGlobal
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
-        Dim CveCliente As Integer = -1 'UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
         Dim CveMoneda As Integer = 1
 
         Dim SbRemisiones As New StringBuilder()
@@ -178,11 +177,11 @@ Partial Class Ventas_FacturacionGlobal
         Dim DtPagosFacturaGlobal As New DataTable()
 
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetVentasRemisionesTotales(CveCliente, SbRemisiones.ToString(), 1) Then
+        If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1) Then
             DtRemisionesPS = ObjClientes.DtResultados.Copy()
         End If
 
-        If ObjClientes.GetVentasRemisionesPagos(CveCliente, SbRemisiones.ToString()) Then
+        If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString()) Then
             DtPagosFacturaGlobal = ObjClientes.DtResultados.Copy()
         End If
         ObjClientes.Dispose()
@@ -203,7 +202,7 @@ Partial Class Ventas_FacturacionGlobal
             Exit Sub
         End If
 
-        CveCliente = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
+        Dim CveCliente As Integer = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
         If CveCliente <= 0 Then
             Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
             Exit Sub