diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index ddac7161..4042672c 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -58,53 +58,53 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
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/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 4e94132f..58a2e850 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,13 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2250FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.5.0FactuGESFactuGES2.2.5.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2260FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.6.0FactuGESFactuGES2.2.6.0
+
+
+
+
+
+
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index f746e628..7e87a198 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index 07efa836..6d68be0b 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -312,6 +312,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
OnExecute = actMenuEmpresaExecute
OnUpdate = actMenuComprasUpdate
end
+ object actMenuInformes: TAction
+ Category = 'Menus'
+ Caption = 'Informes'
+ OnExecute = actMenuInformesExecute
+ OnUpdate = actMenuComprasUpdate
+ end
end
object ModulesSmallImageList: TPngImageList
PngImages = <
@@ -703,6 +709,10 @@ object fPantallaPrincipal: TfPantallaPrincipal
Tag = 6000
Action = actMenuContabilidad
end
+ object Informes1: TMenuItem
+ Tag = 7000
+ Action = actMenuInformes
+ end
end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
SelectionFrameBrush.Color = 13811126
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index f3691dec..c5d98708 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -93,6 +93,8 @@ type
ConfigurarFactuGES1: TMenuItem;
actMenuContabilidad: TAction;
actMenuEmpresa: TAction;
+ Informes1: TMenuItem;
+ actMenuInformes: TAction;
procedure FormCreate(Sender: TObject);
procedure Salir1Click(Sender: TObject);
procedure actSalirExecute(Sender: TObject);
@@ -120,6 +122,7 @@ type
procedure actConfigurarExecute(Sender: TObject);
procedure actMenuContabilidadExecute(Sender: TObject);
procedure actMenuEmpresaExecute(Sender: TObject);
+ procedure actMenuInformesExecute(Sender: TObject);
private
FContenido : TCustomEditor;
procedure ShowEmbedded(AEditor : ICustomEditor);
@@ -378,6 +381,11 @@ begin
//
end;
+procedure TfPantallaPrincipal.actMenuInformesExecute(Sender: TObject);
+begin
+ //
+end;
+
procedure TfPantallaPrincipal.actMenuLogisticaExecute(Sender: TObject);
begin
//