Puesta en marcha de la parte de configuración del cliente.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@261 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
b43e3f4a65
commit
0f24be348b
Binary file not shown.
@ -53,13 +53,89 @@
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">ApplicationBase.dpk</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
@ -67,6 +143,35 @@
|
||||
<DelphiCompile Include="ApplicationBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\dxNavBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
|
||||
<DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
|
||||
<DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">
|
||||
<Form>fConfiguracionEditor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\Views\uViewConfiguracionBase.pas">
|
||||
<Form>frViewConfiguracionBase</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\Views\uViewConfiguracionGeneral.pas">
|
||||
<Form>frViewConfiguracionGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
|
||||
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
|
||||
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />
|
||||
@ -139,21 +244,7 @@
|
||||
<Form>frViewTiendas</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\adortl.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\Base.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\dbrtl.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\dsnap.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\dxThemeD11.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\GUIBase.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\JvJansD11R.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\rtl.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\vcl.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\vcldb.dcp" />
|
||||
<DCCReference Include="ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas" />
|
||||
<DCCReference Include="uFactuGES_App.pas" />
|
||||
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
|
||||
|
||||
Binary file not shown.
@ -0,0 +1,15 @@
|
||||
unit uIViewConfiguracionBase;
|
||||
|
||||
interface
|
||||
|
||||
type
|
||||
IViewConfiguracionBase = interface
|
||||
['{E9716327-4819-4B1F-8D21-D7CE17D7E48F}']
|
||||
procedure CargarValores;
|
||||
procedure GuardarValores;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -0,0 +1,180 @@
|
||||
unit uConfiguracionController;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIViewConfiguracionBase,
|
||||
uViewConfiguracionBase, uClassRegistryUtils, JvAppXMLStorage;
|
||||
|
||||
type
|
||||
IPluginConfigurable = interface
|
||||
['{30063608-BFD2-47B9-80FA-F10A5067AF82}']
|
||||
function GetVistaConfiguracion : TClass;
|
||||
function GetEtiquetaConfiguracion : String;
|
||||
end;
|
||||
|
||||
IConfiguracionController = interface(IObservador)
|
||||
['{F29215BA-0D34-4AE9-B9A9-C80ABF49A81D}']
|
||||
procedure ConfigurarAplicacion;
|
||||
procedure SalvarConfiguracion;
|
||||
procedure CargarConfiguracion;
|
||||
|
||||
function GetSettingAsString(const ASettingName: String; const ADefaultValue : String = ''): String;
|
||||
function GetSettingAsInteger(const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
|
||||
function GetSettingAsFloat(const ASettingName: String; const ADefaultValue : Float = 0): Float;
|
||||
function GetSettingAsBoolean(const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
|
||||
|
||||
procedure SetSettingAsString(const ASettingName: String; AValue : String);
|
||||
procedure SetSettingAsInteger(const ASettingName: String; AValue : Integer);
|
||||
procedure SetSettingAsFloat(const ASettingName: String; AValue : Float);
|
||||
procedure SetSettingAsBoolean(const ASettingName: String; AValue : Boolean);
|
||||
end;
|
||||
|
||||
TConfiguracionController = class(TObservador, IConfiguracionController)
|
||||
private
|
||||
FAppXMLFileStorage : TJvAppXMLFileStorage;
|
||||
public
|
||||
procedure SalvarConfiguracion;
|
||||
procedure CargarConfiguracion;
|
||||
procedure ConfigurarAplicacion;
|
||||
|
||||
function GetSettingAsString(const ASettingName: String; const ADefaultValue : String = ''): String;
|
||||
function GetSettingAsInteger(const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
|
||||
function GetSettingAsFloat(const ASettingName: String; const ADefaultValue : Float = 0): Float;
|
||||
function GetSettingAsBoolean(const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
|
||||
|
||||
procedure SetSettingAsString(const ASettingName: String; AValue : String);
|
||||
procedure SetSettingAsInteger(const ASettingName: String; AValue : Integer);
|
||||
procedure SetSettingAsFloat(const ASettingName: String; AValue : Float);
|
||||
procedure SetSettingAsBoolean(const ASettingName: String; AValue : Boolean);
|
||||
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Forms, uEditorConfiguracion, uViewConfiguracionGeneral,
|
||||
JvAppStorage, uAppInfoUtils, Controls, uViewConfiguracionRegistryUtils;
|
||||
|
||||
const
|
||||
CONFIG_INI_FILE = 'config.xml';
|
||||
|
||||
{ TGestorConfiguracion }
|
||||
|
||||
procedure TConfiguracionController.CargarConfiguracion;
|
||||
begin
|
||||
FAppXMLFileStorage.Reload;
|
||||
end;
|
||||
|
||||
procedure TConfiguracionController.ConfigurarAplicacion;
|
||||
var
|
||||
i: Integer;
|
||||
AViewList : TStringList;
|
||||
AEditor : TfConfiguracionEditor;
|
||||
AView : TfrViewConfiguracionBase;
|
||||
AEtiqueta : String;
|
||||
begin
|
||||
AViewList := TStringList.Create;
|
||||
try
|
||||
ViewConfiguracionRegistry.GetRegisteredClasses(AViewList);
|
||||
AEditor := TfConfiguracionEditor.Create(NIL);
|
||||
try
|
||||
for i := 0 to AViewList.Count - 1 do
|
||||
begin
|
||||
AEtiqueta := AViewList[i];
|
||||
AView := TfrViewConfiguracionBase(ViewConfiguracionRegistry.CreateView(AEtiqueta, AEditor));
|
||||
AEditor.AnadirVista(AView, AEtiqueta);
|
||||
end;
|
||||
|
||||
AEditor.CargarValores;
|
||||
if (AEditor.ShowModal = mrOK) then
|
||||
AEditor.GuardarValores;
|
||||
|
||||
finally
|
||||
FreeANDNIL(AEditor)
|
||||
end;
|
||||
finally
|
||||
FreeANDNIL(AViewList)
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TConfiguracionController.Create;
|
||||
begin
|
||||
inherited;
|
||||
FAppXMLFileStorage := TJvAppXMLFileStorage.Create(NIL);
|
||||
with FAppXMLFileStorage do
|
||||
begin
|
||||
StorageOptions.BooleanStringTrueValues := 'TRUE, YES, Y';
|
||||
StorageOptions.BooleanStringFalseValues := 'FALSE, NO, N';
|
||||
StorageOptions.InvalidCharReplacement := '_';
|
||||
Location := flUserFolder;
|
||||
RootNodeName := 'Configuration';
|
||||
FileName := 'Rodax Software' + PathDelim + GetAppName + PathDelim + CONFIG_INI_FILE;
|
||||
end;
|
||||
|
||||
ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionGeneral, 'General');
|
||||
end;
|
||||
|
||||
destructor TConfiguracionController.Destroy;
|
||||
begin
|
||||
FreeANDNIL(FAppXMLFileStorage);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TConfiguracionController.GetSettingAsBoolean(
|
||||
const ASettingName: String; const ADefaultValue: Boolean): Boolean;
|
||||
begin
|
||||
Result := FAppXMLFileStorage.ReadBoolean(ASettingName, ADefaultValue)
|
||||
end;
|
||||
|
||||
function TConfiguracionController.GetSettingAsFloat(const ASettingName: String;
|
||||
const ADefaultValue: Float): Float;
|
||||
begin
|
||||
Result := FAppXMLFileStorage.ReadFloat(ASettingName, ADefaultValue);
|
||||
end;
|
||||
|
||||
function TConfiguracionController.GetSettingAsInteger(
|
||||
const ASettingName: String; const ADefaultValue: Integer): Integer;
|
||||
begin
|
||||
Result := FAppXMLFileStorage.ReadInteger(ASettingName, ADefaultValue);
|
||||
end;
|
||||
|
||||
function TConfiguracionController.GetSettingAsString(const ASettingName,
|
||||
ADefaultValue: String): String;
|
||||
begin
|
||||
Result := FAppXMLFileStorage.ReadString(ASettingName, ADefaultValue);
|
||||
end;
|
||||
|
||||
procedure TConfiguracionController.SalvarConfiguracion;
|
||||
begin
|
||||
FAppXMLFileStorage.Flush;
|
||||
end;
|
||||
|
||||
procedure TConfiguracionController.SetSettingAsBoolean(
|
||||
const ASettingName: String; AValue: Boolean);
|
||||
begin
|
||||
FAppXMLFileStorage.WriteBoolean(ASettingName, AValue);
|
||||
end;
|
||||
|
||||
procedure TConfiguracionController.SetSettingAsFloat(const ASettingName: String;
|
||||
AValue: Float);
|
||||
begin
|
||||
FAppXMLFileStorage.WriteFloat(ASettingName, AValue);
|
||||
end;
|
||||
|
||||
procedure TConfiguracionController.SetSettingAsInteger(
|
||||
const ASettingName: String; AValue: Integer);
|
||||
begin
|
||||
FAppXMLFileStorage.WriteInteger(ASettingName, AValue);
|
||||
end;
|
||||
|
||||
procedure TConfiguracionController.SetSettingAsString(
|
||||
const ASettingName: String; AValue: String);
|
||||
begin
|
||||
FAppXMLFileStorage.WriteString(ASettingName, AValue);
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -0,0 +1,92 @@
|
||||
object fConfiguracionEditor: TfConfiguracionEditor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Configuraci'#243'n de FactuGES'
|
||||
ClientHeight = 524
|
||||
ClientWidth = 635
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object dxNavBar: TdxNavBar
|
||||
AlignWithMargins = True
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 150
|
||||
Height = 466
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 4
|
||||
Margins.Bottom = 8
|
||||
Align = alLeft
|
||||
ActiveGroupIndex = 0
|
||||
TabOrder = 0
|
||||
View = 17
|
||||
ViewStyle.ColorSchemeName = 'Blue'
|
||||
OptionsBehavior.SideBar.AllowSelectLinks = True
|
||||
OptionsView.Common.ShowGroupCaptions = False
|
||||
OptionsView.NavigationPane.ShowHeader = False
|
||||
OptionsView.NavigationPane.ShowOverflowPanel = False
|
||||
OnLinkClick = dxNavBarLinkClick
|
||||
object GroupCategorias: TdxNavBarGroup
|
||||
Caption = 'Categor'#237'as'
|
||||
SelectedLinkIndex = -1
|
||||
TopVisibleLinkIndex = 0
|
||||
Links = <>
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 482
|
||||
Width = 635
|
||||
Height = 42
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
DesignSize = (
|
||||
635
|
||||
42)
|
||||
object bCancelar: TButton
|
||||
Left = 552
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '&Cancelar'
|
||||
ModalResult = 2
|
||||
TabOrder = 0
|
||||
end
|
||||
object bAceptar: TButton
|
||||
Left = 471
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '&Aceptar'
|
||||
ModalResult = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object PageControlMain: TPageControl
|
||||
AlignWithMargins = True
|
||||
Left = 166
|
||||
Top = 6
|
||||
Width = 461
|
||||
Height = 468
|
||||
Margins.Left = 4
|
||||
Margins.Top = 6
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,112 @@
|
||||
unit uEditorConfiguracion;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
|
||||
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||||
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxNavBar2Painter, StdCtrls,
|
||||
ExtCtrls, cxControls, dxNavBar, dxNavBarCollns, cxClasses, dxNavBarBase,
|
||||
ComCtrls, uViewConfiguracionBase;
|
||||
|
||||
type
|
||||
TfConfiguracionEditor = class(TForm)
|
||||
dxNavBar: TdxNavBar;
|
||||
Panel2: TPanel;
|
||||
bCancelar: TButton;
|
||||
bAceptar: TButton;
|
||||
GroupCategorias: TdxNavBarGroup;
|
||||
PageControlMain: TPageControl;
|
||||
procedure dxNavBarLinkClick(Sender: TObject; ALink: TdxNavBarItemLink);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
FListaVistas : TStringList;
|
||||
public
|
||||
procedure CargarValores;
|
||||
procedure GuardarValores;
|
||||
procedure AnadirVista(AVista : TfrViewConfiguracionBase; const AEtiqueta : String);
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfConfiguracionEditor }
|
||||
|
||||
procedure TfConfiguracionEditor.AnadirVista(AVista: TfrViewConfiguracionBase;
|
||||
const AEtiqueta: String);
|
||||
var
|
||||
AItem : TdxNavBarItem;
|
||||
ATab : TTabSheet;
|
||||
begin
|
||||
if Assigned(AVista) then
|
||||
begin
|
||||
ATab := TTabSheet.Create(PageControlMain);
|
||||
ATab.PageControl := PageControlMain;
|
||||
ATab.TabVisible := False;
|
||||
|
||||
AVista.Parent := ATab;
|
||||
|
||||
AItem := dxNavBar.Items.Add;
|
||||
AItem.Tag := ATab.PageIndex;
|
||||
AItem.Caption := AEtiqueta;
|
||||
AItem.Name := 'ItemName' + IntToStr(ATab.PageIndex);
|
||||
dxNavBar.Groups.Items[0].CreateLink(AItem);
|
||||
|
||||
FListaVistas.AddObject(AEtiqueta, AVista);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfConfiguracionEditor.CargarValores;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
for I := 0 to FListaVistas.Count - 1 do
|
||||
TfrViewConfiguracionBase(FListaVistas.Objects[i]).CargarValores;
|
||||
end;
|
||||
|
||||
procedure TfConfiguracionEditor.dxNavBarLinkClick(Sender: TObject;
|
||||
ALink: TdxNavBarItemLink);
|
||||
var
|
||||
APageIndex : Integer;
|
||||
begin
|
||||
APageIndex := ALink.Item.Tag;
|
||||
if (APageIndex > -1) and (APageIndex < PageControlMain.PageCount) then
|
||||
PageControlMain.ActivePageIndex := APageIndex;
|
||||
end;
|
||||
|
||||
procedure TfConfiguracionEditor.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FListaVistas := TStringList.Create;
|
||||
end;
|
||||
|
||||
procedure TfConfiguracionEditor.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
FreeANDNIL(FListaVistas);
|
||||
end;
|
||||
|
||||
procedure TfConfiguracionEditor.FormShow(Sender: TObject);
|
||||
begin
|
||||
PageControlMain.ActivePageIndex := 0;
|
||||
dxNavBar.Groups[0].Links[0].Selected := True;
|
||||
end;
|
||||
|
||||
procedure TfConfiguracionEditor.GuardarValores;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
for I := 0 to FListaVistas.Count - 1 do
|
||||
TfrViewConfiguracionBase(FListaVistas.Objects[i]).GuardarValores;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
@ -0,0 +1,69 @@
|
||||
object frViewConfiguracionBase: TfrViewConfiguracionBase
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
AutoScroll = True
|
||||
TabOrder = 0
|
||||
object Panel1: TPanel
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 46
|
||||
Width = 441
|
||||
Height = 22
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 0
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
AutoSize = True
|
||||
BevelInner = bvSpace
|
||||
BevelOuter = bvNone
|
||||
Color = clInactiveCaptionText
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clHotLight
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
Padding.Left = 5
|
||||
Padding.Top = 3
|
||||
Padding.Right = 5
|
||||
Padding.Bottom = 3
|
||||
ParentBackground = False
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Label3: TLabel
|
||||
Left = 6
|
||||
Top = 4
|
||||
Width = 85
|
||||
Height = 14
|
||||
Align = alTop
|
||||
Caption = 'Configuraci'#243'n'
|
||||
end
|
||||
end
|
||||
object JvGradientHeaderPanel1: TJvGradientHeaderPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 46
|
||||
GradientStartColor = clInactiveCaptionText
|
||||
GradientEndColor = clNone
|
||||
GradientStyle = grVertical
|
||||
LabelLeft = 20
|
||||
LabelTop = 15
|
||||
LabelCaption = 'Configuraci'#243'n general'
|
||||
LabelFont.Charset = DEFAULT_CHARSET
|
||||
LabelFont.Color = clMenuText
|
||||
LabelFont.Height = -12
|
||||
LabelFont.Name = 'Tahoma'
|
||||
LabelFont.Style = []
|
||||
LabelAlignment = taLeftJustify
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
DoubleBuffered = True
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,28 @@
|
||||
unit uViewConfiguracionBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, StdCtrls, JvExControls, uIViewConfiguracionBase,
|
||||
JvGradientHeaderPanel;
|
||||
|
||||
type
|
||||
TfrViewConfiguracionBase = class(TFrame, IViewConfiguracionBase)
|
||||
Panel1: TPanel;
|
||||
Label3: TLabel;
|
||||
JvGradientHeaderPanel1: TJvGradientHeaderPanel;
|
||||
public
|
||||
class function GetViewClass : TClass; virtual; abstract;
|
||||
class function DarEtiqueta : String; virtual; abstract;
|
||||
procedure CargarValores; virtual; abstract;
|
||||
procedure GuardarValores; virtual; abstract;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewConfiguracionBase }
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -0,0 +1,211 @@
|
||||
inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
inherited Panel1: TPanel
|
||||
inherited Label3: TLabel
|
||||
Width = 429
|
||||
Caption = 'Apariencia'
|
||||
ExplicitWidth = 63
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 109
|
||||
Width = 441
|
||||
Height = 22
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 0
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
AutoSize = True
|
||||
BevelInner = bvSpace
|
||||
BevelOuter = bvNone
|
||||
Color = clInactiveCaptionText
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clHotLight
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
Padding.Left = 5
|
||||
Padding.Top = 3
|
||||
Padding.Right = 5
|
||||
Padding.Bottom = 3
|
||||
ParentBackground = False
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
object Label2: TLabel
|
||||
Left = 6
|
||||
Top = 4
|
||||
Width = 429
|
||||
Height = 14
|
||||
Align = alTop
|
||||
Caption = 'Seguridad'
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
end
|
||||
object Panel3: TPanel
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 68
|
||||
Width = 441
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 0
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 3
|
||||
object Label1: TLabel
|
||||
Left = 17
|
||||
Top = 14
|
||||
Width = 88
|
||||
Height = 13
|
||||
Caption = 'Esquema de color:'
|
||||
end
|
||||
object cbEsquemaColor: TComboBox
|
||||
Left = 111
|
||||
Top = 11
|
||||
Width = 168
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 0
|
||||
Text = 'cbEsquemaColor'
|
||||
end
|
||||
end
|
||||
object Panel4: TPanel
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 131
|
||||
Width = 441
|
||||
Height = 72
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 0
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 4
|
||||
object Label4: TLabel
|
||||
Left = 17
|
||||
Top = 43
|
||||
Width = 237
|
||||
Height = 13
|
||||
Caption = 'N'#186' m'#225'ximo de intentos de inicio de sesi'#243'n fallidos:'
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 17
|
||||
Top = 12
|
||||
Width = 336
|
||||
Height = 17
|
||||
Caption =
|
||||
'Recordar usuario y contrase'#241'a del '#250'ltimo inicio de sesi'#243'n v'#225'lido' +
|
||||
'.'
|
||||
TabOrder = 0
|
||||
end
|
||||
object edtNumIntentos: TcxSpinEdit
|
||||
Left = 260
|
||||
Top = 40
|
||||
Properties.ImmediatePost = True
|
||||
Properties.MaxValue = 10.000000000000000000
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Width = 45
|
||||
end
|
||||
end
|
||||
object Panel5: TPanel
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 203
|
||||
Width = 441
|
||||
Height = 22
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 0
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
AutoSize = True
|
||||
BevelInner = bvSpace
|
||||
BevelOuter = bvNone
|
||||
Color = clInactiveCaptionText
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clHotLight
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
Padding.Left = 5
|
||||
Padding.Top = 3
|
||||
Padding.Right = 5
|
||||
Padding.Bottom = 3
|
||||
ParentBackground = False
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
object Label5: TLabel
|
||||
Left = 6
|
||||
Top = 4
|
||||
Width = 429
|
||||
Height = 14
|
||||
Align = alTop
|
||||
Caption = 'Usuarios'
|
||||
ExplicitWidth = 51
|
||||
end
|
||||
end
|
||||
object Panel6: TPanel
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 225
|
||||
Width = 441
|
||||
Height = 72
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 0
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 6
|
||||
ExplicitTop = 224
|
||||
object lblLongMinPass: TLabel
|
||||
Left = 17
|
||||
Top = 43
|
||||
Width = 163
|
||||
Height = 13
|
||||
Caption = 'Longitud m'#237'nima de la contrase'#241'a:'
|
||||
end
|
||||
object cbPassObligatoria: TCheckBox
|
||||
Left = 17
|
||||
Top = 12
|
||||
Width = 262
|
||||
Height = 17
|
||||
Caption = 'Contrase'#241'a obligatoria para los usuarios'
|
||||
TabOrder = 0
|
||||
end
|
||||
object edtLongMinPass: TcxSpinEdit
|
||||
Left = 186
|
||||
Top = 40
|
||||
Properties.ImmediatePost = True
|
||||
Properties.MaxValue = 10.000000000000000000
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Width = 45
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,77 @@
|
||||
unit uViewConfiguracionGeneral;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewConfiguracionBase, StdCtrls, ExtCtrls, dxGDIPlusClasses,
|
||||
JvExControls, JvGradientHeaderPanel, Mask, dxSkinsCore, dxSkinBlack,
|
||||
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
|
||||
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
|
||||
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinXmas2008Blue, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
|
||||
cxSpinEdit;
|
||||
|
||||
type
|
||||
TfrViewConfiguracionGeneral = class(TfrViewConfiguracionBase)
|
||||
cbEsquemaColor: TComboBox;
|
||||
Label1: TLabel;
|
||||
Panel2: TPanel;
|
||||
Label2: TLabel;
|
||||
Panel3: TPanel;
|
||||
Panel4: TPanel;
|
||||
Label4: TLabel;
|
||||
CheckBox1: TCheckBox;
|
||||
edtNumIntentos: TcxSpinEdit;
|
||||
Panel5: TPanel;
|
||||
Label5: TLabel;
|
||||
Panel6: TPanel;
|
||||
lblLongMinPass: TLabel;
|
||||
cbPassObligatoria: TCheckBox;
|
||||
edtLongMinPass: TcxSpinEdit;
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
class function GetViewClass : TClass; override;
|
||||
class function DarEtiqueta : String; override;
|
||||
procedure CargarValores; override;
|
||||
procedure GuardarValores; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses uFactuGES_App;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewConfiguracionGeneral }
|
||||
|
||||
procedure TfrViewConfiguracionGeneral.CargarValores;
|
||||
begin
|
||||
inherited;
|
||||
edtLongMinPass.Text := AppFactuGES.Configuracion.GetSettingAsString('MinPasswordLength', '3');
|
||||
edtNumIntentos.Text := AppFactuGES.Configuracion.GetSettingAsString('MaxLoginAttempts', '3');
|
||||
cbPassObligatoria.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean('ForcePassword', True);
|
||||
end;
|
||||
|
||||
class function TfrViewConfiguracionGeneral.DarEtiqueta: String;
|
||||
begin
|
||||
Result := 'General';
|
||||
end;
|
||||
|
||||
class function TfrViewConfiguracionGeneral.GetViewClass: TClass;
|
||||
begin
|
||||
Result := TfrViewConfiguracionGeneral;
|
||||
end;
|
||||
|
||||
procedure TfrViewConfiguracionGeneral.GuardarValores;
|
||||
begin
|
||||
inherited;
|
||||
AppFactuGES.Configuracion.SetSettingAsString('MinPasswordLength', edtLongMinPass.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString('MaxLoginAttempts', edtNumIntentos.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsBoolean('ForcePassword', cbPassObligatoria.Checked);
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -2,10 +2,10 @@ unit uEjerciciosController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase,
|
||||
uBizEjercicios, uIDataModuleEjercicios;
|
||||
|
||||
type
|
||||
IEjerciciosController = interface(IObservador)
|
||||
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
|
||||
|
||||
@ -9,11 +9,19 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Ejercicios = '{773C8468-2B44-4968-A704-E0A34C02F5CA}';
|
||||
RID_darEjercicioActivo = '{68559186-9ED1-4884-8DF9-41250D6FE517}';
|
||||
RID_Ejercicios = '{DF458DDE-C3C4-4996-8F9D-48C58CA8BC14}';
|
||||
|
||||
{ Data table names }
|
||||
nme_darEjercicioActivo = 'darEjercicioActivo';
|
||||
nme_Ejercicios = 'Ejercicios';
|
||||
|
||||
{ darEjercicioActivo fields }
|
||||
fld_darEjercicioActivoID = 'ID';
|
||||
|
||||
{ darEjercicioActivo field indexes }
|
||||
idx_darEjercicioActivoID = 0;
|
||||
|
||||
{ Ejercicios fields }
|
||||
fld_EjerciciosID = 'ID';
|
||||
fld_EjerciciosID_EMPRESA = 'ID_EMPRESA';
|
||||
@ -41,9 +49,44 @@ const
|
||||
idx_EjerciciosACTIVO = 10;
|
||||
|
||||
type
|
||||
{ IdarEjercicioActivo }
|
||||
IdarEjercicioActivo = interface(IDAStronglyTypedDataTable)
|
||||
['{2A3446B7-E843-4491-ABAD-53295D49F75E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
end;
|
||||
|
||||
{ TdarEjercicioActivoDataTableRules }
|
||||
TdarEjercicioActivoDataTableRules = class(TIntfObjectDADataTableRules, IdarEjercicioActivo)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IEjercicios }
|
||||
IEjercicios = interface(IDAStronglyTypedDataTable)
|
||||
['{911EC4DB-1692-4398-AAA2-3127E0B1239C}']
|
||||
['{C260D056-8242-4264-BE09-82A833A7EABF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -200,6 +243,39 @@ implementation
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
|
||||
{ TdarEjercicioActivoDataTableRules }
|
||||
constructor TdarEjercicioActivoDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TdarEjercicioActivoDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TdarEjercicioActivoDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_darEjercicioActivoID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TdarEjercicioActivoDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_darEjercicioActivoID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TdarEjercicioActivoDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_darEjercicioActivoID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TdarEjercicioActivoDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_darEjercicioActivoID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TEjerciciosDataTableRules }
|
||||
constructor TEjerciciosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
@ -444,6 +520,7 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_darEjercicioActivo, TdarEjercicioActivoDataTableRules);
|
||||
RegisterDataTableRules(RID_Ejercicios, TEjerciciosDataTableRules);
|
||||
|
||||
end.
|
||||
|
||||
@ -9,12 +9,47 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_EjerciciosDelta = '{CDD1664B-E7FC-4A22-B77D-7FE7419A3314}';
|
||||
RID_darEjercicioActivoDelta = '{92BF2686-F344-464C-A6B2-AC5B79B3A840}';
|
||||
RID_EjerciciosDelta = '{8F263DB9-3ECD-4F2F-B263-867262A0AEA2}';
|
||||
|
||||
type
|
||||
{ IdarEjercicioActivoDelta }
|
||||
IdarEjercicioActivoDelta = interface(IdarEjercicioActivo)
|
||||
['{92BF2686-F344-464C-A6B2-AC5B79B3A840}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
end;
|
||||
|
||||
{ TdarEjercicioActivoBusinessProcessorRules }
|
||||
TdarEjercicioActivoBusinessProcessorRules = class(TDABusinessProcessorRules, IdarEjercicioActivo, IdarEjercicioActivoDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IEjerciciosDelta }
|
||||
IEjerciciosDelta = interface(IEjercicios)
|
||||
['{CDD1664B-E7FC-4A22-B77D-7FE7419A3314}']
|
||||
['{8F263DB9-3ECD-4F2F-B263-867262A0AEA2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -171,6 +206,49 @@ implementation
|
||||
uses
|
||||
Variants, uROBinaryHelpers, uDAInterfaces;
|
||||
|
||||
{ TdarEjercicioActivoBusinessProcessorRules }
|
||||
constructor TdarEjercicioActivoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TdarEjercicioActivoBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TdarEjercicioActivoBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_darEjercicioActivoID];
|
||||
end;
|
||||
|
||||
function TdarEjercicioActivoBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_darEjercicioActivoID]);
|
||||
end;
|
||||
|
||||
function TdarEjercicioActivoBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_darEjercicioActivoID];
|
||||
end;
|
||||
|
||||
function TdarEjercicioActivoBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_darEjercicioActivoID]);
|
||||
end;
|
||||
|
||||
procedure TdarEjercicioActivoBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_darEjercicioActivoID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TdarEjercicioActivoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_darEjercicioActivoID] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TEjerciciosBusinessProcessorRules }
|
||||
constructor TEjerciciosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
@ -525,6 +603,7 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_darEjercicioActivoDelta, TdarEjercicioActivoBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_EjerciciosDelta, TEjerciciosBusinessProcessorRules);
|
||||
|
||||
end.
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_EmpresasTiendas = '{1596A2D4-D5EA-4AB8-A87F-3472E14D95B7}';
|
||||
RID_Empresas = '{36C6A689-7D4A-45D8-AE4A-E7B1AC5D603D}';
|
||||
RID_EmpresasDatosBanco = '{EF50F778-8A79-4E98-A584-F7409D676979}';
|
||||
RID_EmpresasTiendas = '{7691DBC8-C1A5-4495-B66F-FADD68AF373A}';
|
||||
RID_Empresas = '{591782AE-DFE0-4EF5-9F14-6C24F113B6C6}';
|
||||
RID_EmpresasDatosBanco = '{770FD731-3914-4222-8C72-DE644036A8FD}';
|
||||
|
||||
{ Data table names }
|
||||
nme_EmpresasTiendas = 'EmpresasTiendas';
|
||||
@ -129,7 +129,7 @@ const
|
||||
type
|
||||
{ IEmpresasTiendas }
|
||||
IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
|
||||
['{5717EA22-3BD0-4D84-8C13-44878475A8A4}']
|
||||
['{5AB99CD0-0101-4D3C-B829-F8FA2D78ABA0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -344,7 +344,7 @@ type
|
||||
|
||||
{ IEmpresas }
|
||||
IEmpresas = interface(IDAStronglyTypedDataTable)
|
||||
['{8F3B7830-6A3B-4041-9226-8A4768462EEC}']
|
||||
['{A5EABBE6-C793-4CBD-B0D7-E460BACC895D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -643,7 +643,7 @@ type
|
||||
|
||||
{ IEmpresasDatosBanco }
|
||||
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
|
||||
['{F70DFC8E-6577-4105-A32D-B29CC4ED64F9}']
|
||||
['{CE9EA55E-D8DD-458D-99E0-65D68127E258}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_EmpresasTiendasDelta = '{78EE7516-DCC4-4DF7-862E-593572864080}';
|
||||
RID_EmpresasDelta = '{30CE5020-5913-4D58-BE4E-DF2E33A4BC6D}';
|
||||
RID_EmpresasDatosBancoDelta = '{E775BE8F-E903-49EE-A902-0644D3FB4CBC}';
|
||||
RID_EmpresasTiendasDelta = '{DCB989E4-D085-4440-B7AA-43454431AB6E}';
|
||||
RID_EmpresasDelta = '{FE56DEB0-3242-4852-8C8C-68B235BBB329}';
|
||||
RID_EmpresasDatosBancoDelta = '{89B3E6FF-5C24-4695-ADBD-2899BCA0879D}';
|
||||
|
||||
type
|
||||
{ IEmpresasTiendasDelta }
|
||||
IEmpresasTiendasDelta = interface(IEmpresasTiendas)
|
||||
['{78EE7516-DCC4-4DF7-862E-593572864080}']
|
||||
['{DCB989E4-D085-4440-B7AA-43454431AB6E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -231,7 +231,7 @@ type
|
||||
|
||||
{ IEmpresasDelta }
|
||||
IEmpresasDelta = interface(IEmpresas)
|
||||
['{30CE5020-5913-4D58-BE4E-DF2E33A4BC6D}']
|
||||
['{FE56DEB0-3242-4852-8C8C-68B235BBB329}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -531,7 +531,7 @@ type
|
||||
|
||||
{ IEmpresasDatosBancoDelta }
|
||||
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
|
||||
['{E775BE8F-E903-49EE-A902-0644D3FB4CBC}']
|
||||
['{89B3E6FF-5C24-4695-ADBD-2899BCA0879D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
|
||||
@ -102,6 +102,7 @@ type
|
||||
|
||||
procedure AsignarDataModule;
|
||||
procedure InicializarUserControl;
|
||||
procedure RecogerConfiguracion;
|
||||
function GetCurrentUser: IBizUsuario;
|
||||
|
||||
function AnadirUsuario(AUser : IBizUsuario): Boolean;
|
||||
@ -576,9 +577,7 @@ begin
|
||||
AutoStart := False;
|
||||
Criptografia := cMD5;
|
||||
CheckValidationKey := True;
|
||||
Login.MaxLoginAttempts := 3;
|
||||
UserPasswordChange.ForcePassword := True;
|
||||
UserPasswordChange.MinPasswordLength := 3;
|
||||
RecogerConfiguracion;
|
||||
end;
|
||||
FDataModule.InicializarUserControl(FUserControl);
|
||||
end;
|
||||
@ -678,6 +677,16 @@ begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TUsuariosController.RecogerConfiguracion;
|
||||
begin
|
||||
with FUserControl do
|
||||
begin
|
||||
Login.MaxLoginAttempts := AppFactuGES.Configuracion.GetSettingAsInteger('MaxLoginAttempts', 3);
|
||||
UserPasswordChange.ForcePassword := AppFactuGES.Configuracion.GetSettingAsBoolean('ForcePassword', True);
|
||||
UserPasswordChange.MinPasswordLength := AppFactuGES.Configuracion.GetSettingAsInteger('MinPasswordLength', 3);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TUsuariosController.SetMaxIntentosLogin(const Value: Integer);
|
||||
begin
|
||||
FUserControl.Login.MaxLoginAttempts := Value;
|
||||
@ -708,16 +717,23 @@ function TUsuariosController.ValidarPassword(const APassword : string;
|
||||
begin
|
||||
Result := False;
|
||||
AMsg := '';
|
||||
if (FUserControl.UserPasswordChange.ForcePassword) and (Length(Trim(APassword)) = 0) then
|
||||
AMsg := FUserControl.UserSettings.CommonMessages.ChangePasswordError.PasswordRequired
|
||||
else
|
||||
if (Length(Trim(APassword)) < FUserControl.UserPasswordChange.MinPasswordLength) then
|
||||
AMsg := Format(FUserControl.UserSettings.CommonMessages.ChangePasswordError.MinPasswordLength, [FUserControl.UserPasswordChange.MinPasswordLength])
|
||||
|
||||
RecogerConfiguracion;
|
||||
if (FUserControl.UserPasswordChange.ForcePassword) then
|
||||
begin
|
||||
if (Length(Trim(APassword)) = 0) then
|
||||
AMsg := FUserControl.UserSettings.CommonMessages.ChangePasswordError.PasswordRequired
|
||||
else
|
||||
if FUsarPasswordsSeguras and (Pos(LowerCase(APassword), 'abcdeasdfqwerzxcv1234567890321654987test' + LowerCase(ALogin) + LowerCase(AMsg)) > 0) then
|
||||
AMsg := FUserControl.UserSettings.CommonMessages.ChangePasswordError.InvalidNewPassword
|
||||
if (Length(Trim(APassword)) < FUserControl.UserPasswordChange.MinPasswordLength) then
|
||||
AMsg := Format(FUserControl.UserSettings.CommonMessages.ChangePasswordError.MinPasswordLength, [FUserControl.UserPasswordChange.MinPasswordLength])
|
||||
else
|
||||
Result := true;
|
||||
if FUsarPasswordsSeguras and (Pos(LowerCase(APassword), 'abcdeasdfqwerzxcv1234567890321654987test' + LowerCase(ALogin) + LowerCase(AMsg)) > 0) then
|
||||
AMsg := FUserControl.UserSettings.CommonMessages.ChangePasswordError.InvalidNewPassword
|
||||
else
|
||||
Result := True;
|
||||
end
|
||||
else
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function TUsuariosController.ValidarPerfil(APerfil: IBizPerfilUsuario): Boolean;
|
||||
|
||||
@ -4,7 +4,7 @@ interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, Forms, uBizUsuarios, uBizEmpresas, uBizEjercicios, uControllerBase,
|
||||
uEmpresasController, uUsuariosController, uHostManager;
|
||||
uEmpresasController, uUsuariosController, uHostManager, uConfiguracionController;
|
||||
|
||||
type
|
||||
TDoLoadModulesEvent = procedure;
|
||||
@ -33,7 +33,8 @@ type
|
||||
function GetEjercicioActivo: IBizEjercicio;
|
||||
function GetModuleManager : THostManager;
|
||||
function GetTerminated: Boolean;
|
||||
|
||||
function GetConfiguracionController : IConfiguracionController;
|
||||
|
||||
function GetLoadModulesEvent : TDoLoadModulesEvent;
|
||||
procedure SetLoadModulesEvent (ALoadModulesEvent : TDoLoadModulesEvent);
|
||||
|
||||
@ -52,6 +53,8 @@ type
|
||||
procedure Run;
|
||||
procedure Terminate;
|
||||
|
||||
procedure Configurar;
|
||||
|
||||
property AppVersion : String read GetAppVersion;
|
||||
property AppName : String read GetAppName;
|
||||
property AppFullName : String read GetAppFullName;
|
||||
@ -66,6 +69,7 @@ type
|
||||
property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent;
|
||||
property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
|
||||
property Terminated : Boolean read GetTerminated;
|
||||
property Configuracion : IConfiguracionController read GetConfiguracionController;
|
||||
|
||||
function getVAR_IDTIENDA : Integer;
|
||||
procedure setVAR_IDTIENDA (AValue : Integer);
|
||||
@ -88,6 +92,8 @@ type
|
||||
FUsuariosController: IUsuariosController;
|
||||
FEmpresaActiva: IBizEmpresa;
|
||||
FEjercicioActivo: IBizEjercicio;
|
||||
FConfiguracionController : IConfiguracionController;
|
||||
|
||||
FAppSplashForm : IAppSplashForm;
|
||||
FHostManager : THostManager;
|
||||
FTerminated : Boolean;
|
||||
@ -106,6 +112,7 @@ type
|
||||
function GetEjercicioActivo: IBizEjercicio;
|
||||
function GetModuleManager : THostManager;
|
||||
function GetTerminated: Boolean;
|
||||
function GetConfiguracionController : IConfiguracionController;
|
||||
|
||||
function GetLoadModulesEvent : TDoLoadModulesEvent;
|
||||
procedure SetLoadModulesEvent (ALoadModulesEvent : TDoLoadModulesEvent);
|
||||
@ -136,6 +143,8 @@ type
|
||||
procedure Run;
|
||||
procedure Terminate;
|
||||
|
||||
procedure Configurar;
|
||||
|
||||
procedure CambiarEmpresa(const AIDEmpresa : Integer);
|
||||
procedure CambiarEjercicio(const AIDEmpresa : Integer);
|
||||
|
||||
@ -153,7 +162,8 @@ type
|
||||
property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent;
|
||||
property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
|
||||
property Terminated : Boolean read GetTerminated;
|
||||
|
||||
property Configuracion : IConfiguracionController read GetConfiguracionController;
|
||||
|
||||
function getVAR_IDTIENDA : Integer;
|
||||
procedure setVAR_IDTIENDA (AValue : Integer);
|
||||
function getVAR_TIENDA : String;
|
||||
@ -203,8 +213,6 @@ begin
|
||||
Aux.DataTable.Active := True;
|
||||
if not Aux.IsEmpty then
|
||||
FEmpresaActiva := Aux;
|
||||
|
||||
|
||||
end;
|
||||
|
||||
//Establece el ejercicio activo de la empresa activa
|
||||
@ -219,6 +227,11 @@ begin
|
||||
FDoLoadModulesEvent();
|
||||
end;
|
||||
|
||||
procedure TAppFactuGES.Configurar;
|
||||
begin
|
||||
FConfiguracionController.ConfigurarAplicacion;
|
||||
end;
|
||||
|
||||
procedure TAppFactuGES.PonerTiendaPorDefecto;
|
||||
var
|
||||
AIdTienda: Integer;
|
||||
@ -227,7 +240,7 @@ begin
|
||||
//Nos devuelve el id de la tienda a la que pertenece el vendedor que tiene asignado
|
||||
//el usuario con el que ha accedido a la aplicación.
|
||||
//Esto funciona mientras la relación sea 1 a 1, cuando sea 1 a n (un usuario pertenece a varios vendedores deja de funcionar)
|
||||
UsuariosController.darIDTiendaVendedorUsuario(UsuarioActivo.ID, AIdTienda, ATienda);
|
||||
UsuariosController.DarIDTiendaVendedorUsuario(UsuarioActivo.ID, AIdTienda, ATienda);
|
||||
VAR_IDTIENDA := AIdTienda;
|
||||
VAR_TIENDA := ATienda;
|
||||
end;
|
||||
@ -249,6 +262,8 @@ begin
|
||||
// Ruta por defecto de los módulos
|
||||
BPLPath := ExtractFilePath(Application.ExeName) + PathDelim;
|
||||
end;
|
||||
|
||||
FConfiguracionController := TConfiguracionController.Create;
|
||||
end;
|
||||
|
||||
destructor TAppFactuGES.Destroy;
|
||||
@ -256,8 +271,11 @@ begin
|
||||
FAppSplashForm := NIL;
|
||||
|
||||
FHostManager.UnloadModules;
|
||||
|
||||
FreeAndNIL(FHostManager);
|
||||
|
||||
FConfiguracionController := NIL;
|
||||
|
||||
FEmpresaActiva := NIL;
|
||||
FUsuariosController := NIL;
|
||||
FEmpresasController := NIL;
|
||||
@ -303,6 +321,11 @@ begin
|
||||
Result := uAppInfoUtils.GetAppVersion;
|
||||
end;
|
||||
|
||||
function TAppFactuGES.GetConfiguracionController: IConfiguracionController;
|
||||
begin
|
||||
Result := FConfiguracionController;
|
||||
end;
|
||||
|
||||
function TAppFactuGES.GetEjercicioActivo: IBizEjercicio;
|
||||
begin
|
||||
Result := FEjercicioActivo;
|
||||
|
||||
Binary file not shown.
@ -51,6 +51,27 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -65,89 +86,75 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\IndyCore.dcp" />
|
||||
<DCCReference Include="..\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Jcl.dcp" />
|
||||
<DCCReference Include="..\JclVcl.dcp" />
|
||||
<DCCReference Include="..\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\pckMD5.dcp" />
|
||||
<DCCReference Include="..\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\VclSmp.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Conexion\uDataModuleConexion.pas">
|
||||
<Form>dmConexion</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uDataModuleConfiguracion.pas">
|
||||
<Form>dmConfiguracion</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Controladores\uControllerBase.pas" />
|
||||
<DCCReference Include="Controladores\uControllerDetallesBase.pas" />
|
||||
<DCCReference Include="schBase_Intf.pas" />
|
||||
<DCCReference Include="uDataModuleBase.pas">
|
||||
<Form>DataModuleBase</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDMBase.pas">
|
||||
<Form>dmBase</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\uAppInfoUtils.pas" />
|
||||
<DCCReference Include="Utiles\uCalculosUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDataTableUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDateUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDBSelectionListUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDialogUtils.pas" />
|
||||
<DCCReference Include="Utiles\uGridUtils.pas" />
|
||||
<DCCReference Include="Utiles\uInfoProjectUtils.pas" />
|
||||
<DCCReference Include="Utiles\uIntegerListUtils.pas" />
|
||||
<DCCReference Include="Utiles\uMD5.pas" />
|
||||
<DCCReference Include="Utiles\uNumUtils.pas" />
|
||||
<DCCReference Include="Utiles\uPasswordUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\GUIBase\adortl.dcp" />
|
||||
<DCCReference Include="..\GUIBase\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dbrtl.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\GUIBase\designide.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dsnap.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxDockingD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxNavBarD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinBlackD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinBlueD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinCaramelD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinCoffeeD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinGlassOceansD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkiniMaginaryD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinLilianD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinLondonLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinMcSkinD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinMoneyTwinsD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinOffice2007BlackD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinOffice2007BlueD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinOffice2007GreenD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinOffice2007PinkD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinOffice2007SilverD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinsCoreD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinsdxLCPainterD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinsdxNavBar2PainterD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinSilverD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinStardustD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinValentineD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxSkinXmas2008BlueD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\IndyCore.dcp" />
|
||||
<DCCReference Include="..\GUIBase\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\GUIBase\IndySystem.dcp" />
|
||||
<DCCReference Include="..\GUIBase\Jcl.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JclVcl.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\pckMD5.dcp" />
|
||||
<DCCReference Include="..\GUIBase\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\GUIBase\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\GUIBase\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\GUIBase\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\GUIBase\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\GUIBase\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\GUIBase\rtl.dcp" />
|
||||
<DCCReference Include="..\GUIBase\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\GUIBase\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\GUIBase\vcl.dcp" />
|
||||
<DCCReference Include="..\GUIBase\vclactnband.dcp" />
|
||||
<DCCReference Include="..\GUIBase\vcldb.dcp" />
|
||||
<DCCReference Include="..\GUIBase\vcljpg.dcp" />
|
||||
<DCCReference Include="..\GUIBase\VclSmp.dcp" />
|
||||
<DCCReference Include="..\GUIBase\vclx.dcp" />
|
||||
<DCCReference Include="..\GUIBase\xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -0,0 +1,51 @@
|
||||
unit uViewConfiguracionRegistryUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, Forms, uClassRegistryUtils;
|
||||
|
||||
type
|
||||
IViewConfiguracionRegistry = interface (IComponentRegistry)
|
||||
['{F9F580BA-B73E-4073-9AC6-6A63D3D93952}']
|
||||
function CreateView(const aClassOrDisplayname: String;
|
||||
aOwner: TComponent = nil): TFrame;
|
||||
end;
|
||||
|
||||
TViewConfiguracionRegistry = class(TComponentRegistry, IViewConfiguracionRegistry)
|
||||
protected
|
||||
procedure ValidateMinAcceptableClass(var aMinAcceptableClass: TClass); override;
|
||||
function CreateView( const aClassOrDisplayname: String;
|
||||
aOwner: TComponent = nil ): TFrame;
|
||||
public
|
||||
property Count;
|
||||
end;
|
||||
|
||||
var
|
||||
ViewConfiguracionRegistry : IViewConfiguracionRegistry;
|
||||
|
||||
implementation
|
||||
|
||||
{ TViewConfiguracionRegistry }
|
||||
|
||||
function TViewConfiguracionRegistry.CreateView(const aClassOrDisplayname: String;
|
||||
aOwner: TComponent): TFrame;
|
||||
begin
|
||||
Result := CreateComponent( aClassOrDisplayname, aOwner ) as TFrame;
|
||||
end;
|
||||
|
||||
procedure TViewConfiguracionRegistry.ValidateMinAcceptableClass(
|
||||
var aMinAcceptableClass: TClass);
|
||||
begin
|
||||
inherited;
|
||||
if not aMinAcceptableClass.InheritsFrom(TFrame) then
|
||||
aMinAcceptableClass := TFrame;
|
||||
end;
|
||||
|
||||
initialization
|
||||
ViewConfiguracionRegistry := TViewConfiguracionRegistry.Create;
|
||||
|
||||
finalization
|
||||
ViewConfiguracionRegistry := NIL;
|
||||
|
||||
end.
|
||||
@ -1750,7 +1750,7 @@ object dmBase: TdmBase
|
||||
object dxPrintStyleManager1: TdxPrintStyleManager
|
||||
CurrentStyle = dxPrintStyleManager1Style1
|
||||
Version = 0
|
||||
Left = 312
|
||||
Left = 272
|
||||
Top = 16
|
||||
object dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||
PrinterPage.DMPaper = 9
|
||||
@ -1785,4 +1785,12 @@ object dmBase: TdmBase
|
||||
BuiltInStyle = True
|
||||
end
|
||||
end
|
||||
object dxSkinController1: TdxSkinController
|
||||
Kind = lfOffice11
|
||||
NativeStyle = True
|
||||
SkinName = 'Office2007Blue'
|
||||
UseSkins = False
|
||||
Left = 272
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
|
||||
@ -7,7 +7,13 @@ uses
|
||||
TBXOffice2003Theme, Classes, ImgList,
|
||||
DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage, cxintl,
|
||||
JvComponentBase, cxIntlPrintSys3, JvLogFile, dxPSGlbl, dxPSUtl, dxPrnPg,
|
||||
dxBkgnd, dxWrap, dxPrnDev, dxPgsDlg, dxPSCore;
|
||||
dxBkgnd, dxWrap, dxPrnDev, dxPgsDlg, dxPSCore, dxSkinsCore, dxSkinBlack,
|
||||
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
|
||||
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
|
||||
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinXmas2008Blue, cxLookAndFeels, dxSkinsForm;
|
||||
|
||||
type
|
||||
TdmBase = class(TDataModule)
|
||||
@ -19,6 +25,7 @@ type
|
||||
cxIntl: TcxIntl;
|
||||
dxPrintStyleManager1: TdxPrintStyleManager;
|
||||
dxPrintStyleManager1Style1: TdxPSPrintStyle;
|
||||
dxSkinController1: TdxSkinController;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
private
|
||||
|
||||
@ -58,6 +58,54 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
|
||||
@ -70,7 +70,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Colors.FrameColor = 8684676
|
||||
Colors.ToolPanelHeaderColorFrom = clWhite
|
||||
Colors.ToolPanelHeaderColorTo = 12435133
|
||||
StyleManager = dmBase.StyleManager
|
||||
ParentStyleManager = False
|
||||
LargeImages = ModulesLargeImageList
|
||||
MaximizedCount = 1
|
||||
@ -299,6 +298,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
OnExecute = actVerBarraEstadoExecute
|
||||
OnUpdate = actVerBarraEstadoUpdate
|
||||
end
|
||||
object actConfigurar: TAction
|
||||
Category = 'Opciones'
|
||||
Caption = 'Configurar FactuGES...'
|
||||
OnExecute = actConfigurarExecute
|
||||
end
|
||||
end
|
||||
object ModulesSmallImageList: TPngImageList
|
||||
PngImages = <
|
||||
@ -586,9 +590,13 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Tag = -70000
|
||||
Caption = 'Opciones'
|
||||
object Configurarconexin2_OLD: TMenuItem
|
||||
Tag = 101
|
||||
Tag = 100
|
||||
Action = actConexion
|
||||
end
|
||||
object ConfigurarFactuGES1: TMenuItem
|
||||
Tag = 101
|
||||
Action = actConfigurar
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Tag = 2
|
||||
Caption = '-'
|
||||
|
||||
@ -89,6 +89,8 @@ type
|
||||
N9: TMenuItem;
|
||||
N10: TMenuItem;
|
||||
Contabilidad1: TMenuItem;
|
||||
actConfigurar: TAction;
|
||||
ConfigurarFactuGES1: TMenuItem;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure Salir1Click(Sender: TObject);
|
||||
procedure actSalirExecute(Sender: TObject);
|
||||
@ -113,6 +115,7 @@ type
|
||||
procedure Perfiles1Click(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure actConfigurarExecute(Sender: TObject);
|
||||
private
|
||||
FContenido : TCustomEditor;
|
||||
procedure ShowEmbedded(AEditor : ICustomEditor);
|
||||
@ -571,4 +574,9 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
procedure TfPantallaPrincipal.actConfigurarExecute(Sender: TObject);
|
||||
begin
|
||||
AppFactuGES.Configurar;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -18,6 +18,7 @@
|
||||
<Projects Include="Modulos\Articulos\Model\Articulos_model.dproj" />
|
||||
<Projects Include="Modulos\Articulos\Plugin\Articulos_plugin.dproj" />
|
||||
<Projects Include="Modulos\Articulos\Views\Articulos_view.dproj" />
|
||||
<Projects Include="Modulos\Contabilidad\Views\Contabilidad_view.dproj" />
|
||||
<Projects Include="Modulos\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="Modulos\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="Modulos\Contactos\Model\Contactos_model.dproj" />
|
||||
@ -411,14 +412,23 @@
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_view">
|
||||
<MSBuild Projects="Modulos\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_view:Clean">
|
||||
<MSBuild Projects="Modulos\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_view:Make">
|
||||
<MSBuild Projects="Modulos\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="FactuGES_Server;Base;GUIBase;ApplicationBase;FormasPago_model;FormasPago_data;FormasPago_controller;FormasPago_view;FormasPago_plugin;TiposIVA_model;TiposIVA_data;TiposIVA_controller;TiposIVA_view;TiposIVA_plugin;Familias_model;Familias_data;Familias_controller;Familias_view;Familias_plugin;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Almacenes_model;Almacenes_data;Almacenes_controller;Almacenes_view;Almacenes_plugin;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES" />
|
||||
<CallTarget Targets="FactuGES_Server;Base;GUIBase;ApplicationBase;FormasPago_model;FormasPago_data;FormasPago_controller;FormasPago_view;FormasPago_plugin;TiposIVA_model;TiposIVA_data;TiposIVA_controller;TiposIVA_view;TiposIVA_plugin;Familias_model;Familias_data;Familias_controller;Familias_view;Familias_plugin;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Almacenes_model;Almacenes_data;Almacenes_controller;Almacenes_view;Almacenes_plugin;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;Contabilidad_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="FactuGES_Server:Clean;Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FormasPago_model:Clean;FormasPago_data:Clean;FormasPago_controller:Clean;FormasPago_view:Clean;FormasPago_plugin:Clean;TiposIVA_model:Clean;TiposIVA_data:Clean;TiposIVA_controller:Clean;TiposIVA_view:Clean;TiposIVA_plugin:Clean;Familias_model:Clean;Familias_data:Clean;Familias_controller:Clean;Familias_view:Clean;Familias_plugin:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Almacenes_model:Clean;Almacenes_data:Clean;Almacenes_controller:Clean;Almacenes_view:Clean;Almacenes_plugin:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean" />
|
||||
<CallTarget Targets="FactuGES_Server:Clean;Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FormasPago_model:Clean;FormasPago_data:Clean;FormasPago_controller:Clean;FormasPago_view:Clean;FormasPago_plugin:Clean;TiposIVA_model:Clean;TiposIVA_data:Clean;TiposIVA_controller:Clean;TiposIVA_view:Clean;TiposIVA_plugin:Clean;Familias_model:Clean;Familias_data:Clean;Familias_controller:Clean;Familias_view:Clean;Familias_plugin:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Almacenes_model:Clean;Almacenes_data:Clean;Almacenes_controller:Clean;Almacenes_view:Clean;Almacenes_plugin:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;Contabilidad_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="FactuGES_Server:Make;Base:Make;GUIBase:Make;ApplicationBase:Make;FormasPago_model:Make;FormasPago_data:Make;FormasPago_controller:Make;FormasPago_view:Make;FormasPago_plugin:Make;TiposIVA_model:Make;TiposIVA_data:Make;TiposIVA_controller:Make;TiposIVA_view:Make;TiposIVA_plugin:Make;Familias_model:Make;Familias_data:Make;Familias_controller:Make;Familias_view:Make;Familias_plugin:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Almacenes_model:Make;Almacenes_data:Make;Almacenes_controller:Make;Almacenes_view:Make;Almacenes_plugin:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make" />
|
||||
<CallTarget Targets="FactuGES_Server:Make;Base:Make;GUIBase:Make;ApplicationBase:Make;FormasPago_model:Make;FormasPago_data:Make;FormasPago_controller:Make;FormasPago_view:Make;FormasPago_plugin:Make;TiposIVA_model:Make;TiposIVA_data:Make;TiposIVA_controller:Make;TiposIVA_view:Make;TiposIVA_plugin:Make;Familias_model:Make;Familias_data:Make;Familias_controller:Make;Familias_view:Make;Familias_plugin:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Almacenes_model:Make;Almacenes_data:Make;Almacenes_controller:Make;Almacenes_view:Make;Almacenes_plugin:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;Contabilidad_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -57,23 +57,23 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Views\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
Binary file not shown.
@ -73,8 +73,6 @@ uses
|
||||
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
|
||||
srvEjercicios_Impl in '..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas' {srvEjercicios: TDataAbstractService},
|
||||
uBizEjerciciosServer in '..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas',
|
||||
schEjerciciosServer_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas',
|
||||
schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
|
||||
srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
|
||||
uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas',
|
||||
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
|
||||
@ -99,8 +97,6 @@ uses
|
||||
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
|
||||
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
|
||||
uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
|
||||
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
|
||||
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
|
||||
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
|
||||
@ -125,7 +121,11 @@ uses
|
||||
schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
|
||||
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
|
||||
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule},
|
||||
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas' {srvProvinciasPoblaciones: TRORemoteDataModule};
|
||||
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas' {srvProvinciasPoblaciones: TRORemoteDataModule},
|
||||
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
|
||||
schEjerciciosServer_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -16,7 +16,7 @@ BEGIN
|
||||
VALUE "FileVersion", "2.2.3.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "2.2.3.0\0"
|
||||
VALUE "CompileDate", "miércoles, 25 de junio de 2008 14:12\0"
|
||||
VALUE "CompileDate", "jueves, 03 de julio de 2008 13:07\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user