diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index f1cc9408..853dcdc8 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -442,7 +442,7 @@ begin JsDialog.Content.Add('Selección de empresa'); JsDialog.Instruction.Text := 'Elija la empresa con la que desea trabajar.'; JsDialog.DialogOptions := [doCommandLinks, doModal]; - JsDialog.ButtonBar.Buttons := [cbOk]; + JsDialog.ButtonBar.Buttons := [cbCancel]; JsDialog.Width := 600; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index ddac7161..421c0828 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,53 +58,53 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f31..1641339f 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm index 13b329af..a74adb1a 100644 --- a/Source/Cliente/uPantallaPrincipal.dfm +++ b/Source/Cliente/uPantallaPrincipal.dfm @@ -317,6 +317,11 @@ object fPantallaPrincipal: TfPantallaPrincipal OnExecute = actMenuInformesExecute OnUpdate = actMenuComprasUpdate end + object actInformacionEmpresa: TAction + Caption = 'Informaci'#243'n de empresa' + OnExecute = actInformacionEmpresaExecute + OnUpdate = actMenuComprasUpdate + end end object ModulesSmallImageList: TPngImageList PngImages = < @@ -643,17 +648,18 @@ object fPantallaPrincipal: TfPantallaPrincipal Tag = 1000 Action = actMenuEmpresa object Listadeempresas1_OLD: TMenuItem + Tag = 1 Caption = 'Selecci'#243'n de empresas' OnClick = Listadeempresas1_OLDClick end object N1_OLD: TMenuItem + Tag = 2 Caption = '-' Visible = False end object Informacindeempresa1: TMenuItem - Caption = 'Informaci'#243'n de empresa' - ImageIndex = 3 - OnClick = Informacindeempresa1Click + Tag = 10 + Action = actInformacionEmpresa end end object Datos1: TMenuItem diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas index ef72c71d..32bc3209 100644 --- a/Source/Cliente/uPantallaPrincipal.pas +++ b/Source/Cliente/uPantallaPrincipal.pas @@ -95,6 +95,7 @@ type actMenuEmpresa: TAction; Informes1: TMenuItem; actMenuInformes: TAction; + actInformacionEmpresa: TAction; procedure FormCreate(Sender: TObject); procedure Salir1Click(Sender: TObject); procedure actSalirExecute(Sender: TObject); @@ -114,7 +115,6 @@ type procedure actVerBarraEstadoUpdate(Sender: TObject); procedure actVerBarraEstadoExecute(Sender: TObject); procedure Acercade1Click(Sender: TObject); - procedure Informacindeempresa1Click(Sender: TObject); procedure Usuarios1Click(Sender: TObject); procedure Perfiles1Click(Sender: TObject); procedure FormShow(Sender: TObject); @@ -124,6 +124,7 @@ type procedure actMenuEmpresaExecute(Sender: TObject); procedure actMenuInformesExecute(Sender: TObject); procedure Listadeempresas1_OLDClick(Sender: TObject); + procedure actInformacionEmpresaExecute(Sender: TObject); private FContenido : TCustomEditor; procedure ShowEmbedded(AEditor : ICustomEditor); @@ -195,13 +196,14 @@ begin InicializarUI; { Go full screen } - WindowState := wsmaximized; - ClientWidth := Screen.Width ; - ClientHeight := Screen.Height; + WindowState := wsMaximized; + {ClientWidth := Screen.Width ; + ClientHeight := Screen.Height;} Refresh; //Sacamos la lista de empresas para que el usuario elija con la que va a trabajar AppFactuGES.SeleccionarEmpresa; + RefrescarUI; end; procedure TfPantallaPrincipal.RefrescarUI; @@ -316,12 +318,6 @@ begin Result := pnlMain; end; -procedure TfPantallaPrincipal.Informacindeempresa1Click(Sender: TObject); -begin - if Assigned(AppFactuGES.EmpresaActiva) then - AppFactuGES.EmpresasController.Ver(AppFactuGES.EmpresaActiva); -end; - procedure TfPantallaPrincipal.InicializarUI; var AListaEmpresas : IBizEmpresa; @@ -619,4 +615,9 @@ begin AppFactuGES.Configurar; end; +procedure TfPantallaPrincipal.actInformacionEmpresaExecute(Sender: TObject); +begin + AppFactuGES.EmpresasController.Ver(AppFactuGES.EmpresaActiva); +end; + end. diff --git a/Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm b/Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm index 37eb8cb6..fe77f620 100644 --- a/Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm +++ b/Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm @@ -67,6 +67,7 @@ object PluginComisiones: TPluginComisiones Caption = 'Liquidaciones de comisiones' ImageIndex = 0 OnExecute = actComisionesExecute + OnUpdate = actComisionesUpdate end end object MainMenu: TMainMenu diff --git a/Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas b/Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas index 50e9f21e..6dc845d2 100644 --- a/Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas +++ b/Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas @@ -21,6 +21,7 @@ type Empresas1: TMenuItem; Comisiones1: TMenuItem; procedure actComisionesExecute(Sender: TObject); + procedure actComisionesUpdate(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -31,7 +32,7 @@ implementation {$R *.dfm} uses - Forms, Dialogs, SysUtils, + Forms, Dialogs, SysUtils, uFactuGES_App, uComisionesController, uBizComisiones, uComisionesViewRegister; function GetModule : TModuleController; @@ -52,6 +53,11 @@ begin AComisionesController.VerTodos(AComisiones); end; +procedure TPluginComisiones.actComisionesUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := Assigned(AppFactuGES.EmpresaActiva) +end; + constructor TPluginComisiones.Create(AOwner: TComponent); begin inherited; diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm index 7cefbc97..573910b5 100644 --- a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm +++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm @@ -282,6 +282,7 @@ object PluginContactos: TPluginContactos Caption = 'Vendedores' ImageIndex = 2 OnExecute = actVendedoresExecute + OnUpdate = actVendedoresUpdate end object actGruposCliente: TAction Caption = 'Grupos de cliente' diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas index a0a43cda..e7228635 100644 --- a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas +++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas @@ -40,6 +40,7 @@ type procedure actProcedenciasClienteExecute(Sender: TObject); function GetVistaConfiguracion : TClass; function GetEtiquetaConfiguracion : String; + procedure actVendedoresUpdate(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -54,7 +55,8 @@ uses uClientesController, uProveedoresController, uVendedoresController, uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente, uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente, - uContactosViewRegister, uBizContactos, uViewConfiguracionContactos; + uContactosViewRegister, uBizContactos, uViewConfiguracionContactos, + uFactuGES_App; function GetModule : TModuleController; begin @@ -132,6 +134,11 @@ begin AVendedoresController.VerTodos(AVendedores); end; +procedure TPluginContactos.actVendedoresUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := Assigned(AppFactuGES.EmpresaActiva) +end; + constructor TPluginContactos.Create(AOwner: TComponent); begin inherited; diff --git a/Source/Modulos/Referencias/Plugin/uPluginReferencias.dfm b/Source/Modulos/Referencias/Plugin/uPluginReferencias.dfm index efdf241a..f98d2d39 100644 --- a/Source/Modulos/Referencias/Plugin/uPluginReferencias.dfm +++ b/Source/Modulos/Referencias/Plugin/uPluginReferencias.dfm @@ -26,6 +26,7 @@ object PluginReferencias: TPluginReferencias Caption = 'Referencias' ImageIndex = 0 OnExecute = actReferenciasExecute + OnUpdate = actReferenciasUpdate end end object MainMenu: TMainMenu diff --git a/Source/Modulos/Referencias/Plugin/uPluginReferencias.pas b/Source/Modulos/Referencias/Plugin/uPluginReferencias.pas index 7def510b..4dffbd3b 100644 --- a/Source/Modulos/Referencias/Plugin/uPluginReferencias.pas +++ b/Source/Modulos/Referencias/Plugin/uPluginReferencias.pas @@ -22,6 +22,7 @@ type Referencias1: TMenuItem; N1: TMenuItem; procedure actReferenciasExecute(Sender: TObject); + procedure actReferenciasUpdate(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -32,7 +33,7 @@ implementation {$R *.dfm} uses - Forms, Dialogs, SysUtils, + Forms, Dialogs, SysUtils, uFactuGEs_App, uReferenciasController, uBizReferencias, uReferenciasViewRegister; function GetModule : TModuleController; @@ -53,6 +54,11 @@ begin AReferenciasController.VerTodos(AReferencias); end; +procedure TPluginReferencias.actReferenciasUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := Assigned(AppFactuGES.EmpresaActiva) +end; + constructor TPluginReferencias.Create(AOwner: TComponent); begin inherited; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 4650c83f..b209e392 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index ba974252..f2feeda2 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,284 +1,285 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse2260FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.7.0FactuGES (Servidor)2.2.7.0miércoles, 10 de diciembre de 2008 12:35 - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse2260FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.7.0FactuGES (Servidor)2.2.7.0miércoles, 10 de diciembre de 2008 12:35 + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +