-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Ventas/FacturacionGlobal.aspx.vb

@@ -177,11 +177,11 @@ Partial Class Ventas_FacturacionGlobal
         Dim DtPagosFacturaGlobal As New DataTable()
 
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1) Then
+        If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1, UsuarioActual.CveEmpresa) Then
             DtRemisionesPS = ObjClientes.DtResultados.Copy()
         End If
 
-        If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString()) Then
+        If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString(), UsuarioActual.CveEmpresa) Then
             DtPagosFacturaGlobal = ObjClientes.DtResultados.Copy()
         End If
         ObjClientes.Dispose()
@@ -204,8 +204,11 @@ Partial Class Ventas_FacturacionGlobal
 
         Dim CveCliente As Integer = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
         If CveCliente <= 0 Then
-            Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
-            Exit Sub
+            CveCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", "Nombre = 'PUBLICO EN GENERAL'").ToEntero
+            If CveCliente <= 0 Then
+                Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
+                Exit Sub
+            End If
         End If
 
         Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, Me.CveSubProyecto, CveCliente, CveMoneda, "Ing")
@@ -267,7 +270,6 @@ Partial Class Ventas_FacturacionGlobal
             Alert(SbAlert.ToString(), TipoMensaje.MsgError, ShowCloseButton:=False)
         End If
 
-
         If ObjFactura IsNot Nothing Then
             ObjFactura.Dispose()
         End If