diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index c714a58e..ebd92f08 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Source/Modulos/Comisiones/Controller/uComisionesController.pas b/Source/Modulos/Comisiones/Controller/uComisionesController.pas
index bb2855af..b7e8706f 100644
--- a/Source/Modulos/Comisiones/Controller/uComisionesController.pas
+++ b/Source/Modulos/Comisiones/Controller/uComisionesController.pas
@@ -30,6 +30,8 @@ type
function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
+ procedure FiltrarEmpresa(AComision: IBizComisiones);
+
protected
FDataModule : IDataModuleComisiones;
FFacturasClienteController: IFacturasClienteController;
@@ -219,6 +221,7 @@ end;
function TComisionesController.BuscarTodos: IBizComisiones;
begin
Result := FDataModule.GetItems;
+ FiltrarEmpresa(Result);
end;
constructor TComisionesController.Create;
@@ -429,6 +432,20 @@ begin
end;
end;
+procedure TComisionesController.FiltrarEmpresa(AComision: IBizComisiones);
+begin
+ if AComision.DataTable.Active then
+ AComision.DataTable.Active := False;
+
+ // Filtrar los recibos actuales por empresa
+ with AComision.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+ AddCondition(fld_ComisionesID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+ end;
+end;
+
procedure TComisionesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
inherited;
diff --git a/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dfm b/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dfm
index c4b8881b..b80657c1 100644
--- a/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dfm
+++ b/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dfm
@@ -342,6 +342,7 @@ object PluginEmpresas: TPluginEmpresas
object actGestionEmpresas: TAction
Category = 'Empresa'
Caption = 'Gesti'#243'n de empresas'
+ Enabled = False
OnExecute = actGestionEmpresasExecute
end
object actSucursales: TAction
diff --git a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup
index 8ce0dc65..85150fa5 100644
--- a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup
+++ b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup
@@ -8,11 +8,7 @@
-
-
-
-
-
+
..\..\Base\Base.bdsproj
..\..\Base\ControllerBase\ControllerBase.bdsproj
..\..\Base\GUIBase\GUIBase.bdsproj
@@ -42,7 +38,12 @@
..\Recibos de proveedor\Views\RecibosProveedor_view.bdsproj
..\Remesas de cliente\Views\RemesasCliente_view.bdsproj
..\Remesas de proveedor\Views\RemesasProveedor_view.bdsproj
- Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl Articulos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbaranesCliente_controller.bpl FacturasProveedor_view.bpl PedidosCliente_view.bpl PedidosCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesProveedor_view.bpl PedidosProveedor_view.bpl RecibosCliente_view.bpl RecibosProveedor_view.bpl RemesasCliente_view.bpl RemesasProveedor_view.bpl
+ ..\Referencias\Model\Referencias_model.bdsproj
+ ..\Referencias\Data\Referencias_data.bdsproj
+ ..\Referencias\Controller\Referencias_controller.bdsproj
+ ..\Referencias\Views\Referencias_view.bdsproj
+ ..\Referencias\Plugin\Referencias_plugin.bdsproj
+ Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl Articulos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbaranesCliente_controller.bpl FacturasProveedor_view.bpl PedidosCliente_view.bpl PedidosCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesProveedor_view.bpl PedidosProveedor_view.bpl RecibosCliente_view.bpl RecibosProveedor_view.bpl RemesasCliente_view.bpl RemesasProveedor_view.bpl Referencias_model.bpl Referencias_data.bpl Referencias_controller.bpl Referencias_view.bpl Referencias_plugin.bpl
diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
index 2c3af54f..14f9bb3d 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
+++ b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
@@ -146,7 +146,7 @@ implementation
uses
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorPedidosCliente, uDataModulePedidosCliente, Variants,
- uBizContactos, uDataTableUtils, uDataModuleUsuarios,
+ uBizContactos, uDataTableUtils, uDataModuleUsuarios,
schPedidosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPedidoCliente,
uIEditorElegirPedidosCliente, uIEditorDireccionEntregaPedidoCliente,
schContactosClient_Intf, uPedidosClienteReportController, uDataModuleRegistroCorreos,
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
index 106d154d..8b28ac18 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
@@ -93,6 +93,8 @@ type
function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente; var ImporteRestante: Currency): Boolean;
procedure _AnadirMarcaEnvioCorreo(ARecibo: IBizRecibosCliente);
+ procedure FiltrarEmpresa(ARecibo: IBizRecibosCliente);
+
protected
FDataModule : IDataModuleRecibosCliente;
FPagosController : IPagosClienteController;
@@ -293,6 +295,7 @@ end;
function TRecibosClienteController.BuscarTodos: IBizRecibosCliente;
begin
Result := FDataModule.GetItems;
+ FiltrarEmpresa(Result);
end;
function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
@@ -351,6 +354,7 @@ end;
function TRecibosClienteController.Buscar(const ID: Integer): IBizRecibosCliente;
begin
Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
+ FiltrarEmpresa(Result);
end;
function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
@@ -952,6 +956,7 @@ var
ARecibo : IBizRecibosCliente;
begin
ARecibo := Buscar(ID_NULO);
+ FiltrarEmpresa(Result);
ARecibo.DataTable.Active := True;
Anadir(ARecibo);
Result := ARecibo;
@@ -1035,6 +1040,20 @@ begin
end;
end;
+procedure TRecibosClienteController.FiltrarEmpresa(ARecibo: IBizRecibosCliente);
+begin
+ if ARecibo.DataTable.Active then
+ ARecibo.DataTable.Active := False;
+
+ // Filtrar los recibos actuales por empresa
+ with ARecibo.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+ AddCondition(fld_RecibosClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+ end;
+end;
+
procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
var
AReportController : IRecibosClienteReportController;
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index 7bdedd40..9507da20 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
@@ -80,6 +80,9 @@ type
private
function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor;
var ImporteRestante: Currency): Boolean;
+
+ procedure FiltrarEmpresa(ARecibo: IBizRecibosProveedor);
+
protected
FDataModule : IDataModuleRecibosProveedor;
FPagosController : IPagosProveedorController;
@@ -258,6 +261,7 @@ end;
function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor;
begin
Result := FDataModule.GetItems;
+ FiltrarEmpresa(Result);
end;
constructor TRecibosProveedorController.Create;
@@ -272,6 +276,7 @@ end;
function TRecibosProveedorController.Buscar(const ID: Integer): IBizRecibosProveedor;
begin
Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID);
+ FiltrarEmpresa(Result);
end;
function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
@@ -779,6 +784,7 @@ var
ARecibo : IBizRecibosProveedor;
begin
ARecibo := Buscar(ID_NULO);
+ FiltrarEmpresa(Result);
ARecibo.DataTable.Active := True;
Anadir(ARecibo);
Result := ARecibo;
@@ -831,6 +837,20 @@ begin
end;
end;
+procedure TRecibosProveedorController.FiltrarEmpresa(ARecibo: IBizRecibosProveedor);
+begin
+ if ARecibo.DataTable.Active then
+ ARecibo.DataTable.Active := False;
+
+ // Filtrar los recibos actuales por empresa
+ with ARecibo.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+ AddCondition(fld_RecibosProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+ end;
+end;
+
procedure TRecibosProveedorController.Preview(ARecibosProveedor: IBizRecibosProveedor);
var
AReportController : IRecibosProveedorReportController;
diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.bdsproj b/Source/Modulos/Referencias/Controller/Referencias_controller.bdsproj
index f03aebbd..9f1ff393 100644
--- a/Source/Modulos/Referencias/Controller/Referencias_controller.bdsproj
+++ b/Source/Modulos/Referencias/Controller/Referencias_controller.bdsproj
@@ -174,7 +174,7 @@
diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.dpk b/Source/Modulos/Referencias/Controller/Referencias_controller.dpk
index 51255c64..a70ff752 100644
--- a/Source/Modulos/Referencias/Controller/Referencias_controller.dpk
+++ b/Source/Modulos/Referencias/Controller/Referencias_controller.dpk
@@ -43,7 +43,8 @@ requires
dxPScxGrid6LnkD10,
dxPsPrVwAdvD10,
Referencias_model,
- Referencias_data;
+ Referencias_data,
+ Contactos_controller;
contains
uReferenciasController in 'uReferenciasController.pas',
diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.res b/Source/Modulos/Referencias/Controller/Referencias_controller.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Referencias/Controller/Referencias_controller.res and b/Source/Modulos/Referencias/Controller/Referencias_controller.res differ
diff --git a/Source/Modulos/Referencias/Controller/uReferenciasController.pas b/Source/Modulos/Referencias/Controller/uReferenciasController.pas
index c8fbd824..34b9ca26 100644
--- a/Source/Modulos/Referencias/Controller/uReferenciasController.pas
+++ b/Source/Modulos/Referencias/Controller/uReferenciasController.pas
@@ -24,6 +24,7 @@ type
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
+ procedure FiltrarEmpresa(AReferencia: IBizReferencia);
function ValidarReferencia(AReferencia: IBizReferencia): Boolean;
procedure AsignarDataModule;
procedure AsignarID(AReferencia: IBizReferencia; const IDNuevo: Integer);
@@ -44,7 +45,7 @@ implementation
uses
cxControls, DB, uEditorRegistryUtils, schReferenciasClient_Intf,
uIEditorReferencias, uDataModuleReferencias,
- uDAInterfaces, uDataTableUtils, uDialogUtils,
+ uDAInterfaces, uDataTableUtils, uDialogUtils, uDataModuleUsuarios,
uDateUtils, uROTypes, DateUtils, Controls, Windows;
{ TReferenciasController }
@@ -63,6 +64,7 @@ end;
function TReferenciasController.BuscarTodos: IBizReferencia;
begin
Result := FDataModule.GetItems;
+ FiltrarEmpresa(Result);
end;
constructor TReferenciasController.Create;
@@ -97,6 +99,21 @@ begin
inherited;
end;
+procedure TReferenciasController.FiltrarEmpresa(AReferencia: IBizReferencia);
+begin
+ if AReferencia.DataTable.Active then
+ AReferencia.DataTable.Active := False;
+
+ // Filtrar los presupuestos actuales por empresa
+ with AReferencia.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+ AddCondition(fld_ReferenciasID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+ end;
+
+end;
+
function TReferenciasController.ValidarReferencia(AReferencia: IBizReferencia): Boolean;
begin
Result := False;
diff --git a/Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.dfm b/Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.dfm
index 135329d9..af8c08b2 100644
--- a/Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.dfm
+++ b/Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.dfm
@@ -26,16 +26,19 @@ object PluginTiendaWeb: TPluginTiendaWeb
Caption = 'Recoger pedidos...'
ImageIndex = 0
OnExecute = actRecogerPedidosExecute
+ OnUpdate = actRecogerPedidosUpdate
end
object actActualizarTienda: TAction
Category = 'TiendaWeb'
Caption = 'Actualizar tienda...'
OnExecute = actActualizarTiendaExecute
+ OnUpdate = actActualizarTiendaUpdate
end
object actConfigurarTienda: TAction
Category = 'TiendaWeb'
Caption = 'Configurar tienda'
OnExecute = actConfigurarTiendaExecute
+ OnUpdate = actConfigurarTiendaUpdate
end
end
object MainMenu: TMainMenu
diff --git a/Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.pas b/Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.pas
index ef6e2ee3..163fca71 100644
--- a/Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.pas
+++ b/Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.pas
@@ -28,6 +28,9 @@ type
procedure actRecogerPedidosExecute(Sender: TObject);
procedure actConfigurarTiendaExecute(Sender: TObject);
procedure actActualizarTiendaExecute(Sender: TObject);
+ procedure actRecogerPedidosUpdate(Sender: TObject);
+ procedure actActualizarTiendaUpdate(Sender: TObject);
+ procedure actConfigurarTiendaUpdate(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
@@ -60,6 +63,13 @@ begin
ATiendaWebController.ActualizarTienda(ATiendaWeb);
end;
+procedure TPluginTiendaWeb.actActualizarTiendaUpdate(Sender: TObject);
+begin
+ //La tienda solo estará activa para la empresa Luis León Representaciones
+ if (Sender as TAction).Enabled then
+ (Sender as TAction).Enabled := (dmUsuarios.IDEmpresaActual = 1)
+end;
+
procedure TPluginTiendaWeb.actConfigurarTiendaExecute(Sender: TObject);
var
ATiendaWebController : ITiendaWebController;
@@ -70,6 +80,13 @@ begin
ATiendaWebController.Ver(ATiendaWeb);
end;
+procedure TPluginTiendaWeb.actConfigurarTiendaUpdate(Sender: TObject);
+begin
+ //La tienda solo estará activa para la empresa Luis León Representaciones
+ if (Sender as TAction).Enabled then
+ (Sender as TAction).Enabled := (dmUsuarios.IDEmpresaActual = 1)
+end;
+
procedure TPluginTiendaWeb.actRecogerPedidosExecute(Sender: TObject);
var
ATiendaWebController : ITiendaWebController;
@@ -80,6 +97,14 @@ begin
ATiendaWebController.DescargarPedidos(ATiendaWeb);
end;
+procedure TPluginTiendaWeb.actRecogerPedidosUpdate(Sender: TObject);
+begin
+ inherited;
+ //La tienda solo estará activa para la empresa Luis León Representaciones
+ if (Sender as TAction).Enabled then
+ (Sender as TAction).Enabled := (dmUsuarios.IDEmpresaActual = 1)
+end;
+
constructor TPluginTiendaWeb.Create(AOwner: TComponent);
begin
inherited;
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 78136d81..fef36b13 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "3.3.7.0\0"
VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.3.7.0\0"
- VALUE "CompileDate", "jueves, 15 de julio de 2010 18:00\0"
+ VALUE "CompileDate", "viernes, 16 de julio de 2010 11:03\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index 30982d48..3c99ae1b 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ