From 32bd811f27d1a4b93355f47e4e6a8e287a7a7fc3 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 23 Dec 2008 09:09:51 +0000 Subject: [PATCH] =?UTF-8?q?General=20->=20revisi=C3=B3n=20de=20los=20menus?= =?UTF-8?q?=20que=20se=20quedaban=20activados=20cuando=20no=20hab=C3=ADa?= =?UTF-8?q?=20una=20empresa=20elegida.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@377 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/ApplicationBase/uFactuGES_App.pas | 2 +- Source/Base/Base.dproj | 90 +-- Source/Base/Base.res | Bin 384 -> 4748 bytes Source/Cliente/uPantallaPrincipal.dfm | 12 +- Source/Cliente/uPantallaPrincipal.pas | 21 +- .../Comisiones/Plugin/uPluginComisiones.dfm | 1 + .../Comisiones/Plugin/uPluginComisiones.pas | 8 +- .../Contactos/Plugin/uPluginContactos.dfm | 1 + .../Contactos/Plugin/uPluginContactos.pas | 9 +- .../Referencias/Plugin/uPluginReferencias.dfm | 1 + .../Referencias/Plugin/uPluginReferencias.pas | 8 +- Source/Servidor/FactuGES_Server.RES | Bin 23356 -> 23352 bytes Source/Servidor/FactuGES_Server.dproj | 561 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 14 files changed, 373 insertions(+), 343 deletions(-) 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 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 4650c83f3f263aadc16a6b0e06d442c74c848e5f..b209e39287ddd12b46329eb042427be45aeb1e9b 100644 GIT binary patch delta 76 zcmdn9jd8~|#tnBO7;PrsjgSYDeNelqUcM0T*Wg delta 80 zcmdn7jd9O5#tnBO7#$|xjgSYDef@SWey + - - {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
+ + + + + + + + + +