diff --git a/Source/Base/Base.dcu b/Source/Base/Base.dcu deleted file mode 100644 index 5ac21cea..00000000 Binary files a/Source/Base/Base.dcu and /dev/null differ diff --git a/Source/Base/Base.identcache b/Source/Base/Base.identcache deleted file mode 100644 index 8c57b242..00000000 Binary files a/Source/Base/Base.identcache and /dev/null differ diff --git a/Source/Base/ClassRegistry/uClassRegistryUtils.pas b/Source/Base/ClassRegistry/uClassRegistryUtils.pas deleted file mode 100644 index d7b679df..00000000 --- a/Source/Base/ClassRegistry/uClassRegistryUtils.pas +++ /dev/null @@ -1,336 +0,0 @@ -unit uClassRegistryUtils; - -interface - -uses - Classes, SysUtils, Forms, uGUIBase; - -type - IClassRegistry = Interface - ['{FD23C946-4103-4C67-9C3F-644B52826833}'] - procedure RegisterClass( aClass: TClass; const aDisplayname: String = ''); - procedure RegisterClasses( const aClasses: array of TClass; - const aDisplaynames: array of String ); - procedure UnRegisterClass( aClass: TClass ); - function FindClass( const aClassOrDisplayname: String ): Tclass; - function IsClassRegistered( aClass: TClass ): Boolean; overload; - function IsClassRegistered( const aDisplayname: String ): Boolean; overload; - procedure GetRegisteredClasses( aList: TStrings; aMinClass: TClass = nil); - function CreateObject( const aClassOrDisplayname: String ): TObject; - end; - - IComponentRegistry = Interface( IClassRegistry ) - ['{04BAA01F-9AF4-4E60-9922-641E127A35C2}'] - function CreateComponent( const aClassOrDisplayname: String; - aOwner:TComponent = nil ): TComponent; - end; - - IFormRegistry = Interface( IComponentRegistry ) - ['{28E3BF72-1378-4136-B1FB-027FBB8FE99B}'] - function CreateForm( const aClassOrDisplayname: String; - aOwner: TComponent = nil ): TForm; - end; - - IDataModuleRegistry = Interface( IComponentRegistry ) - ['{9D8D1D23-6A5C-4351-9393-093CD8B76788}'] - function CreateDatamodule( const aClassOrDisplayname: String; - aOwner: TComponent = nil ): TDatamodule; - end; - - IReportRegistry = Interface( IComponentRegistry ) - ['{49D3C8D5-8FEE-4F15-A6D2-51CB1DB29F8D}'] - function CreateReport( const aClassOrDisplayname: String; - aOwner: TComponent = nil ): TInterfacedObject; - end; - - TClassRegistry = class( TInterfacedObject, IClassRegistry ) - private - FList: TStringlist; - FMinAcceptableClass: TClass; - - function FindClassByClassname( const aClassname: String ): Tclass; - function FindClassByDisplayname( const aDisplayname: String ): TClass; - function IsClassAcceptable( aClass: TClass ): Boolean; - function GetClasses(index: integer): TClass; - function GetCount: Integer; - protected - procedure ValidateMinAcceptableClass(var aMinAcceptableClass: TClass ); virtual; - procedure RegisterClass( aClass: TClass; const aDisplayname: String = ''); - procedure RegisterClasses( const aClasses: array of TClass; - const aDisplaynames: array of String ); - procedure UnRegisterClass( aClass: TClass ); - function FindClass( const aClassOrDisplayname: String ): Tclass; - function IsClassRegistered( aClass: TClass ): Boolean; overload; - function IsClassRegistered( const aDisplayname: String ): Boolean; overload; - procedure GetRegisteredClasses( aList: TStrings; aMinClass: TClass = nil); - function CreateObject( const aClassOrDisplayname: String ): TObject; - property MinAcceptableClass: TClass read FMinAcceptableClass; - property List: TStringlist read FList; - property Count: Integer read GetCount; - property Classes[ index: integer ]: TClass read GetClasses; - public - constructor Create( minAcceptableClass: TClass = nil ); virtual; - destructor Destroy; override; - end; - - TComponentRegistry = class( TClassRegistry, IComponentRegistry ) - protected - procedure ValidateMinAcceptableClass(var aMinAcceptableClass: TClass ); override; - function CreateComponent( const aClassOrDisplayname: String; - aOwner: TComponent = nil ): TComponent; - end; - - TFormRegistry = class( TComponentRegistry, IFormRegistry ) - protected - procedure ValidateMinAcceptableClass(var aMinAcceptableClass: TClass ); override; - function CreateForm( const aClassOrDisplayname: String; - aOwner: TComponent = nil ): TForm; - end; - - TDataModuleRegistry = class( TComponentRegistry, IDataModuleRegistry ) - protected - procedure ValidateMinAcceptableClass(var aMinAcceptableClass: TClass); override; - function CreateDatamodule( const aClassOrDisplayname: String; - aOwner: TComponent = nil ): TDatamodule; - end; - - TReportRegistry = class( TComponentRegistry, IReportRegistry ) - protected - procedure ValidateMinAcceptableClass(var aMinAcceptableClass: TClass ); override; - function CreateReport( const aClassOrDisplayname: String; - aOwner: TComponent = nil ): TInterfacedObject; - end; - - EClassRegistryError = class( Exception ); - -implementation - -{ TClassRegistry } - -ResourceString - eClassnotFound = 'Class "%s" was not found in the registry.'; - -constructor TClassRegistry.Create(minAcceptableClass: TClass); -begin - inherited Create; - FList := Tstringlist.Create; - ValidateMinAcceptableClass( minAcceptableClass ); - FMinAcceptableClass := minAcceptableClass; -end; - -function TClassRegistry.CreateObject( - const aClassOrDisplayname: String): TObject; -begin - Result := FindClass( aClassOrDisplayname ).Create; -end; - -destructor TClassRegistry.Destroy; -begin - Flist.Free; - inherited; -end; - -function TClassRegistry.FindClass( - const aClassOrDisplayname: String): Tclass; -begin - Result := FindClassByDisplayname( aClassOrDisplayname ); - If not Assigned( Result ) Then - Result := FindClassByClassname( aClassOrDisplayname ); - If not Assigned( Result ) Then - raise EClassRegistryError.CreateFmt - ( eClassnotFound, [ aClassOrDisplayname ] ); -end; - -function TClassRegistry.FindClassByClassname( - const aClassname: String): Tclass; -var - i: Integer; -begin - for i:= 0 to count-1 do begin - Result := classes[i]; - If Result.ClassNameIs( aClassname ) Then - Exit; - end; - Result := nil; -end; - -function TClassRegistry.FindClassByDisplayname( - const aDisplayname: String): TClass; -var - i: Integer; -begin - i:= List.IndexOf( aDisplayname ); - If i >= 0 Then - Result := Classes[i] - Else - Result := nil; -end; - -function TClassRegistry.GetClasses(index: integer): TClass; -begin - Result := TClass( List.Objects[index] ); -end; - -function TClassRegistry.GetCount: Integer; -begin - Result := List.Count; -end; - -procedure TClassRegistry.GetRegisteredClasses(aList: TStrings; - aMinClass: TClass); -var - i: Integer; - aClass: TClass; -begin - Assert( Assigned( aList )); - aList.BeginUpdate; - try - aList.Clear; - If not Assigned( aMinClass ) Then - aList.Assign( List ) - else begin - For i:= 0 To Count-1 Do Begin - aClass := Classes[i]; - If aClass.InheritsFrom( aMinClass ) Then - aList.AddObject( List[i], TObject( aClass )); - end; - end; - finally - aList.EndUpdate - end; -end; - -function TClassRegistry.IsClassAcceptable(aClass: TClass): Boolean; -begin - Result := Assigned( aClass ) and - aClass.InheritsFrom( MinAcceptableClass ); -end; - -function TClassRegistry.IsClassRegistered(const aDisplayname: String): Boolean; -begin - Result := List.IndexOf(aDisplayname) >= 0; -end; - -function TClassRegistry.IsClassRegistered(aClass: TClass): Boolean; -begin - Result := List.IndexOfObject( TObject( aClass )) >= 0; -end; - -procedure TClassRegistry.RegisterClass(aClass: TClass; - const aDisplayname: String); -begin - Assert( Assigned( aClass ), 'Cannot register Nil class' ); - If aDisplayname = '' Then - RegisterClass( aClass, aClass.Classname ) - else begin - Assert( IsClassAcceptable( aClass ), - format('Cannot register %s since it does not inherit from %s', - [aclass.classname, MinAcceptableClass.classname] )); - Assert( not IsClassRegistered( aClass ), - Format('Class %s is already registered.', [aClass.Classname])); - List.AddObject( aDisplayname, TObject( aClass )); - end; -end; - -procedure TClassRegistry.RegisterClasses(const aClasses: array of TClass; - const aDisplaynames: array of String); -var - i: Integer; -begin - Assert( High( aClasses ) = High( aDisplaynames ), - 'Size of both parameter arrays has to be the same.' ); - for i:= Low( aClasses ) to High( aClasses ) do - RegisterClass( aClasses[i], aDisplaynames[i] ); -end; - -procedure TClassRegistry.UnRegisterClass(aClass: TClass); -var - i: Integer; -begin - i:= List.IndexOfObject( TObject( aClass )); - If i >= 0 Then - List.Delete( i ); - // does not consider attempt to unregister a class that is not - // registered as an error. -end; - -procedure TClassRegistry.ValidateMinAcceptableClass( - var aMinAcceptableClass: TClass); -begin - If not Assigned( aMinAcceptableClass ) Then - aMinAcceptableClass := TObject; -end; - -{ TComponentRegistry } - -function TComponentRegistry.CreateComponent( - const aClassOrDisplayname: String; aOwner: TComponent): TComponent; -var - aClass: TComponentClass; -begin - aClass := TComponentClass( FindClass( aClassOrDisplayname )); - Result := aClass.Create( aOwner ); -end; - -procedure TComponentRegistry.ValidateMinAcceptableClass( - var aMinAcceptableClass: TClass); -begin - inherited; - If not aMinAcceptableClass.InheritsFrom( TComponent ) - Then - aMinAcceptableClass := TComponent; -end; - -{ TFormRegistry } - -function TFormRegistry.CreateForm(const aClassOrDisplayname: String; - aOwner: TComponent): TForm; -begin - Result := CreateComponent( aClassOrDisplayname, aOwner ) As TForm; -end; - -procedure TFormRegistry.ValidateMinAcceptableClass( - var aMinAcceptableClass: TClass); -begin - inherited; - If not aMinAcceptableClass.InheritsFrom( TForm ) - Then - aMinAcceptableClass := TForm; -end; - -{ TDataModuleRegistry } - -function TDataModuleRegistry.CreateDatamodule( - const aClassOrDisplayname: String; aOwner: TComponent): TDatamodule; -begin - Result := CreateComponent( aClassOrDisplayname, aOwner ) As TDatamodule; -end; - -procedure TDataModuleRegistry.ValidateMinAcceptableClass( - var aMinAcceptableClass: TClass); -begin - inherited; - If not aMinAcceptableClass.InheritsFrom( TDatamodule ) - Then - aMinAcceptableClass := TDatamodule; -end; - -{ TReportRegistry } - -function TReportRegistry.CreateReport(const aClassOrDisplayname: String; - aOwner: TComponent): TInterfacedObject; -begin - Result := CreateObject( aClassOrDisplayname) As TInterfacedObject; -// Result := CreateComponent( aClassOrDisplayname, aOwner ) As TInterfacedObject; -end; - -procedure TReportRegistry.ValidateMinAcceptableClass( - var aMinAcceptableClass: TClass); -begin - inherited; - If not aMinAcceptableClass.InheritsFrom( TInterfacedObject ) - Then - aMinAcceptableClass := TInterfacedObject; -end; - -end. diff --git a/Source/Base/ClassRegistry/uEditorRegistryUtils.pas b/Source/Base/ClassRegistry/uEditorRegistryUtils.pas deleted file mode 100644 index 0dd7333c..00000000 --- a/Source/Base/ClassRegistry/uEditorRegistryUtils.pas +++ /dev/null @@ -1,81 +0,0 @@ -unit uEditorRegistryUtils; - -interface - -uses - Classes, Forms, uClassRegistryUtils, uCustomEditor; - -type -{ - IEditorRegistry = interface (IComponentRegistry) - 22F14B82-AC61-4987-847E-AF8513DE2A10 - function CreateEditor(const aClassOrDisplayname: String; - aOwner: TComponent = NIL): TCustomEditor; - end; - - TEditorRegistry = class(TComponentRegistry, IEditorRegistry) - protected - procedure ValidateMinAcceptableClass(var aMinAcceptableClass: TClass); override; - function CreateEditor(const aClassOrDisplayname: String; - aOwner: TComponent = nil): TCustomEditor; - end; -} - - IEditorRegistry = interface (IFormRegistry) - ['{F6AC050F-5547-4E1F-AA44-DA0D06EDA4D7}'] - function CreateEditor(const aClassOrDisplayname: String; - aOwner: TComponent = NIL): TForm; - end; - - TEditorRegistry = class(TFormRegistry, IEditorRegistry) - protected - function CreateEditor(const aClassOrDisplayname: String; - aOwner: TComponent = nil): TForm; - end; - -function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; - -var - EditorRegistry : IEditorRegistry; - -implementation - -uses - SysUtils, cxControls; - -function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; -begin - ShowHourglassCursor; - try - Result := Supports(EditorRegistry.CreateEditor(AName, Application), IID, Intf); - finally - HideHourglassCursor; - end; -end; - - -{ TEditorRegistry } - -function TEditorRegistry.CreateEditor(const aClassOrDisplayname: String; - aOwner: TComponent): TForm; -begin - if not Assigned(AOwner) then - AOwner := Application; - Result := CreateComponent( aClassOrDisplayname, aOwner ) as TForm; -end; - -{procedure TEditorRegistry.ValidateMinAcceptableClass( - var aMinAcceptableClass: TClass); -begin - inherited; - if not aMinAcceptableClass.InheritsFrom(TCustomEditor) then - aMinAcceptableClass := TCustomEditor; -end;} - -initialization - EditorRegistry := TEditorRegistry.Create; - -finalization - EditorRegistry := NIL; - -end. diff --git a/Source/Base/ClassRegistry/uInformeRegistryUtils.pas b/Source/Base/ClassRegistry/uInformeRegistryUtils.pas deleted file mode 100644 index f8a58c58..00000000 --- a/Source/Base/ClassRegistry/uInformeRegistryUtils.pas +++ /dev/null @@ -1,59 +0,0 @@ -unit uInformeRegistryUtils; - -interface - -uses - Classes, Forms, uClassRegistryUtils; - -type - IInformeRegistry = interface (IReportRegistry) - ['{F6AC050F-5547-4E1F-AA44-DA0D06EDA4D7}'] - function CreateInforme(const aClassOrDisplayname: String; - aOwner: TComponent = NIL): TInterfacedObject; - end; - - TInformeRegistry = class(TReportRegistry, IInformeRegistry) - protected - function CreateInforme(const aClassOrDisplayname: String; - aOwner: TComponent = nil): TInterfacedObject; - end; - -function CreateInforme(const AName: String; const IID: TGUID; out Intf): Boolean; - -var - InformeRegistry : IInformeRegistry; - -implementation - -uses - SysUtils, cxControls; - -function CreateInforme(const AName: String; const IID: TGUID; out Intf): Boolean; -begin - ShowHourglassCursor; - try - Result := Supports(InformeRegistry.CreateInforme(AName, Application), IID, Intf); - finally - HideHourglassCursor; - end; -end; - - -{ TInformeRegistry } - -function TInformeRegistry.CreateInforme(const aClassOrDisplayname: String; - aOwner: TComponent): TInterfacedObject; -begin - if not Assigned(AOwner) then - AOwner := Application; - Result := CreateObject( aClassOrDisplayname) as TInterfacedObject; -end; - - -initialization - InformeRegistry := TInformeRegistry.Create; - -finalization - InformeRegistry := NIL; - -end. diff --git a/Source/Base/ClassRegistry/uViewRegistryUtils.pas b/Source/Base/ClassRegistry/uViewRegistryUtils.pas deleted file mode 100644 index 458a6810..00000000 --- a/Source/Base/ClassRegistry/uViewRegistryUtils.pas +++ /dev/null @@ -1,50 +0,0 @@ -unit uViewRegistryUtils; - -interface - -uses - Classes, Forms, uClassRegistryUtils, uCustomView; - -type - IViewRegistry = interface (IComponentRegistry) - ['{F49AE52F-47EC-42AF-8365-A09270E4B45D}'] - function CreateView(const aClassOrDisplayname: String; - aOwner: TComponent = nil): TCustomView; - end; - - - TViewRegistry = class(TComponentRegistry, IViewRegistry) - protected - procedure ValidateMinAcceptableClass(var aMinAcceptableClass: TClass); override; - function CreateView( const aClassOrDisplayname: String; - aOwner: TComponent = nil ): TCustomView; - end; - -var - ViewRegistry : IViewRegistry; - -implementation - -{ TViewRegistry } - -function TViewRegistry.CreateView(const aClassOrDisplayname: String; - aOwner: TComponent): TCustomView; -begin - Result := CreateComponent( aClassOrDisplayname, aOwner ) as TCustomView; -end; - -procedure TViewRegistry.ValidateMinAcceptableClass( - var aMinAcceptableClass: TClass); -begin - inherited; - if not aMinAcceptableClass.InheritsFrom(TCustomView) then - aMinAcceptableClass := TCustomView; -end; - -initialization - ViewRegistry := TViewRegistry.Create; - -finalization - ViewRegistry := NIL; - -end. diff --git a/Source/Base/ControllerBase.drc b/Source/Base/ControllerBase.drc deleted file mode 100644 index 09081cc2..00000000 --- a/Source/Base/ControllerBase.drc +++ /dev/null @@ -1,21 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x4c", "\x00", "\x69", "\x00", "\x62", "\x00", "\x72", "\x00", /* 0000: L.i.b.r. */ - "\x65", "\x00", "\x72", "\x00", "\x69", "\x00", "\x61", "\x00", /* 0008: e.r.i.a. */ - "\x20", "\x00", "\x62", "\x00", "\x61", "\x00", "\x73", "\x00", /* 0010: .b.a.s. */ - "\x65", "\x00", "\x20", "\x00", "\x64", "\x00", "\x65", "\x00", /* 0018: e. .d.e. */ - "\x20", "\x00", "\x46", "\x00", "\x61", "\x00", "\x63", "\x00", /* 0020: .F.a.c. */ - "\x74", "\x00", "\x75", "\x00", "\x47", "\x00", "\x45", "\x00", /* 0028: t.u.G.E. */ - "\x53", "\x00", "\x00", "\x00" /* 0030: S... */ -END - diff --git a/Source/Base/ControllerBase/ControllerBase.bdsproj b/Source/Base/ControllerBase/ControllerBase.bdsproj deleted file mode 100644 index 3d57f918..00000000 --- a/Source/Base/ControllerBase/ControllerBase.bdsproj +++ /dev/null @@ -1,492 +0,0 @@ - - - - - - - - - - - - ControllerBase.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - True - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\Output\Debug\Cliente - ..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Source/Base/ControllerBase/ControllerBase.dcu b/Source/Base/ControllerBase/ControllerBase.dcu deleted file mode 100644 index 43f5e591..00000000 Binary files a/Source/Base/ControllerBase/ControllerBase.dcu and /dev/null differ diff --git a/Source/Base/ControllerBase/ControllerBase.dpk b/Source/Base/ControllerBase/ControllerBase.dpk deleted file mode 100644 index 36c3d82c..00000000 --- a/Source/Base/ControllerBase/ControllerBase.dpk +++ /dev/null @@ -1,44 +0,0 @@ -package ControllerBase; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - dbrtl, - dsnap, - vcldb, - adortl, - RemObjects_Core_D10, - DataAbstract_Core_D10, - cxLibraryD10, - dxThemeD10; - -contains - uControllerBase in 'uControllerBase.pas', - uControllerDetallesBase in 'uControllerDetallesBase.pas', - uControllerDetallesDTO in 'uControllerDetallesDTO.pas'; - -end. diff --git a/Source/Base/ControllerBase/ControllerBase.dpk.bak b/Source/Base/ControllerBase/ControllerBase.dpk.bak deleted file mode 100644 index c36c8d27..00000000 --- a/Source/Base/ControllerBase/ControllerBase.dpk.bak +++ /dev/null @@ -1,44 +0,0 @@ -package ControllerBase; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} - -requires - rtl, - vcl, - dbrtl, - dsnap, - vcldb, - adortl, - RemObjects_Core_D10, - DataAbstract_Core_D10, - cxLibraryD10, - dxThemeD10; - -contains - uControllerBase in 'uControllerBase.pas', - uControllerDetallesBase in 'uControllerDetallesBase.pas', - uControllerDetallesDTO in 'uControllerDetallesDTO.pas'; - -end. diff --git a/Source/Base/ControllerBase/ControllerBase.dproj b/Source/Base/ControllerBase/ControllerBase.dproj deleted file mode 100644 index 831c8ea4..00000000 --- a/Source/Base/ControllerBase/ControllerBase.dproj +++ /dev/null @@ -1,556 +0,0 @@ - - - {ef3998e7-b579-4a14-9e7a-6cddb582b1c7} - ControllerBase.dpk - Debug - AnyCPU - DCC32 - ..\..\..\Output\Debug\Cliente\ControllerBase.bpl - - - 7.0 - False - False - False - True - 0 - 3 - True - True - .\ - .\ - .\ - ..\..\..\Output\Debug\Cliente - ..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - RELEASE - - - 7.0 - False - True - 3 - True - True - .\ - .\ - .\ - ..\..\..\Output\Debug\Cliente - ..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0ControllerBase.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - diff --git a/Source/Base/ControllerBase/ControllerBase.drc b/Source/Base/ControllerBase/ControllerBase.drc deleted file mode 100644 index 57eea9f2..00000000 --- a/Source/Base/ControllerBase/ControllerBase.drc +++ /dev/null @@ -1,16 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* C:\Codigo Tecsitel\Source\Base\ControllerBase\ControllerBase.res */ -/* C:\Codigo Tecsitel\Source\Base\ControllerBase\ControllerBase.drf */ diff --git a/Source/Base/ControllerBase/ControllerBase.rc b/Source/Base/ControllerBase/ControllerBase.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Base/ControllerBase/ControllerBase.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Base/ControllerBase/ControllerBase.res b/Source/Base/ControllerBase/ControllerBase.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Base/ControllerBase/ControllerBase.res and /dev/null differ diff --git a/Source/Base/ControllerBase/uControllerBase.dcu b/Source/Base/ControllerBase/uControllerBase.dcu deleted file mode 100644 index 03bfda2f..00000000 Binary files a/Source/Base/ControllerBase/uControllerBase.dcu and /dev/null differ diff --git a/Source/Base/ControllerBase/uControllerBase.pas b/Source/Base/ControllerBase/uControllerBase.pas deleted file mode 100644 index 0d3f90a6..00000000 --- a/Source/Base/ControllerBase/uControllerBase.pas +++ /dev/null @@ -1,102 +0,0 @@ -unit uControllerBase; - -interface - -uses - Classes, uDADataTable; - -type - ISujeto = interface; - - IObservador = interface - ['{679D5CF2-D5DC-4A52-9FF3-04AD91402483}'] - procedure RecibirAviso(ASujeto: ISujeto); overload; - procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); overload; - end; - - ISujeto = interface - ['{CDB691CD-D1D6-4F2E-AA34-93B1CD0E6030}'] - procedure AddObservador(Observador: IObservador); - procedure DeleteObservador(Observador: IObservador); - end; - - TObservador = class(TInterfacedObject, IObservador) - protected - procedure RecibirAviso(ASujeto: ISujeto); overload; virtual; - procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); overload; virtual; abstract; - end; - - TSujeto = class(TInterfacedObject, ISujeto) - private - fObservadores: IInterfaceList; - protected - procedure AvisarObservadores; overload; - procedure AvisarObservadores(ADataTable: IDAStronglyTypedDataTable); overload; - public - constructor Create; virtual; - procedure AddObservador(Observador: IObservador); - procedure DeleteObservador(Observador: IObservador); - destructor Destroy; override; - end; - -implementation - -uses - SysUtils; - -{ TSujeto } - -procedure TSujeto.addObservador(Observador: IObservador); -begin - FObservadores.Add(Observador); -end; - -procedure TSujeto.AvisarObservadores; -var - i: Integer; - AObs : IObservador; -begin - for i := 0 to Pred(FObservadores.Count) do - begin - if Supports(FObservadores[i], IObservador, AObs) then - AObs.RecibirAviso(Self); - end; -end; - -procedure TSujeto.AvisarObservadores(ADataTable: IDAStronglyTypedDataTable); -var - i: Integer; - AObs : IObservador; -begin - for i := 0 to Pred(FObservadores.Count) do - begin - if Supports(FObservadores[i], IObservador, AObs) then - AObs.RecibirAviso(Self, ADataTable); - end; -end; - -constructor TSujeto.Create; -begin - inherited; - FObservadores := TInterfaceList.Create; -end; - -procedure TSujeto.DeleteObservador(Observador: IObservador); -begin - FObservadores.Remove(Observador); -end; - -destructor TSujeto.Destroy; -begin - FObservadores := NIL; - inherited; -end; - -{ TObservador } - -procedure TObservador.RecibirAviso(ASujeto: ISujeto); -begin - // -end; - -end. diff --git a/Source/Base/ControllerBase/uControllerDetallesBase.dcu b/Source/Base/ControllerBase/uControllerDetallesBase.dcu deleted file mode 100644 index 0e544ed7..00000000 Binary files a/Source/Base/ControllerBase/uControllerDetallesBase.dcu and /dev/null differ diff --git a/Source/Base/ControllerBase/uControllerDetallesBase.pas b/Source/Base/ControllerBase/uControllerDetallesBase.pas deleted file mode 100644 index 9b113746..00000000 --- a/Source/Base/ControllerBase/uControllerDetallesBase.pas +++ /dev/null @@ -1,585 +0,0 @@ -unit uControllerDetallesBase; - -interface - -uses Classes, Variants, uDACDSDataTable, uDADataTable, uControllerBase; - -const - CAMPO_ID = 'ID'; - CAMPO_POSICION = 'POSICION'; - CAMPO_TIPO = 'TIPO_DETALLE'; - CAMPO_CONCEPTO = 'CONCEPTO'; - CAMPO_CANTIDAD = 'CANTIDAD'; - CAMPO_IMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; - CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL'; - - TIPO_DETALLE_CONCEPTO = 'Concepto'; - TIPO_DETALLE_TITULO = 'Titulo'; - TIPO_DETALLE_SUBTOTAL = 'Subtotal'; - TIPO_DETALLE_SALTO = 'Salto'; - - CTE_DESC_SALTO = 'SALTO DE PAGINA >>'; - -type - TIntegerArray = array of Integer; - - IControllerDetallesBase = interface(ISujeto) - ['{F0B0E714-EC0D-4B6B-98B1-76F72F70B735}'] - - function getTipo(ADataTable: IDAStronglyTypedDataTable; pPosicion: Integer): String; - procedure Clear(ADataTable: IDAStronglyTypedDataTable); - procedure Add(ADataTable: IDAStronglyTypedDataTable; TipoConcepto: Variant); - procedure Delete(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray); - procedure Move(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray; Posiciones: Integer); - -// procedure Copy(SMExport: TSMExportToClipboard); -// procedure Paste; - - procedure ActualizarTotales(ADataTable: IDAStronglyTypedDataTable); - function DarTotalImporteTotal(ADataTable: IDAStronglyTypedDataTable): Double; - - function DarListaTiposDetalle: TStringList; - end; - - TControllerDetallesBase = class (TSujeto, IControllerDetallesBase) - private - fUpdateCount: Integer; - - function CalcularTotales(Modificar: boolean; DataTable: TDADataTable): Double; - - protected - procedure Renumerar(DataTable: TDADataTable; LocalizaPosicion: Integer); - function DesplazarNPosiciones(DataTable: TDADataTable; NumOrdenIni: Variant; NPosiciones: Variant): Integer; - procedure Mover(DataTable: TDADataTable; Posicion: Integer; NumPosiciones: Integer); - procedure BeginUpdate(ADataTable: IDAStronglyTypedDataTable); - procedure EndUpdate(ADataTable: IDAStronglyTypedDataTable); - - //Si en los hijos existen campos a tener en cuenta se sobreescribira este metodo - procedure validarCampos(DataTable: TDADataTable); virtual; - - //Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto - function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; virtual; - procedure TratamientoDetalleConcepto(DataTable: TDADataTable); virtual; - procedure CalculoDetalleConcepto(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual; - procedure TratamientoDetalleSalto(DataTable: TDADataTable); virtual; - procedure CalculoDetalleSalto(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual; - procedure TratamientoDetalleTitulo(DataTable: TDADataTable); virtual; - procedure CalculoDetalleTitulo(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual; - procedure TratamientoDetalleSubtotal(DataTable: TDADataTable); virtual; - procedure CalculoDetalleSubtotal(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual; - //Si sobreescribimos este metodo es para continuar el CalcularTotales segun los tipos de concepto de los hijos - function CalcularTotalesHijos(Modificar: boolean; DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double): Double; virtual; - - public - constructor Create; override; - destructor Destroy; override; - - function getTipo(ADataTable: IDAStronglyTypedDataTable; pPosicion: Integer): String; - procedure Clear(ADataTable: IDAStronglyTypedDataTable); - procedure Add(ADataTable: IDAStronglyTypedDataTable; TipoConcepto: Variant); virtual; - procedure Delete(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray); virtual; - procedure Move(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray; Posiciones: Integer); virtual; - -// procedure Copy(SMExport: TSMExportToClipboard); -// procedure Paste; - - procedure ActualizarTotales(ADataTable: IDAStronglyTypedDataTable); - function DarTotalImporteTotal(ADataTable: IDAStronglyTypedDataTable): Double; - function DarListaTiposDetalle: TStringList; virtual; - end; - - -implementation - -{ TControllerDetallesBase } - -uses cxControls, SysUtils, DB, uDAInterfaces; - -procedure TControllerDetallesBase.ActualizarTotales(ADataTable: IDAStronglyTypedDataTable); -begin - BeginUpdate(ADataTable); - try - CalcularTotales(True, ADataTable.DataTable); - finally - EndUpdate(ADataTable); - end; -end; - -procedure TControllerDetallesBase.Add(ADataTable: IDAStronglyTypedDataTable; TipoConcepto: Variant); -var - AuxNumOrden : Integer; - -begin - BeginUpdate(ADataTable); - try - with ADataTable do - begin - AuxNumOrden := desplazarNPosiciones(DataTable, DataTable.FieldByName(CAMPO_POSICION).AsVariant, 1); - - DataTable.Insert; - DataTable.FieldByName(CAMPO_POSICION).AsInteger := AuxNumOrden; - DataTable.FieldByName(CAMPO_TIPO).AsVariant := TipoConcepto; - DataTable.post; - end; - finally - EndUpdate(ADataTable); - end; -end; - -procedure TControllerDetallesBase.BeginUpdate(ADataTable: IDAStronglyTypedDataTable); -begin - ShowHourglassCursor; - Inc(fUpdateCount); - ADataTable.DataTable.DisableControls; -end; - -function TControllerDetallesBase.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; -begin - with DataTable do - Result := FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat; -end; - -function TControllerDetallesBase.CalcularTotales(Modificar: boolean; DataTable: TDADataTable): Double; -{ -funcion que recalcula todos los detalles de la tabla pasada por parametro y devuelve -la cantidad total de los mismos -} -var - AuxPosicionIni : Integer; - AuxPosicion : Integer; - AuxImporteAcumulado : Double; - AuxImporteTotal : Double; - -begin - if (DataTable.State in dsEditModes) then - DataTable.Post; - - ValidarCampos(DataTable); - - DataTable.DisableControls; - AuxPosicionIni := DataTable.FieldByName(CAMPO_POSICION).AsInteger; - AuxPosicion := 0; - AuxImporteAcumulado := 0; - AuxImporteTotal := 0; - try - - DataTable.First; - while DataTable.Locate(CAMPO_POSICION, IntToStr(AuxPosicion), []) do - begin - //SALTOS DE LINEA - if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SALTO) then - begin - if Modificar then - TratamientoDetalleSalto(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos en hijos - CalculoDetalleSalto(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos - end - //TITULOS - else if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO) then - begin - if Modificar then - TratamientoDetalleTitulo(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos en hijos - CalculoDetalleTitulo(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos - end - //SUBTITULOS - else if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL) then - begin - if Modificar then - TratamientoDetalleSubtotal(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos - CalculoDetalleSubtotal(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos - end - //CONCEPTOS - else if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_CONCEPTO) then - begin - if Modificar then - TratamientoDetalleConcepto(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos - CalculoDetalleConcepto(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos - end - //HIJOS - else CalcularTotalesHijos(Modificar, DataTable, AuxImporteAcumulado, AuxImporteTotal); - - Inc(AuxPosicion); - DataTable.First; - end; - - finally - //Dejamos el puntero en la misma posición que la que partió - DataTable.Locate(CAMPO_POSICION, IntToStr(AuxPosicionIni), []); - DataTable.EnableControls; - end; - - Result := AuxImporteTotal; -end; - -function TControllerDetallesBase.CalcularTotalesHijos(Modificar: boolean; DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double): Double; -begin -// - Result := 0; -end; - -procedure TControllerDetallesBase.CalculoDetalleConcepto(DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double); -begin - with DataTable do - begin - ImporteAcumulado := ImporteAcumulado + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat; - ImporteTotal := ImporteTotal + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat; - end; -end; - -procedure TControllerDetallesBase.CalculoDetalleSalto(DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double); -begin - with DataTable do - begin - if not Editing then Edit; - FieldByName(CAMPO_CANTIDAD).AsVariant := Null; - FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; - FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null; - Post; - end; -end; - -procedure TControllerDetallesBase.CalculoDetalleSubtotal(DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double); -begin - with DataTable do - begin - if not Editing then Edit; - FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat := ImporteAcumulado; - Post; - end; - ImporteAcumulado := 0; -end; - -procedure TControllerDetallesBase.CalculoDetalleTitulo(DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double); -begin -// -end; - -procedure TControllerDetallesBase.Clear(ADataTable: IDAStronglyTypedDataTable); -begin -// -end; - -constructor TControllerDetallesBase.Create; -begin - inherited; -end; - -function TControllerDetallesBase.DarListaTiposDetalle: TStringList; -begin - Result := TStringList.Create; - Result.Values[TIPO_DETALLE_CONCEPTO] := 'Concepto'; - Result.Values[TIPO_DETALLE_TITULO] := 'Título de capítulo'; - Result.Values[TIPO_DETALLE_SUBTOTAL] := 'Final de capítulo'; - Result.Values[TIPO_DETALLE_SALTO] := 'Salto de página'; -end; - -function TControllerDetallesBase.darTotalImporteTotal(ADataTable: IDAStronglyTypedDataTable): Double; -begin - Result := CalcularTotales(False, ADataTable.DataTable); -end; - -procedure TControllerDetallesBase.Delete(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray); -var - i: integer; - AField: TDAField; - DeletePosicion: Integer; -begin - AField := ADataTable.DataTable.FindField(CAMPO_POSICION); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_POSICION + ' no encontrado (Delete)'); - - BeginUpdate(ADataTable); - try - with ADataTable do - begin - DeletePosicion := 0; - for i := 0 to High(POSICION) do - begin - DataTable.First; - DeletePosicion := POSICION[i]; - if DataTable.Locate(CAMPO_POSICION, IntToStr(DeletePosicion), []) then - DataTable.Delete; - end; - Renumerar(DataTable, DeletePosicion); - end; - finally - EndUpdate(ADataTable); - end; -end; - -function TControllerDetallesBase.DesplazarNPosiciones(DataTable: TDADataTable; NumOrdenIni: Variant; NPosiciones: Variant): Integer; -{ -Función que desplaza NPosiciones el numero de orden a partir del elemento con el -número de orden dado. Devuelve el numero de orden del primer elemento del hueco -generado -} -var - AuxNumOrden: Integer; - AuxNumPos: Integer; - AField: TDAField; -begin - - AField := DataTable.FindField(CAMPO_POSICION); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_POSICION + ' no encontrado (desplazarNPosiciones)'); - - if VarIsNull(NPosiciones) - then AuxNumPos := 1 - else AuxNumPos := NPosiciones; - - if VarIsNull(NumOrdenIni) - then AuxNumOrden := 0 - else AuxNumOrden := NumOrdenIni + 1; //Añadimos por abajo siempre - - Result := AuxNumOrden; - - with DataTable do - begin - First; - while not EOF do - begin - if (FieldByName(CAMPO_POSICION).AsInteger >= AuxNumOrden) then - begin - if not Editing then Edit; - FieldByName(CAMPO_POSICION).AsInteger := FieldByName(CAMPO_POSICION).AsInteger + AuxNumPos; - Post; - end; - Next; - end; - end; -end; - -destructor TControllerDetallesBase.Destroy; -begin - inherited; -end; - -procedure TControllerDetallesBase.EndUpdate(ADataTable: IDAStronglyTypedDataTable); -begin - Dec(fUpdateCount); - CalcularTotales(True, ADataTable.DataTable); - ADataTable.DataTable.EnableControls; - - if fUpdateCount = 0 then - AvisarObservadores(ADataTable); - - HideHourglassCursor; -end; - -function TControllerDetallesBase.getTipo(ADataTable: IDAStronglyTypedDataTable; pPosicion: Integer): String; -var - posIni: integer; - AField: TDAField; -begin - AField := ADataTable.DataTable.FindField(CAMPO_POSICION); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_POSICION + ' no encontrado (getTipo)'); - - Result := ''; - BeginUpdate(ADataTable); - try - with ADataTable do - begin - //Guardamos la posicion en la que estamos - posIni := DataTable.FieldByName(CAMPO_POSICION).AsInteger; - - DataTable.First; - if DataTable.Locate(CAMPO_POSICION, IntToStr(pPosicion), []) then - Result := DataTable.FieldByName(CAMPO_TIPO).AsString; - - //Volvemos a posicionar el puntero donde estaba - DataTable.First; - if not DataTable.Locate(CAMPO_POSICION, IntToStr(posIni), []) then - raise Exception.Create('La posición ' + IntToStr(posIni) + ' no existe (getTipo)'); - end; - finally - EndUpdate(ADataTable); - end; -end; - -procedure TControllerDetallesBase.Move(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray; Posiciones: Integer); -var - i:Integer; -begin - BeginUpdate(ADataTable); - try - with ADataTable do - begin - //Empezamos desde abajo - if Posiciones > 0 then - for i:= High(POSICION) downto 0 do - Mover(DataTable, POSICION[i], Posiciones) - else - //Empezamos desde arriba - for i:= 0 to High(POSICION) do - Mover(DataTable, POSICION[i], Posiciones); - end; - finally - EndUpdate(ADataTable); - end; -end; - -procedure TControllerDetallesBase.Mover(DataTable: TDADataTable; Posicion: Integer; NumPosiciones: Integer); -{ -procedimiento que desplaza el número de posiciones (NumPosiciones) pasados por parametro -a la posicion (Posicion) dada, en caso de ser negativo será hacia arriba y positivo hacia -abajo -} -var - AuxOrden : Integer; - AuxID : Integer; - AField: TDAField; -begin - AField := DataTable.FindField(CAMPO_POSICION); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_POSICION + ' no encontrado (mover)'); - - AField := DataTable.FindField(CAMPO_ID); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_ID + ' no encontrado (mover)'); - - //Buscamos el elemento con la posicion pasada por parametro - DataTable.First; - if not DataTable.Locate(CAMPO_POSICION, IntToStr(Posicion), []) then - raise Exception.Create('Error, no se ha encontrado la POSICION [' + IntToStr(Posicion) + '] (mover)'); - - //Guardamos el id del elemento a cambiar de posicion y calculamos su nueva posicion - AuxID := DataTable.FieldByName(CAMPO_ID).AsInteger; - AuxOrden := Posicion + NumPosiciones; - - DataTable.First; - if DataTable.Locate(CAMPO_POSICION, IntToStr(AuxOrden), []) then - begin - if not DataTable.Editing then DataTable.Edit; - DataTable.FieldByName(CAMPO_POSICION).AsInteger := DataTable.FieldByName(CAMPO_POSICION).AsInteger - NumPosiciones; - - //Se hace dentro por si es el ultimo o el primero - DataTable.First; - if not DataTable.Locate(CAMPO_ID, IntToStr(AuxID), []) then - raise Exception.Create('Error, no se ha encontrado el ID [' + IntToStr(AuxID) + '] (mover)'); - - if not DataTable.Editing then DataTable.Edit; - DataTable.FieldByName(CAMPO_POSICION).AsInteger := AuxOrden; - - DataTable.Post; - end; - - //Colocamos el puntero en la posición en la que estaba - DataTable.First; - DataTable.Locate(CAMPO_ID, IntToStr(AuxID), []); -end; - -procedure TControllerDetallesBase.Renumerar(DataTable: TDADataTable; LocalizaPosicion: Integer); -{ -procedimiento que renumera todos los conceptos de la tabla dada por parametro -} -var - i, j : Integer; - AField: TDAField; -begin - AField := DataTable.FindField(CAMPO_POSICION); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_POSICION + ' no encontrado (renumerar)'); - - with DataTable do - begin - for i:=0 to RecordCount-1 do - begin - First; - if not Locate(CAMPO_POSICION, IntToStr(i), []) then - begin - j := i; - First; - while not Locate(CAMPO_POSICION, IntToStr(j), []) do - begin - Inc(j); - First; - end; - - if not Editing then Edit; - FieldByName(CAMPO_POSICION).AsInteger := i; - Post; - end; - end; - - //Posicionamos el puntero en la posición dada por parametro - if Locate(CAMPO_POSICION, IntToStr(LocalizaPosicion), []) then - end; -end; - -procedure TControllerDetallesBase.TratamientoDetalleConcepto(DataTable: TDADataTable); -begin - with DataTable do - begin - if not Editing then Edit; - //Si alguno de los campos de calculo de total es nulo el total tambien será nulo - if (VarIsNull(FieldByName(CAMPO_CANTIDAD).AsVariant) - or VarIsNull(FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant)) - then FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null - else FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat := CalcularImporteTotalConcepto(DataTable); - Post; - end; -end; - -procedure TControllerDetallesBase.TratamientoDetalleSalto(DataTable: TDADataTable); -begin - with DataTable do - begin - if not Editing then Edit; - FieldByName(CAMPO_CONCEPTO).AsString := CTE_DESC_SALTO; - FieldByName(CAMPO_CANTIDAD).AsVariant := Null; - FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; - FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null; - Post; - end; -end; - -procedure TControllerDetallesBase.TratamientoDetalleSubtotal(DataTable: TDADataTable); -begin - with DataTable do - begin - if not Editing then Edit; - if (FieldByName(CAMPO_CONCEPTO).AsString = CTE_DESC_SALTO) then - FieldByName(CAMPO_CONCEPTO).AsVariant := Null; - FieldByName(CAMPO_CANTIDAD).AsVariant := Null; - FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; - Post; - end; -end; - -procedure TControllerDetallesBase.TratamientoDetalleTitulo(DataTable: TDADataTable); -begin - with DataTable do - begin - if not Editing then Edit; - if (FieldByName(CAMPO_CONCEPTO).AsString = CTE_DESC_SALTO) then - FieldByName(CAMPO_CONCEPTO).AsVariant := Null; - FieldByName(CAMPO_CANTIDAD).AsVariant := Null; - FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; - FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null; - Post; - end; -end; - -procedure TControllerDetallesBase.validarCampos(DataTable: TDADataTable); -var - AField: TDAField; -begin - //Validamos la existencia de todos los campos necesarios - AField := DataTable.FindField(CAMPO_POSICION); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_POSICION + ' no encontrado (validarCampos)'); - AField := DataTable.FindField(CAMPO_TIPO); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_TIPO + ' no encontrado (validarCampos)'); - AField := DataTable.FindField(CAMPO_CANTIDAD); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_CANTIDAD + ' no encontrado (validarCampos)'); - AField := DataTable.FindField(CAMPO_IMPORTE_UNIDAD); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_IMPORTE_UNIDAD + ' no encontrado (validarCampos)'); - AField := DataTable.FindField(CAMPO_IMPORTE_TOTAL); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_IMPORTE_TOTAL + ' no encontrado (validarCampos)'); -end; - -end. diff --git a/Source/Base/ControllerBase/uControllerDetallesDTO.dcu b/Source/Base/ControllerBase/uControllerDetallesDTO.dcu deleted file mode 100644 index 7c803483..00000000 Binary files a/Source/Base/ControllerBase/uControllerDetallesDTO.dcu and /dev/null differ diff --git a/Source/Base/ControllerBase/uControllerDetallesDTO.pas b/Source/Base/ControllerBase/uControllerDetallesDTO.pas deleted file mode 100644 index 63c5ece3..00000000 --- a/Source/Base/ControllerBase/uControllerDetallesDTO.pas +++ /dev/null @@ -1,70 +0,0 @@ -unit uControllerDetallesDTO; - -interface - -uses Classes, Variants, uDACDSDataTable, uDADataTable, uControllerDetallesBase; - -const - CAMPO_DESCUENTO = 'DESCUENTO'; - //Además del descuento tambien se añade el Precio de porte por artículo - CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE'; - -type - IControllerDetallesDTO = interface(IControllerDetallesBase) - ['{F6C5D9E4-4D3D-404F-9B6A-58D4A24B01C6}'] - end; - - TControllerDetallesDTO = class (TControllerDetallesBase, IControllerDetallesDTO) - protected - //Si en los hijos existen campos a tener en cuenta se sobreescribira este metodo - procedure ValidarCampos(DataTable: TDADataTable); override; - - //Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto - function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; override; - end; - - -implementation - -{ TControllerDetallesBase } - -uses SysUtils, uDAInterfaces; - -function TControllerDetallesDTO.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; -var - ImporteTotal : Double; -begin - with DataTable do - begin - if (VarIsNull(FieldByName(CAMPO_DESCUENTO).AsVariant)) then - ImporteTotal := FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - else - ImporteTotal := FieldByName(CAMPO_CANTIDAD).asInteger * (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat * (FieldByName(CAMPO_DESCUENTO).AsFloat/100))); - - if (VarIsNull(FieldByName(CAMPO_IMPORTE_PORTE).AsVariant)) then - ImporteTotal := ImporteTotal - else - ImporteTotal := ImporteTotal + (FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_PORTE).AsFloat); - end; - - Result := ImporteTotal; -end; - -procedure TControllerDetallesDTO.validarCampos(DataTable: TDADataTable); -var - AField: TDAField; -begin - inherited; - //Validamos la existencia de todos los campos necesarios - - AField := DataTable.FindField(CAMPO_DESCUENTO); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_DESCUENTO + ' no encontrado (validarCampos)'); - - - AField := DataTable.FindField(CAMPO_IMPORTE_PORTE); - if not Assigned(AField) then - raise Exception.Create('Campo ' + CAMPO_IMPORTE_PORTE + ' no encontrado (validarCampos)'); -end; - -end. diff --git a/Source/Base/FactuGES_Intf.dcu b/Source/Base/FactuGES_Intf.dcu deleted file mode 100644 index f10901b6..00000000 Binary files a/Source/Base/FactuGES_Intf.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/GUIBase.bdsproj b/Source/Base/GUIBase/GUIBase.bdsproj deleted file mode 100644 index c085d671..00000000 --- a/Source/Base/GUIBase/GUIBase.bdsproj +++ /dev/null @@ -1,686 +0,0 @@ - - - - - - - - - - - - GUIBase.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - True - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\Output\Debug\Cliente - ..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - RemObjects Data Abstract - IDE Package - SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005 - SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004. - RemObjects Data Abstract - ADOExpress/dbGo Driver - RemObjects Data Abstract - InterBase Express Driver - RemObjects Data Abstract - dbExpress Driver - RemObjects Data Abstract - Scripting Integration Library - TeeChart Components - - - - diff --git a/Source/Base/GUIBase/GUIBase.dcu b/Source/Base/GUIBase/GUIBase.dcu deleted file mode 100644 index 71f05af3..00000000 Binary files a/Source/Base/GUIBase/GUIBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/GUIBase.dpk b/Source/Base/GUIBase/GUIBase.dpk deleted file mode 100644 index d03a8194..00000000 --- a/Source/Base/GUIBase/GUIBase.dpk +++ /dev/null @@ -1,71 +0,0 @@ -package GUIBase; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - Base, - vcl, - dbrtl, - vcldb, - ControllerBase, - dxBarD10, - dxBarExtItemsD10, - dxPScxCommonD10, - dxPScxGridLnkD10, - dxPsPrVwAdvD10, - dxLayoutControlD10, - frx10, - frxe10, - fs10, - JvAppFrmD11R, - JvCtrlsD11R; - -contains - uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor}, - uEditorGridBase in 'uEditorGridBase.pas' {fEditorGridBase: TCustomEditor}, - uEditorItem in 'uEditorItem.pas' {fEditorItem: TCustomEditor}, - uEditorPreview in 'uEditorPreview.pas' {fEditorPreview: TCustomEditor}, - uViewPreview in 'uViewPreview.pas' {frViewPreview: TFrame}, - uViewBase in 'uViewBase.pas' {frViewBase: TFrame}, - uEditorDBBase in 'uEditorDBBase.pas' {fEditorDBBase: TCustomEditor}, - uEditorDBItem in 'uEditorDBItem.pas' {fEditorDBItem: TCustomEditor}, - uViewBarraSeleccion in 'uViewBarraSeleccion.pas' {frViewBarraSeleccion: TFrame}, - uViewGridBase in 'uViewGridBase.pas' {frViewGridBase: TFrame}, - uBizInformesAware in 'uBizInformesAware.pas', - uViewFormaPago in 'uViewFormaPago.pas' {frViewFormaPago: TFrame}, - uViewObservaciones in 'uViewObservaciones.pas' {frViewObservaciones: TFrame}, - uViewTotales in 'uViewTotales.pas' {frViewTotales: TFrame}, - uViewDetallesBase in 'uViewDetallesBase.pas' {frViewDetallesBase: TFrame}, - uViewIncidencias in 'uViewIncidencias.pas' {frViewIncidencias: TFrame}, - uViewDetallesDTO in 'uViewDetallesDTO.pas' {frViewDetallesDTO: TCustomView}, - uViewDetallesGenerico in 'uViewDetallesGenerico.pas' {frViewDetallesGenerico: TFrame}, - uViewGrid2Niveles in 'uViewGrid2Niveles.pas' {frViewGrid2Niveles: TFrame}, - uEditorBasico in 'uEditorBasico.pas' {fEditorBasico}, - uDialogBase in 'uDialogBase.pas' {fDialogBase}, - uViewFiltroBase in 'uViewFiltroBase.pas' {frViewFiltroBase: TFrame}, - uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame}; - -end. diff --git a/Source/Base/GUIBase/GUIBase.dpk.bak b/Source/Base/GUIBase/GUIBase.dpk.bak deleted file mode 100644 index 05d9ee3a..00000000 --- a/Source/Base/GUIBase/GUIBase.dpk.bak +++ /dev/null @@ -1,71 +0,0 @@ -package GUIBase; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} - -requires - rtl, - Base, - vcl, - dbrtl, - vcldb, - ControllerBase, - dxBarD10, - dxBarExtItemsD10, - dxPScxCommonD10, - dxPScxGridLnkD10, - dxPsPrVwAdvD10, - dxLayoutControlD10, - frx10, - frxe10, - fs10, - JvAppFrmD11R, - JvCtrlsD11R; - -contains - uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor}, - uEditorGridBase in 'uEditorGridBase.pas' {fEditorGridBase: TCustomEditor}, - uEditorItem in 'uEditorItem.pas' {fEditorItem: TCustomEditor}, - uEditorPreview in 'uEditorPreview.pas' {fEditorPreview: TCustomEditor}, - uViewPreview in 'uViewPreview.pas' {frViewPreview: TFrame}, - uViewBase in 'uViewBase.pas' {frViewBase: TFrame}, - uEditorDBBase in 'uEditorDBBase.pas' {fEditorDBBase: TCustomEditor}, - uEditorDBItem in 'uEditorDBItem.pas' {fEditorDBItem: TCustomEditor}, - uViewBarraSeleccion in 'uViewBarraSeleccion.pas' {frViewBarraSeleccion: TFrame}, - uViewGridBase in 'uViewGridBase.pas' {frViewGridBase: TFrame}, - uBizInformesAware in 'uBizInformesAware.pas', - uViewFormaPago in 'uViewFormaPago.pas' {frViewFormaPago: TFrame}, - uViewObservaciones in 'uViewObservaciones.pas' {frViewObservaciones: TFrame}, - uViewTotales in 'uViewTotales.pas' {frViewTotales: TFrame}, - uViewDetallesBase in 'uViewDetallesBase.pas' {frViewDetallesBase: TFrame}, - uViewIncidencias in 'uViewIncidencias.pas' {frViewIncidencias: TFrame}, - uViewDetallesDTO in 'uViewDetallesDTO.pas' {frViewDetallesDTO: TCustomView}, - uViewDetallesGenerico in 'uViewDetallesGenerico.pas' {frViewDetallesGenerico: TFrame}, - uViewGrid2Niveles in 'uViewGrid2Niveles.pas' {frViewGrid2Niveles: TFrame}, - uEditorBasico in 'uEditorBasico.pas' {fEditorBasico}, - uDialogBase in 'uDialogBase.pas' {fDialogBase}, - uViewFiltroBase in 'uViewFiltroBase.pas' {frViewFiltroBase: TFrame}, - uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame}; - -end. diff --git a/Source/Base/GUIBase/GUIBase.dproj b/Source/Base/GUIBase/GUIBase.dproj deleted file mode 100644 index bc57e208..00000000 --- a/Source/Base/GUIBase/GUIBase.dproj +++ /dev/null @@ -1,152 +0,0 @@ - - - - {0ca27a95-0b81-4724-84bf-8f8ed4e421ae} - GUIBase.dpk - Debug - AnyCPU - DCC32 - ..\..\..\Output\Debug\Cliente\GUIBase.bpl - - - 7.0 - False - False - False - True - 0 - 3 - True - True - .\ - .\ - .\ - ..\..\..\Output\Debug\Cliente - ..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - RELEASE - - - 7.0 - False - True - 3 - True - True - .\ - .\ - .\ - ..\..\..\Output\Debug\Cliente - ..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - CodeGear WebSnap Components - CodeGear SOAP Components - Microsoft Office XP Sample Automation Server Wrapper Components - Microsoft Office 2000 Sample Automation Server Wrapper Components - CodeGear C++Builder Office 2000 Servers Package - CodeGear C++Builder Office XP Servers Package - GUIBase.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - - - -
fDialogBase
- - -
fEditorBase
- - -
fEditorBasico
- - -
fEditorDBBase
- - -
fEditorDBItem
- - -
fEditorGridBase
- - -
fEditorItem
- - -
fEditorPreview
- - -
frViewBarraSeleccion
- - -
frViewBase
- - -
frViewDetallesBase
- - -
frViewDetallesDTO
- - -
frViewDetallesGenerico
- - -
frViewFiltroBase
- - -
frViewFormaPago
- - -
frViewGrid
- - -
frViewGrid2Niveles
- - -
frViewGridBase
- - -
frViewIncidencias
- - -
frViewObservaciones
- - -
frViewPreview
- - -
frViewTotales
- - - diff --git a/Source/Base/GUIBase/GUIBase.drc b/Source/Base/GUIBase/GUIBase.drc deleted file mode 100644 index b6356a8d..00000000 --- a/Source/Base/GUIBase/GUIBase.drc +++ /dev/null @@ -1,38 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewBase.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorBase.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewFiltroBase.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewGridBase.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorItem.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorDBBase.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorGridBase.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewPreview.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorPreview.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorDBItem.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewBarraSeleccion.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewFormaPago.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewObservaciones.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewTotales.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewDetallesBase.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewIncidencias.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewDetallesDTO.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewDetallesGenerico.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewGrid2Niveles.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorBasico.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uDialogBase.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewGrid.dfm */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\GUIBase.res */ -/* C:\Codigo Tecsitel\Source\Base\GUIBase\GUIBase.drf */ diff --git a/Source/Base/GUIBase/GUIBase.identcache b/Source/Base/GUIBase/GUIBase.identcache deleted file mode 100644 index f12a458e..00000000 Binary files a/Source/Base/GUIBase/GUIBase.identcache and /dev/null differ diff --git a/Source/Base/GUIBase/GUIBase.rc b/Source/Base/GUIBase/GUIBase.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Base/GUIBase/GUIBase.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Base/GUIBase/GUIBase.res b/Source/Base/GUIBase/GUIBase.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Base/GUIBase/GUIBase.res and /dev/null differ diff --git a/Source/Base/GUIBase/_uViewGridBase.pas b/Source/Base/GUIBase/_uViewGridBase.pas deleted file mode 100644 index 6151a2a3..00000000 --- a/Source/Base/GUIBase/_uViewGridBase.pas +++ /dev/null @@ -1,345 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewGridBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids, - DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg, - cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils; - -type - IViewGridBase = interface(IViewBase) - ['{D5B9B017-2A2E-44AC-8223-E54664C6BC66}'] - procedure ExpandirTodo; - procedure ContraerTodo; - procedure AjustarAncho; - - procedure Preview; - procedure Print; - procedure PrintSetup; - - function IsEmpty : Boolean; - - procedure SaveGridStatus; - procedure RestoreGridStatus; - - procedure GotoFirst; - procedure GotoLast; - - function GetFocusedView : TcxGridDBTableView; - property _FocusedView : TcxGridDBTableView read GetFocusedView; - - function GetGrid : TcxGrid; - property _Grid : TcxGrid read GetGrid; - - procedure StoreToRegistry (const Path : String); - procedure RestoreFromRegistry (const Path : String); - - procedure SetDblClick(const Value: TNotifyEvent); - function GetDblClick: TNotifyEvent; - property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick; - - procedure SetPopupMenu(const Value: TPopupMenu); - function GetPopupMenu: TPopupMenu; - property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; - - function GetMultiSelect: Boolean; - procedure SetMultiSelect(const Value: Boolean); - property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; - - procedure SetFilter(const Value: string); - function GetFilter: string; - property Filter: string read GetFilter write SetFilter; - - function GetFiltered: Boolean; - property Filtered : Boolean read GetFiltered; - end; - - - TfrViewGridBase = class(TfrViewBase, IViewGridBase) - dsDataSource: TDADataSource; - private - FFilter: string; - FOnFilterChanged : TNotifyEvent; - procedure FiltrarGrid(TextoFiltro : String); - protected - FGridStatus : TcxGridStatus; - FOnDblClick: TNotifyEvent; - FPopupMenu: TPopupMenu; - function GetMultiSelect: Boolean; virtual; - procedure SetMultiSelect(const Value: Boolean); virtual; - procedure SetPopupMenu(const Value: TPopupMenu); virtual; - function GetPopupMenu: TPopupMenu; virtual; - procedure SetDblClick(const Value: TNotifyEvent); virtual; - function GetDblClick: TNotifyEvent; virtual; - function GetGrid : TcxGrid; virtual; abstract; - function GetFocusedView : TcxGridDBTableView; virtual; abstract; - procedure SetFilter(const Value: string); virtual; - function GetFilter: string; virtual; - function GetFiltered: Boolean; virtual; - procedure FilterChanged(Sender : TObject); virtual; - public - constructor Create(AOwner: TComponent); override; - - procedure ShowEmbedded(const AParent : TWinControl); override; - - procedure ExpandirTodo; - procedure ContraerTodo; - procedure AjustarAncho; - - procedure Preview; virtual; - procedure Print; virtual; - procedure PrintSetup; virtual; - - function IsEmpty : Boolean; - - procedure SaveGridStatus; - procedure RestoreGridStatus; - - procedure GotoFirst; - procedure GotoLast; - - procedure StoreToRegistry (const Path : String); - procedure RestoreFromRegistry (const Path : String); - - property Filter: string read GetFilter write SetFilter; - property Filtered : Boolean read GetFiltered; - property _FocusedView : TcxGridDBTableView read GetFocusedView; - property _Grid : TcxGrid read GetGrid; - property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick; - property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; - property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; - destructor Destroy; override; - end; - -procedure Register; - -implementation - -uses - CCReg, uDataModuleBase, uDBSelectionListUtils; - -{$R *.dfm} - -procedure Register; -begin - RegisterCustomContainer(TfrViewGridBase); -end; - -{ TfrViewGrid } - -procedure TfrViewGridBase.AjustarAncho; -begin - if Assigned(_FocusedView) then - _FocusedView.ApplyBestFit; -end; - -procedure TfrViewGridBase.ContraerTodo; -begin - if Assigned(_FocusedView) then - _FocusedView.ViewData.Collapse(True); -end; - -constructor TfrViewGridBase.Create(AOwner: TComponent); -begin - inherited; - FFilter := ''; - FOnFilterChanged := FilterChanged; - FPopupMenu := nil; - FOnDblClick := nil; - FGridStatus := NIL; -end; - -procedure TfrViewGridBase.ExpandirTodo; -begin - if Assigned(_FocusedView) then - _FocusedView.ViewData.Expand(True); -end; - -function TfrViewGridBase.GetDblClick: TNotifyEvent; -begin - Result := FOnDblClick; -end; - -function TfrViewGridBase.GetFilter: string; -begin - Result := FFilter; -end; - -function TfrViewGridBase.GetFiltered: Boolean; -begin - Result := (_FocusedView.DataController.Filter.Root.Count > 0); -end; - -function TfrViewGridBase.GetMultiSelect: Boolean; -begin - Result := _FocusedView.OptionsSelection.MultiSelect; -end; - -function TfrViewGridBase.GetPopupMenu: TPopupMenu; -begin - Result := FPopupMenu; -end; - -procedure TfrViewGridBase.GotoFirst; -begin - if Assigned(_FocusedView) then - _FocusedView.DataController.GotoFirst; -end; - -procedure TfrViewGridBase.GotoLast; -begin - if Assigned(_FocusedView) then - _FocusedView.DataController.GotoLast; -end; - -function TfrViewGridBase.IsEmpty: Boolean; -begin - Result := (_FocusedView.ViewData.RowCount < 1); -end; - -procedure TfrViewGridBase.Preview; -begin - -end; - -procedure TfrViewGridBase.Print; -begin - -end; - -procedure TfrViewGridBase.PrintSetup; -begin - -end; - -procedure TfrViewGridBase.RestoreFromRegistry(const Path : String); -begin - if Assigned(_FocusedView) then - _FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, []); -end; - -procedure TfrViewGridBase.RestoreGridStatus; -begin - if Assigned(FGridStatus) then - FGridStatus.Restore(_FocusedView); -end; - -procedure TfrViewGridBase.SaveGridStatus; -begin - FreeAndNil(FGridStatus); - FGridStatus := TcxGridStatus.Create(_FocusedView); -end; - -procedure TfrViewGridBase.SetDblClick(const Value: TNotifyEvent); -begin - FOnDblClick := Value; -end; - -procedure TfrViewGridBase.SetFilter(const Value: string); -begin - if FFilter <> Value then - begin - FFilter := Value; - FiltrarGrid(FFilter); - if Assigned(FOnFilterChanged) then - FOnFilterChanged(Self); - end; -end; - -procedure TfrViewGridBase.SetMultiSelect(const Value: Boolean); -begin - _FocusedView.OptionsSelection.MultiSelect := Value; -// _FocusedView..OnSelectionChanged := SelectionChanged; -end; - -procedure TfrViewGridBase.SetPopupMenu(const Value: TPopupMenu); -begin - FPopupMenu := Value; -end; - -procedure TfrViewGridBase.ShowEmbedded(const AParent: TWinControl); -begin - inherited; - - // No activar la tabla ya por si acaso tuviera parámetros -{ if not DADataSource.DataTable.Active then - DADataSource.DataTable.Active := True;} - - GotoFirst; - _FocusedView.Focused := True; - if _FocusedView.ViewData.RecordCount > 0 then - begin - _FocusedView.ViewData.Records[0].Selected := True; - _FocusedView.ViewData.Records[0].Focused := True; - end; -end; - -procedure TfrViewGridBase.StoreToRegistry(const Path : String); -begin - if Assigned(_FocusedView) then - _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, []); -end; - -procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String); -var - Columna: TcxGridDBColumn; - i: Integer; - AItemList: TcxFilterCriteriaItemList; -begin - with _FocusedView.DataController.Filter do - begin - BeginUpdate; - try - Options := [fcoCaseInsensitive, fcoSoftCompare]; - Root.Clear; - if Length(TextoFiltro) > 0 then - begin - AItemList := Root.AddItemList(fboAnd); - AItemList.BoolOperatorKind := fboOr; - for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do - begin - Columna := (_FocusedView as TcxGridDBTableView).Columns[i]; - if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then - AItemList.AddItem(Columna, foLike, '%'+TextoFiltro+'%', IntToStr(i)); - end; - Active := True; - end - else - Active := False; - finally - EndUpdate; - end; - end; -end; - - -procedure TfrViewGridBase.FilterChanged(Sender: TObject); -begin -// -end; - -destructor TfrViewGridBase.Destroy; -begin - FOnFilterChanged := Nil; - if Assigned(FGridStatus) then - FreeAndNil(FGridStatus); - inherited; -end; - -end. - diff --git a/Source/Base/GUIBase/bdertl.drc b/Source/Base/GUIBase/bdertl.drc deleted file mode 100644 index 601fdc4f..00000000 --- a/Source/Base/GUIBase/bdertl.drc +++ /dev/null @@ -1,32 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -/* uViewBase.dfm */ -/* uEditorBase.dfm */ -/* uEditorItem.dfm */ -/* uEditorDBBase.dfm */ -/* uViewFiltroBase.dfm */ -/* uViewGridBase.dfm */ -/* uEditorGridBase.dfm */ -/* uViewPreview.dfm */ -/* uEditorPreview.dfm */ -/* uEditorDBItem.dfm */ -/* uViewBarraSeleccion.dfm */ -/* uViewFormaPago.dfm */ -/* uViewObservaciones.dfm */ -/* uViewTotales.dfm */ -/* uViewDetallesBase.dfm */ -/* uViewIncidencias.dfm */ -/* uViewDetallesDTO.dfm */ -/* uViewDetallesGenerico.dfm */ -/* uViewGrid2Niveles.dfm */ -/* uEditorBasico.dfm */ -/* uDialogBase.dfm */ -/* uViewGrid.dfm */ diff --git a/Source/Base/GUIBase/uBizInformesAware.dcu b/Source/Base/GUIBase/uBizInformesAware.dcu deleted file mode 100644 index 2865bd06..00000000 Binary files a/Source/Base/GUIBase/uBizInformesAware.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uBizInformesAware.pas b/Source/Base/GUIBase/uBizInformesAware.pas deleted file mode 100644 index 58ac9c05..00000000 --- a/Source/Base/GUIBase/uBizInformesAware.pas +++ /dev/null @@ -1,14 +0,0 @@ -unit uBizInformesAware; - -interface - -type - IBizInformesAware = interface - ['{98AD6541-199F-4155-B394-ED0316298759}'] - procedure Preview; - procedure Print; - end; - -implementation - -end. diff --git a/Source/Base/GUIBase/uDialogBase.dcu b/Source/Base/GUIBase/uDialogBase.dcu deleted file mode 100644 index d9e06eb2..00000000 Binary files a/Source/Base/GUIBase/uDialogBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uDialogBase.dfm b/Source/Base/GUIBase/uDialogBase.dfm deleted file mode 100644 index bd474ab3..00000000 --- a/Source/Base/GUIBase/uDialogBase.dfm +++ /dev/null @@ -1,106 +0,0 @@ -object fDialogBase: TfDialogBase - Left = 0 - Top = 0 - BorderStyle = bsDialog - Caption = 'fDialogBase' - ClientHeight = 430 - ClientWidth = 623 - Color = clWindow - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - OldCreateOrder = False - Position = poMainFormCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object pnlBotones: TFlowPanel - Left = 0 - Top = 374 - Width = 623 - Height = 56 - Align = alBottom - FlowStyle = fsBottomTopRightLeft - Padding.Left = 20 - Padding.Top = 20 - Padding.Right = 20 - Padding.Bottom = 15 - ParentBackground = False - TabOrder = 0 - VerticalAlignment = taAlignTop - object Button1: TButton - Left = 527 - Top = 15 - Width = 75 - Height = 25 - Action = actCancelar - TabOrder = 0 - end - object Button2: TButton - AlignWithMargins = True - Left = 437 - Top = 15 - Width = 75 - Height = 25 - Margins.Left = 0 - Margins.Top = 0 - Margins.Right = 15 - Margins.Bottom = 0 - Action = actAceptar - TabOrder = 1 - end - end - object FlowPanel1: TFlowPanel - Left = 0 - Top = 0 - Width = 623 - Height = 374 - Align = alClient - Padding.Left = 30 - Padding.Top = 30 - Padding.Right = 30 - Padding.Bottom = 30 - ParentColor = True - TabOrder = 1 - object lblInstruccion: TLabel - AlignWithMargins = True - Left = 31 - Top = 31 - Width = 78 - Height = 19 - Margins.Left = 0 - Margins.Top = 0 - Margins.Right = 0 - Margins.Bottom = 20 - Align = alTop - Caption = 'Instrucci'#243'n' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - end - object Label2: TLabel - Left = 31 - Top = 70 - Width = 571 - Height = 81 - Align = alTop - AutoSize = False - Caption = 'Comentarios' - end - end - object ActionList1: TActionList - Left = 16 - Top = 384 - object actAceptar: TAction - Caption = '&Aceptar' - end - object actCancelar: TAction - Caption = '&Cancelar' - end - end -end diff --git a/Source/Base/GUIBase/uDialogBase.pas b/Source/Base/GUIBase/uDialogBase.pas deleted file mode 100644 index 959620f4..00000000 --- a/Source/Base/GUIBase/uDialogBase.pas +++ /dev/null @@ -1,39 +0,0 @@ -unit uDialogBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, ActnList; - -type - TfDialogBase = class(TForm) - pnlBotones: TFlowPanel; - Button1: TButton; - Button2: TButton; - ActionList1: TActionList; - actAceptar: TAction; - actCancelar: TAction; - FlowPanel1: TFlowPanel; - lblInstruccion: TLabel; - Label2: TLabel; - procedure FormShow(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -implementation - -{$R *.dfm} - -uses - uDataModuleBase, JvNavigationPane; - -procedure TfDialogBase.FormShow(Sender: TObject); -begin - lblInstruccion.Font.Color := dmBase.StyleManager.Colors.HeaderColorTo; -end; - -end. diff --git a/Source/Base/GUIBase/uEditorBase.dcu b/Source/Base/GUIBase/uEditorBase.dcu deleted file mode 100644 index c9e8ed27..00000000 Binary files a/Source/Base/GUIBase/uEditorBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uEditorBase.dfm b/Source/Base/GUIBase/uEditorBase.dfm deleted file mode 100644 index 99526794..00000000 --- a/Source/Base/GUIBase/uEditorBase.dfm +++ /dev/null @@ -1,1705 +0,0 @@ -object fEditorBase: TfEditorBase - Left = 222 - Top = 127 - Caption = 'EditorBase' - ClientHeight = 458 - ClientWidth = 795 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - KeyPreview = True - OldCreateOrder = False - Position = poDefault - OnActivate = CustomEditorActivate - OnCloseQuery = FormCloseQuery - OnShow = FormShow - InstanceID = 0 - ReadOnly = False - PixelsPerInch = 96 - TextHeight = 13 - object JvNavPanelHeader: TJvNavPanelHeader - Left = 0 - Top = 49 - Width = 795 - Align = alTop - Caption = 'Editor' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindow - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - ColorFrom = 8684164 - ColorTo = 8684164 - ImageIndex = 0 - StyleManager = dmBase.StyleManager - ParentStyleManager = False - object Image1: TImage - Left = 768 - Top = 0 - Width = 27 - Height = 27 - Align = alRight - Center = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 520000000467414D410000AA11B57D14DC000001CC4944415478DA63FCFFFF3F - 032D0123B2058B361EA79A6D71FE968C582D004A906CD8DFBFFF80F83F980601 - 0BDF6C868B7B66E1B6C0752FAA25BB9D8FE3341C59ED5A8B030CF356EF6198BF - 64237E0B4871B9C7016B0659651686F9DB8E30BC8BFEC6B070FD3EC21660F301 - BA18086CB53DC2E07DD88661CFCD1360FEEB882F0C4B361DA0CC07FFFF01C31A - 88FF005D0F62FFFE070CFF3FFFC0BEF9F3EF2FC38A2D8749F7013100E48B4741 - EF18D6EE38469C05306F9302EEFBBF61D8B0FB047116E04B39D80048CF4CD5CD - 0C9BF69D24DE025C4105B31C260F533B4D7913C3D603A768E783890A1B18761D - 3E433B1FF4C9AC63D87BFC1CED7CD02DB986E1C0A90BF82D88F63107E74E727C - D02EBE8AE1C8994BF82D88F03403E74E727CD024BC9CE1E485ABF82D08753361 - F03B66479605F5024B19CE5CBE8EDF8200172386E0130E780D0359BEE4CF5C38 - 3F8625196C410DEF6286F3D76EE2B7C0D7C1005EAE40CAF97FE0B2072C062CF3 - 73EFFB63C40F8C5FC9BD88E1D28D5BF82DF0B2D5C36938882E78148835F888B6 - C0CD5A1BA7E1A012B4E46930CEA023CA0247730DB061FFFE428AE5DF7F11C5F1 - BFFF508BFEFD437104322068819D891AB844A404E0B5A077F27C8A0C87019805 - 00F0E629EF34B079A30000000049454E44AE426082} - Transparent = True - ExplicitLeft = 627 - end - end - object TBXDock: TTBXDock - Left = 0 - Top = 0 - Width = 795 - Height = 49 - object tbxMain: TTBXToolbar - Left = 0 - Top = 23 - Caption = 'tbxMain' - ChevronHint = 'M'#225's botones|' - DockMode = dmCannotFloatOrChangeDocks - DockPos = -23 - DockRow = 1 - Images = SmallImages - ParentShowHint = False - ShowHint = True - TabOrder = 0 - object TBXItem2: TTBXItem - Action = actNuevo - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem1: TTBXSeparatorItem - end - object TBXItem29: TTBXItem - Action = actGuardarCerrar - DisplayMode = nbdmImageAndText - end - object TBXItem27: TTBXItem - Action = actGuardar - end - object TBXItem5: TTBXItem - Action = actModificar - DisplayMode = nbdmImageAndText - end - object TBXItem4: TTBXItem - Action = actEliminar - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem3: TTBXSeparatorItem - end - object TBXItem23: TTBXItem - Action = actPrevisualizar - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem2: TTBXSeparatorItem - Visible = False - end - object TBXItem24: TTBXItem - Action = actConfPagina - Visible = False - end - object TBXItem3: TTBXItem - Action = actImprimir - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem10: TTBXSeparatorItem - end - object TBXItem26: TTBXItem - Action = actAnterior - end - object TBXItem25: TTBXItem - Action = actSiguiente - end - object TBXItem6: TTBXItem - Action = actRefrescar - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem11: TTBXSeparatorItem - end - object TBXItem28: TTBXItem - Action = actCerrar - end - end - object tbxMenu: TTBXToolbar - Left = 0 - Top = 0 - Caption = 'Menu' - CloseButton = False - DragHandleStyle = dhNone - FullSize = True - Images = SmallImages - MenuBar = True - ProcessShortCuts = True - ShrinkMode = tbsmWrap - TabOrder = 1 - object TBXSubmenuItem4: TTBXSubmenuItem - Caption = '&Archivo' - object TBXItem8: TTBXItem - Action = actNuevo - end - object TBXSeparatorItem5: TTBXSeparatorItem - end - object TBXItem30: TTBXItem - Action = actGuardar - end - object TBXItem10: TTBXItem - Action = actModificar - end - object TBXSeparatorItem12: TTBXSeparatorItem - end - object TBXItem11: TTBXItem - Action = actEliminar - end - object TBXSeparatorItem15: TTBXSeparatorItem - end - object TBXItem21: TTBXItem - Action = actConfPagina - end - object TBXItem22: TTBXItem - Action = actPrevisualizar - end - object TBXItem9: TTBXItem - Action = actImprimir - end - object TBXSeparatorItem4: TTBXSeparatorItem - end - object TBXItem1: TTBXItem - Action = actCerrar - end - end - object TBXSubmenuItem5: TTBXSubmenuItem - Caption = '&Edici'#243'n' - object TBXItem16: TTBXItem - Action = actDeshacer - end - object TBXSeparatorItem8: TTBXSeparatorItem - end - object TBXItem15: TTBXItem - Action = actCortar - end - object TBXItem14: TTBXItem - Action = actCopiar - end - object TBXItem13: TTBXItem - Action = actPegar - end - object TBXSeparatorItem7: TTBXSeparatorItem - end - object TBXItem12: TTBXItem - Action = actLimpiar - end - object TBXSeparatorItem9: TTBXSeparatorItem - end - object TBXItem17: TTBXItem - Action = actSeleccionarTodo - end - end - object TBXSubmenuItem1: TTBXSubmenuItem - Caption = '&Buscar' - object TBXItem32: TTBXItem - Action = actAnterior - end - object TBXItem31: TTBXItem - Action = actSiguiente - end - object TBXSeparatorItem13: TTBXSeparatorItem - end - object TBXItem20: TTBXItem - Action = actBuscar - end - end - object TBXSubmenuItem6: TTBXSubmenuItem - Caption = '&Ver' - object TBXItem18: TTBXItem - Action = actRefrescar - end - end - object TBXSubmenuItem7: TTBXSubmenuItem - Caption = 'Ay&uda' - object TBXItem19: TTBXItem - Action = actAcercaDe - end - end - end - end - object StatusBar: TJvStatusBar - Left = 0 - Top = 439 - Width = 795 - Height = 19 - Panels = <> - end - object EditorActionList: TActionList - Images = SmallImages - Left = 16 - Top = 144 - object actNuevo: TAction - Category = 'Archivo' - Caption = 'Nuevo' - ShortCut = 45 - OnExecute = actNuevoExecute - end - object actModificar: TAction - Category = 'Archivo' - Caption = 'Modificar' - ImageIndex = 18 - OnExecute = actModificarExecute - OnUpdate = actModificarUpdate - end - object actGuardarCerrar: TAction - Category = 'Archivo' - Caption = 'G&uardar y cerrar' - ImageIndex = 17 - OnExecute = actGuardarCerrarExecute - OnUpdate = actGuardarCerrarUpdate - end - object actGuardar: TAction - Category = 'Archivo' - Caption = '&Guardar' - ImageIndex = 17 - OnExecute = actGuardarExecute - OnUpdate = actGuardarUpdate - end - object actEliminar: TAction - Category = 'Archivo' - Caption = 'Eliminar' - ImageIndex = 4 - ShortCut = 16430 - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - object actConfPagina: TAction - Category = 'Archivo' - Caption = '&Configurar p'#225'gina' - ImageIndex = 8 - OnExecute = actConfPaginaExecute - end - object actPrevisualizar: TAction - Category = 'Archivo' - Caption = '&Previsualizar' - ImageIndex = 6 - OnExecute = actPrevisualizarExecute - end - object actImprimir: TAction - Category = 'Archivo' - Caption = 'Imprimir' - ImageIndex = 7 - ShortCut = 16464 - OnExecute = actImprimirExecute - end - object actDeshacer: TEditUndo - Category = 'Edici'#243'n' - Caption = 'Deshacer' - Hint = 'Undo|Reverts the last action' - ImageIndex = 12 - ShortCut = 16474 - end - object actCortar: TEditCut - Category = 'Edici'#243'n' - Caption = 'Cortar' - Hint = 'Cortar|Corta la selecci'#243'n y la coloca en el portapapeles' - ImageIndex = 3 - ShortCut = 16472 - end - object actCerrar: TAction - Category = 'Archivo' - Caption = 'Cerrar' - OnExecute = actCerrarExecute - end - object actCopiar: TEditCopy - Category = 'Edici'#243'n' - Caption = 'Copiar' - Hint = 'Copiar|Copia la selecci'#243'n y la coloca en el portapapeles' - ImageIndex = 2 - ShortCut = 16451 - end - object actPegar: TEditPaste - Category = 'Edici'#243'n' - Caption = 'Pegar' - Hint = 'Pegar|Inserta el contenido del portapapeles' - ImageIndex = 5 - ShortCut = 16470 - end - object actSeleccionarTodo: TEditSelectAll - Category = 'Edici'#243'n' - Caption = 'Seleccionar todo' - Hint = 'Seleccionar todo' - ImageIndex = 11 - ShortCut = 16449 - end - object actLimpiar: TEditDelete - Category = 'Edici'#243'n' - Caption = '&Limpiar' - Hint = 'Limpiar|Borra el texto seleccionado' - ImageIndex = 1 - ShortCut = 46 - end - object actRefrescar: TAction - Category = 'Ver' - Caption = 'Actualizar' - Hint = 'Actualizar los datos' - ImageIndex = 9 - ShortCut = 116 - OnExecute = actRefrescarExecute - end - object actAcercaDe: TAction - Category = 'Ayuda' - Caption = 'Acerca de...' - ImageIndex = 0 - end - object actBuscar: TAction - Category = 'Buscar' - Caption = 'Buscar' - ImageIndex = 10 - ShortCut = 114 - end - object actAnterior: TAction - Category = 'Ver' - Caption = 'Anterior' - ImageIndex = 15 - end - object actSiguiente: TAction - Category = 'Ver' - Caption = 'Siguiente' - ImageIndex = 16 - end - object actCancelarCambios: TAction - Category = 'Archivo' - Caption = 'Cancelar cambios' - OnExecute = actCancelarCambiosExecute - end - object actDuplicar: TAction - Category = 'Archivo' - Caption = 'Duplicar' - ImageIndex = 20 - OnExecute = actDuplicarExecute - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA - A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 - 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 - 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F - 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 - 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 - 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA - 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E - 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 - E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 - 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 - 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 - 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB - 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 - 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 - E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 - D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 - 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 - A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E - AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 - 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 - 5538F0EAB25B380000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001034944415478DA - 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 - 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D - 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A - 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 - 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 - 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE - B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 - F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A - 7A68BA98860000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 395 - Top = 80 - Bitmap = {} - end - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 427 - Top = 80 - Bitmap = {} - end - object JvFormStorage: TJvFormStorage - AppStorage = JvAppRegistryStorage - AppStoragePath = 'fEditorBase\' - VersionCheck = fpvcNocheck - StoredValues = <> - Left = 392 - Top = 120 - end - object JvAppRegistryStorage: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - Root = 'Software\%APPL_NAME%' - SubStorages = <> - Left = 424 - Top = 120 - end - object StatusBarImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001E24944415478DAA5932B93DB3014858F9959C46A669599456561166B - 59DD5F50C342E717C461652B58A8658182810A0BABC35C26B394C92C8BDC6BB9 - 9BCD63A7339DB547638D1EDF3DE7488EF0C627BA1D70466896303FE352747B9D - A78B62D77B677DEBA0AC342C663F9D77F0473F2E7F7F0718DAA2EE9C5BA58B12 - 5DD320150204024BF85A6DC44A4A097FF27004ACEBBABB071C6B8B98E588057A - EF31630C3835D4FC6EF9DDE76221D0EC1B789A33C6F491327EC009449D5AC904 - 55A3969598BD93E87F5BF85613802A6A01216F011B3FB06416AA8F80823F224D - C8DF8D82CE3394A5DE0921F271F39881D99A7500843882020F9158C85891F702 - 9405D26CCAC0C52579364BCEF9C3B86E54E19CFB10996D337CFE389F027802BA - 760D465567F1D837002FC0E875270E91C988677CE00987B5B6A71DEC0C38FCEA - 820A9EA5B0FB43E0896C8EF2DB12D6A8CBB02B3A8907022CA9AFCE80FEE9EFF4 - 69FA3CDB7A0500B23190FC3016E9AD1DBECA1C87B60B210A5260ECA4402E5E55 - 00BA4C15E5A02680B143F1293F57F7972AE85B55D780AAAA6A02ACD40FF5854E - C3447A4380220FBEC70D52CC5F32A0FE2D806EDF281F5AEB202052DA0E65915F - F97E51D113A0BE02D009D4EEE856D49D4254DA0C7A63465FCF88A0E4C2EF5D06 - FFFC1BFFF7F903DDDC21F8890148C20000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 40 - Top = 392 - Bitmap = {} - end -end diff --git a/Source/Base/GUIBase/uEditorBase.pas b/Source/Base/GUIBase/uEditorBase.pas deleted file mode 100644 index d4b11a2e..00000000 --- a/Source/Base/GUIBase/uEditorBase.pas +++ /dev/null @@ -1,460 +0,0 @@ -unit uEditorBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - uGUIBase, uCustomEditor, ToolWin, ComCtrls, JvExControls, - JvComponent, JvNavigationPane, ActnList, TBX, TB2Item, ImgList, - PngImageList, StdActns, JvFormAutoSize, AppEvnts, uCustomView, uViewBase, - JvAppStorage, JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls, - JvComponentBase, TB2Dock, TB2Toolbar, dxLayoutLookAndFeels, TBXStatusBars, - JvExComCtrls, JvStatusBar; - -type - IEditorBase = interface(ICustomEditor) - ['{CB8CDE00-B225-4A1D-9A5C-EC6FBE2C854B}'] - function ShowModal : Integer; - procedure Show; - end; - - TfEditorBase = class(TCustomEditor, IEditorBase) - actAcercaDe: TAction; - actAnterior: TAction; - actBuscar: TAction; - actCancelarCambios: TAction; - actCerrar: TAction; - actConfPagina: TAction; - actCopiar: TEditCopy; - actCortar: TEditCut; - actDeshacer: TEditUndo; - actEliminar: TAction; - actGuardar: TAction; - actGuardarCerrar: TAction; - actImprimir: TAction; - actLimpiar: TEditDelete; - actModificar: TAction; - actNuevo: TAction; - actPegar: TEditPaste; - actPrevisualizar: TAction; - actRefrescar: TAction; - actSeleccionarTodo: TEditSelectAll; - actSiguiente: TAction; - EditorActionList: TActionList; - JvNavPanelHeader: TJvNavPanelHeader; - LargeImages: TPngImageList; - SmallImages: TPngImageList; - TBXDock: TTBXDock; - TBXItem1: TTBXItem; - TBXItem10: TTBXItem; - TBXItem11: TTBXItem; - TBXItem12: TTBXItem; - TBXItem13: TTBXItem; - TBXItem14: TTBXItem; - TBXItem15: TTBXItem; - TBXItem16: TTBXItem; - TBXItem17: TTBXItem; - TBXItem18: TTBXItem; - TBXItem19: TTBXItem; - TBXItem2: TTBXItem; - TBXItem20: TTBXItem; - TBXItem21: TTBXItem; - TBXItem22: TTBXItem; - TBXItem23: TTBXItem; - TBXItem24: TTBXItem; - TBXItem25: TTBXItem; - TBXItem26: TTBXItem; - TBXItem27: TTBXItem; - TBXItem28: TTBXItem; - TBXItem29: TTBXItem; - TBXItem3: TTBXItem; - TBXItem30: TTBXItem; - TBXItem31: TTBXItem; - TBXItem32: TTBXItem; - TBXItem4: TTBXItem; - TBXItem5: TTBXItem; - TBXItem6: TTBXItem; - TBXItem8: TTBXItem; - TBXItem9: TTBXItem; - tbxMain: TTBXToolbar; - tbxMenu: TTBXToolbar; - TBXSeparatorItem1: TTBXSeparatorItem; - TBXSeparatorItem10: TTBXSeparatorItem; - TBXSeparatorItem11: TTBXSeparatorItem; - TBXSeparatorItem12: TTBXSeparatorItem; - TBXSeparatorItem13: TTBXSeparatorItem; - TBXSeparatorItem2: TTBXSeparatorItem; - TBXSeparatorItem3: TTBXSeparatorItem; - TBXSeparatorItem4: TTBXSeparatorItem; - TBXSeparatorItem5: TTBXSeparatorItem; - TBXSeparatorItem7: TTBXSeparatorItem; - TBXSeparatorItem8: TTBXSeparatorItem; - TBXSeparatorItem9: TTBXSeparatorItem; - TBXSubmenuItem1: TTBXSubmenuItem; - TBXSubmenuItem4: TTBXSubmenuItem; - TBXSubmenuItem5: TTBXSubmenuItem; - TBXSubmenuItem6: TTBXSubmenuItem; - TBXSubmenuItem7: TTBXSubmenuItem; - JvFormStorage: TJvFormStorage; - JvAppRegistryStorage: TJvAppRegistryStorage; - Image1: TImage; - TBXSeparatorItem15: TTBXSeparatorItem; - StatusBarImages: TPngImageList; - StatusBar: TJvStatusBar; - procedure actCerrarExecute(Sender: TObject); - procedure actGuardarCerrarExecute(Sender: TObject); - procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); - procedure CustomEditorActivate(Sender: TObject); - procedure actModificarExecute(Sender: TObject); - procedure actGuardarExecute(Sender: TObject); - procedure actPrevisualizarExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actNuevoExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actConfPaginaExecute(Sender: TObject); - procedure actCancelarCambiosExecute(Sender: TObject); - procedure actDuplicarExecute(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actGuardarCerrarUpdate(Sender: TObject); - procedure actGuardarUpdate(Sender: TObject); - protected - procedure CreateParams(Var params: TCreateParams); override; - procedure ActualizarEstadoEditor; virtual; - function ModifiedQuery : Boolean; - procedure ModificarInterno; virtual; - procedure EliminarInterno; virtual; - procedure GuardarInterno; virtual; - procedure NuevoInterno; virtual; - procedure ImprimirInterno; virtual; - procedure PrevisualizarInterno; virtual; - procedure ConfPaginaInterno; virtual; - procedure RefrescarInterno; virtual; - procedure CancelarCambiosInterno; virtual; - procedure CerrarInterno; virtual; - procedure DuplicarInterno; virtual; - procedure PonerTitulos(const ATitulo: String = ''); virtual; - procedure SetReadOnly(Value: Boolean); override; - public - constructor Create(AOwner: TComponent); override; - function ShowModal : Integer; - procedure Show; - published - procedure FormShow(Sender: TObject); virtual; - end; - - TfEditorBaseClass = class of TfEditorBase; - -implementation - -{$R *.dfm} - -uses - Menus, uDataModuleBase, cxControls, uDialogUtils; - -{ -********************************* TfEditorBase ********************************* -} -procedure TfEditorBase.actCancelarCambiosExecute(Sender: TObject); -begin - CancelarCambiosInterno; - ActualizarEstadoEditor; -end; - -procedure TfEditorBase.actCerrarExecute(Sender: TObject); -begin - CerrarInterno; -end; - -procedure TfEditorBase.actConfPaginaExecute(Sender: TObject); -begin - ConfPaginaInterno; - ActualizarEstadoEditor; -end; - -procedure TfEditorBase.actDuplicarExecute(Sender: TObject); -begin - DuplicarInterno; - ActualizarEstadoEditor; -end; - -procedure TfEditorBase.actEliminarExecute(Sender: TObject); -begin - if actEliminar.Enabled then - begin - EliminarInterno; - ActualizarEstadoEditor; - end; -end; - -procedure TfEditorBase.actEliminarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not ReadOnly; -end; - -procedure TfEditorBase.actGuardarCerrarExecute(Sender: TObject); -begin - ShowHourglassCursor; - try - if actGuardar.Execute then - actCerrar.Execute; - finally - HideHourglassCursor; - end; -end; - -procedure TfEditorBase.actGuardarCerrarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not ReadOnly; -end; - -procedure TfEditorBase.actGuardarExecute(Sender: TObject); -begin - GuardarInterno; - ActualizarEstadoEditor; -end; - -procedure TfEditorBase.actGuardarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not ReadOnly; -end; - -procedure TfEditorBase.actImprimirExecute(Sender: TObject); -begin - if actImprimir.Enabled then - begin - ImprimirInterno; - ActualizarEstadoEditor; - end; -end; - -procedure TfEditorBase.actModificarExecute(Sender: TObject); -begin - if actModificar.Enabled then - begin - ModificarInterno; - ActualizarEstadoEditor; - end; -end; - -procedure TfEditorBase.actModificarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not ReadOnly; -end; - -procedure TfEditorBase.actNuevoExecute(Sender: TObject); -begin - if actNuevo.Enabled then - begin - NuevoInterno; - ActualizarEstadoEditor; - end; -end; - -procedure TfEditorBase.actPrevisualizarExecute(Sender: TObject); -begin - if actPrevisualizar.Enabled then - begin - PrevisualizarInterno; - ActualizarEstadoEditor; - end; -end; - -procedure TfEditorBase.actRefrescarExecute(Sender: TObject); -begin - if actRefrescar.Enabled then - begin - RefrescarInterno; - ActualizarEstadoEditor; - end; -end; - -procedure TfEditorBase.ActualizarEstadoEditor; -begin - PonerTitulos; -end; - -procedure TfEditorBase.CancelarCambiosInterno; -begin - // -end; - -procedure TfEditorBase.CerrarInterno; -begin - Close; -end; - -procedure TfEditorBase.ConfPaginaInterno; -begin - // -end; - -constructor TfEditorBase.Create(AOwner: TComponent); -var - APath : String; -begin - inherited; - with JvFormStorage do - begin - if Pos('_', Self.Name) = 0 then - APath := Self.Name - else - APath := Copy(Self.Name, 0, (Pos('_', Self.Name)-1)); - AppStoragePath := APath; - end; - JvNavPanelHeader.StyleManager := dmBase.StyleManager; -end; - -procedure TfEditorBase.CustomEditorActivate(Sender: TObject); -begin - PonerTitulos; -end; - -procedure TfEditorBase.DuplicarInterno; -begin - // -end; - -procedure TfEditorBase.EliminarInterno; -begin - // -end; - -procedure TfEditorBase.FormCloseQuery(Sender: TObject; var CanClose: Boolean); -begin - if Valid then - CanClose := ModifiedQuery - else - CanClose := False; -end; - -procedure TfEditorBase.FormShow(Sender: TObject); -begin - ActualizarEstadoEditor; - if Assigned(Parent) then - begin - StatusBar.Visible := False; - actCerrar.ShortCut := 0 - end - else begin - StatusBar.Visible := True; - actCerrar.ShortCut := ShortCut(VK_ESCAPE, []); - end; -end; - -procedure TfEditorBase.GuardarInterno; -begin - // -end; - -procedure TfEditorBase.ImprimirInterno; -begin - // -end; - -procedure TfEditorBase.ModificarInterno; -begin - // -end; - -function TfEditorBase.ModifiedQuery: Boolean; -var - Respuesta: Integer; -begin - Result := True; - if Modified then - begin - - Respuesta := ShowConfirmMessage('Atención', - 'Se han producido cambios', - '¿Desea guardar los cambios que se han producido antes de cerrar?', - [TDlgButton_SI, TDlgButton_NO, TDlgButton_CANCELAR]); - - case Respuesta of - IDYES : actGuardar.Execute; - IDNO : actCancelarCambios.Execute; - else - Result := False; - end; - end -end; - -procedure TfEditorBase.NuevoInterno; -begin - // -end; - -procedure TfEditorBase.PonerTitulos(const ATitulo: String); -begin - if ReadOnly then - begin - JvNavPanelHeader.Caption := ATitulo + ' (NO MODIFICABLE)'; - Caption := ATitulo + ' (NO MODIFICABLE)'; - end - else - begin - JvNavPanelHeader.Caption := ATitulo; - Caption := ATitulo; - end; -end; - -procedure TfEditorBase.PrevisualizarInterno; -begin - // -end; - -procedure TfEditorBase.RefrescarInterno; -begin - // -end; - -procedure TfEditorBase.SetReadOnly(Value: Boolean); -var - i: integer; -begin - inherited; - - if ReadOnly then - for i:=0 to Self.ComponentCount-1 do - begin - If Self.Components[i] Is TfrViewBase then - (Self.Components[i] as TfrViewBase).ReadOnly := ReadOnly - end; -end; - -procedure TfEditorBase.Show; -begin - inherited Show; -// Self.WindowState := wsNormal; -// self.FormStyle := fsNormal; -end; - -procedure TfEditorBase.CreateParams(var params: TCreateParams); -begin - //No tocar, sirve para crear varios formularios hijos abiertos a la vez fuera de la aplicación principal - inherited CreateParams( params ); - params.Style := params.Style and not WS_POPUP; - params.ExStyle := params.ExStyle and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW; -end; - -function TfEditorBase.ShowModal: Integer; -var - ABorderIcons : TBorderIcons; -begin - ABorderIcons := Self.BorderIcons; - Self.BorderIcons := Self.BorderIcons - [biMinimize]; - try - Result := inherited ShowModal; - finally - Self.BorderIcons := ABorderIcons; - end; -end; - -initialization - RegisterClass(TfEditorBase); - -finalization - UnRegisterClass(TfEditorBase); - -end. diff --git a/Source/Base/GUIBase/uEditorBasico.dcu b/Source/Base/GUIBase/uEditorBasico.dcu deleted file mode 100644 index ea63fa9b..00000000 Binary files a/Source/Base/GUIBase/uEditorBasico.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uEditorBasico.dfm b/Source/Base/GUIBase/uEditorBasico.dfm deleted file mode 100644 index ef85a644..00000000 --- a/Source/Base/GUIBase/uEditorBasico.dfm +++ /dev/null @@ -1,18 +0,0 @@ -object fEditorBasico: TfEditorBasico - Left = 0 - Top = 0 - Caption = 'fEditorBasico' - ClientHeight = 236 - ClientWidth = 383 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - OldCreateOrder = False - InstanceID = 0 - ReadOnly = False - PixelsPerInch = 96 - TextHeight = 13 -end diff --git a/Source/Base/GUIBase/uEditorBasico.pas b/Source/Base/GUIBase/uEditorBasico.pas deleted file mode 100644 index 7a8e97d1..00000000 --- a/Source/Base/GUIBase/uEditorBasico.pas +++ /dev/null @@ -1,26 +0,0 @@ -unit uEditorBasico; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uGUIBase, uCustomEditor; - -type - IEditorBasico = interface(ICustomEditor) - ['{CE4B2B04-F8DA-4C96-B071-CC5792C14D51}'] - function ShowModal : Integer; - end; - - TfEditorBasico = class(TCustomEditor, IEditorBasico) - end; - -implementation -{$R *.dfm} - -initialization - RegisterClass(TfEditorBasico); - -finalization - UnRegisterClass(TfEditorBasico); -end. diff --git a/Source/Base/GUIBase/uEditorDBBase.dcu b/Source/Base/GUIBase/uEditorDBBase.dcu deleted file mode 100644 index 666ff593..00000000 Binary files a/Source/Base/GUIBase/uEditorDBBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uEditorDBBase.dfm b/Source/Base/GUIBase/uEditorDBBase.dfm deleted file mode 100644 index 170fdac7..00000000 --- a/Source/Base/GUIBase/uEditorDBBase.dfm +++ /dev/null @@ -1,59 +0,0 @@ -inherited fEditorDBBase: TfEditorDBBase - Left = 295 - Top = 247 - Caption = 'fEditorDBBase' - ClientHeight = 456 - ClientWidth = 648 - ExplicitWidth = 656 - ExplicitHeight = 490 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 648 - ExplicitWidth = 648 - inherited Image1: TImage - Left = 621 - ExplicitLeft = 625 - end - end - inherited TBXDock: TTBXDock - Width = 648 - ExplicitWidth = 648 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 648 - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 648 - end - end - inherited StatusBar: TJvStatusBar - Top = 437 - Width = 648 - ExplicitTop = 437 - ExplicitWidth = 648 - end - inherited EditorActionList: TActionList - inherited actPrevisualizar: TAction - OnUpdate = actPrevisualizarUpdate - end - inherited actImprimir: TAction - OnUpdate = actImprimirUpdate - end - inherited actRefrescar: TAction - OnUpdate = actRefrescarUpdate - end - inherited actAnterior: TAction - OnExecute = actAnteriorExecute - OnUpdate = actAnteriorUpdate - end - inherited actSiguiente: TAction - OnExecute = actSiguienteExecute - OnUpdate = actSiguienteUpdate - end - end - object dsDataTable: TDADataSource [7] - OnDataChange = dsDataTableDataChange - Left = 40 - Top = 88 - end -end diff --git a/Source/Base/GUIBase/uEditorDBBase.pas b/Source/Base/GUIBase/uEditorDBBase.pas deleted file mode 100644 index 06389865..00000000 --- a/Source/Base/GUIBase/uEditorDBBase.pas +++ /dev/null @@ -1,256 +0,0 @@ -unit uEditorDBBase; - -interface - -uses - Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms, - uEditorItem, ImgList, PngImageList, StdActns, ActnList, TBX, - TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent, - JvNavigationPane, DB, uDADataTable, uEditorBase, JvFormAutoSize, - uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase, - JvAppStorage, JvAppRegistryStorage, JvFormPlacement, - pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase, TBXStatusBars, - JvExComCtrls, JvStatusBar, uDAInterfaces; - -type - IEditorDBBase = interface(IEditorBase) - ['{1F5B318F-F700-4C78-ABCE-E2329AD876B8}'] - end; - - TfEditorDBBase = class(TfEditorBase, IEditorDBBase) - dsDataTable: TDADataSource; - procedure actAnteriorExecute(Sender: TObject); - procedure actSiguienteExecute(Sender: TObject); - procedure actAnteriorUpdate(Sender: TObject); - procedure actSiguienteUpdate(Sender: TObject); - procedure actRefrescarUpdate(Sender: TObject); - procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); virtual; - procedure actEliminarUpdate(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actPrevisualizarUpdate(Sender: TObject); - procedure actImprimirUpdate(Sender: TObject); - procedure actGuardarUpdate(Sender: TObject); - procedure actGuardarCerrarUpdate(Sender: TObject); - procedure dsDataTableDataChange(Sender: TObject; Field: TField); - protected - function HayDatos: Boolean; - function GetModified: Boolean; override; - procedure RefrescarInterno; override; - procedure CancelarCambiosInterno; override; - end; - -implementation - -uses - uDataTableUtils, uBizInformesAware, cxControls, uCustomEditor; - -{$R *.dfm} - -procedure TfEditorDBBase.actAnteriorExecute(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - begin - if (not ModifiedQuery) then - Exit; - - dsDataTable.DataTable.Prior; - end; -end; - -procedure TfEditorDBBase.actSiguienteExecute(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - begin - if (not ModifiedQuery) then - Exit; - - dsDataTable.DataTable.Next; - end; -end; - -procedure TfEditorDBBase.actAnteriorUpdate(Sender: TObject); -begin - inherited; - if HayDatos then - (Sender as TAction).Enabled := not dsDataTable.DataTable.BOF - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorDBBase.actSiguienteUpdate(Sender: TObject); -begin - inherited; - if HayDatos then - (Sender as TAction).Enabled := not dsDataTable.DataTable.EOF - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorDBBase.CancelarCambiosInterno; -var - dtDetails : TList; - i : integer; - ABookmark : TBookmark; -begin - inherited; - - if Assigned(dsDataTable.DataTable) then - begin - ABookmark := dsDataTable.DataTable.GetBookMark; - dsDataTable.DataTable.DisableControls; -// dsDataTable.DataTable.DisableEventHandlers; <- No descomentar - - ShowHourglassCursor; - { No lo pongo en try..finally para ver posibles errores } - //try - dsDataTable.DataTable.Cancel; - - dtDetails := dsDataTable.DataTable.GetDetailDataTables; - for i := 0 to dtDetails.Count - 1 do - begin - (TDADataTable(dtDetails.Items[i])).Cancel; - end; - - dsDataTable.DataTable.CancelUpdates; - - { Comprobar si el bookmark no es válido cuando estamos cancelando la - inserción de una fila nueva. - CUIDADO!! Si no es válido salta una excepción. NO devuelve false!!!} - try - if (Assigned(ABookmark)) and - (dsDataTable.DataTable.Dataset.BookmarkValid(ABookmark)) then - dsDataTable.DataTable.GotoBookmark(ABookmark); - except - end; - - //finally - dsDataTable.DataTable.EnableControls; - dsDataTable.DataTable.FreeBookmark(ABookmark); -// dsDataTable.DataTable.EnableEventHandlers; <- No descomentar - HideHourglassCursor - //end; - end; -end; - -procedure TfEditorDBBase.dsDataTableDataChange(Sender: TObject; Field: TField); -begin - inherited; - ActualizarEstadoEditor; -end; - -procedure TfEditorDBBase.actRefrescarUpdate(Sender: TObject); -begin - inherited; - if HayDatos then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.Fetching) and - (not dsDataTable.DataTable.Opening) and - (not dsDataTable.DataTable.Closing) and - (dsDataTable.DataTable.State <> dsInsert) - else - (Sender as TAction).Enabled := False; - - //MODO CONSULTAR ITEM - if (Sender as TAction).Enabled - and Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := not dsDataTable.DataTable.ReadOnly; -end; - -function TfEditorDBBase.GetModified: Boolean; -begin - if ReadOnly then - Result := False - else - Result := DataTableModified(dsDataTable.DataTable) or inherited GetModified; -end; - -function TfEditorDBBase.HayDatos: Boolean; -begin - Result := Assigned(dsDataTable.DataTable) and (dsDataTable.DataTable.State <> dsInactive) - and (not dsDataTable.DataTable.IsEmpty); -end; - -procedure TfEditorDBBase.RefrescarInterno; -var - ABookmark : TBookmark; -begin - inherited; - if Assigned(dsDataTable.DataTable) then - begin - if (dsDataTable.DataTable.IsEmpty) or (not ModifiedQuery) then - Exit; // No continuar con el refresco - - ABookmark := dsDataTable.DataTable.GetBookMark; - dsDataTable.DataTable.DisableControls; //<- No descomentar - - ShowHourglassCursor; - try - dsDataTable.DataTable.Refresh; - - if dsDataTable.DataTable.Dataset.BookmarkValid(ABookmark) then - dsDataTable.DataTable.GotoBookmark(ABookmark); - finally - dsDataTable.DataTable.FreeBookmark(ABookmark); - dsDataTable.DataTable.EnableControls; //<- No descomentar - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorDBBase.FormCloseQuery(Sender: TObject; var CanClose: Boolean); -begin - { Para resetear el estado de la tabla en el caso de hacer un insert - sin meter ningún dato. } - if Assigned(dsDataTable.DataTable) and (not Modified) then - dsDataTable.DataTable.Cancel; - inherited; -end; - -procedure TfEditorDBBase.actEliminarUpdate(Sender: TObject); -begin - inherited; - if (Sender as TAction).Enabled then - (Sender as TAction).Enabled := HayDatos and (dsDataTable.DataTable.State <> dsInsert) -end; - -procedure TfEditorDBBase.actGuardarCerrarUpdate(Sender: TObject); -begin - inherited; - if (Sender as TAction).Enabled then - (Sender as TAction).Enabled := HayDatos; -end; - -procedure TfEditorDBBase.actGuardarUpdate(Sender: TObject); -begin - inherited; - if (Sender as TAction).Enabled then - (Sender as TAction).Enabled := HayDatos; -end; - -procedure TfEditorDBBase.actModificarUpdate(Sender: TObject); -begin - inherited; - if (Sender as TAction).Enabled then - (Sender as TAction).Enabled := HayDatos; -end; - -procedure TfEditorDBBase.actPrevisualizarUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := HayDatos; -end; - -procedure TfEditorDBBase.actImprimirUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := HayDatos; -end; - -initialization - RegisterClass(TfEditorDBBase); - -finalization - UnRegisterClass(TfEditorDBBase); - -end. diff --git a/Source/Base/GUIBase/uEditorDBItem.dcu b/Source/Base/GUIBase/uEditorDBItem.dcu deleted file mode 100644 index 073597ba..00000000 Binary files a/Source/Base/GUIBase/uEditorDBItem.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uEditorDBItem.dfm b/Source/Base/GUIBase/uEditorDBItem.dfm deleted file mode 100644 index 1b4fa877..00000000 --- a/Source/Base/GUIBase/uEditorDBItem.dfm +++ /dev/null @@ -1,103 +0,0 @@ -inherited fEditorDBItem: TfEditorDBItem - Left = 450 - Top = 321 - Caption = 'fEditorDBItem' - ClientHeight = 461 - ClientWidth = 652 - ExplicitWidth = 660 - ExplicitHeight = 495 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 652 - ExplicitWidth = 652 - inherited Image1: TImage - Left = 625 - ExplicitLeft = 627 - ExplicitHeight = 19 - end - end - inherited TBXDock: TTBXDock - Width = 652 - ExplicitWidth = 652 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 605 - inherited TBXItem26: TTBXItem - Visible = False - end - inherited TBXItem25: TTBXItem - Visible = False - end - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 652 - inherited TBXSubmenuItem1: TTBXSubmenuItem - Visible = False - end - end - end - object pgPaginas: TPageControl [2] - Left = 0 - Top = 76 - Width = 652 - Height = 366 - ActivePage = pagGeneral - Align = alClient - TabOrder = 2 - object pagGeneral: TTabSheet - Caption = 'General' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 - end - end - inherited StatusBar: TJvStatusBar - Top = 442 - Width = 652 - Panels = < - item - Width = 200 - Control = imgStatus - end> - ExplicitTop = 442 - ExplicitWidth = 652 - object imgStatus: TImage - Left = 3 - Top = 3 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000001E24944415478DAA5932B93DB3014858F99 - 59C46A669599456561166B59DD5F50C342E717C461652B58A8658182810A0BAB - C35C26B394C92C8BDC6BB99BCD63A7339DB547638D1EDF3DE7488EF0C627BA1D - 70466896303FE352747B9DA78B62D77B677DEBA0AC342C663F9D77F0473F2E7F - 7F0718DAA2EE9C5BA58B125DD320150204024BF85A6DC44A4A097FF27004ACEB - BABB071C6B8B98E588057AEF31630C3835D4FC6EF9DDE76221D0EC1B789A33C6 - F491327EC009449D5AC90455A3969598BD93E87F5BF85613802A6A01216F011B - 3FB06416AA8F80823F224DC8DF8D82CE3394A5DE0921F271F39881D99A750084 - 3882020F9158C85891F7029405D26CCAC0C52579364BCEF9C3B86E54E19CFB10 - 996D337CFE389F027802BA760D465567F1D837002FC0E875270E91C988677CE0 - 0987B5B6A71DEC0C38FCEA820A9EA5B0FB43E0896C8EF2DB12D6A8CBB02B3A89 - 07022CA9AFCE80FEE9EFF469FA3CDB7A0500B23190FC3016E9AD1DBECA1C87B6 - 0B210A5260ECA4402E5E5500BA4C15E5A02680B143F1293F57F7972AE85B55D7 - 80AAAA6A02ACD40FF5854EC3447A4380220FBEC70D52CC5F32A0FE2D806EDF28 - 1F5AEB202052DA0E65915FF97E51D113A0BE02D009D4EEE856D49D4254DA0C7A - 63465FCF88A0E4C2EF5D06FFFC1BFFF7F903DDDC21F8890148C2000000004945 - 4E44AE426082} - Transparent = True - end - end - inherited EditorActionList: TActionList - Top = 112 - inherited actEliminar: TAction - ShortCut = 0 - end - end - inherited dsDataTable: TDADataSource - Left = 48 - Top = 112 - end -end diff --git a/Source/Base/GUIBase/uEditorDBItem.pas b/Source/Base/GUIBase/uEditorDBItem.pas deleted file mode 100644 index f3f8fc65..00000000 --- a/Source/Base/GUIBase/uEditorDBItem.pas +++ /dev/null @@ -1,93 +0,0 @@ -unit uEditorDBItem; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - uEditorItem, ImgList, PngImageList, StdActns, ActnList, TBX, - TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent, - JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, - StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, - uViewBase, JvAppStorage, JvAppRegistryStorage, - JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels, - JvExComCtrls, JvStatusBar, uDAInterfaces; - -type - IEditorDBItem = interface(IEditorDBBase) - ['{497AE4CE-D061-4F75-A29A-320F8565FF54}'] - end; - - TfEditorDBItem = class(TfEditorDBBase, IEditorDBItem) - pgPaginas: TPageControl; - pagGeneral: TTabSheet; - imgStatus: TImage; - protected - procedure EliminarInterno; override; - procedure PrevisualizarInterno; override; - procedure ImprimirInterno; override; - procedure ActualizarEstadoEditor; override; - end; - -implementation - -uses - uBizInformesAware, uEditorBase, uDialogUtils; - -{$R *.dfm} - -procedure TfEditorDBItem.ActualizarEstadoEditor; -begin - inherited; - if HayDatos then - begin - if (Self.Modified) and (dsDataTable.DataTable.State <> dsInsert) then - begin - StatusBar.Panels[0].Text := ' Se han producido cambios'; - imgStatus.Visible := True; - end - else begin - imgStatus.Visible := False; - StatusBar.Panels[0].Text := ''; - end - end; -end; - -procedure TfEditorDBItem.EliminarInterno; -begin - inherited; - actCerrar.Execute; -end; - -procedure TfEditorDBItem.ImprimirInterno; -begin - inherited; - if Modified then - begin - if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede imprimir hasta que no se guarden.' + #10#13 + - '¿Desea guardarlos ahora?') = IDYES) then - actGuardar.Execute - else - ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.'); - end; -end; - -procedure TfEditorDBItem.PrevisualizarInterno; -begin - inherited; - if Modified then - begin - if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 + - '¿Desea guardarlos ahora?') = IDYES) then - actGuardar.Execute - else - ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.'); - end; -end; - -initialization - RegisterClass(TfEditorDBItem); - -finalization - UnRegisterClass(TfEditorDBItem); - -end. diff --git a/Source/Base/GUIBase/uEditorGridBase.dcu b/Source/Base/GUIBase/uEditorGridBase.dcu deleted file mode 100644 index 2705c328..00000000 Binary files a/Source/Base/GUIBase/uEditorGridBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uEditorGridBase.dfm b/Source/Base/GUIBase/uEditorGridBase.dfm deleted file mode 100644 index 23d50433..00000000 --- a/Source/Base/GUIBase/uEditorGridBase.dfm +++ /dev/null @@ -1,1566 +0,0 @@ -inherited fEditorGridBase: TfEditorGridBase - Left = 441 - Top = 354 - Caption = 'fEditorGridBase' - ClientHeight = 444 - ClientWidth = 543 - ExplicitWidth = 551 - ExplicitHeight = 478 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Top = 0 - Width = 543 - ExplicitTop = 0 - ExplicitWidth = 543 - inherited Image1: TImage - Left = 516 - ExplicitLeft = 518 - end - end - inherited TBXDock: TTBXDock - Top = 27 - Width = 543 - Height = 75 - ExplicitTop = 27 - ExplicitWidth = 543 - ExplicitHeight = 75 - inherited tbxMain: TTBXToolbar - DockPos = 0 - DragHandleStyle = dhDouble - TabOrder = 1 - ExplicitWidth = 457 - inherited TBXItem29: TTBXItem - Visible = False - end - inherited TBXItem27: TTBXItem - Visible = False - end - object TBXSeparatorItem6: TTBXSeparatorItem [6] - end - object TBXItem7: TTBXItem [7] - Action = actDuplicar - DisplayMode = nbdmImageAndText - end - inherited TBXItem24: TTBXItem [10] - end - inherited TBXItem3: TTBXItem [11] - end - inherited TBXSeparatorItem10: TTBXSeparatorItem [12] - end - inherited TBXItem26: TTBXItem [13] - Visible = False - end - inherited TBXSeparatorItem2: TTBXSeparatorItem [14] - Visible = True - end - inherited TBXItem25: TTBXItem - Visible = False - end - inherited TBXSeparatorItem11: TTBXSeparatorItem - Visible = False - end - object TBXItem36: TTBXItem [18] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - inherited TBXItem28: TTBXItem - Visible = False - end - end - object tbxFiltro: TTBXToolbar [1] - Left = 0 - Top = 49 - Align = alRight - CloseButton = False - DefaultDock = TBXDock - DockMode = dmCannotFloatOrChangeDocks - DockPos = 0 - DockRow = 2 - DragHandleStyle = dhDouble - Images = SmallImages - ParentShowHint = False - Resizable = False - ShowHint = True - ShrinkMode = tbsmNone - TabOrder = 0 - object TBXLabelItem1: TTBXLabelItem - Caption = 'Filtrar:' - end - object tbxEditFiltro: TTBXEditItem - EditWidth = 200 - ImageIndex = 10 - EditorFontSettings.Italic = tsTrue - ExtendedAccept = True - Images = SmallImages - ShowImage = True - OnChange = tbxEditFiltroChange - end - object TBXItem34: TTBXItem - Action = actQuitarFiltro - end - object TBXItem37: TTBXItem - Action = actFiltrar - end - end - inherited tbxMenu: TTBXToolbar - TabOrder = 2 - Visible = False - ExplicitWidth = 543 - inherited TBXSubmenuItem4: TTBXSubmenuItem - inherited TBXItem30: TTBXItem - Visible = False - end - inherited TBXSeparatorItem15: TTBXSeparatorItem - Visible = False - end - object TBXItem33: TTBXItem [7] - Action = actDuplicar - end - object TBXSeparatorItem14: TTBXSeparatorItem [8] - end - inherited TBXItem21: TTBXItem - Visible = False - end - end - inherited TBXSubmenuItem5: TTBXSubmenuItem - Visible = False - end - inherited TBXSubmenuItem1: TTBXSubmenuItem - inherited TBXItem32: TTBXItem - Visible = False - end - inherited TBXItem31: TTBXItem - Visible = False - end - inherited TBXSeparatorItem13: TTBXSeparatorItem - Visible = False - end - end - inherited TBXSubmenuItem6: TTBXSubmenuItem - object TBXItem35: TTBXItem [0] - Action = actAnchoAuto - end - object TBXSeparatorItem16: TTBXSeparatorItem [1] - end - end - end - object TBXTMain2: TTBXToolbar - Left = 337 - Top = 49 - Caption = 'tbxMain' - ChevronHint = 'M'#225's botones|' - DockMode = dmCannotFloatOrChangeDocks - DockPos = 334 - DockRow = 2 - DragHandleStyle = dhDouble - Images = SmallImages - ParentShowHint = False - ShowHint = True - TabOrder = 3 - Visible = False - end - end - inherited StatusBar: TJvStatusBar - Top = 425 - Width = 543 - ExplicitTop = 425 - ExplicitWidth = 543 - end - inherited EditorActionList: TActionList - Left = 64 - Top = 152 - inherited actNuevo: TAction - OnUpdate = actNuevoUpdate - end - inherited actGuardarCerrar: TAction - Enabled = False - end - inherited actGuardar: TAction - Enabled = False - end - inherited actPrevisualizar: TAction - Visible = False - end - inherited actImprimir: TAction - Visible = False - end - inherited actCerrar: TAction - Enabled = False - end - inherited actAnterior: TAction - Enabled = False - end - inherited actSiguiente: TAction - Enabled = False - end - inherited actCancelarCambios: TAction - Enabled = False - end - inherited actDuplicar: TAction - OnUpdate = actDuplicarUpdate - end - object actQuitarFiltro: TAction - Category = 'Buscar' - Caption = 'Quitar filtro y ver todo' - ImageIndex = 19 - OnExecute = actQuitarFiltroExecute - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 21 - OnExecute = actAnchoAutoExecute - end - object actFiltrar: TAction - Category = 'Buscar' - Caption = 'Filtrar m'#225's..' - OnExecute = actFiltrarExecute - OnUpdate = actFiltrarUpdate - end - end - inherited SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA - A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 - 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 - 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F - 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 - 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 - 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA - 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E - 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 - E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 - 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 - 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 - 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB - 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 - 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 - E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 - D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 - 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 - A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E - AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 - 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 - 5538F0EAB25B380000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001034944415478DA - 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 - 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D - 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A - 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 - 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 - 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE - B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 - F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A - 7A68BA98860000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end> - Left = 403 - Top = 128 - Bitmap = {} - end - inherited LargeImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end> - Left = 435 - Top = 128 - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage - OnSavePlacement = JvFormStorageSavePlacement - OnRestorePlacement = JvFormStorageRestorePlacement - Left = 400 - Top = 160 - end - inherited dsDataTable: TDADataSource - Left = 32 - Top = 112 - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage - Left = 432 - Top = 160 - end - object GridPopupMenu: TPopupMenu - Images = SmallImages - Left = 64 - Top = 112 - object Modificar1: TMenuItem - Action = actModificar - end - object Duplicar1: TMenuItem - Action = actDuplicar - end - object Eliminar1: TMenuItem - Action = actEliminar - end - object N1: TMenuItem - Caption = '-' - end - object Nuevo1: TMenuItem - Action = actNuevo - end - object N2: TMenuItem - Caption = '-' - end - object Previsualizar1: TMenuItem - Action = actPrevisualizar - end - object Imprimir1: TMenuItem - Action = actImprimir - end - object N3: TMenuItem - Caption = '-' - end - object Actualizar1: TMenuItem - Action = actRefrescar - end - end -end diff --git a/Source/Base/GUIBase/uEditorGridBase.pas b/Source/Base/GUIBase/uEditorGridBase.pas deleted file mode 100644 index c67ed2e4..00000000 --- a/Source/Base/GUIBase/uEditorGridBase.pas +++ /dev/null @@ -1,319 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorGridBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent, - JvNavigationPane, ActnList, TB2Dock, TB2Toolbar, TBX, TB2Item, - ImgList, PngImageList, StdActns, TB2ExtItems, TBXExtItems, uViewGridBase, - uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize, - uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage, - JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls, - JvComponentBase, dxLayoutLookAndFeels, TBXStatusBars, JvExComCtrls, - JvStatusBar, uDAInterfaces; - -type - IEditorGridBase = interface(IEditorDBBase) - ['{CB8CDE00-B225-4A1D-9A5C-EC6FBE2C854B}'] - - procedure SetMultiSelect (AValue : Boolean); - function GetMultiSelect : Boolean; - property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; - end; - - TfEditorGridBase = class(TfEditorDBBase, IEditorGridBase) - tbxEditFiltro: TTBXEditItem; - tbxFiltro: TTBXToolbar; - GridPopupMenu: TPopupMenu; - Modificar1: TMenuItem; - Eliminar1: TMenuItem; - N1: TMenuItem; - Nuevo1: TMenuItem; - TBXLabelItem1: TTBXLabelItem; - actQuitarFiltro: TAction; - N2: TMenuItem; - Previsualizar1: TMenuItem; - Imprimir1: TMenuItem; - TBXSeparatorItem14: TTBXSeparatorItem; - TBXItem33: TTBXItem; - N3: TMenuItem; - Actualizar1: TMenuItem; - TBXItem34: TTBXItem; - actAnchoAuto: TAction; - TBXSeparatorItem16: TTBXSeparatorItem; - TBXItem35: TTBXItem; - TBXItem36: TTBXItem; - TBXSeparatorItem6: TTBXSeparatorItem; - TBXItem7: TTBXItem; - actFiltrar: TAction; - TBXItem37: TTBXItem; - TBXTMain2: TTBXToolbar; - procedure tbxEditFiltroChange(Sender: TObject; const Text: String); - procedure FormShow(Sender: TObject); override; - procedure actQuitarFiltroExecute(Sender: TObject); - procedure actDuplicarUpdate(Sender: TObject); - procedure JvFormStorageSavePlacement(Sender: TObject); - procedure JvFormStorageRestorePlacement(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actNuevoUpdate(Sender: TObject); - procedure actAnchoAutoExecute(Sender: TObject); - procedure actRefrescarUpdate(Sender: TObject); - procedure actFiltrarExecute(Sender: TObject); - procedure actFiltrarUpdate(Sender: TObject); - protected - FViewGrid : IViewGridBase; - procedure SetViewGrid(const Value : IViewGridBase); virtual; - function GetViewGrid: IViewGridBase; - procedure SetMultiSelect (AValue : Boolean); - function GetMultiSelect : Boolean; - - procedure PrevisualizarInterno; override; - procedure ConfPaginaInterno; override; - procedure ImprimirInterno; override; - procedure RefrescarInterno; override; - public - property ViewGrid: IViewGridBase read GetViewGrid write SetViewGrid; - property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; - - constructor Create(AOwner : TComponent); override; - destructor Destroy; override; - end; - -implementation - -uses - uDataModuleBase, uCustomEditor, cxGridTableView, cxControls; - -{$R *.dfm} - -{ -********************************* TfEditorGridBase ***************************** -} -destructor TfEditorGridBase.Destroy; -begin - FViewGrid := NIL; - inherited; -end; - -function TfEditorGridBase.GetMultiSelect: Boolean; -begin - Result := False; - if Assigned(ViewGrid) then - Result := ViewGrid.MultiSelect; -end; - -function TfEditorGridBase.GetViewGrid: IViewGridBase; -begin - Result := FViewGrid; -end; - -procedure TfEditorGridBase.ImprimirInterno; -begin - inherited; - ViewGrid.Print; -end; - -procedure TfEditorGridBase.SetMultiSelect(AValue: Boolean); -begin - if Assigned(ViewGrid) then - ViewGrid.MultiSelect := AValue; -end; - -procedure TfEditorGridBase.SetViewGrid(const Value: IViewGridBase); -begin - FViewGrid := Value; - if Assigned(FViewGrid) then - begin - FViewGrid.PopupMenu := GridPopupMenu; - FViewGrid.OnDblClick := actModificar.OnExecute; - end; -end; - -procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String); -begin - if Assigned(ViewGrid) then - begin - if Length(Text) > 0 then - ViewGrid.Filter := Text - else - actQuitarFiltro.Execute; - end; -end; - -procedure TfEditorGridBase.FormShow(Sender: TObject); -begin - inherited; - if Assigned(ViewGrid) then - ViewGrid.ShowEmbedded(Self); - - -end; - -procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject); -begin - inherited; - if HayDatos and Assigned(ViewGrid) then - (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes) - and not ViewGrid.IsEmpty - and ViewGrid.esSeleccionCeldaDatos - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorGridBase.actFiltrarExecute(Sender: TObject); -begin - inherited; - if Assigned(ViewGrid) then - ViewGrid.ViewFiltros.VerFiltros := not ViewGrid.ViewFiltros.VerFiltros; - - if Assigned(ViewGrid) then - if ViewGrid.ViewFiltros.VerFiltros then - begin - tbxEditFiltro.Visible := False; - TBXItem7.Visible := False; - end - else - begin - tbxEditFiltro.Text := ''; - tbxEditFiltro.Visible := True; - TBXItem7.Visible := True; - end; -end; - -procedure TfEditorGridBase.actFiltrarUpdate(Sender: TObject); -begin - inherited; - if Assigned(ViewGrid) then - (Sender as TAction).Checked := ViewGrid.ViewFiltros.VerFiltros; -end; - -procedure TfEditorGridBase.actModificarUpdate(Sender: TObject); -begin - inherited; - if HayDatos and Assigned(ViewGrid) then - (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes) - and not ViewGrid.IsEmpty - and ViewGrid.esSeleccionCeldaDatos - else - (Sender as TAction).Enabled := False; - - //En el caso de que el grid sea multiselección solo se podrá modificar si solo se tiene un elemento seleccionado - if (Sender as TAction).Enabled then - if MultiSelect and Assigned(ViewGrid) then - (Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1); -end; - -procedure TfEditorGridBase.actNuevoUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := Assigned(dsDataTable.DataTable); -end; - -procedure TfEditorGridBase.actQuitarFiltroExecute(Sender: TObject); -begin - if Assigned(ViewGrid) then - begin - tbxEditFiltro.Text := ''; - ViewGrid.Filter := ''; - end; -end; - -procedure TfEditorGridBase.actRefrescarUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := Assigned(dsDataTable.DataTable); -end; - -procedure TfEditorGridBase.ConfPaginaInterno; -begin - inherited; - ViewGrid.PrintSetup; -end; - -constructor TfEditorGridBase.Create(AOwner: TComponent); -begin - inherited; - actModificar.ShortCut := ShortCut(VK_RETURN, []); -end; - -procedure TfEditorGridBase.actAnchoAutoExecute(Sender: TObject); -begin - inherited; - if Assigned(ViewGrid) then - ViewGrid.AjustarAncho; -end; - -procedure TfEditorGridBase.actDuplicarUpdate(Sender: TObject); -begin - inherited; - if HayDatos and Assigned(ViewGrid) then - (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes) - and not ViewGrid.IsEmpty - and ViewGrid.esSeleccionCeldaDatos - else - (Sender as TAction).Enabled := False; - - //En el caso de que el grid sea multiselección solo se podrá modificar si solo se tiene un elemento seleccionado - if (Sender as TAction).Enabled then - if MultiSelect and Assigned(ViewGrid) then - (Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1); -end; - -procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject); -begin - inherited; - if Assigned(ViewGrid) then - ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root); -end; - -procedure TfEditorGridBase.PrevisualizarInterno; -begin - inherited; - ViewGrid.Preview; -end; - -procedure TfEditorGridBase.RefrescarInterno; -var - FocusedRow, TopRow : Integer; -begin - TopRow := ViewGrid._FocusedView.Controller.TopRowIndex; - FocusedRow := ViewGrid._FocusedView.DataController.FocusedRowIndex; - ViewGrid._FocusedView.BeginUpdate; - ShowHourglassCursor; - - try - // inherited; <- No hacemos lo que hay en el padre - dsDataTable.DataTable.Refresh; - finally - ViewGrid._FocusedView.EndUpdate; - ViewGrid._FocusedView.DataController.FocusedRowIndex := FocusedRow; - ViewGrid._FocusedView.Controller.TopRowIndex := TopRow; - HideHourglassCursor; - end; -end; - -procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject); -begin - inherited; - if Assigned(ViewGrid) then - ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root); -end; - -initialization - RegisterClass(TfEditorGridBase); - -finalization - UnRegisterClass(TfEditorGridBase); - -end. - diff --git a/Source/Base/GUIBase/uEditorItem.dcu b/Source/Base/GUIBase/uEditorItem.dcu deleted file mode 100644 index 6a45c449..00000000 Binary files a/Source/Base/GUIBase/uEditorItem.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uEditorItem.dfm b/Source/Base/GUIBase/uEditorItem.dfm deleted file mode 100644 index f9e9e425..00000000 --- a/Source/Base/GUIBase/uEditorItem.dfm +++ /dev/null @@ -1,62 +0,0 @@ -inherited fEditorItem: TfEditorItem - Left = 423 - Top = 273 - Caption = 'fEditorItem' - ClientHeight = 501 - ClientWidth = 678 - ExplicitWidth = 686 - ExplicitHeight = 535 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 678 - Visible = False - ExplicitWidth = 678 - inherited Image1: TImage - Left = 651 - ExplicitLeft = 651 - end - end - object pgPaginas: TPageControl [1] - Left = 0 - Top = 76 - Width = 678 - Height = 406 - ActivePage = pagGeneral - Align = alClient - TabOrder = 1 - object pagGeneral: TTabSheet - Caption = 'General' - end - end - inherited TBXDock: TTBXDock - Width = 678 - ExplicitWidth = 678 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 575 - inherited TBXItem5: TTBXItem - Visible = False - end - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 678 - inherited TBXSubmenuItem4: TTBXSubmenuItem - inherited TBXItem10: TTBXItem - Visible = False - end - end - end - end - inherited StatusBar: TJvStatusBar - Top = 482 - Width = 678 - ExplicitTop = 482 - ExplicitWidth = 678 - end - inherited EditorActionList: TActionList - Top = 104 - inherited actEliminar: TAction - ShortCut = 0 - end - end -end diff --git a/Source/Base/GUIBase/uEditorItem.pas b/Source/Base/GUIBase/uEditorItem.pas deleted file mode 100644 index d30ffdb6..00000000 --- a/Source/Base/GUIBase/uEditorItem.pas +++ /dev/null @@ -1,39 +0,0 @@ - -unit uEditorItem; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorBase, ActnList, JvExControls, JvComponent, - JvNavigationPane, ComCtrls, StdActns, TB2Dock, TB2Toolbar, TBX, TB2Item, - ImgList, PngImageList, JvFormAutoSize, JvAppStorage, - JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls, - JvComponentBase, dxLayoutLookAndFeels, TBXStatusBars, JvExComCtrls, - JvStatusBar; - -type - IEditorItem = interface(IEditorBase) - ['{F6A412D1-59AA-41D2-ADD5-C92687CD5387}'] - end; - - TfEditorItem = class(TfEditorBase, IEditorItem) - pagGeneral: TTabSheet; - pgPaginas: TPageControl; - end; - -implementation - -uses uDataModuleBase; - -{$R *.dfm} - -initialization - RegisterClass(TfEditorItem); - -finalization - - UnRegisterClass(TfEditorItem); - - -end. diff --git a/Source/Base/GUIBase/uEditorPSPreview.dfm b/Source/Base/GUIBase/uEditorPSPreview.dfm deleted file mode 100644 index a3f98e6d..00000000 --- a/Source/Base/GUIBase/uEditorPSPreview.dfm +++ /dev/null @@ -1,15 +0,0 @@ -object Form1: TForm1 - Left = 580 - Top = 506 - Width = 320 - Height = 240 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = True - PixelsPerInch = 96 - TextHeight = 13 -end diff --git a/Source/Base/GUIBase/uEditorPSPreview.pas b/Source/Base/GUIBase/uEditorPSPreview.pas deleted file mode 100644 index 683b4027..00000000 --- a/Source/Base/GUIBase/uEditorPSPreview.pas +++ /dev/null @@ -1,24 +0,0 @@ -unit uEditorPSPreview; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, dxPSPrVw; - -type - TForm1 = class(TCustomdxPSPreviewWindow) - private - { Private declarations } - public - { Public declarations } - end; - -var - Form1: TForm1; - -implementation - -{$R *.dfm} - -end. diff --git a/Source/Base/GUIBase/uEditorPreview.dcu b/Source/Base/GUIBase/uEditorPreview.dcu deleted file mode 100644 index 6ee5c067..00000000 Binary files a/Source/Base/GUIBase/uEditorPreview.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uEditorPreview.dfm b/Source/Base/GUIBase/uEditorPreview.dfm deleted file mode 100644 index 0532ec05..00000000 --- a/Source/Base/GUIBase/uEditorPreview.dfm +++ /dev/null @@ -1,938 +0,0 @@ -inherited fEditorPreview: TfEditorPreview - Left = 521 - Top = 340 - Caption = 'Previsualizar' - WindowState = wsMaximized - OnDestroy = FormDestroy - OnResize = FormResize - ExplicitWidth = 658 - ExplicitHeight = 492 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Top = 75 - Visible = False - ExplicitTop = 75 - ExplicitWidth = 650 - inherited Image1: TImage - Left = 623 - ExplicitLeft = 623 - end - end - inherited TBXDock: TTBXDock - Height = 75 - ExplicitHeight = 75 - inherited tbxMain: TTBXToolbar - Top = 49 - DefaultDock = TBXDock - Visible = False - ExplicitTop = 49 - ExplicitWidth = 248 - end - inherited tbxMenu: TTBXToolbar - DockPos = -24 - inherited TBXSubmenuItem5: TTBXSubmenuItem - Visible = False - end - inherited TBXSubmenuItem1: TTBXSubmenuItem - Visible = False - end - object TBXSubmenuItem2: TTBXSubmenuItem [3] - Caption = '&Ir' - object TBXItem47: TTBXItem - Action = actPrimeraPagina - Images = PreviewSmallImageList - end - object TBXItem43: TTBXItem - Action = actPaginaAnterior - Images = PreviewSmallImageList - end - object TBXItem44: TTBXItem - Action = actPaginaSiguiente - Images = PreviewSmallImageList - end - object TBXItem45: TTBXItem - Action = actUltimaPagina - Images = PreviewSmallImageList - end - end - inherited TBXSubmenuItem6: TTBXSubmenuItem - Caption = '&Zoom' - inherited TBXItem18: TTBXItem - Action = actZoomIn - Images = PreviewSmallImageList - end - object TBXItem38: TTBXItem - Action = actZoomOut - Images = PreviewSmallImageList - end - object TBXSeparatorItem19: TTBXSeparatorItem - end - object TBXItem48: TTBXItem - Action = actAnchoPagina - Images = PreviewSmallImageList - end - object TBXItem46: TTBXItem - Action = actTodaPagina - Images = PreviewSmallImageList - end - end - object TBXSubmenuItem3: TTBXSubmenuItem [5] - Caption = '&Herramientas' - object TBXItem49: TTBXItem - Action = actToolHand - Checked = True - GroupIndex = 1 - Images = PreviewSmallImageList - end - object TBXItem50: TTBXItem - Action = actToolZoom - GroupIndex = 1 - Images = PreviewSmallImageList - end - end - end - object TBXToolbar1: TTBXToolbar - Left = 0 - Top = 23 - Caption = 'TBXToolbar1' - DefaultDock = TBXDock - DragHandleStyle = dhNone - ParentShowHint = False - ShowHint = True - TabOrder = 2 - object TBXItem39: TTBXItem - Action = actImprimir - DisplayMode = nbdmImageAndText - Images = SmallImages - end - object TBXSeparatorItem18: TTBXSeparatorItem - end - object tbxMano: TTBXItem - Action = actToolHand - Checked = True - DisplayMode = nbdmImageAndText - GroupIndex = 1 - Images = PreviewSmallImageList - end - object tbxZoom: TTBXItem - Action = actToolZoom - DisplayMode = nbdmImageAndText - GroupIndex = 1 - Images = PreviewSmallImageList - end - object TBXItem42: TTBXItem - Action = actTodaPagina - Images = PreviewSmallImageList - end - object TBXItem41: TTBXItem - Action = actAnchoPagina - Images = PreviewSmallImageList - end - object TBXItem40: TTBXItem - Action = actZoomOut - Images = PreviewSmallImageList - end - object cbZoom: TTBXComboBoxItem - Caption = 'Zoom' - ReadOnly = True - OnItemClick = cbZoomItemClick - end - object TBXItem37: TTBXItem - Action = actZoomIn - Images = PreviewSmallImageList - end - object TBXSeparatorItem17: TTBXSeparatorItem - end - object TBXItem7: TTBXItem - Action = actPrimeraPagina - Images = PreviewSmallImageList - end - object TBXItem34: TTBXItem - Action = actPaginaAnterior - Images = PreviewSmallImageList - end - object TBXItem33: TTBXItem - Action = actPaginaSiguiente - Images = PreviewSmallImageList - end - object TBXItem36: TTBXItem - Action = actUltimaPagina - Images = PreviewSmallImageList - end - object TBXSeparatorItem16: TTBXSeparatorItem - end - object TBXItem35: TTBXItem - Action = actCerrar - end - end - end - inherited StatusBar: TJvStatusBar - Panels = < - item - Width = 150 - end - item - Width = 50 - end> - ExplicitWidth = 650 - end - inherited EditorActionList: TActionList - Top = 104 - inherited actNuevo: TAction - Enabled = False - Visible = False - end - inherited actModificar: TAction - Enabled = False - Visible = False - end - inherited actGuardarCerrar: TAction - Enabled = False - Visible = False - end - inherited actGuardar: TAction - Enabled = False - Visible = False - end - inherited actEliminar: TAction - Enabled = False - Visible = False - end - inherited actConfPagina: TAction - Enabled = False - Visible = False - end - inherited actPrevisualizar: TAction - Enabled = False - Visible = False - end - inherited actDeshacer: TEditUndo - Enabled = False - Visible = False - end - inherited actCortar: TEditCut - Enabled = False - Visible = False - end - inherited actCopiar: TEditCopy - Enabled = False - Visible = False - end - inherited actPegar: TEditPaste - Enabled = False - Visible = False - end - inherited actSeleccionarTodo: TEditSelectAll - Enabled = False - Visible = False - end - inherited actLimpiar: TEditDelete - Enabled = False - Visible = False - end - inherited actBuscar: TAction - Enabled = False - Visible = False - end - inherited actCancelarCambios: TAction - Enabled = False - Visible = False - end - end - inherited SmallImages: TPngImageList - Left = 43 - Top = 104 - end - inherited LargeImages: TPngImageList - Left = 75 - Top = 104 - end - inherited JvFormStorage: TJvFormStorage - Left = 376 - Top = 136 - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage - Left = 408 - Top = 136 - end - object PreviewActionList: TActionList - Images = PreviewSmallImageList - Left = 344 - Top = 104 - object actPrimeraPagina: TAction - Category = 'Ver' - Caption = 'Primera p'#225'gina' - ImageIndex = 0 - OnExecute = actPrimeraPaginaExecute - OnUpdate = actPrimeraPaginaUpdate - end - object actUltimaPagina: TAction - Category = 'Ver' - Caption = #218'ltima p'#225'gina' - ImageIndex = 3 - OnExecute = actUltimaPaginaExecute - OnUpdate = actUltimaPaginaUpdate - end - object actPaginaAnterior: TAction - Category = 'Ver' - Caption = 'P'#225'gina anterior' - ImageIndex = 1 - OnExecute = actPaginaAnteriorExecute - OnUpdate = actPaginaAnteriorUpdate - end - object actPaginaSiguiente: TAction - Category = 'Ver' - Caption = 'P'#225'gina siguiente' - ImageIndex = 2 - OnExecute = actPaginaSiguienteExecute - OnUpdate = actPaginaSiguienteUpdate - end - object actZoomIn: TAction - Category = 'Ver' - Caption = 'M'#225's zoom' - ImageIndex = 8 - OnExecute = actZoomInExecute - end - object actZoomOut: TAction - Category = 'Ver' - Caption = 'Menos zoom' - ImageIndex = 9 - OnExecute = actZoomOutExecute - end - object actTodaPagina: TAction - Category = 'Ver' - Caption = 'Toda la p'#225'gina' - GroupIndex = 1 - ImageIndex = 4 - OnExecute = actTodaPaginaExecute - end - object actAnchoPagina: TAction - Category = 'Ver' - Caption = 'Ancho de p'#225'gina' - GroupIndex = 1 - ImageIndex = 5 - OnExecute = actAnchoPaginaExecute - end - object actToolHand: TAction - Category = 'Herramientas' - AutoCheck = True - Caption = 'Mano' - GroupIndex = 1 - ImageIndex = 10 - OnExecute = actToolHandExecute - end - object actToolZoom: TAction - Category = 'Herramientas' - AutoCheck = True - Caption = 'Zoom' - GroupIndex = 1 - ImageIndex = 6 - OnExecute = actToolZoomExecute - end - end - object PreviewSmallImageList: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000F14944415478DA - C5D2A10EC2301006E01B4F30893C39C59619EC70937B843D014C829B0339DEA0 - 1289638EC9C9E1160C9553A43882A0B45DC80223A30112CE346DFA7F697A6770 - CEE19B327E0A8C663BB5A14506348D8CE7CBDEB4E0DBB96D7402518010C5A405 - C8B0840F9B493710FA08F1E21190E1D0B7C5F9F23D10780849D200F7705102AC - D73A8023005203F73065A08022D3003C0B81AC08A0E3810C33115600156BAE01 - 3888E2A9F50BDC71CE07EE105875025A01B09268007D01A4CD1F48E4DAB3809D - 657F35001440963E764122C78BA50798268ACF6ACF8142F6F97B400E8B9AC617 - 93887EC23B814FEAFFC00D0E3CD3E1153EE1F30000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000A34944415478DA - 63FCFFFF3F032580912606303232628839545CF8BFBF5D9F912C03409A1F5C38 - C0707F7B3EE90680342778E83334744C24DD0098E60B371818366C20D10098E6 - 071F18C0065C384082018E9517C19A3F0035830D7800A44F90E802A3BC13FFF5 - 8CCC193EBCF8C8F0E00503C3871B0B480F039021FF9834183EFC00721E906100 - CC9077BF34C837006EC8AD13E41B00020A1E13FE136D002960E00D000045F48A - E13771044B0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000A44944415478DA - 63FCFFFF3F03258091260638565EFC7FA0C380115D1C9B5A9C067CFAF683E1DC - 240B46B20D48F0D06798B4EE248A21241BF0E10703C3A26D0843483220C0419F - E1C10706860F407CE91AC410920C70B0506078F0829FE1C2838F0C1F1E3C009A - 7480E1FEF67C46A20D30D0506038708301AEF9C18E02D25C202020C070E1C207 - B86692C3800118800F6E2034936CC0830BA89A493680A294480A18780300CF22 - A8E18A4EF6A30000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000EC4944415478DA - C5D2A10EC2301405D0DB2FA012F9246E95C8E290FB04FE8049703890842F5850 - 2882021CB5185210044725B220086E74908D40C252020937A97BF7A479792C49 - 127C13F673A0D65E27AA27D8EBA06CE97C70D10D5821703A5FB01A54D92B1085 - 84A813633F6B16038D7A80C178F984A440A34EE8F43C017B0186D3079202A124 - F4FB1E402803180B58F736DB3B72038403620F405609E65082364758639CA440 - 42425608F1C803106E50ED9097CD3CBAFD40106132F10038E7D0DAE6E56C07A2 - EC80B90700B740B37B9433801CA07C00A39FCB19C039412B0FE0DD25A6709A42 - E0D3FC1FB8020318D0E1923D9C4B0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000017E4944415478DA - 630C9B1C9ACFC0C03081813C50C00834E07F7E400E51AAFFFEFBC3F0EBDF7786 - 9F7F2138C9268F01C58073FBBF113444C9EA0B58F38469B3192E2DBB8C69404E - AC07568DBFFE303058F86431D44EB264F8053460DACC25B80DA89FBC1FC38092 - 144706FBC02C86F27E03B00BE6CE594B9C0B4036FFFC0DA15D43B31872BB95C0 - 062C5FB09B341764C4383278476631A4754882BDB076F111FC2E40B619860363 - B318125A05187E026362CBD2B3A4B92036D491212C218B21B2999DE1C7DF6F0C - 7B565CC76E4072B807D8E6BFFF1036FFFE0BA16352B218021BFE82C3E0F0EA07 - 080372FC3218FEFEFFCD70E5D07F8698200F86FE79982E08F4756448CAC862F0 - AA05A5836F0CA7D6BD421890E6130F36F5DE311E86303F0F145B616C1048C9CC - 6270AE7A05567B71E3678401F19E6160C1A7274519E62DDD843725DA943F04BB - E0C696BF080322DC7CC151034BE390F4FE0DCA47D07FFEFF01D37F81F4EDAD8C - 0803829C5DC04993540033207F57D36EB2B2B35B9D6B0100103839527F8C36D7 - 0000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001714944415478DA - 630C9B1C9ACFC0C03081813C50C00834E07F7E400E51AAFFFEFBC3F0EBDF7786 - 9F7F2138C9268F016EC099973B18F253E4198E6ED6C4A9D9CEFF36C3C4390F19 - 64793519264C9BCD7069D9658801D6962A60CDC40290216B171F411880CF05BF - A0CE05D17E619FC09A05D8C519E6CE598B6AC0B9FDDF8876018BEE6986E50B76 - 631A9013EB8153D3AF3F0C0C3F7F3330D807663124B40A607A016640FDE4FD58 - 0D2849716458B86607C3BCA59B18229BD919B62C3D4B9C0B603683E8E51B2006 - 0436FC65D8B3E23A692EC888716458BB05628057ED1786C3AB1F200CC8F1CB60 - B878F0178A0B906D86E1CD3B20063857BD6238B5EE15C280349F7886EB8799F1 - BA2036D49161C76E880136E50F192E6EFC8C3020DE338CE1DE311EB001D86CFE - FD1742EFDB0F31C0B4E43AC38D2D7F110644B8F9323C3D29CA901CEE81A219A6 - 11C63E7604628051F16586DB5B1911060439BB304C9BB984E88404033003F277 - 35ED262B3BBBD5B9160000C8E01B524AB937870000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000E14944415478DA - 63FCFFFF3F032580717019C0C8C8086787B4DDF8FFEBD76F869F3F7F33EC6C37 - 824BA05B88D300BF86CBFFA3A35419A6CFB8C870A0CF9C7403DC2BCFFD8F88D4 - 66983DEB34C3B12936C41910DA7E13EE6C100E0D37609837E7180358EC0708FF - 6278B0218011A701FE8D57C0CEFEF68391E1DB770630FD1D88BF7C07E26F8C0C - 6B17AE6178B1230CB7011E55E7FF836C86B9C23FC48661C9BC5D609B7F40F187 - 0331B80D400E03DDF85DFF3D039D1856CEDFCCF0706320E981A816BEF5BF8BBF - 07D8D92F7786936E80BCFFFAFF30677F3C184B9C01E480616000007F3BB6E1E0 - 0AF3B40000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000714944415478DA - 63FCFFFF3F03258071D4002A1B10DA7E13CC01897DFDFA83E1DBB71F60FAFBB7 - 9F0C9F3F7F03E3F7FBA219F11A1013A500E77FFCCCC8F0EA1D23C38BB74C0CCF - 5E3131AC9E3397E1F7E914DC0684B4DDF88FCBE62F9FBF33FCF9F397E1FFF974 - DC060C7C208E1A401E0000EFE473E127272ED00000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C74944415478DA - A5934D4B5B411885CF5D9982288874EB0F306E5CBA9A646514E33536264AE456 - 5184528AE0424A043751FCC08228E24788894631D5D6D12C5C08EA2A74512AD8 - E4070822EE44A3E255CC386F24264AAE5978609881B9E739EFCCBC571142E03D - 5208A0284ADECDA08FB9E4342087EFF3C04124772F139C1790319614C3DCE456 - B116E2D0EF11CF051502FCD7BA54F37A98C3E951110E70783A5584FC3C2E0155 - 0501DB534C34389F92DD9A342E7068DD2A96FC1CD296AE44F3EE470C019B934C - A8AE6CF2E29C9C3B6C5809EEC0EEA84194C7E212506508D8F8C144735B36D93F - 232B69B72212DE43BDBD1A5BBFFFA1C7B7AF3C03424396C6B252F08714709184 - F94311E22DEDD9E4C0FC0E9CEE1AFC8AC4505B5789E876025F867300D1694BFA - CCA49FCB1C046AD5B2C94B813D383E3D25334B0576778FF17524074047C8944D - A2B3BB3C36E8BA8E3BFD363DEEEF74DC5C5F2179718ED89F4B7C1B7B0520AD8E - 3241C9F4B191F93A798943F90EBDE37900A4908F0987CB6A6826FD3D02FA260C - 0024FF201374DBF9CCA767B7F28E4CF07C7F03409AF532411796319391747266 - C2C77298651F240AFE4C53FD4CA4E48BA464FBD1CBD09ACCB29D132F5AF93D7A - 04D7A238F0C903C3480000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 371 - Top = 104 - Bitmap = {} - end - object PreviewLargeImageList: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001894944415478DA - 63FCFFFF3F032D01E3F0B4C0B1F2228AE0810E03467C8638545CF8BFBF5D1FAB - 1A9C1604D9E980D97D93A6303CD851C088CFF007170E30DCDF9E4F7D0B408683 - D481D450DD0298E1DF7EFE679831732A752D4036FCDBAF7F0C8BE64F27CF82AF - 3FFE33CC9C3515C50274C3BF03E9D5CB66906E81BB9936C3E7EFFF18962D9E0E - B7009BE1DF7FFD67D8B26626E91658E96A022DF8CFB079CD0CB005B80CFFF693 - 8161DF66322CD055D160F80C0CA2035B663228183830E032FC0B50CDA9DDB348 - B74041469DE1D3B77F0CE7F6CD06FBC028EFC47F1F6B430CC3BFFEF8C770F5F0 - 1CD22D10125265F8F0F53FC3BD9373E07100B2C44A4F1FC5F0AF400B1F9C9A4B - BA054CEC2A0C1F813E787B791E4A2A0259A222AF07371C64D19B4BF348B7E0F3 - 5F25A00FFE31FCBDB700231F802CE113D0061B0EC23F6ECD27DD82C79F1418FE - FE03721E2CC09A9341967C63D064F8018C0F901A922D78F04101C2C16101CC92 - 77BF34686701DC925B27C8B0005804C3003E0B4040C163C27F922CA02618B580 - 200000A0D9B0E00198A13A0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000FA4944415478DA - 63FCFFFF3F032D01E3F0B680919111AF66878A0BFFF7B7EBE35544B60520C31F - 5C38C0707F7B3EF52D00191E64A7C3D037690AF52D8019FEEDE77F861933A752 - D70264C3BFFDFAC7B068FE74EA59806EF87720BD7AD90CEA5880CDF0EFBFFE33 - 6C593393720B7019FEED2703C3BECD145AE0587911A7E15F7EFC6738B57B16E5 - 3E30CA3BF1DFC7DA10C3F0AF3FFE315C3D3C873A7100B2C44A4F1FC5F0AF400B - 1F9C9A4BBD5404B244455E0F6E38C8A23797E651371F802CE113D0061B0EC23F - 6ECDA77E4E0659F28D4193E107303E181E2CA04D5904B2E4DD2F0DDA5900B7E4 - D609DA5900020A1E13FE53640135C0A805040100D3AF21E00AC8E9BE00000000 - 49454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000012E4944415478DA - 63FCFFFF3F032D01E3F0B6C0B1F2E2FF031D068CF80C20E440BC16D8955FF9FF - F5C7578673932C705A429105B6400BF2037518DA979FC469094516D8945DFD5F - 10A40D66E3B284220BACCBAEFD2F0CD202B37FFDF9CFD0BBFA148625145A701D - 688126D8F0EFBFFE337CFBF99F61C18E33289650648155E98DFF39FEEA70C3C1 - F8D73F862D47CFC32DA1C802CBD29BFF533C55510CFFFE13E29B63972E822DA1 - C8028B929BFFA39D55300CFFF69381E1CB8FFF0CA776CF62B8BF3D9F916C0BCC - 4B6EFD0FB251C269F8831D0594F9C0ACF8F67F4F73799C86531C07A6C577FE3B - 1AC8E2349C620B4C8AEEFEB7D496C66938152CB8F75F5F450AA7E1145B605C74 - FFBF8A8C044EC329B6C0A8F0C1FFF73736E2349C620B0C0B1FFEBF30418176F5 - 0135C0A80504010058FB49E08BBA20470000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001C24944415478DA - 63FCFFFF3F032D01E3F0B4C0B1F2E2FF031D068CF834DA965D46D178A85307AB - 7AAC16D8955FF9FFF5C7578673932C705A02B220D44113CCEE9B3485E1FEF67C - E22DB0055A901FA8C3D0BEFC244E4B28B2C0A6ECEAFF82206D301B9725145960 - 5D76ED7F61901698FDEBCF7F86DED5A7302CA1D082EB400B34C1867FFFF59FE1 - DBCFFF0C0B769C41B10466C1D71FFF1966CE9A4A9A0556A537FEE7F8ABC30D07 - E35FFF18B61C3D0FB7046481978506C3E7EFFF18962D9E4E9A0596A537FFA778 - AAA218FEFD27C437C72E5D045B02B2C0565F0D68C17F86CD6B6690668145C9CD - FFD1CE2A18867FFBC9C0F0051824A776CF6290D5736630505365F80CE41FD832 - 93340BCC4B6EFD0FB251C269F8831D05601F28CBA9307CFAF68FE1DCBED9A459 - 60567CFBBFA7B93C4EC36171202AA2C4F0E1EB7F867B27E790668169F19DFF8E - 06B2380D8759C0CAA9C8F011E883B797E791668149D1DDFF96DAD2380D8759F0 - EDBF3CD007FF18FEDE5B40AA05F7FEEBAB48E1341C66C1B32FB20C7FFF01390F - 48B4C0B8E8FE7F1519099C86C32C78FC4916C221D502A3C207FFDFDFD888D370 - 8A2D302C7CF8FFC2040582F5C1E34B7BE17C922CA02618B5802000000BFCA8E0 - E6ADB53E0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002344944415478DA - 63FCFFFF3F032D0123C882F02961F940F6042A9B5DB03267D5449805FFF30372 - C832E51FC35F863FFF7E31FCFEF713887F41D9BF18526C0A19DEBF7ACF489105 - 7FFE430C86190AA3A74C5FC87069D965FC169CDBFF8D24CB642C5EC32D993173 - 397116E4C47AE035F4EFBFFF0CBFFFFC65B0F2CB63A89C680CF7C1DCD96B29B7 - 0066F89C957B18E62DDDC450DAAF0BF7C1C2B99B89B7A07EF27E9C9614275932 - 2C5A77006C4141AF3ADC07CBE6EF24DF073097FFFAFD87E1F7EFBF0CCB371F06 - 5B90D3AD08F7C1AA85FBA9E383CC48638635DB8F812D48ED9060F8FD1F62C1C6 - C52748F701BACB21ECBF0C9BF69C045B90D02E04CF0FDB969EA78E0FA2FD7418 - 761D3A0BB620A695079ED9762FBF8ADF0250EEBCB0FF27D8825F409722BB18CE - 868AEF3F7E016C4178332B3C0EF6AFBC8DDB0258D6BF72F03F435AA42B43EBF4 - 43387D10E8AAC670E4F465B005418DFFE1417464F523EC1620972B370FB33124 - 8638E174394CFCD4856B600BFCEA7FC283E8E4DA179816E40664A2145AF78EF2 - 30C404D8E3351CC43E7FF526D802F79AF7607D20FD17367CC2B420D32F19A544 - 7C745C8821CCDB06AFE120F6959B77C0163855BD84177C5736FDC0B420C93B12 - A5447C794A9A21D0CD9261FDAEE30C8400C802DB8A4770BD37B7FCC3B420D633 - 18A5D87D7B4611AC915860597607ACF7DFFFBF0CB7B732625A10E9EE8BE20314 - 1AADDCC7C506190E02582D087175A78AE1382D087076045714D402E816E4EF6A - DA4DD54ADFADCE1551E9D31200008EE53CFED5D704CB0000000049454E44AE42 - 6082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003154944415478DA - B5956D48536114C7CFC89022883E288415547E48F243651451425A6A929361A2 - 0E13D14553985AA411944A5A4804622AE9AC25CBDCD0125F4B526CD87C2F75E8 - 544C83B23EE45829E6667AEFEEEDDE3377756D6B1BD98167CFB37BEEF9FFCE39 - CF81CBA3691A783C1ED8B300F1043D28F5B3EF64ED50390D9A14877ED4667F62 - 4B633298FF45EB9D1FB579B8EFF7CF71A8CFBE33D8DF0931A20E7BEE2B3592DA - 0716009D2190709EF43BDE902EF48562E5B45544F12D1DFAD65B5CC401C8CA96 - 425BFD4E20A8152099C5EE974E5D8539DD1CCF066011D7FDF400EF1D24279428 - 914177B39FD99FE08BCFBECC52603018F15C505803F5B55B51BCB44C0E238A51 - 5BC049FE04C88B4428CE9A716909F4FA1F60342E81EC5987154037E7012B0401 - 8B8B065CEC595AF91A140A0ACAA54AFB00D658C8FD7C3127AEFF6E0634B60E73 - 80E4A85D306FF0E4C4170D06A8AC56A1385B81EC519D7DC090CA5C6E5AE16748 - BB1C0125152D56FD7E98B91764EA3D78B1164B8A0F42F1A7B907711A57F6F580 - 5CD6EC182049388781BCC352F3A80D8BED4E1045D1B029A002CFF36F13813499 - 20242E0BC4F77C40C1B4CA29C002B10760C54913059EC71E73E2CA66353CA96E - 02518117D4CA55AE011C65CE8A13A4094892427182D95FB47623E0E2DD6DD058 - D5E71C905BA202572C5578940199A0A1BD0F01B1F99BE155F5B0FB15B0D912A6 - D5AC194182A902AB612B61CE2D6F061010759B8676E5987B007BE224D722F36A - 530F22203277195435531BD7A278BE3FDE87AA578380F0EC05E87A3EE35A05AE - 646EB96CF5BB11049CBDA987FEBA6FB68034412A6854CB1CC01D7176927A87C6 - 1010786306340D0BB680D44811683B6904B041F9659D2EB52832D817C7F4FDC8 - 04024E5C9F066DD32F5B40F279214C756D811461A85B9913ABEF69C63F20E068 - E6384CB650B68084F00BF0A9673B2445075B055314E5549C7DAE9D9C46C0916B - A330F592670B1086F1E16B9F1724084E637071D5804B2D0A3ABE1B77A780E890 - 30981DF001213FD02AB3BF5D36C5C45ACC29407026083F141B657F0232DAF2DA - 8BFE5D76CD427342D63EFAFFD37E031AD161FE86E3B8C60000000049454E44AE - 426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001324944415478DA - 63FCFFFF3F032D0123DD2C606464C4A9C8A5EF22862BF614E9E3D480EC68A22D - C8F05765F8FDE72F10FF63888B5ECEC0702183BA16247B2B810DFF03B424297E - 15F52D887357001B0EB2243D790DF52D887296051B0E0AA69CF4F5D4B720D45E - 1A6CF89FBF7F190AB23651DF82006B09B0E1205F94E66D21DD02D7FE4B783384 - 8F85283C88AA8AB633B8C459E254BBBB508F11AB05C8491116A1B06081B1C172 - 28FCBF0CBF7E0331880DA4174F3ECBF0FF7C3A760B909322398683D82B675CC0 - 6D01725224C770107BFD9CCBB82DD8B3E838F6480686B7A52637DCF0DEC683F8 - A20BBB05845291892A27DCE5935A8F503F99EA2BB2C1836546D771EA5BA025CB - 0C0FE7797DA7A86F818A04034A52A4BA057222A84991EA1648F2FF42498A54B7 - 002309936A01ADC0D0B700000ADFCFE01EDA3C000000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000007C4944415478DA - 63FCFFFF3F032D01E3A805A3168C5A80B0C0B5FF12D56CDA5DA8C788D5829C20 - 751485BFFFFC65F8F1F30FC38F5FBF19BE83E89F501ACAFFF6E317C3B7EFBF21 - F40F087D68CD3D86FFE7D3095B408EE13F7EFD6138B5E911610BC8351C04F05A - B067D171AAC401560B6805462D18B560D4023A5800007B57E2D1072B1BE80000 - 000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002E84944415478DA - A5957D48144118C69F2B29B3FA23222C02598AA48F3B4A304A839C120C925022 - 4AA2F2B3B313FB80A0C20E333F52FC2348C24AC49490D4C414394D4D4F33112B - C1F0233090C9D0142BA920AFDA73DAD975E5923BDDB5178679776EEFF9CD3CF3 - CEAC8131061E0683010B457126392175D699C7CC186B6BB9BBF7544D595727A0 - 373A21D238D8DF83CE4EDA27014CFF0D5067BD7C198CD3D3C0C9984870404707 - 057FF6F242DFDCD5E805CCCEFA5517C5A93805D0DE4E117F4EC9E7AE4617E071 - 2E615167668520C1E4BCAD8DE26C929237355124E7B41A160528CD21CCD59658 - B392DBED1489C94ADED048B1CA0758B254B12BFABABD5C33E0D12DC2DCD9D2DC - 4C61B9A0E4F5CF284E4707E3F3F8A86C9704306906487BC03CD992743102EF07 - DEC2564761B61CC4C8872154D7505CB96337680614A513E6C9164B72388606FB - 516B93C0E6FD181B19465535C5B53C1D80C234C23CD992981486E1A141D4D44A - D6252816555651A4DCD5012848254C8B2DB171BB31F96502159514D67C378092 - AC03EA356094DA6C5DDFB712A6DAF2E923C5BED07088E21F74B5352260AF620B - 1FF73706E0C7B749943DA148BDE71E201F289EAB1B6A4E6F35E4A710C66DE1EF - BD68A8C19E9030389D22DEBC6C812930184E0936D0F31A9BB79AE4F1E29277B8 - F1C03D40AE163554CFF975C06D718AA23C732EA2E4A22CAEF4A23CFECB3185D2 - 328A9B051E5610142418FD77ECFA07A2568B1671DE2AAAC69151E86193F98686 - 84085021FC37AD3397DBD4149EDABE23AB689E2AE29E87860AD8B27DA76E7187 - E3276CCF45643F5CA04CF3AE1276284C80DF267F5DE27CBCBE05C829D1700E6E - 5F262CFCB080F51BFD348B8F8E39F05BF4764877D10A4D072DF71261114704AC - 59BB6E41711E9DDDC0065F44E9BA4DB3CF1376345280CFCAD5F38AABB397D240 - 09D0AF19C023C342D8F163829C7B12EFEEF586691BA2F8A773511FFD34B3B492 - 085F7C9D1897055DC3555C2D6FDD001ED678C2F8C99E96FEC2783F93BB8ACF05 - FC0592430CFE3F77C7A70000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 403 - Top = 104 - Bitmap = {} - end - object frxReport1: TfrxReport - Version = '3.23.7' - DotMatrixReport = False - EngineOptions.DoublePass = True - IniFile = '\Software\Fast Reports' - PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator] - PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Default' - ReportOptions.CreateDate = 38658.858023541660000000 - ReportOptions.LastChange = 38658.858023541660000000 - ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - 'begin' - '' - 'end.') - StoreInDFM = False - Left = 16 - Top = 200 - Datasets = <> - Variables = <> - Style = <> - end - object frxBarCodeObject1: TfrxBarCodeObject - Left = 16 - Top = 240 - end - object frxOLEObject1: TfrxOLEObject - Left = 48 - Top = 240 - end - object frxRichObject1: TfrxRichObject - Left = 48 - Top = 272 - end - object frxCrossObject1: TfrxCrossObject - Left = 80 - Top = 240 - end - object frxCheckBoxObject1: TfrxCheckBoxObject - Left = 80 - Top = 272 - end - object frxGradientObject1: TfrxGradientObject - Left = 16 - Top = 304 - end - object frxDotMatrixExport1: TfrxDotMatrixExport - UseFileCache = True - ShowProgress = True - EscModel = 0 - GraphicFrames = False - SaveToFile = False - UseIniSettings = True - Left = 48 - Top = 304 - end - object frxDialogControls1: TfrxDialogControls - Left = 80 - Top = 304 - end - object frxTIFFExport1: TfrxTIFFExport - ShowDialog = False - UseFileCache = True - ShowProgress = True - Monochrome = True - Left = 144 - Top = 240 - end - object frxPDFExport1: TfrxPDFExport - ShowDialog = False - UseFileCache = True - ShowProgress = True - PrintOptimized = False - Outline = False - Author = 'FastReport'#174 - Subject = 'FastReport'#174' PDF export' - Background = False - Creator = 'FastReport'#174' (http://www.fast-report.com)' - HTMLTags = False - Left = 144 - Top = 280 - end - object frxBMPExport1: TfrxBMPExport - ShowDialog = False - UseFileCache = True - ShowProgress = True - Monochrome = True - Left = 144 - Top = 320 - end -end diff --git a/Source/Base/GUIBase/uEditorPreview.pas b/Source/Base/GUIBase/uEditorPreview.pas deleted file mode 100644 index 6769b0e9..00000000 --- a/Source/Base/GUIBase/uEditorPreview.pas +++ /dev/null @@ -1,353 +0,0 @@ -unit uEditorPreview; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorBase, ImgList, PngImageList, StdActns, ActnList, TBX, - TB2Item, TB2Dock, TB2Toolbar, JvExControls, JvComponent, JvNavigationPane, - TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview, - JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, - pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport, - frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode, - ExtCtrls, JvComponentBase, TBXStatusBars, JvExComCtrls, JvStatusBar; - -type - IEditorPreview = interface(IEditorBase) - ['{43934C3E-2776-4F9E-9292-FB0D7DE2E4DA}'] - function GetReport: TfrxReport; - property Report: TfrxReport read GetReport; - procedure LoadFromStream(AStream : TStream); - function ExportToFile : String; - procedure Print; - procedure Preview; - end; - - TfEditorPreview = class(TfEditorBase, IEditorPreview) - TBXToolbar1: TTBXToolbar; - TBXItem33: TTBXItem; - TBXItem34: TTBXItem; - TBXItem39: TTBXItem; - TBXSeparatorItem16: TTBXSeparatorItem; - cbZoom: TTBXComboBoxItem; - PreviewActionList: TActionList; - PreviewSmallImageList: TPngImageList; - PreviewLargeImageList: TPngImageList; - actPrimeraPagina: TAction; - actUltimaPagina: TAction; - actPaginaAnterior: TAction; - actPaginaSiguiente: TAction; - TBXItem36: TTBXItem; - actZoomIn: TAction; - actZoomOut: TAction; - actTodaPagina: TAction; - actAnchoPagina: TAction; - TBXSeparatorItem17: TTBXSeparatorItem; - TBXItem37: TTBXItem; - TBXItem40: TTBXItem; - TBXItem41: TTBXItem; - TBXItem42: TTBXItem; - frxReport1: TfrxReport; - actToolHand: TAction; - actToolZoom: TAction; - tbxZoom: TTBXItem; - tbxMano: TTBXItem; - TBXSeparatorItem18: TTBXSeparatorItem; - frxBarCodeObject1: TfrxBarCodeObject; - frxOLEObject1: TfrxOLEObject; - frxRichObject1: TfrxRichObject; - frxCrossObject1: TfrxCrossObject; - frxCheckBoxObject1: TfrxCheckBoxObject; - frxGradientObject1: TfrxGradientObject; - frxDotMatrixExport1: TfrxDotMatrixExport; - frxDialogControls1: TfrxDialogControls; - frxTIFFExport1: TfrxTIFFExport; - frxPDFExport1: TfrxPDFExport; - frxBMPExport1: TfrxBMPExport; - TBXItem38: TTBXItem; - TBXSeparatorItem19: TTBXSeparatorItem; - TBXItem43: TTBXItem; - TBXItem44: TTBXItem; - TBXItem45: TTBXItem; - TBXItem46: TTBXItem; - TBXItem47: TTBXItem; - TBXSubmenuItem2: TTBXSubmenuItem; - TBXItem48: TTBXItem; - TBXSubmenuItem3: TTBXSubmenuItem; - TBXItem49: TTBXItem; - TBXItem50: TTBXItem; - TBXItem7: TTBXItem; - TBXItem35: TTBXItem; - procedure FormShow(Sender: TObject); - procedure actPrimeraPaginaExecute(Sender: TObject); - procedure actUltimaPaginaExecute(Sender: TObject); - procedure actPaginaAnteriorExecute(Sender: TObject); - procedure actPaginaSiguienteExecute(Sender: TObject); - procedure actZoomInExecute(Sender: TObject); - procedure actTodaPaginaExecute(Sender: TObject); - procedure FormDestroy(Sender: TObject); - procedure FormResize(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actAnchoPaginaExecute(Sender: TObject); - procedure actZoomOutExecute(Sender: TObject); - procedure cbZoomItemClick(Sender: TObject); - procedure actToolHandExecute(Sender: TObject); - procedure actToolZoomExecute(Sender: TObject); - procedure actPaginaSiguienteUpdate(Sender: TObject); - procedure actUltimaPaginaUpdate(Sender: TObject); - procedure actPrimeraPaginaUpdate(Sender: TObject); - procedure actPaginaAnteriorUpdate(Sender: TObject); - private - FPreview : TfrViewPreview; - procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer); - procedure UpdateZoom; - protected - function GetReport: TfrxReport; virtual; - public - constructor Create(AOwner: TComponent); override; - property Report: TfrxReport read GetReport; - procedure Print; - procedure Preview; - procedure LoadFromStream(AStream : TStream); - function ExportToFile : String; - end; - - -implementation - -uses - frxRes, frxUtils, frxPrinter, frxFormUtils, - uCustomEditor, uSistemaFunc; - -{$R *.dfm} - -{ TfEditorBase1 } - -function TfEditorPreview.GetReport: TfrxReport; -begin - Result := frxReport1; -end; - - -procedure TfEditorPreview.FormShow(Sender: TObject); -begin - inherited; - UpdateZoom; - actPrimeraPagina.Execute; - FPreview.ShowEmbedded(Self); - Report.ShowPreparedReport; - actAnchoPagina.Execute; -end; - -procedure TfEditorPreview.actPrimeraPaginaExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.First; -end; - -procedure TfEditorPreview.actPrimeraPaginaUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (FPreview.Preview.PageNo > 1); -end; - -procedure TfEditorPreview.actUltimaPaginaExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Last; -end; - -procedure TfEditorPreview.actUltimaPaginaUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (FPreview.Preview.PageNo < FPreview.Preview.PageCount); -end; - -procedure TfEditorPreview.actPaginaAnteriorExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Prior; -end; - -procedure TfEditorPreview.actPaginaAnteriorUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (FPreview.Preview.PageNo > 1); -end; - -procedure TfEditorPreview.actPaginaSiguienteExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Next; -end; - -procedure TfEditorPreview.actPaginaSiguienteUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (FPreview.Preview.PageNo < FPreview.Preview.PageCount); -end; - -procedure TfEditorPreview.actZoomInExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Zoom := FPreview.Preview.Zoom + 0.25; - UpdateZoom; -end; - -procedure TfEditorPreview.UpdateZoom; -begin - cbZoom.Text := IntToStr(Round(FPreview.Preview.Zoom * 100)) + '%'; -end; - -procedure TfEditorPreview.actTodaPaginaExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.ZoomMode := zmWholePage; - UpdateZoom; -end; - -procedure TfEditorPreview.FormDestroy(Sender: TObject); -begin - inherited; - FPreview.Free; -end; - -procedure TfEditorPreview.FormResize(Sender: TObject); -begin - inherited; - UpdateZoom; -end; - -procedure TfEditorPreview.actImprimirExecute(Sender: TObject); -begin - inherited; - Print; -end; - -procedure TfEditorPreview.actAnchoPaginaExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.ZoomMode := zmPageWidth; - UpdateZoom; -end; - -procedure TfEditorPreview.actZoomOutExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Zoom := FPreview.Preview.Zoom - 0.25; - UpdateZoom; -end; - -procedure TfEditorPreview.cbZoomItemClick(Sender: TObject); -var - s: String; -begin - FPreview.Preview.SetFocus; - - if cbZoom.ItemIndex = 6 then - actAnchoPagina.Execute - else if cbZoom.ItemIndex = 7 then - actTodaPagina.Execute - else - begin - s := cbZoom.Text; - - if Pos('%', s) <> 0 then - s[Pos('%', s)] := ' '; - while Pos(' ', s) <> 0 do - Delete(s, Pos(' ', s), 1); - - if s <> '' then - FPreview.Preview.Zoom := frxStrToFloat(s) / 100; - end; - - UpdateZoom; -end; - -procedure TfEditorPreview.actToolHandExecute(Sender: TObject); -begin - if tbxMano.Checked then - FPreview.Preview.Tool := ptHand -end; - -procedure TfEditorPreview.actToolZoomExecute(Sender: TObject); -begin - if tbxZoom.Checked then - FPreview.Preview.Tool := ptZoom; -end; - -procedure TfEditorPreview.OnPageChanged(Sender: TfrxPreview; - PageNo: Integer); -begin - StatusBar.Panels[0].Text := Format(frxResources.Get('clPageOf'), - [PageNo, Sender.PageCount]); -end; - -constructor TfEditorPreview.Create(AOwner: TComponent); -begin - inherited; - - with cbZoom.Strings do - begin - Clear; - Add('25%'); - Add('50%'); - Add('75%'); - Add('100%'); - Add('150%'); - Add('200%'); - Add(frxResources.Get('zmPageWidth')); - Add(frxResources.Get('zmWholePage')); - end; - - FPreview := TfrViewPreview.Create(Self); - Report.Preview := FPreview.Preview; - FPreview.Preview.OnPageChanged := OnPageChanged; -end; - -procedure TfEditorPreview.Preview; -begin - Self.ShowModal; -end; - -procedure TfEditorPreview.Print; -begin - if not frxPrinters.HasPhysicalPrinters then - frxErrorMsg(frxResources.Get('clNoPrinters')) - else - FPreview.Preview.Print; - Enabled := True; -end; - -function TfEditorPreview.ExportToFile: String; -var - AFile : String; -begin - Result := ''; - AFile := DarFicheroTIFFTemporal; - frxTIFFExport1.SeparateFiles := False; - frxTIFFExport1.DefaultPath := ExtractFilePath(AFile); - frxTIFFExport1.FileName := ExtractFileName(AFile); - try - if Report.Export(frxTIFFExport1) then - Result := AFile; - finally - frxTIFFExport1.DefaultPath := ''; - frxTIFFExport1.FileName := ''; - end; -end; - -procedure TfEditorPreview.LoadFromStream(AStream: TStream); -begin - Report.PreviewPages.LoadFromStream(AStream); -end; - - -initialization - RegisterClass(TfEditorPreview); - -finalization - UnRegisterClass(TfEditorPreview); - -end. - diff --git a/Source/Base/GUIBase/uEditorUtils.pas b/Source/Base/GUIBase/uEditorUtils.pas deleted file mode 100644 index 68b4b868..00000000 --- a/Source/Base/GUIBase/uEditorUtils.pas +++ /dev/null @@ -1,108 +0,0 @@ -unit uEditorUtils; - -interface - -uses - uEditorItem, uDADataTable, Controls; - -type - TFuncItemEditor = function(ABizObject : TDADataTableRules) : TModalResult; - TProcItemEditor = procedure(ABizObject : TDADataTableRules); - TFuncGetEditor = function : IEditorItem; - - TEditorType = (etItem, etItems, etSelectItems); - -procedure RegisterEditor(const IID : TGUID; const AFuncItemEditor : TFuncItemEditor; - const AType : TEditorType); - -function ShowEditor(const IID : TGUID; ABizObject : TDADataTableRules; - const AType : TEditorType) : TModalResult; - - -implementation - -uses - Dialogs, Classes, ComObj, SysUtils; - -var - FBizEditorsList : TList; - -type - PBizEditorsRec = ^TBizEditorsRec; - TBizEditorsRec = record - IID : String; - ItemEditor : TFuncItemEditor; - ItemsEditor : TFuncItemEditor; - SelectItemsEditor : TFuncItemEditor; - end; - - -function FindBizEditors(const IID : TGUID) : PBizEditorsRec; -var - P: PBizEditorsRec; - I: Integer; - AIID : String; -begin - Result := NIL; - AIID := GUIDToString(IID); - if FBizEditorsList <> nil then - for I := 0 to FBizEditorsList.Count-1 do - begin - P := FBizEditorsList[I]; - if (AIID = P^.IID) then - begin - Result := P; - Break; - end; - end; -end; - -procedure RegisterEditor(const IID : TGUID; const AFuncItemEditor : TFuncItemEditor; - const AType : TEditorType); -var - P: PBizEditorsRec; -begin - P := NIL; - if FBizEditorsList = nil then - FBizEditorsList := TList.Create; - - P := FindBizEditors(IID); - if not Assigned(P) then - New(P); - try - P^.IID := GUIDToString(IID); - case AType of - etItem : P^.ItemEditor := AFuncItemEditor; - etItems : P^.ItemsEditor := AFuncItemEditor; - etSelectItems : P^.SelectItemsEditor := AFuncItemEditor; - end; - FBizEditorsList.Insert(0, P); - except - on E: EConvertError do - ShowMessage(E.Message); - end; -end; - -function ShowEditor(const IID : TGUID; ABizObject : TDADataTableRules; - const AType : TEditorType) : TModalResult; -var - P: PBizEditorsRec; -begin - P := FindBizEditors(IID); - - if Assigned(P) then - case AType of - etItem : Result := P.ItemEditor(ABizObject); - etItems : Result := P.ItemsEditor(ABizObject); - etSelectItems : Result := P.SelectItemsEditor(ABizObject); - end; -end; - - -initialization - FBizEditorsList := TList.Create; - -finalization - FBizEditorsList.Free; - -end. diff --git a/Source/Base/GUIBase/uViewBarraSeleccion.dcu b/Source/Base/GUIBase/uViewBarraSeleccion.dcu deleted file mode 100644 index 27357363..00000000 Binary files a/Source/Base/GUIBase/uViewBarraSeleccion.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewBarraSeleccion.dfm b/Source/Base/GUIBase/uViewBarraSeleccion.dfm deleted file mode 100644 index 80b9c732..00000000 --- a/Source/Base/GUIBase/uViewBarraSeleccion.dfm +++ /dev/null @@ -1,65 +0,0 @@ -inherited frViewBarraSeleccion: TfrViewBarraSeleccion - Width = 451 - Height = 49 - Align = alBottom - ExplicitWidth = 451 - ExplicitHeight = 49 - object JvFooter1: TJvFooter - Left = 0 - Top = 0 - Width = 451 - Height = 49 - Margins.Left = 5 - Margins.Right = 5 - Align = alClient - DesignSize = ( - 451 - 49) - object bSeleccionar: TJvFooterBtn - Left = 239 - Top = 10 - Width = 100 - Height = 29 - Action = actSeleccionar - Anchors = [akRight, akBottom] - Default = True - ModalResult = 1 - TabOrder = 0 - HotTrackFont.Charset = DEFAULT_CHARSET - HotTrackFont.Color = clWindowText - HotTrackFont.Height = -11 - HotTrackFont.Name = 'Tahoma' - HotTrackFont.Style = [] - ButtonIndex = 0 - SpaceInterval = 6 - end - object bCancelar: TJvFooterBtn - Left = 343 - Top = 10 - Width = 100 - Height = 28 - Action = actCancelar - Anchors = [akRight, akBottom] - Cancel = True - ModalResult = 2 - TabOrder = 1 - HotTrackFont.Charset = DEFAULT_CHARSET - HotTrackFont.Color = clWindowText - HotTrackFont.Height = -11 - HotTrackFont.Name = 'Tahoma' - HotTrackFont.Style = [] - ButtonIndex = 1 - SpaceInterval = 6 - end - end - object BarraSeleccionActionList: TActionList - Left = 12 - Top = 3 - object actSeleccionar: TAction - Caption = 'Seleccionar' - end - object actCancelar: TAction - Caption = 'Cancelar' - end - end -end diff --git a/Source/Base/GUIBase/uViewBarraSeleccion.pas b/Source/Base/GUIBase/uViewBarraSeleccion.pas deleted file mode 100644 index 01e7549e..00000000 --- a/Source/Base/GUIBase/uViewBarraSeleccion.pas +++ /dev/null @@ -1,28 +0,0 @@ -unit uViewBarraSeleccion; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, StdCtrls, ActnList, ExtCtrls, JvExStdCtrls, JvButton, - JvCtrls, JvFooter, JvExExtCtrls, JvComponent, JvExtComponent; - -type - TfrViewBarraSeleccion = class(TfrViewBase) - JvFooter1: TJvFooter; - bSeleccionar: TJvFooterBtn; - bCancelar: TJvFooterBtn; - BarraSeleccionActionList: TActionList; - actSeleccionar: TAction; - actCancelar: TAction; - private - { Private declarations } - public - { Public declarations } - end; - -implementation - -{$R *.dfm} - -end. diff --git a/Source/Base/GUIBase/uViewBase.dcu b/Source/Base/GUIBase/uViewBase.dcu deleted file mode 100644 index b6f06e5e..00000000 Binary files a/Source/Base/GUIBase/uViewBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewBase.dfm b/Source/Base/GUIBase/uViewBase.dfm deleted file mode 100644 index 17e1d504..00000000 --- a/Source/Base/GUIBase/uViewBase.dfm +++ /dev/null @@ -1,14 +0,0 @@ -object frViewBase: TfrViewBase - Left = 0 - Top = 0 - Width = 445 - Height = 291 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False -end diff --git a/Source/Base/GUIBase/uViewBase.pas b/Source/Base/GUIBase/uViewBase.pas deleted file mode 100644 index a438e24f..00000000 --- a/Source/Base/GUIBase/uViewBase.pas +++ /dev/null @@ -1,56 +0,0 @@ -unit uViewBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uGUIBase, uCustomView, JvComponent, JvFormAutoSize; - -type - IViewBase = interface(ICustomView) - ['{82FBDF28-9C5F-4922-952E-0E84D67FE4BB}'] - procedure Refresh; - end; - - TfrViewBase = class(TCustomView, IViewBase) - protected - procedure SetReadOnly(Value: Boolean); override; - - public - procedure Refresh; virtual; - end; - -implementation - -{$R *.dfm} - - -uses - cxDBEdit, cxControls, dxLayoutControl; - -{ TfrViewBase } - -procedure TfrViewBase.Refresh; -begin - // -end; - -procedure TfrViewBase.SetReadOnly(Value: Boolean); -var - i: integer; -begin - inherited; - - if ReadOnly then - for i:=0 to Self.ComponentCount-1 do - begin - If (Self.Components[i] Is TfrViewBase) then - (Self.Components[i] as TfrViewBase).ReadOnly := ReadOnly; - - If (Self.Components[i] Is TcxControl) - and (not (Self.Components[i] Is TdxLayoutControl)) then - (Self.Components[i] as TcxControl).Enabled := not ReadOnly; - end; -end; - -end. diff --git a/Source/Base/GUIBase/uViewDetallesBase.dcu b/Source/Base/GUIBase/uViewDetallesBase.dcu deleted file mode 100644 index 66341fdc..00000000 Binary files a/Source/Base/GUIBase/uViewDetallesBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewDetallesBase.dfm b/Source/Base/GUIBase/uViewDetallesBase.dfm deleted file mode 100644 index f27cde03..00000000 --- a/Source/Base/GUIBase/uViewDetallesBase.dfm +++ /dev/null @@ -1,716 +0,0 @@ -inherited frViewDetallesBase: TfrViewDetallesBase - Width = 451 - Height = 304 - Align = alClient - OnCreate = CustomViewCreate - OnDestroy = CustomViewDestroy - ExplicitWidth = 451 - ExplicitHeight = 304 - object ToolBar1: TToolBar - Left = 0 - Top = 0 - Width = 451 - Height = 46 - AutoSize = True - ButtonWidth = 63 - Caption = 'ToolBar1' - EdgeInner = esNone - EdgeOuter = esNone - Flat = False - Images = ContenidoImageList - List = True - ParentShowHint = False - ShowCaptions = True - ShowHint = True - TabOrder = 0 - Transparent = True - Visible = False - object ToolButton1: TToolButton - Left = 0 - Top = 2 - Action = actAnadir - AutoSize = True - end - object ToolButton2: TToolButton - Left = 62 - Top = 2 - Action = actEliminar - AutoSize = True - end - object ToolButton3: TToolButton - Left = 129 - Top = 2 - Action = actSubir - AutoSize = True - end - object ToolButton4: TToolButton - Left = 184 - Top = 2 - Action = actBajar - AutoSize = True - end - object ToolButton14: TToolButton - Left = 240 - Top = 2 - Action = FontEdit1 - AutoSize = True - Wrap = True - end - object FontName: TJvFontComboBox - Left = 0 - Top = 24 - Width = 145 - Height = 22 - DroppedDownWidth = 145 - MaxMRUCount = 0 - FontName = 'Tahoma' - ItemIndex = 108 - Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] - Sorted = True - TabOrder = 2 - Visible = False - OnChange = FontNameChange - OnClick = FontNameChange - end - object FontSize: TEdit - Left = 145 - Top = 24 - Width = 26 - Height = 22 - Hint = 'Font Size|Select font size' - TabOrder = 1 - Text = '0' - Visible = False - OnChange = FontSizeChange - end - object UpDown1: TUpDown - Left = 171 - Top = 24 - Width = 16 - Height = 22 - Associate = FontSize - TabOrder = 0 - Visible = False - end - object ToolButton13: TToolButton - Left = 187 - Top = 24 - Width = 8 - Caption = 'ToolButton13' - ImageIndex = 10 - Style = tbsSeparator - end - object ToolButton6: TToolButton - Left = 195 - Top = 24 - Action = RichEditBold1 - AutoSize = True - end - object ToolButton7: TToolButton - Left = 229 - Top = 24 - Action = RichEditItalic1 - AutoSize = True - end - object ToolButton8: TToolButton - Left = 263 - Top = 24 - Action = RichEditUnderline1 - AutoSize = True - end - object ToolButton12: TToolButton - Left = 297 - Top = 24 - Width = 8 - Caption = 'ToolButton12' - ImageIndex = 10 - Style = tbsSeparator - end - object ToolButton9: TToolButton - Left = 305 - Top = 24 - Action = RichEditAlignLeft1 - AutoSize = True - end - object ToolButton10: TToolButton - Left = 339 - Top = 24 - Action = RichEditAlignCenter1 - AutoSize = True - end - object ToolButton11: TToolButton - Left = 373 - Top = 24 - Action = RichEditAlignRight1 - AutoSize = True - end - end - object cxGrid: TcxGrid - Left = 0 - Top = 72 - Width = 451 - Height = 232 - Align = alClient - TabOrder = 1 - LookAndFeel.Kind = lfOffice11 - LookAndFeel.NativeStyle = True - object cxGridView: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - FilterBox.Visible = fvNever - OnEditing = cxGridViewEditing - OnEditKeyDown = cxGridViewEditKeyDown - OnEditValueChanged = cxGridViewEditValueChanged - OnInitEdit = cxGridViewInitEdit - DataController.DataSource = DADataSource - DataController.Filter.Options = [fcoCaseInsensitive] - DataController.KeyFieldNames = 'ID' - DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoFocusTopRowAfterSorting, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.AlwaysShowEditor = True - OptionsBehavior.CellHints = True - OptionsBehavior.FocusCellOnTab = True - OptionsBehavior.GoToNextCellOnEnter = True - OptionsBehavior.BestFitMaxRecordCount = 20 - OptionsBehavior.FocusCellOnCycle = True - OptionsCustomize.ColumnFiltering = False - OptionsCustomize.ColumnGrouping = False - OptionsCustomize.ColumnMoving = False - OptionsCustomize.ColumnSorting = False - OptionsCustomize.DataRowSizing = True - OptionsData.Appending = True - OptionsData.CancelOnExit = False - OptionsSelection.MultiSelect = True - OptionsSelection.UnselectFocusedRecordOnExit = False - OptionsView.CellEndEllipsis = True - OptionsView.CellAutoHeight = True - OptionsView.ColumnAutoWidth = True - OptionsView.GridLineColor = cl3DLight - OptionsView.GroupByBox = False - OptionsView.HeaderEndEllipsis = True - OptionsView.Indicator = True - OptionsView.NewItemRowInfoText = 'Click here to add a new row' - Styles.ContentEven = cxStyleEven - Styles.ContentOdd = cxStyleOdd - Styles.Inactive = cxStyleSelection - Styles.Selection = cxStyleSelection - Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle - object cxGridViewID: TcxGridDBColumn - DataBinding.FieldName = 'ID' - Visible = False - end - object cxGridViewPOSICION: TcxGridDBColumn - DataBinding.FieldName = 'POSICION' - Visible = False - SortIndex = 0 - SortOrder = soAscending - end - object cxGridViewTIPO: TcxGridDBColumn - Caption = 'Tipo' - DataBinding.FieldName = 'TIPO_DETALLE' - PropertiesClassName = 'TcxImageComboBoxProperties' - Properties.Items = <> - BestFitMaxWidth = 64 - Width = 56 - end - object cxGridViewDESCRIPCION: TcxGridDBColumn - Caption = 'Concepto' - DataBinding.FieldName = 'CONCEPTO' - PropertiesClassName = 'TcxRichEditProperties' - Width = 224 - end - object cxGridViewCANTIDAD: TcxGridDBColumn - Caption = 'Cantidad' - DataBinding.FieldName = 'CANTIDAD' - PropertiesClassName = 'TcxMaskEditProperties' - Properties.Alignment.Horz = taRightJustify - BestFitMaxWidth = 64 - HeaderAlignmentHorz = taRightJustify - Width = 130 - end - object cxGridViewIMPORTEUNIDAD: TcxGridDBColumn - Caption = 'Importe unidad' - DataBinding.FieldName = 'IMPORTE_UNIDAD' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - BestFitMaxWidth = 120 - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - Width = 130 - end - object cxGridViewIMPORTETOTAL: TcxGridDBColumn - Caption = 'Importe total' - DataBinding.FieldName = 'IMPORTE_TOTAL' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - BestFitMaxWidth = 120 - HeaderAlignmentHorz = taRightJustify - Options.Editing = False - Width = 130 - end - object cxGridViewVISIBLE: TcxGridDBColumn - Caption = #191'Visible?' - DataBinding.FieldName = 'VISIBLE' - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.Alignment = taCenter - Properties.DisplayChecked = '1' - Properties.DisplayUnchecked = '0' - Properties.Glyph.Data = { - 92030000424D9203000000000000920100002800000020000000100000000100 - 08000000000000020000120B0000120B0000570000005700000000000000FFFF - FF0040384000703840008048500090586000C0606000A0505000804040006030 - 30009050500070404000A060600090606000A0707000B0808000C09090004030 - 3000E0B0B000B0909000FFF0F000FF787000E0787000C0686000FF9890009048 - 4000A0585000D0888000E0989000E0706000FF80700080484000A0686000FFA0 - 9000FF887000B060500070484000FFB0A000C0989000D0A8A000E0B8B000FF98 - 8000A0605000FFC0B000F0C0B00080686000F0D8D000B0908000E0C8B000E0D8 - D000FFE0C000FFF8F000F0E0C000FFF0D000FFF8E00020283000FEFEFE00FAFA - FA00F7F7F700F3F3F300F1F1F100F0F0F000EDEDED00EAEAEA00E7E7E700E6E6 - E600E3E3E300E0E0E000DADADA00D7D7D700D3D3D300D0D0D000CDCDCD00C9C9 - C900C6C6C600C4C4C400C3C3C300C0C0C000BEBEBE00BCBCBC00B9B9B900B7B7 - B700B3B3B300AEAEAE00ACACAC00A6A6A600FFFFFF0056565656565656565656 - 5656565656565656565656565656565656565656565656565656565656565656 - 5656565656565656565656565656565656565656565656565656565656565656 - 5656565656565656565656565656565656565656565656565656565656565656 - 5656565656565656565656565656565656565656565656565656404040444C4C - 463D5656565656565656122830262D2D2F325656565644444444433E4145474A - 50463B404456101010102734181D061A242F35122656564646443A3F434A544C - 49493A3C4646560F0F10362C1507110A2320362E0F0F56564845394341535554 - 44473944484856560E13331C21023711161714260E0E5656564A3E403E38544A - 4344464B4B565656560D31122B01111A1E1B0F050556565656564E49423F4343 - 434A4E4E565656565656040C2925221E1E2A04045656565656565650504F4D4F - 50505056565656565656560B0B1F19080B0B0B56565656565656565652505151 - 505656565656565656565656090B03030B565656565656565656565656565656 - 5656565656565656565656565656565656565656565656565656565656565656 - 5656565656565656565656565656565656565656565656565656565656565656 - 5656565656565656565656565656565656565656565656565656565656565656 - 56565656565656565656565656565656565656565656} - Properties.GlyphCount = 2 - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - Properties.ValueChecked = 1 - Properties.ValueUnchecked = 0 - Visible = False - FooterAlignmentHorz = taCenter - HeaderAlignmentHorz = taCenter - end - end - object cxGridLevel: TcxGridLevel - GridView = cxGridView - end - end - object TBXDock1: TTBXDock - Left = 0 - Top = 46 - Width = 451 - Height = 26 - BackgroundOnToolbars = False - UseParentBackground = True - object TBXToolbar1: TTBXToolbar - Left = 0 - Top = 0 - Caption = 'TBXToolbar1' - DragHandleStyle = dhNone - Images = ContenidoImageList - TabOrder = 0 - object TBXItem1: TTBXItem - Action = actAnadir - DisplayMode = nbdmImageAndText - Images = ContenidoImageList - end - object TBXItem2: TTBXItem - Action = actEliminar - DisplayMode = nbdmImageAndText - Images = ContenidoImageList - end - object TBXSeparatorItem1: TTBXSeparatorItem - end - object TBXItem3: TTBXItem - Action = actSubir - DisplayMode = nbdmImageAndText - end - object TBXItem4: TTBXItem - Action = actBajar - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem2: TTBXSeparatorItem - end - object TBXItem5: TTBXItem - Action = RichEditBold1 - end - object TBXItem6: TTBXItem - Action = RichEditItalic1 - end - object TBXItem7: TTBXItem - Action = RichEditUnderline1 - end - object TBXSeparatorItem4: TTBXSeparatorItem - end - object TBXItem9: TTBXItem - Action = RichEditAlignLeft1 - end - object TBXItem10: TTBXItem - Action = RichEditAlignCenter1 - end - object TBXItem11: TTBXItem - Action = RichEditAlignRight1 - end - object TBXSeparatorItem3: TTBXSeparatorItem - end - object TBXItem8: TTBXItem - Action = FontEdit1 - end - object TBXSeparatorItem5: TTBXSeparatorItem - end - object TBXItem13: TTBXItem - Action = actAnchoAutomatico - DisplayMode = nbdmImageAndText - end - end - end - object ActionListContenido: TActionList - Images = ContenidoImageList - Left = 8 - Top = 104 - object actAnadir: TAction - Category = 'Operaciones' - Caption = 'A'#241'adir' - ImageIndex = 0 - ShortCut = 45 - OnExecute = actAnadirExecute - OnUpdate = actAnadirUpdate - end - object actEliminar: TAction - Category = 'Operaciones' - Caption = 'Eliminar' - ImageIndex = 1 - ShortCut = 16430 - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - object actSubir: TAction - Category = 'Operaciones' - Caption = 'Subir' - ImageIndex = 2 - OnExecute = actSubirExecute - OnUpdate = actSubirUpdate - end - object actBajar: TAction - Category = 'Operaciones' - Caption = 'Bajar' - ImageIndex = 3 - OnExecute = actBajarExecute - OnUpdate = actBajarUpdate - end - object RichEditBold1: TRichEditBold - Category = 'Format' - AutoCheck = True - Hint = 'Negrita' - ImageIndex = 4 - ShortCut = 16450 - end - object RichEditItalic1: TRichEditItalic - Category = 'Format' - AutoCheck = True - Hint = 'Cursiva' - ImageIndex = 5 - ShortCut = 16457 - end - object RichEditUnderline1: TRichEditUnderline - Category = 'Format' - AutoCheck = True - Hint = 'Subrayado' - ImageIndex = 6 - ShortCut = 16469 - end - object RichEditAlignLeft1: TRichEditAlignLeft - Category = 'Format' - AutoCheck = True - Hint = 'Alinear a la izquierda' - ImageIndex = 7 - end - object RichEditAlignCenter1: TRichEditAlignCenter - Category = 'Format' - AutoCheck = True - Hint = 'Center|Centers text between margins' - ImageIndex = 8 - end - object RichEditAlignRight1: TRichEditAlignRight - Category = 'Format' - AutoCheck = True - Hint = 'Align Right|Aligns text at the right indent' - ImageIndex = 9 - end - object FontEdit1: TFontEdit - Category = 'Dialog' - Dialog.Font.Charset = DEFAULT_CHARSET - Dialog.Font.Color = clWindowText - Dialog.Font.Height = -11 - Dialog.Font.Name = 'Tahoma' - Dialog.Font.Style = [] - Enabled = False - Hint = 'Formato de fuente' - ImageIndex = 10 - BeforeExecute = FontEdit1BeforeExecute - OnAccept = FontEdit1Accept - end - object RichEditAlignRight2: TRichEditAlignRight - Category = 'Format' - AutoCheck = True - Caption = 'Align &Right' - Hint = 'Align Right|Aligns text at the right indent' - ImageIndex = 11 - end - object actAnchoAutomatico: TAction - Category = 'Operaciones' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 11 - OnExecute = actAnchoAutomaticoExecute - OnUpdate = actAnchoAutomaticoUpdate - end - end - object DADataSource: TDADataSource - Left = 8 - Top = 136 - end - object ContenidoImageList: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000D04944415478DA - 6364C0062630FCC72A5EC0C0882EC488CB80191909706EDDBA750CAF767D6260 - 5830240DF8F9FB3743EBE6CD780CC011602003409A7F0071EF8E1D10030C30D5 - 31A23B1706609AB1E23F7FC0F4FA2967B01B408CE6A3B76E815D856100319ABF - FFFAC570EEC103540340218D0C92EDECE01AD79E398335ACE106305CC0942CAC - 77871BB0F5E2454820620138A331D3CB09EEECBD57AF929E0E629DADC106FCF9 - F70F1E602419106A67C6F01DE40260805D7AFC9874037C2C0D194EDDBD8B1260 - 241900A6D103178B01000648ED7B1FCA93F30000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000006E4944415478DA - 63FCFFFF3F03258071D40006C6397A1214990036203925952CCD73E7CCC66100 - C85BBF7F32307CFDC4C0F0FD2B03C33710FD05487F46E0374F19E6FE964032E0 - CF6F840120CD200D5F3F43357E42F0416C90013FBFA119B0B099742FC00CA028 - 10073E1D0C7D030077CE5E397DD56C480000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000E14944415478DA - 63FCFFFF3F032580717019C0C8C88822E9D770F9FFA6065D1441740B711A00D2 - 1C1DA5CA307DC64586037DE68C241900D3FCF10B23C39123CF19AE5EBECF7076 - B623235106206BFEF899114C3FBAFB94E1C4D1AB0CB7567A33E235C0BFF1CAFF - 9F3F7F3380B0B7BF2158F3BB8F4C0C7B36EE60F8F9E317C30F207EB1238C91A0 - 17AC728EFC77F234076BFEF2E631C3C1BDE7191E6E0C24CE0B20609CBAFFBFB9 - A31DD0004606B6DF8F18766E3DC9F0726738F106E8C6EFFA6F68AC0617DFB8F6 - 30C3C783B1C41BA016BEF53FCCCF30FCF364326103C801C3C00000BEA5B3E15D - 7F64240000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580717019C0C8C808A643DA6E80057FFDFACDF0F327041FE833 - 074BA25B88D380982805869FBF18183E7E61645830EF34C3B12936C41BE0D770 - F97F74942A58F39123CF19AE5EBECF7076B623F106B8579EFB1F1CAACDF0F133 - 23C3E58BCF18CE9FBDC57079A11B6103FC1BAFFC87F9D9DBDF10EC8247779F32 - 9C387A95E1E78F5F0C3F80F8C58E3046BC2E70283AF91FA6F9DD472620666460 - FBFD8861E7D6930C2F77863312E505E3D4FDFFCD1DED3034131D0620A016BEF5 - BF85B5368A66920C000171F795FF91351334801C300C0C00007FBCB4E1E577C7 - 9A0000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001984944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4409201C89A8F9DBDC150D5360BD30046 - C399181A59989918A23C55181A328C1804F9D8C0069CBD7C07BB01C886FC3F9F - CEF00F28BF7AD75D86888ABD0CEC6CCC0C8F774430FCF9F38FE1E2F57B840DF8 - 7B2E0DACF8C7AF3F0CFC360BC006DCDF120676C1B5DB0F091BF0F3540AC3C3E7 - 9F19DAE79D6758B6FD2E4353A6114384BB22D0D0BF0CB7EE3F216C003288F254 - 66288BD765E0E56206BAE01FC3FDC7CFB01B00F233B3D12C30FBFDA138B0730F - 9C7ECE1056BE8FC1C954926172991958ECF9ABD79806803483FCCC6E36076CC0 - 8B3D5160C52031459FD560B10BCB7DC02E78F3EE2DAA01317E56F038E6B75908 - 567C6D6D1003273B33C396C38F18723B4F32B0B332311C99E70156F3F1D30754 - 03C2BDCC51342303666646066F1B1986EC5035065E6E16B0BA6FDF3EA31A10E4 - 6602762ACC1570F6EFBF503184DCBF7FFF197EFCF8826A809F9311C3A98BB748 - CA4C700340B971E28CA524E7C6FC8CE81800E35A4E592A9A5C6B000000004945 - 4E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001844944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4409201C89A8F9DBDC150D5360BB7010B - 37DF6248A8DB0FE7CB4BF2325C5D1B0237E0ECE53BF80D0081C69967191A669C - 6188F35163985C61C5F0EF1FC4057FFEFC63B878FD1E6103744357335CB9F38E - 61CB240F066B0331B866107DEDF643FC067CFFF98781CB622E98FD745714032B - 0B235CF31F20BE75FF096E03FE01C5CE5D7FC3601ABD8E41535180E1E05C6F14 - CDBF81ECFB8F9F613700A419A478C9D65B0CC98D871862BC5518BAF24DE19A7F - 005D06623F7FF51AD30098669082CA49A71826AFB8CAD05D68CA10E2AC0009FD - DF7FA1B1F08FE1CDBBB7A806C4F859C1A3E8DDC79F0C0185BB182EDE7AC7B0BE - D799415B991F453388FEF8E903AA01E15EE6608993975F31B8656E4709D02D13 - 9D1964C438E19A41F8DBB7CFA80604B999C09D8F1C5DE83683F0BF7FFF197EFC - F8826A809F9311C3A98BB748CA4C700340B971E28CA524E7C6FC8CE818000A3C - 81590C9B58CC0000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001854944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806100A3E14C140DFFCFA763887F3C12 - CF70ECEC0D86AAB65998067CFCF28B41C0763E98FDE6403C83303F07C33FA09A - B71F7E3088392D62B8BB259C81978B85E1ECE53BD80D40B60D643B48F39F3F10 - 67F358CD6778B52F1ACCBF78FD1E6103FE9E4B836B066141BB450CCF764582D9 - D76E3F246CC0CF532970CD202CE6B494E1E1B630A0A17F196EDD7F42D880B707 - E318981819C09ADF7DFCC9A011B886E1EEA66020FF1FC3FDC7CFB01B00F2B356 - D02A869B0F3E305424EA3364846A80BDD1B5F012C3D53BEF1966D558820D7CFE - EA35A601B000BBF5F00343CDD4D30C07CE3C07C70A1F372B838BB91443419426 - 90CD0276C19B776F510D88F1B382FB1539E0E0ECDFB0B080F03F7EFA806A40B8 - 97395882DF6621C1D47870B60BC3B76F9F510D08723321CA6610FEF7EF3FC38F - 1F5F500DF07332623875F1164999096E0028374E9CB194E4DC989F111D03002B - D67559EB1C43180000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000F94944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4409201C89A8F9DBDC150D5368B3803FE - 01D5FCF983D00CC2672FDFC134809B9B1BAF0B9EBE7803D60C32ECE2F57B845D - 80CD6618FFDAED87A4BB00062EDF78C870EBFE13DC2EC067F31F30FF1FC3FDC7 - CF487701C8E61F3FFF800D7AFEEA35A601E836FFFCF507C5F6DFBF612EFAC7F0 - E6DD5B540362FCAC18F8F978890A833D47AF327CFCF401D580702F7354DB70D8 - 0C93FBF6ED33AA01416E26446BFEF7EF3FC38F1F5F500DF07332623875F11651 - 5E8001B801A0DC3871C6529273637E46740C002BB66C59EAC44C620000000049 - 454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001004944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4409201C89A8F9DBDC150D5368B3803FE - 01D5FCF983D00CC2672FDFC16D0037373756839EBE7803D60C32ECE2F57B845D - 80CD6618FFDAED879806E0B2191D5CBEF190E1D6FD27B85D80CFE63F60FE3F86 - FB8F9F613700A499978707A7CD3F7EFE011BF4FCD56B4C03D06DFEF9EB0F8AED - BF7FC35CF48FE1CDBBB7A806C4F85931F0F3F11215067B8E5E65F8F8E903AA01 - E15EE6A8B6E1B01926F7EDDB67540382DC4C88D6FCEFDF7F861F3FBEA01AE0E7 - 64C470EAE22DA2BC0003700340B971E28CA524E7C6FC8CE8180048E16F597BCE - 9D230000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000FC4944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4409201C89A8F9DBDC150D5368B3803FE - 01D5FCF983D00CC2672FDFC16D003737375E97DC79F09CE1E2F57B845D80CD66 - 18FFDAED87980610B219062EDF78C870EBFE13DC2EC067F31F30FF1FC3FDC7CF - B01B00D2CCCBC383D705C7CEDE6278FEEA35A601E836FFFCF507C5F6DFBF612E - FAC7F0E6DD5B540362FCAC18F8F978890A833D47AF327CFCF401D580702F7354 - DB70D80C93FBF6ED33AA01416E26446BFEF7EF3FC38F1F5F500DF07332623875 - F116515E8001B801A0DC3871C6529273637E46740C0021BE635977EAA72D0000 - 000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001CB4944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC480D580CAA3950C4B6E2C61789CFC18A7 - E663676F3054B5CDC234E0EFFFBF0C327364185E7C7BC17020E40083BDB43DC3 - 3FA09A3F7F109A41F8ECE53BD80D587B672D43CBA916860BAF2F3024682530CC - 759987A119C4BF78FD1E76031CD73A324CB09FC0E0B0C681E1CFBF3F0C8F129E - 32B0317280350ADA2D6278B62B12CCBE76FB21A60137DFDF64D058A481E2EFB9 - 4E0B188214C2C09A41E0E1B630A00BFE32DCBAFF04D380C243850C06A2060CB1 - 1A710C871E1F61705C6FC7E020E5C470A02D0C6CB394DB7286BB9B82812EF8C7 - 70FFF13354034CED04194C969B303C4B7DCEC0CDC40B76A6DA52258667536B19 - 562D92623017B16190F75AC57075B53F58EEF9ABD7A806347E886578F0E90183 - 3CAF02C3D5C89B0C69FB531896555B63A4830BCB7DC02E78F3EE2DAA01317E56 - 28A12CECB098E1F18E70440CFCFECBA01DBA91E1F4622F30FFE3A70FA806847B - 99A36886815B1B82E09A61E0E06C17866FDF3EA31A10E4668212DFC83643C410 - 72FFFEFD67F8F1E30BAA017E4E460CA72EDE222933C10D00E5C6893396929C1B - F333A26300FC1C815930D4A9C10000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end> - Left = 40 - Top = 112 - Bitmap = {} - end - object cxStyleRepository: TcxStyleRepository - Left = 8 - Top = 168 - object cxStyleEven: TcxStyle - end - object cxStyleOdd: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleSelection: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clHighlight - TextColor = clHighlightText - end - object cxStyle_IMPORTETOTAL: TcxStyle - AssignedValues = [svColor] - Color = clInactiveCaptionText - end - object cxStyle_SUBTOTAL: TcxStyle - AssignedValues = [svColor] - Color = cl3DLight - end - object cxStyle_TITULO: TcxStyle - AssignedValues = [svColor] - Color = clMenuBar - end - end -end diff --git a/Source/Base/GUIBase/uViewDetallesBase.pas b/Source/Base/GUIBase/uViewDetallesBase.pas deleted file mode 100644 index 90896a9f..00000000 --- a/Source/Base/GUIBase/uViewDetallesBase.pas +++ /dev/null @@ -1,746 +0,0 @@ -unit uViewDetallesBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, ComCtrls, ToolWin, ActnList, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, - uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ImgList, - PngImageList, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, - uGridUtils, uControllerDetallesBase, cxCurrencyEdit, ExtCtrls, Grids, DBGrids, StdCtrls, - ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo, - TB2Item, TBX, TB2Dock, TB2Toolbar; - -type - IViewDetallesBase = interface(IViewBase) - ['{852EB860-13B6-4355-A6B0-4542AB16896F}'] - procedure ExpandirTodo; - procedure ContraerTodo; - procedure AjustarAncho; - - procedure SaveGridStatus; - procedure RestoreGridStatus; - - procedure BeginUpdate; - procedure EndUpdate; - - function IsEmpty : Boolean; - - function GetFocusedView : TcxGridDBTableView; - property _FocusedView : TcxGridDBTableView read GetFocusedView; - - function GetGrid : TcxGrid; - property _Grid : TcxGrid read GetGrid; - end; - - TfrViewDetallesBase = class(TfrViewBase, IViewDetallesBase) - ActionListContenido: TActionList; - DADataSource: TDADataSource; - actAnadir: TAction; - actEliminar: TAction; - actSubir: TAction; - actBajar: TAction; - ContenidoImageList: TPngImageList; - ToolBar1: TToolBar; - cxStyleRepository: TcxStyleRepository; - cxStyleEven: TcxStyle; - cxStyleOdd: TcxStyle; - cxStyleSelection: TcxStyle; - ToolButton1: TToolButton; - ToolButton2: TToolButton; - ToolButton3: TToolButton; - ToolButton4: TToolButton; - cxGrid: TcxGrid; - cxGridView: TcxGridDBTableView; - cxGridViewID: TcxGridDBColumn; - cxGridViewPOSICION: TcxGridDBColumn; - cxGridViewTIPO: TcxGridDBColumn; - cxGridViewDESCRIPCION: TcxGridDBColumn; - cxGridViewCANTIDAD: TcxGridDBColumn; - cxGridViewIMPORTEUNIDAD: TcxGridDBColumn; - cxGridViewIMPORTETOTAL: TcxGridDBColumn; - cxGridViewVISIBLE: TcxGridDBColumn; - cxGridLevel: TcxGridLevel; - RichEditBold1: TRichEditBold; - RichEditItalic1: TRichEditItalic; - ToolButton6: TToolButton; - ToolButton7: TToolButton; - RichEditUnderline1: TRichEditUnderline; - RichEditAlignLeft1: TRichEditAlignLeft; - RichEditAlignRight1: TRichEditAlignRight; - RichEditAlignCenter1: TRichEditAlignCenter; - ToolButton8: TToolButton; - ToolButton9: TToolButton; - ToolButton10: TToolButton; - ToolButton11: TToolButton; - ToolButton12: TToolButton; - ToolButton13: TToolButton; - FontEdit1: TFontEdit; - ToolButton14: TToolButton; - UpDown1: TUpDown; - FontSize: TEdit; - FontName: TJvFontComboBox; - TBXDock1: TTBXDock; - TBXToolbar1: TTBXToolbar; - TBXItem1: TTBXItem; - TBXItem2: TTBXItem; - TBXSeparatorItem1: TTBXSeparatorItem; - TBXItem3: TTBXItem; - TBXItem4: TTBXItem; - TBXSeparatorItem2: TTBXSeparatorItem; - TBXItem5: TTBXItem; - TBXItem6: TTBXItem; - TBXItem7: TTBXItem; - TBXSeparatorItem3: TTBXSeparatorItem; - TBXItem8: TTBXItem; - TBXSeparatorItem4: TTBXSeparatorItem; - TBXItem9: TTBXItem; - TBXItem10: TTBXItem; - TBXItem11: TTBXItem; - cxStyle_IMPORTETOTAL: TcxStyle; - cxStyle_SUBTOTAL: TcxStyle; - cxStyle_TITULO: TcxStyle; - RichEditAlignRight2: TRichEditAlignRight; - actAnchoAutomatico: TAction; - TBXSeparatorItem5: TTBXSeparatorItem; - TBXItem13: TTBXItem; - - procedure actAnadirExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actSubirExecute(Sender: TObject); - procedure actBajarExecute(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actSubirUpdate(Sender: TObject); - procedure actBajarUpdate(Sender: TObject); - procedure actAnadirUpdate(Sender: TObject); - - procedure cxGridViewEditValueChanged(Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem); - procedure cxGridViewEditKeyDown(Sender: TcxCustomGridTableView; - AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word; - Shift: TShiftState); - - procedure cxGridViewInitEdit(Sender: TcxCustomGridTableView; - AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit); - procedure FontEdit1BeforeExecute(Sender: TObject); - procedure FontEdit1Accept(Sender: TObject); - - procedure CustomViewCreate(Sender: TObject); - procedure CustomViewDestroy(Sender: TObject); - procedure FontSizeChange(Sender: TObject); - procedure FontNameChange(Sender: TObject); - - procedure cxGridViewEditing(Sender: TcxCustomGridTableView; - AItem: TcxCustomGridTableItem; var AAllow: Boolean); - procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; - ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; - out AStyle: TcxStyle); - procedure TBXItem13Click(Sender: TObject); - procedure actAnchoAutomaticoExecute(Sender: TObject); - procedure actAnchoAutomaticoUpdate(Sender: TObject); - - private - FController : IControllerDetallesBase; - FDetalles: IDAStronglyTypedDataTable; - FGridStatus: TcxGridStatus; - CurEdit: TcxRichEdit; - FUpdating: Boolean; - function CurrText: TTextAttributes; - procedure OnSelectChange(Sender:TObject); - - function GetController: IControllerDetallesBase; - procedure SetController(const Value: IControllerDetallesBase); - function GetDetalles: IDAStronglyTypedDataTable; - procedure SetDetalles(const Value: IDAStronglyTypedDataTable); - - function darPosicionCAMPO(const Nombre:String): Integer; - function darListaSeleccionados: TIntegerArray; - - protected - function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; virtual; - function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; virtual; - function darTipoLetraPorDefecto: TFont; virtual; - function GetFocusedView : TcxGridDBTableView; virtual; - function GetGrid : TcxGrid; virtual; - procedure SeleccionarRowActual; - - public - procedure BeginUpdate; - procedure EndUpdate; - procedure SaveGridStatus; - procedure RestoreGridStatus; - procedure ExpandirTodo; - procedure ContraerTodo; - procedure AjustarAncho; - function IsEmpty : Boolean; - destructor Destroy; override; - property _FocusedView : TcxGridDBTableView read GetFocusedView; - property _Grid : TcxGrid read GetGrid; - property Controller: IControllerDetallesBase read GetController write SetController; - property Detalles: IDAStronglyTypedDataTable read GetDetalles write SetDetalles; - - end; - -implementation -{$R *.dfm} - -function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric; - FontType: Integer; Data: Pointer): Integer; stdcall; -begin - TStrings(Data).Add(LogFont.lfFaceName); - Result := 1; -end; - - -procedure TfrViewDetallesBase.actAnadirExecute(Sender: TObject); -var - bEsMultiSelect : Boolean; -begin - // Debo quitar el multiselect porque provoca que se quede seleccionado - // el registro actual y no el nuevo registro que voy a añadir - bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect; - if bEsMultiSelect then - cxGridView.OptionsSelection.MultiSelect := False; - - cxGridView.BeginUpdate; - try - if cxGridView.Controller.EditingController.IsEditing then - cxGridView.Controller.EditingController.Edit.PostEditValue; - - if Assigned(Controller) - and Assigned(FDetalles) then - Controller.add(FDetalles, TIPO_DETALLE_CONCEPTO); - finally - cxGridView.EndUpdate; - - // Dejo la propiedad MultiSelect como estaba - if bEsMultiSelect then - cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect; - end; -end; - -procedure TfrViewDetallesBase.actEliminarExecute(Sender: TObject); -var - AuxTop, AuxRow:Integer; - -begin - cxGridView.BeginUpdate; - try - if Assigned(Controller) - and Assigned(FDetalles) then - begin - AuxTop := cxGridView.Controller.TopRowIndex; - AuxRow := cxGridView.DataController.FocusedRowIndex; - - Controller.delete(FDetalles, darListaSeleccionados); - - if(FDetalles.RecordCount > 0) then - begin - //Selecciona en el grid el registro siguiente - if (AuxRow < cxGridView.DataController.RowCount-1) then - Inc(AuxRow) - else - Dec(AuxRow); - - cxGridView.DataController.SelectRows(AuxRow,AuxRow); - cxGridView.Controller.TopRowIndex := AuxTop; - end; - end - finally - cxGridView.EndUpdate; - end; - - SeleccionarRowActual; -end; - -procedure TfrViewDetallesBase.actEliminarUpdate(Sender: TObject); -begin - if not Assigned(DADataSource.DataTable) then - (Sender as TAction).Enabled := False - else - (Sender as TAction).Enabled := (not ReadOnly) - and (not DADataSource.DataTable.IsEmpty) -end; - -procedure TfrViewDetallesBase.actSubirUpdate(Sender: TObject); -begin - inherited; - if not Assigned(cxGridView.Controller.FocusedRow) then - (Sender as TAction).Enabled := False - else - (Sender as TAction).Enabled := (not ReadOnly) - and (not cxGridView.Controller.FocusedRow.IsFirst) -end; - -procedure TfrViewDetallesBase.AjustarAncho; -begin - if Assigned(_FocusedView) then - _FocusedView.ApplyBestFit; -end; - -procedure TfrViewDetallesBase.BeginUpdate; -begin - if Assigned(_FocusedView) then - _FocusedView.BeginUpdate; -end; - -function TfrViewDetallesBase.darTipoLetraPorDefecto: TFont; -begin - Result := TFont.Create; - Result.Name := 'Tahoma'; - Result.Size := 9; -end; - -destructor TfrViewDetallesBase.Destroy; -begin - FController := NIL; - FDetalles := NIL; - - if Assigned(FGridStatus) then - FreeAndNil(FGridStatus); - inherited; -end; - -procedure TfrViewDetallesBase.ContraerTodo; -begin - if Assigned(_FocusedView) then - _FocusedView.ViewData.Collapse(True); -end; - -function TfrViewDetallesBase.CurrText: TTextAttributes; -begin - Result := NIL; - if Assigned(CurEdit) then -// if CurEdit.FindSelection then - if CurEdit.SelLength > 0 then - Result := CurEdit.SelAttributes - else - Result := CurEdit.DefAttributes; -end; - -procedure TfrViewDetallesBase.CustomViewCreate(Sender: TObject); -begin - inherited; - CurEdit := Nil; - FUpdating := False; -end; - -procedure TfrViewDetallesBase.CustomViewDestroy(Sender: TObject); -begin - inherited; - CurEdit := Nil; -end; - -procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView; - AItem: TcxCustomGridTableItem; var AAllow: Boolean); -begin - AAllow := EsTipoEditable(AItem); -end; - -procedure TfrViewDetallesBase.cxGridViewEditKeyDown( - Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; - AEdit: TcxCustomEdit; var Key: Word; Shift: TShiftState); -begin - inherited; - cxGridView.BeginUpdate; - try - Case Key of - VK_DOWN : begin - //En el caso de ser la última fila hacemos un append nosotros no el grid - //ya que se saltaria la lógica del controllerDetallesBase - if cxGridView.Controller.IsFinish then - begin - Key := 0; - if Sender.Controller.EditingController.IsEditing then - Sender.Controller.EditingController.Edit.PostEditValue; - actAnadir.Execute; - end; - - //Baja los conceptos seleccionados - if Shift = [ssAlt] then - begin - Key := 0; - actBajar.Execute; - end; - end; - VK_UP : begin - //Sube los conceptos seleccionados - if Shift = [ssAlt] then - begin - Key := 0; - actSubir.Execute; - end; - end; - - VK_RETURN, VK_RIGHT - : begin - //En el caso de ser la última fila hacemos un append nosotros no el grid - //ya que se saltaria la lógica del controllerDetallesBase - if cxGridView.Controller.IsFinish - and AItem.IsLast then - begin - Key := 0; - if Sender.Controller.EditingController.IsEditing then - Sender.Controller.EditingController.Edit.PostEditValue; - actAnadir.Execute; - end; - end; - end; - finally - cxGridView.EndUpdate; - end; -end; - -procedure TfrViewDetallesBase.cxGridViewEditValueChanged(Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem); -begin - inherited; - cxGridView.BeginUpdate; - try - if HayQueRecalcular(AItem) then - begin - if Sender.Controller.EditingController.IsEditing then - Sender.Controller.EditingController.Edit.PostEditValue; - - Controller.actualizarTotales(Detalles); - end; - finally - cxGridView.EndUpdate; - end; -end; - -procedure TfrViewDetallesBase.cxGridViewInitEdit(Sender: TcxCustomGridTableView; - AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit); -var - FuentePorDefecto: TFont; -begin - inherited; - - if AEdit is TcxRichEdit then - begin - FuentePorDefecto := darTipoLetraPorDefecto; - //La primera vez que accedemos al grid entra dos veces y perderiamos el editor - //dando un pete. - if not Assigned(CurEdit) then - begin - FontEdit1.Enabled := True; - // UpDown1.Enabled := True; - // FontSize.Enabled := True; - // FontName.Enabled := True; - - CurEdit := TcxRichEdit(AEdit); - if length(CurEdit.Text) = 0 then - CurEdit.DefAttributes.Assign(FuentePorDefecto) - end - else - if length(CurEdit.Text) = 0 then - CurEdit.DefAttributes.Assign(FuentePorDefecto); - - FreeAndNil(FuentePorDefecto); - end - else - begin - CurEdit := Nil; - FontEdit1.Enabled := False; -// UpDown1.Enabled := False; -// FontSize.Enabled := False; -// FontName.Enabled := False; - end; -end; - -procedure TfrViewDetallesBase.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -var - IndiceCol : Integer; - ATipo : String; -begin - if Assigned(ARecord) then - begin - IndiceCol := cxGridViewTIPO.Index; - ATipo := VarToStr(ARecord.Values[IndiceCol]); - if ATipo = TIPO_DETALLE_SUBTOTAL then - AStyle := cxStyle_SUBTOTAL; - if ATipo = TIPO_DETALLE_TITULO then - AStyle := cxStyle_TITULO; - end; -end; - -function TfrViewDetallesBase.darListaSeleccionados: TIntegerArray; -var - i, j: Integer; -begin - j := darPosicionCampo(CAMPO_POSICION); - - with cxGridView.Controller do - for i:=0 to SelectedRecordCount-1 do - begin - SetLength(Result, i+1); - Result[i] := SelectedRecords[i].Values[j]; - end; -end; - -function TfrViewDetallesBase.DarPosicionCAMPO(const Nombre: String): Integer; -var - i: Integer; -begin - Result := -1; - - i:=0; - while ((cxGridView.Columns[i].DataBinding.FieldName <> Nombre) - and (i < cxGridView.ColumnCount)) do - inc(i); - - if (i = cxGridView.ColumnCount) - then raise Exception.Create('El campo ' + Nombre + ' no se ha encontrado en el grid (uViewDetallesBase)'); - - Result := i; -end; - -procedure TfrViewDetallesBase.EndUpdate; -begin - if Assigned(_FocusedView) then - _FocusedView.EndUpdate; -end; - -function TfrViewDetallesBase.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; -var - IndiceCol : Integer; -begin - Result := True; - - IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; - if (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) then - begin - IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_CONCEPTO).Index; - if AItem.Index >= IndiceCol then - Result := False - end - else - begin - if (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SUBTOTAL) - or (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_TITULO) then - begin - IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_CONCEPTO).Index; - if AItem.Index > IndiceCol then - Result := False - end - end; -end; - -procedure TfrViewDetallesBase.ExpandirTodo; -begin - if Assigned(_FocusedView) then - _FocusedView.ViewData.Expand(True); -end; - -procedure TfrViewDetallesBase.FontEdit1Accept(Sender: TObject); -begin - inherited; - CurrText.Assign(FontEdit1.Dialog.Font); -end; - -procedure TfrViewDetallesBase.FontEdit1BeforeExecute(Sender: TObject); -begin - inherited; - FontEdit1.Dialog.Font.Assign(CurEdit.SelAttributes); -end; - -procedure TfrViewDetallesBase.FontNameChange(Sender: TObject); -begin - if FUpdating then Exit; - CurrText.Name := FontName.Items[FontName.ItemIndex]; -end; - -procedure TfrViewDetallesBase.FontSizeChange(Sender: TObject); -begin - if FUpdating then Exit; - CurrText.Size := StrToInt(FontSize.Text); -end; - -function TfrViewDetallesBase.GetController: IControllerDetallesBase; -begin - Result := FController; -end; - -function TfrViewDetallesBase.GetDetalles: IDAStronglyTypedDataTable; -begin - Result := FDetalles; -end; - -function TfrViewDetallesBase.GetFocusedView: TcxGridDBTableView; -begin - Result := cxGridView; -end; - -function TfrViewDetallesBase.GetGrid: TcxGrid; -begin - Result := cxGrid; -end; - -function TfrViewDetallesBase.HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; -begin - Result := (AItem = cxGridViewTIPO) - or (AItem = cxGridViewCANTIDAD) - or (AItem = cxGridViewIMPORTEUNIDAD); -end; - -function TfrViewDetallesBase.IsEmpty: Boolean; -begin - Result := (_FocusedView.ViewData.RowCount < 1); -end; - -procedure TfrViewDetallesBase.OnSelectChange(Sender: TObject); -begin - if (csDestroying in ComponentState) then - Exit; - - try - FUpdating := True; -// FontSize.Text := IntToStr(CurEdit.SelAttributes.Size); -// FontName.FontName := CurEdit.SelAttributes.Name; - finally - FUpdating := False; - end; -end; - -procedure TfrViewDetallesBase.RestoreGridStatus; -begin - if Assigned(FGridStatus) and (not IsEmpty) then - FGridStatus.Restore(_FocusedView); -end; - -procedure TfrViewDetallesBase.SaveGridStatus; -begin - FreeAndNil(FGridStatus); - if not IsEmpty then - FGridStatus := TcxGridStatus.Create(_FocusedView); -end; - -procedure TfrViewDetallesBase.SeleccionarRowActual; -begin - //Quitamos lo que hubiera seleccionado - cxGrid.ActiveView.DataController.ClearSelection; - with cxGrid.ActiveView.DataController do - if RowCount > 0 then - SelectRows(GetFocusedRowIndex,GetFocusedRowIndex); -end; - -procedure TfrViewDetallesBase.SetController(const Value: IControllerDetallesBase); -var - AListaValores : TStringList; - AItem : TcxImageComboBoxItem; - i: integer; - DC: HDC; -begin - FController := Value; - - //Rellenamos los tipos de letra que tenemos - FontName.Items.Clear; - DC := GetDC(0); - EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items)); - ReleaseDC(0, DC); - FontName.Sorted := True; - - //Rellenamos los tipos de conceptos que hay - if Assigned(FController) then - begin - AListaValores := FController.darListaTIPOSDETALLE; - with (cxGridViewTIPO.Properties as TcxImageComboBoxProperties) do - if Items.Count = 0 then - begin - Items.BeginUpdate; - try - Items.Clear; - for i:=0 to AListaValores.Count-1 do - begin - AItem := Items.Add; - AItem.Tag := i; - AItem.Description := AListaValores.ValueFromIndex[i]; - AItem.Value := AListaValores.Names[i]; - end; - finally - DefaultDescription := AListaValores.ValueFromIndex[0]; - FreeAndNil(AListaValores); - Items.EndUpdate; - end; - end; - end; -end; - -procedure TfrViewDetallesBase.SetDetalles(const Value: IDAStronglyTypedDataTable); -begin - FDetalles := Value; - if Assigned(FDetalles) then - DADataSource.DataTable := FDetalles.DataTable - else - DADataSource.DataTable := NIL; -end; - -procedure TfrViewDetallesBase.TBXItem13Click(Sender: TObject); -begin - inherited; - if cxGridView.Controller.EditingController.IsEditing then - cxGridView.Controller.EditingController.Edit.PostEditValue; - -end; - -procedure TfrViewDetallesBase.actAnadirUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := not ReadOnly; -end; - -procedure TfrViewDetallesBase.actAnchoAutomaticoExecute(Sender: TObject); -begin - inherited; - cxGridView.ApplyBestFit; -end; - -procedure TfrViewDetallesBase.actAnchoAutomaticoUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := not IsEmpty; -end; - -procedure TfrViewDetallesBase.actBajarExecute(Sender: TObject); -begin - cxGridView.BeginUpdate; - try - if cxGridView.Controller.EditingController.IsEditing then - cxGridView.Controller.EditingController.Edit.PostEditValue; - - if Assigned(Controller) - and Assigned(FDetalles) then - Controller.move(FDetalles, darListaSeleccionados, 1); - finally - cxGridView.EndUpdate; - end; -end; - -procedure TfrViewDetallesBase.actBajarUpdate(Sender: TObject); -begin - inherited; - if not Assigned(cxGridView.Controller.FocusedRow) then - (Sender as TAction).Enabled := False - else - (Sender as TAction).Enabled := (not ReadOnly) - and (not cxGridView.Controller.FocusedRow.IsLast) -end; - -procedure TfrViewDetallesBase.actSubirExecute(Sender: TObject); -begin - cxGridView.BeginUpdate; - try - if cxGridView.Controller.EditingController.IsEditing then - cxGridView.Controller.EditingController.Edit.PostEditValue; - - if Assigned(Controller) - and Assigned(FDetalles) then - Controller.move(FDetalles, darListaSeleccionados, -1); - finally - cxGridView.EndUpdate; - end; -end; - -end. diff --git a/Source/Base/GUIBase/uViewDetallesDTO.dcu b/Source/Base/GUIBase/uViewDetallesDTO.dcu deleted file mode 100644 index be6dc73f..00000000 Binary files a/Source/Base/GUIBase/uViewDetallesDTO.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewDetallesDTO.dfm b/Source/Base/GUIBase/uViewDetallesDTO.dfm deleted file mode 100644 index 618d7d45..00000000 --- a/Source/Base/GUIBase/uViewDetallesDTO.dfm +++ /dev/null @@ -1,95 +0,0 @@ -inherited frViewDetallesDTO: TfrViewDetallesDTO - inherited ToolBar1: TToolBar - ButtonWidth = 110 - inherited ToolButton1: TToolButton - ExplicitWidth = 109 - end - inherited ToolButton2: TToolButton - Left = 109 - ExplicitLeft = 109 - ExplicitWidth = 114 - end - inherited ToolButton3: TToolButton - Left = 223 - ExplicitLeft = 223 - end - inherited ToolButton4: TToolButton - Left = 278 - ExplicitLeft = 278 - end - inherited ToolButton14: TToolButton - Left = 334 - ExplicitLeft = 334 - end - end - inherited cxGrid: TcxGrid - inherited cxGridView: TcxGridDBTableView - object cxGridViewDESCUENTO: TcxGridDBColumn [6] - Caption = 'Dto' - DataBinding.FieldName = 'DESCUENTO' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.DisplayFormat = ',0.00 %;-,0.00 %' - Properties.EditFormat = ',0.00;-,0.00' - Properties.MaxValue = 100.000000000000000000 - end - object cxGridViewIMPORTENETO: TcxGridDBColumn [7] - Caption = 'Importe neto' - DataBinding.ValueType = 'Currency' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364 - Properties.EditFormat = ',0.00 '#8364';-,0.00 '#8364 - Properties.ReadOnly = True - Properties.OnValidate = cxGridViewIMPORTENETOPropertiesValidate - OnGetDisplayText = cxGridViewIMPORTENETOGetDisplayText - HeaderAlignmentHorz = taRightJustify - Options.Editing = False - end - object cxGridViewIMPORTEPORTE: TcxGridDBColumn [8] - Caption = 'Importe porte' - DataBinding.FieldName = 'IMPORTE_PORTE' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.EditFormat = ',0.00 '#8364';-,0.00 '#8364 - HeaderAlignmentHorz = taRightJustify - end - end - end - inherited TBXDock1: TTBXDock - inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 447 - end - end - inherited ActionListContenido: TActionList - inherited actAnadir: TAction - Caption = 'A'#241'adir concepto' - end - inherited actEliminar: TAction - Caption = 'Eliminar concepto' - end - inherited RichEditBold1: TRichEditBold - Visible = False - end - inherited RichEditItalic1: TRichEditItalic - Visible = False - end - inherited RichEditUnderline1: TRichEditUnderline - Visible = False - end - inherited RichEditAlignLeft1: TRichEditAlignLeft - Visible = False - end - inherited RichEditAlignCenter1: TRichEditAlignCenter - Visible = False - end - inherited RichEditAlignRight1: TRichEditAlignRight - Visible = False - end - inherited FontEdit1: TFontEdit - Visible = False - end - inherited RichEditAlignRight2: TRichEditAlignRight - Visible = False - end - end -end diff --git a/Source/Base/GUIBase/uViewDetallesDTO.pas b/Source/Base/GUIBase/uViewDetallesDTO.pas deleted file mode 100644 index 8467dc7d..00000000 --- a/Source/Base/GUIBase/uViewDetallesDTO.pas +++ /dev/null @@ -1,75 +0,0 @@ -unit uViewDetallesDTO; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewDetallesBase, cxStyles, cxCustomData, cxGraphics, cxFilter, - cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxRichEdit, - cxMaskEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDADataTable, - StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls, - JvCombobox, JvColorCombo, ToolWin; - -type - IViewDetallesDTO = interface(IViewDetallesBase) - ['{0D221FFB-9F43-48FC-9AE7-0AD0F0791AD1}'] - end; - - TfrViewDetallesDTO = class(TfrViewDetallesBase, IViewDetallesDTO) - cxGridViewDESCUENTO: TcxGridDBColumn; - cxGridViewIMPORTEPORTE: TcxGridDBColumn; - cxGridViewIMPORTENETO: TcxGridDBColumn; - procedure cxGridViewIMPORTENETOGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: string); - procedure cxGridViewIMPORTENETOPropertiesValidate(Sender: TObject; - var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); - protected - function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; override; - end; - -implementation -{$R *.dfm} - -{ TfrViewDetallesDTO } - -procedure TfrViewDetallesDTO.cxGridViewIMPORTENETOGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: string); -var - ImporteNeto : Double; -begin - //Se encarga de mostrar el campo calculado de importe neto - ImporteNeto := -1; - - if not VarIsNull(ARecord.Values[cxGridViewIMPORTEUNIDAD.Index]) then - if not VarIsNull(ARecord.Values[cxGridViewDESCUENTO.Index]) then - ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index] - ((ARecord.Values[cxGridViewIMPORTEUNIDAD.Index] * ARecord.Values[cxGridViewDESCUENTO.Index])/100) - else - ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index]; - - if (ImporteNeto <> -1) then - begin - AText := FormatCurr(',0.00 €;-,0.00 €', FloatToCurr(ImporteNeto)) - end; -end; - -procedure TfrViewDetallesDTO.cxGridViewIMPORTENETOPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; - var Error: Boolean); -begin - inherited; - if not VarIsNull(DisplayValue) then - begin - cxGridViewDESCUENTO.DataBinding.Field.Value := ((cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value - DisplayValue) * 100) / cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value; - Controller.ActualizarTotales(Detalles); - end; -end; - -function TfrViewDetallesDTO.HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; -begin - Result := inherited HayQueRecalcular(AItem); - if not Result then - Result := (AItem = cxGridViewDESCUENTO) or (AItem = cxGridViewIMPORTEPORTE); -end; - -end. diff --git a/Source/Base/GUIBase/uViewDetallesGenerico.dcu b/Source/Base/GUIBase/uViewDetallesGenerico.dcu deleted file mode 100644 index 982dbeb3..00000000 Binary files a/Source/Base/GUIBase/uViewDetallesGenerico.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewDetallesGenerico.dfm b/Source/Base/GUIBase/uViewDetallesGenerico.dfm deleted file mode 100644 index 3afdb87e..00000000 --- a/Source/Base/GUIBase/uViewDetallesGenerico.dfm +++ /dev/null @@ -1,238 +0,0 @@ -inherited frViewDetallesGenerico: TfrViewDetallesGenerico - Width = 503 - Height = 357 - ExplicitWidth = 503 - ExplicitHeight = 357 - object cxGrid: TcxGrid - Left = 0 - Top = 25 - Width = 503 - Height = 332 - Align = alClient - TabOrder = 0 - LookAndFeel.Kind = lfOffice11 - LookAndFeel.NativeStyle = True - object cxGridView: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - FilterBox.Visible = fvNever - OnEditKeyDown = cxGridViewEditKeyDown - DataController.DataSource = dsDetalles - DataController.Filter.Options = [fcoCaseInsensitive] - DataController.KeyFieldNames = 'ID' - DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = <> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.AlwaysShowEditor = True - OptionsBehavior.CellHints = True - OptionsBehavior.FocusCellOnTab = True - OptionsBehavior.GoToNextCellOnEnter = True - OptionsBehavior.BestFitMaxRecordCount = 20 - OptionsBehavior.FocusCellOnCycle = True - OptionsCustomize.ColumnFiltering = False - OptionsCustomize.ColumnGrouping = False - OptionsCustomize.ColumnMoving = False - OptionsCustomize.ColumnSorting = False - OptionsCustomize.DataRowSizing = True - OptionsData.Appending = True - OptionsData.CancelOnExit = False - OptionsSelection.MultiSelect = True - OptionsSelection.UnselectFocusedRecordOnExit = False - OptionsView.CellEndEllipsis = True - OptionsView.CellAutoHeight = True - OptionsView.ColumnAutoWidth = True - OptionsView.GridLineColor = cl3DLight - OptionsView.GroupByBox = False - OptionsView.HeaderEndEllipsis = True - OptionsView.Indicator = True - object cxGridViewID: TcxGridDBColumn - DataBinding.FieldName = 'ID' - Visible = False - end - end - object cxGridLevel: TcxGridLevel - GridView = cxGridView - end - end - object ToolBar1: TToolBar - Left = 0 - Top = 0 - Width = 503 - Height = 25 - ButtonWidth = 113 - Caption = 'ToolBar1' - EdgeInner = esNone - EdgeOuter = esNone - Flat = False - Images = ContenidoImageList - List = True - ParentShowHint = False - ShowCaptions = True - ShowHint = True - TabOrder = 1 - Transparent = True - object ToolButton1: TToolButton - Left = 0 - Top = 2 - Action = actAnadir - AutoSize = True - end - object ToolButton4: TToolButton - Left = 62 - Top = 2 - Action = actModificar - AutoSize = True - end - object ToolButton5: TToolButton - Left = 136 - Top = 2 - Width = 8 - Caption = 'ToolButton5' - ImageIndex = 2 - Style = tbsSeparator - end - object ToolButton2: TToolButton - Left = 144 - Top = 2 - Action = actEliminar - AutoSize = True - end - object ToolButton6: TToolButton - Left = 211 - Top = 2 - Width = 8 - Caption = 'ToolButton6' - ImageIndex = 2 - Style = tbsSeparator - end - object ToolButton7: TToolButton - Left = 219 - Top = 2 - Action = actAnchoAutomatico - AutoSize = True - end - end - object dsDetalles: TDADataSource - Left = 40 - Top = 144 - end - object ContenidoImageList: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000F84944415478DA - 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA - 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4 - 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F - FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF - 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911 - BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4 - 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B - 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945 - 4E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA - A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 - 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 - 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F - 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 - 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 - 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA - 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E - 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 - E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 - 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 - 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 - 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB - 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 - 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 - E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 - D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 - 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 - A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E - AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 - 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 - 5538F0EAB25B380000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end> - Left = 40 - Top = 112 - Bitmap = {} - end - object ActionListContenido: TActionList - Images = ContenidoImageList - Left = 40 - Top = 80 - object actAnadir: TAction - Category = 'Operaciones' - Caption = 'A'#241'adir' - ImageIndex = 0 - ShortCut = 45 - OnExecute = actAnadirExecute - OnUpdate = actAnadirUpdate - end - object actEliminar: TAction - Category = 'Operaciones' - Caption = 'Eliminar' - ImageIndex = 1 - ShortCut = 16430 - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - object actModificar: TAction - Category = 'Operaciones' - Caption = 'Modificar' - ImageIndex = 2 - OnExecute = actModificarExecute - OnUpdate = actModificarUpdate - end - object actAnchoAutomatico: TAction - Category = 'Operaciones' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 3 - OnExecute = actAnchoAutomaticoExecute - end - end -end diff --git a/Source/Base/GUIBase/uViewDetallesGenerico.pas b/Source/Base/GUIBase/uViewDetallesGenerico.pas deleted file mode 100644 index 6261decc..00000000 --- a/Source/Base/GUIBase/uViewDetallesGenerico.pas +++ /dev/null @@ -1,206 +0,0 @@ -unit uViewDetallesGenerico; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, ActnList, ImgList, - PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid, uDAInterfaces; - -type - TfrViewDetallesGenerico = class(TfrViewBase) - cxGrid: TcxGrid; - cxGridView: TcxGridDBTableView; - cxGridViewID: TcxGridDBColumn; - cxGridLevel: TcxGridLevel; - ToolBar1: TToolBar; - ToolButton1: TToolButton; - ToolButton2: TToolButton; - dsDetalles: TDADataSource; - ContenidoImageList: TPngImageList; - ActionListContenido: TActionList; - actAnadir: TAction; - actEliminar: TAction; - ToolButton4: TToolButton; - actModificar: TAction; - ToolButton5: TToolButton; - ToolButton6: TToolButton; - actAnchoAutomatico: TAction; - ToolButton7: TToolButton; - procedure cxGridViewEditKeyDown(Sender: TcxCustomGridTableView; - AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word; - Shift: TShiftState); - procedure actAnadirExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actAnadirUpdate(Sender: TObject); - procedure actAnchoAutomaticoExecute(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actModificarExecute(Sender: TObject); - protected - function HayDatos : Boolean; - procedure AnadirInterno; virtual; - procedure ModificarInterno; virtual; - procedure EliminarInterno; virtual; - - function GetModified: Boolean; override; - end; - -implementation - -{$R *.dfm} - -uses - uDataTableUtils; - -procedure TfrViewDetallesGenerico.actAnadirExecute(Sender: TObject); -var - bEsMultiSelect : Boolean; -begin - // Debo quitar el multiselect porque provoca que se quede seleccionado - // el registro actual y no el nuevo registro que voy a añadir - bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect; - if bEsMultiSelect then - cxGridView.OptionsSelection.MultiSelect := False; - - cxGridView.BeginUpdate; - try - if cxGridView.Controller.EditingController.IsEditing then - cxGridView.Controller.EditingController.Edit.PostEditValue; - - AnadirInterno; - finally - cxGridView.EndUpdate; - - // Dejo la propiedad MultiSelect como estaba - if bEsMultiSelect then - cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect; - end; -end; - -procedure TfrViewDetallesGenerico.actAnadirUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := Assigned(dsDetalles.DataTable); -end; - -procedure TfrViewDetallesGenerico.actAnchoAutomaticoExecute(Sender: TObject); -begin - inherited; - cxGridView.ApplyBestFit; -end; - -procedure TfrViewDetallesGenerico.actEliminarExecute(Sender: TObject); -var - AuxTop, AuxRow:Integer; -begin - cxGridView.BeginUpdate; - AuxTop := cxGridView.Controller.TopRowIndex; - AuxRow := cxGridView.DataController.FocusedRowIndex; - try - EliminarInterno; - - //Selecciona en el grid el registro siguiente - if (AuxRow < cxGridView.DataController.RowCount-1) then - Inc(AuxRow) - else - Dec(AuxRow); - - if dsDetalles.DataTable.RecordCount > 0 then - begin - cxGridView.DataController.SelectRows(AuxRow,AuxRow); - cxGridView.Controller.TopRowIndex := AuxTop; - end; - finally - cxGridView.EndUpdate; - end; -end; - -procedure TfrViewDetallesGenerico.actEliminarUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := HayDatos; -end; - -procedure TfrViewDetallesGenerico.actModificarExecute(Sender: TObject); -begin - inherited; - ModificarInterno; -end; - -procedure TfrViewDetallesGenerico.actModificarUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := HayDatos and - (cxGridView.DataController.FocusedRowIndex >= 0) -end; - -procedure TfrViewDetallesGenerico.AnadirInterno; -begin - dsDetalles.DataTable.Insert; -end; - -procedure TfrViewDetallesGenerico.cxGridViewEditKeyDown( - Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; - AEdit: TcxCustomEdit; var Key: Word; Shift: TShiftState); -begin - inherited; - cxGridView.BeginUpdate; - try - Case Key of - VK_DOWN : begin - //En el caso de ser la última fila hacemos un append nosotros no el grid - //ya que se saltaria la lógica del controllerDetallesBase - if cxGridView.Controller.IsFinish then - begin - Key := 0; - if Sender.Controller.EditingController.IsEditing then - Sender.Controller.EditingController.Edit.PostEditValue; - actAnadir.Execute; - end; - end; - - VK_RETURN, VK_RIGHT - : begin - //En el caso de ser la última fila hacemos un append nosotros no el grid - //ya que se saltaria la lógica del controllerDetallesBase - if cxGridView.Controller.IsFinish - and AItem.IsLast then - begin - Key := 0; - if Sender.Controller.EditingController.IsEditing then - Sender.Controller.EditingController.Edit.PostEditValue; - actAnadir.Execute; - end; - end; - end; - finally - cxGridView.EndUpdate; - end; -end; - -procedure TfrViewDetallesGenerico.EliminarInterno; -begin - dsDetalles.DataTable.Delete; -end; - -function TfrViewDetallesGenerico.GetModified: Boolean; -begin - Result := DataTableModified(dsDetalles.DataTable) or inherited GetModified; -end; - -function TfrViewDetallesGenerico.HayDatos: Boolean; -begin - Result := Assigned(dsDetalles.DataTable) and - (cxGridView.ViewInfo.VisibleRecordCount > 0) -end; - -procedure TfrViewDetallesGenerico.ModificarInterno; -begin - // -end; - -end. diff --git a/Source/Base/GUIBase/uViewFiltroBase.dcu b/Source/Base/GUIBase/uViewFiltroBase.dcu deleted file mode 100644 index b5ba624d..00000000 Binary files a/Source/Base/GUIBase/uViewFiltroBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewFiltroBase.dfm b/Source/Base/GUIBase/uViewFiltroBase.dfm deleted file mode 100644 index 3691a865..00000000 --- a/Source/Base/GUIBase/uViewFiltroBase.dfm +++ /dev/null @@ -1,200 +0,0 @@ -object frViewFiltroBase: TfrViewFiltroBase - Left = 0 - Top = 0 - Width = 565 - Height = 102 - TabOrder = 0 - Visible = False - object TBXDockablePanel1: TTBXDockablePanel - Left = 0 - Top = 0 - Align = alClient - Caption = 'TBXDockablePanel1' - CloseButton = False - CloseButtonWhenDocked = False - DockedHeight = 98 - DockMode = dmCannotFloatOrChangeDocks - FloatingWidth = 128 - FloatingHeight = 98 - ShowCaption = False - ShowCaptionWhenDocked = False - SupportedDocks = [dkStandardDock, dkMultiDock] - TabOrder = 0 - ExplicitWidth = 128 - ExplicitHeight = 98 - object dxLayoutControl1: TdxLayoutControl - Left = 0 - Top = 0 - Width = 565 - Height = 68 - Align = alTop - ParentBackground = True - TabOrder = 0 - AutoContentSizes = [acsWidth, acsHeight] - ExplicitWidth = 128 - object txtFiltroTodo: TcxTextEdit - Left = 87 - Top = 10 - Properties.OnChange = OnCamposFiltroChange - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - 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 = 0 - Width = 273 - end - object edtFechaIniFiltro: TcxDateEdit - Left = 87 - Top = 37 - Properties.OnChange = OnCamposFiltroChange - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D - 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 = 121 - end - object edtFechaFinFiltro: TcxDateEdit - Left = 350 - Top = 37 - Properties.OnChange = OnCamposFiltroChange - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D - 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 = 2 - Width = 121 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item1: TdxLayoutItem - Caption = 'Que contenga:' - Control = txtFiltroTodo - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group1: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item2: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Entre la fecha:' - Control = edtFechaIniFiltro - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'y' - Control = edtFechaFinFiltro - ControlOptions.ShowBorder = False - end - end - end - end - object TBXAlignmentPanel1: TTBXAlignmentPanel - Left = 0 - Top = 68 - Width = 565 - Height = 30 - Margins.Left = 10 - Align = alTop - TabOrder = 1 - ExplicitWidth = 128 - object tbxBotones: TTBXToolbar - Left = 10 - Top = 0 - Width = 555 - Height = 30 - Align = alTop - AutoResize = False - BorderStyle = bsNone - Caption = 'tbxBotones' - ChevronHint = 'M'#225's botones|' - DockMode = dmCannotFloatOrChangeDocks - DockPos = -23 - DockRow = 1 - DragHandleStyle = dhNone - ParentShowHint = False - ShowHint = True - TabOrder = 0 - ExplicitWidth = 118 - object TBXItem2: TTBXItem - Action = actQuitarFiltro - DisplayMode = nbdmImageAndText - Images = PngImageList - end - end - end - end - object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList - Left = 136 - Top = 16 - end - object ActionList1: TActionList - Images = PngImageList - Left = 384 - Top = 72 - object actQuitarFiltro: TAction - Caption = 'Quitar filtros y ver todo' - ImageIndex = 0 - OnExecute = actQuitarFiltroExecute - end - end - object PngImageList: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 424 - Top = 72 - Bitmap = {} - end -end diff --git a/Source/Base/GUIBase/uViewFiltroBase.pas b/Source/Base/GUIBase/uViewFiltroBase.pas deleted file mode 100644 index d9fe4f45..00000000 --- a/Source/Base/GUIBase/uViewFiltroBase.pas +++ /dev/null @@ -1,144 +0,0 @@ -unit uViewFiltroBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxMaskEdit, cxDropDownEdit, cxCalendar, dxLayoutControl, - cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls, - StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems, - TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList; - -type - IViewFiltroBase = interface - ['{0D0EA630-BF93-4BA1-93C2-FD5A5B0CBEED}'] - function GetFiltrosChange: TNotifyEvent; - procedure SetFiltrosChange(const Value: TNotifyEvent); - property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange; - - function GetVerFiltros: Boolean; - procedure SetVerFiltros(const Value: Boolean); - property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros; - - function GetTexto: String; - procedure SetTexto(const Value: String); - property Texto: String read GetTexto write SetTexto; - end; - - TfrViewFiltroBase = class(TFrame, IViewFiltroBase) - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; - dxLayoutControl1Item1: TdxLayoutItem; - txtFiltroTodo: TcxTextEdit; - dxLayoutControl1Item2: TdxLayoutItem; - edtFechaIniFiltro: TcxDateEdit; - dxLayoutControl1Item3: TdxLayoutItem; - edtFechaFinFiltro: TcxDateEdit; - dxLayoutControl1Group1: TdxLayoutGroup; - TBXDockablePanel1: TTBXDockablePanel; - ActionList1: TActionList; - actQuitarFiltro: TAction; - PngImageList: TPngImageList; - tbxBotones: TTBXToolbar; - TBXItem2: TTBXItem; - TBXAlignmentPanel1: TTBXAlignmentPanel; - procedure OnCamposFiltroChange(Sender: TObject); - procedure actQuitarFiltroExecute(Sender: TObject); - - private - FOnFiltrosChange: TNotifyEvent; - - function GetFiltrosChange: TNotifyEvent; - procedure SetFiltrosChange(const Value: TNotifyEvent); - function GetVerFiltros: Boolean; - procedure SetVerFiltros(const Value: Boolean); - function GetTexto: String; - procedure SetTexto(const Value: String); - - protected - procedure LimpiarCampos; virtual; - function ValidarCampos: Boolean; virtual; - - public - property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange; - property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros; - property Texto: String read GetTexto write SetTexto; - end; - -implementation -{$R *.dfm} - -uses uDialogUtils; - -{ TfrViewFiltroBase } - -function TfrViewFiltroBase.GetFiltrosChange: TNotifyEvent; -begin - Result := FOnFiltrosChange; -end; - -procedure TfrViewFiltroBase.SetFiltrosChange(const Value: TNotifyEvent); -begin - FOnFiltrosChange := Value; -end; - -function TfrViewFiltroBase.GetVerFiltros: Boolean; -begin - Result := Self.Visible; -end; - -procedure TfrViewFiltroBase.SetVerFiltros(const Value: Boolean); -begin - Self.Visible := Value; - if not Self.Visible then - actQuitarFiltro.Execute; -end; - -procedure TfrViewFiltroBase.LimpiarCampos; -begin - txtFiltroTodo.Clear; - edtFechaIniFiltro.Clear; - edtFechaFinFiltro.Clear; -end; - -procedure TfrViewFiltroBase.OnCamposFiltroChange(Sender: TObject); -begin - if ValidarCampos then - if Assigned(FOnFiltrosChange) then - FOnFiltrosChange(Sender); -end; - -function TfrViewFiltroBase.ValidarCampos: Boolean; -begin - Result := True; - - if not VarIsNull(edtFechaIniFiltro.EditValue) and not VarIsNull(edtFechaFinFiltro.EditValue) then - begin - if (edtFechaIniFiltro.EditValue > edtFechaFinFiltro.EditValue) then - begin - ShowWarningMessage('La fecha de inicio debe ser anterior a la fecha final'); - edtFechaIniFiltro.SetFocus; - Result := False; - end - end; -end; - -procedure TfrViewFiltroBase.actQuitarFiltroExecute(Sender: TObject); -begin - LimpiarCampos; - if Assigned(FOnFiltrosChange) then - FOnFiltrosChange(Sender); -end; - -function TfrViewFiltroBase.GetTexto: String; -begin - Result := txtFiltroTodo.Text; -end; - -procedure TfrViewFiltroBase.SetTexto(const Value: String); -begin - txtFiltroTodo.Text := Value; -end; - -end. diff --git a/Source/Base/GUIBase/uViewFormaPago.dcu b/Source/Base/GUIBase/uViewFormaPago.dcu deleted file mode 100644 index c9c3b892..00000000 Binary files a/Source/Base/GUIBase/uViewFormaPago.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewFormaPago.dfm b/Source/Base/GUIBase/uViewFormaPago.dfm deleted file mode 100644 index 1660a70a..00000000 --- a/Source/Base/GUIBase/uViewFormaPago.dfm +++ /dev/null @@ -1,47 +0,0 @@ -inherited frViewFormaPago: TfrViewFormaPago - Width = 300 - ExplicitWidth = 300 - DesignSize = ( - 300 - 291) - object Label5: TLabel - Left = 8 - Top = 8 - Width = 85 - Height = 13 - Caption = 'Forma de pago' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - end - object Bevel1: TBevel - Left = 96 - Top = 8 - Width = 192 - Height = 9 - Anchors = [akLeft, akTop, akRight] - Shape = bsBottomLine - end - object memFormaPago: TcxDBMemo - Left = 16 - Top = 32 - Anchors = [akLeft, akTop, akRight, akBottom] - DataBinding.DataField = 'FORMA_PAGO' - DataBinding.DataSource = DADataSource - Properties.ScrollBars = ssVertical - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Height = 175 - Width = 269 - end - object DADataSource: TDADataSource - Left = 16 - Top = 48 - end -end diff --git a/Source/Base/GUIBase/uViewFormaPago.pas b/Source/Base/GUIBase/uViewFormaPago.pas deleted file mode 100644 index fe3d269e..00000000 --- a/Source/Base/GUIBase/uViewFormaPago.pas +++ /dev/null @@ -1,26 +0,0 @@ -unit uViewFormaPago; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls, - cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls; - -type - TfrViewFormaPago = class(TfrViewBase) - DADataSource: TDADataSource; - memFormaPago: TcxDBMemo; - Label5: TLabel; - Bevel1: TBevel; - private - { Private declarations } - public - { Public declarations } - end; - -implementation - -{$R *.dfm} - -end. diff --git a/Source/Base/GUIBase/uViewGrid.dcu b/Source/Base/GUIBase/uViewGrid.dcu deleted file mode 100644 index 966bef28..00000000 Binary files a/Source/Base/GUIBase/uViewGrid.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewGrid.dfm b/Source/Base/GUIBase/uViewGrid.dfm deleted file mode 100644 index 8bcc1eda..00000000 --- a/Source/Base/GUIBase/uViewGrid.dfm +++ /dev/null @@ -1,332 +0,0 @@ -inherited frViewGrid: TfrViewGrid - Width = 554 - Height = 594 - ExplicitWidth = 554 - ExplicitHeight = 594 - object cxGrid: TcxGrid [0] - Left = 0 - Top = 102 - Width = 554 - Height = 466 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - LookAndFeel.Kind = lfOffice11 - LookAndFeel.NativeStyle = True - object cxGridView: TcxGridDBTableView - OnDblClick = cxGridViewDblClick - NavigatorButtons.ConfirmDelete = False - FilterBox.Visible = fvNever - DataController.DataSource = dsDataSource - DataController.Filter.Options = [fcoCaseInsensitive] - DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = <> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.CellHints = True - OptionsCustomize.ColumnFiltering = False - OptionsCustomize.ColumnGrouping = False - OptionsCustomize.ColumnsQuickCustomization = True - OptionsData.Deleting = False - OptionsData.DeletingConfirmation = False - OptionsData.Editing = False - OptionsData.Inserting = False - OptionsSelection.CellSelect = False - OptionsSelection.UnselectFocusedRecordOnExit = False - OptionsView.CellEndEllipsis = True - OptionsView.CellAutoHeight = True - OptionsView.ColumnAutoWidth = True - OptionsView.DataRowHeight = 22 - OptionsView.Footer = True - OptionsView.GridLineColor = clHighlight - OptionsView.GridLines = glHorizontal - OptionsView.GroupByBox = False - OptionsView.HeaderEndEllipsis = True - Styles.Inactive = cxStyleSelection - Styles.Selection = cxStyleSelection - Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle - end - object cxGridLevel: TcxGridLevel - GridView = cxGridView - end - end - inline frViewFiltroBase1: TfrViewFiltroBase [1] - Left = 0 - Top = 0 - Width = 554 - Height = 102 - Align = alTop - TabOrder = 1 - Visible = False - ExplicitWidth = 554 - inherited TBXDockablePanel1: TTBXDockablePanel - ExplicitWidth = 554 - ExplicitHeight = 102 - inherited dxLayoutControl1: TdxLayoutControl - Width = 554 - ExplicitWidth = 554 - inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 - end - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end - inherited edtFechaFinFiltro: TcxDateEdit - Left = 344 - ExplicitLeft = 344 - ExplicitWidth = 121 - Width = 121 - end - end - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 554 - ExplicitWidth = 554 - inherited tbxBotones: TTBXToolbar - Width = 544 - ExplicitWidth = 544 - end - end - end - end - object pnlAgrupaciones: TTBXDockablePanel - Left = 0 - Top = 568 - MinClientHeight = 8 - Align = alBottom - Caption = 'pnlAgrupaciones' - DockedHeight = 26 - FloatingWidth = 128 - FloatingHeight = 26 - SupportedDocks = [dkStandardDock, dkMultiDock] - TabOrder = 2 - Visible = False - object TBXAlignmentPanel1: TTBXAlignmentPanel - Left = 0 - Top = 0 - Width = 554 - Height = 26 - Margins.Left = 10 - Align = alTop - TabOrder = 0 - object TBXToolbar1: TTBXToolbar - Left = 10 - Top = 0 - Width = 544 - Height = 26 - Align = alTop - AutoResize = False - Caption = 'TBXToolbar1' - TabOrder = 0 - object TBXItem1: TTBXItem - Action = actQuitarAgrupaciones - end - end - end - end - object dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxComponentPrinterLink - PreviewOptions.EnableOptions = [peoCanChangeMargins, peoPageBackground, peoPageSetup, peoPreferences, peoPrint] - PreviewOptions.VisibleOptions = [pvoPageBackground, pvoPageSetup, pvoPreferences, pvoPrint, pvoPrintStyles, pvoReportFileOperations, pvoPageMargins] - PreviewOptions.WindowState = wsMaximized - Version = 0 - Left = 368 - Top = 128 - object dxComponentPrinterLink: TdxGridReportLink - Active = True - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.GrayShading = True - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage.ScaleMode = smFit - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 39296.809313506940000000 - StyleManager = dxPrintStyleManager1 - OptionsCards.Shadow.Depth = 0 - OptionsExpanding.ExpandGroupRows = True - OptionsExpanding.ExpandMasterRows = True - OptionsFormatting.SuppressBackgroundBitmaps = True - OptionsFormatting.UseNativeStyles = True - OptionsFormatting.ConsumeSelectionStyle = True - OptionsLevels.Unwrap = True - OptionsRefinements.TransparentGraphics = True - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.ExpandButtons = False - OptionsView.FilterBar = False - StyleRepository = cxStyleRepositoryInforme - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - Styles.Selection = cxStyleSelectionInforme - BuiltInReportLink = True - end - end - object dxPSEngineController1: TdxPSEngineController - LookAndFeel = pslfOffice11 - UseNativeLookAndFeel = False - Left = 336 - Top = 128 - end - object cxStyleRepository1: TcxStyleRepository - Left = 296 - Top = 128 - object cxStyleEven: TcxStyle - end - object cxStyleOdd: TcxStyle - AssignedValues = [svColor] - Color = clInactiveCaptionText - end - object cxStyleSelection: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clHighlight - TextColor = clHighlightText - end - object cxStyleSinOrden: TcxStyle - end - object cxStyleConOrden: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleFiltered: TcxStyle - AssignedValues = [svColor] - Color = clInfoBk - end - object cxStyleFilteredConOrden: TcxStyle - AssignedValues = [svColor] - Color = 14546175 - end - end - object cxViewGridPopupMenu: TcxGridPopupMenu - Grid = cxGrid - PopupMenus = < - item - GridView = cxGridView - HitTypes = [gvhtCell] - Index = 0 - end> - Left = 264 - Top = 128 - end - object ActionList1: TActionList - Left = 400 - Top = 360 - object actQuitarAgrupaciones: TAction - Caption = 'Quitar agrupaciones' - OnExecute = actQuitarAgrupacionesExecute - OnUpdate = actQuitarAgrupacionesUpdate - end - end - object PngImageList10: TPngImageList - PngImages = <> - Left = 368 - Top = 360 - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 368 - Top = 160 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end - object dxPrintStyleManager1: TdxPrintStyleManager - CurrentStyle = dxPrintStyleManager1Style1 - Version = 0 - Left = 336 - Top = 160 - object dxPrintStyleManager1Style1: TdxPSPrintStyle - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 20000 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 20000 - PrinterPage.PageFooter.CenterTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageFooter.Font.Color = clBlack - PrinterPage.PageFooter.Font.Height = -12 - PrinterPage.PageFooter.Font.Name = 'Tahoma' - PrinterPage.PageFooter.Font.Style = [] - PrinterPage.PageFooter.LeftTitle.Strings = ( - 'LUIS LEON REPRESENTACIONES S.L.') - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageHeader.Font.Color = clBlack - PrinterPage.PageHeader.Font.Height = -15 - PrinterPage.PageHeader.Font.Name = 'Tahoma' - PrinterPage.PageHeader.Font.Style = [] - PrinterPage.PageHeader.LeftTitle.Strings = ( - '') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - BuiltInStyle = True - end - end -end diff --git a/Source/Base/GUIBase/uViewGrid.pas b/Source/Base/GUIBase/uViewGrid.pas deleted file mode 100644 index cf63992e..00000000 --- a/Source/Base/GUIBase/uViewGrid.pas +++ /dev/null @@ -1,221 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewGrid; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids, - DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg, - cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu, - cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList, - TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg; - -type - IViewGrid = interface(IViewGridBase) - ['{7EA40980-AD73-4590-A53A-932316C7B121}'] - end; - - TfrViewGrid = class(TfrViewGridBase, IViewGrid) - cxGrid: TcxGrid; - cxGridLevel: TcxGridLevel; - cxGridView: TcxGridDBTableView; - dxComponentPrinter: TdxComponentPrinter; - dxPSEngineController1: TdxPSEngineController; - cxStyleRepository1: TcxStyleRepository; - cxStyleEven: TcxStyle; - cxStyleOdd: TcxStyle; - cxStyleSelection: TcxStyle; - cxStyleSinOrden: TcxStyle; - cxStyleConOrden: TcxStyle; - cxViewGridPopupMenu: TcxGridPopupMenu; - dxComponentPrinterLink: TdxGridReportLink; - cxStyleFiltered: TcxStyle; - cxStyleFilteredConOrden: TcxStyle; - frViewFiltroBase1: TfrViewFiltroBase; - ActionList1: TActionList; - PngImageList10: TPngImageList; - actQuitarAgrupaciones: TAction; - pnlAgrupaciones: TTBXDockablePanel; - TBXAlignmentPanel1: TTBXAlignmentPanel; - TBXToolbar1: TTBXToolbar; - TBXItem1: TTBXItem; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - dxPrintStyleManager1: TdxPrintStyleManager; - dxPrintStyleManager1Style1: TdxPSPrintStyle; - procedure cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewDblClick(Sender: TObject); - procedure actQuitarAgrupacionesExecute(Sender: TObject); - procedure actQuitarAgrupacionesUpdate(Sender: TObject); - protected - function GetGrid : TcxGrid; override; - function GetFocusedView : TcxGridDBTableView; override; - procedure SetPopupMenu(const Value: TPopupMenu); override; - procedure FilterChanged(Sender : TObject); override; - procedure OnChangeValoresFiltro(Sender: TObject); - procedure SetViewFiltros(const Value: IViewFiltroBase); override; - function AddFilterGrid(const Operacion: tcxFilterBoolOperatorKind): TcxFilterCriteriaItemList; - public - function esSeleccionCeldaDatos: Boolean; override; - procedure Preview; override; - procedure Print; override; - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -uses - uDataModuleBase, uDBSelectionListUtils; - -{$R *.dfm} - -{ -********************************* TfrViewGrid ********************************** -} - -{ TfrViewGrid } -function TfrViewGrid.GetFocusedView: TcxGridDBTableView; -begin - Result := cxGridView; -end; - -function TfrViewGrid.GetGrid: TcxGrid; -begin - Result := cxGrid; -end; - -procedure TfrViewGrid.OnChangeValoresFiltro(Sender: TObject); -begin - cxGridView.DataController.Filter.BeginUpdate; - RefrescarFiltro; - cxGridView.DataController.Filter.EndUpdate; -end; - -procedure TfrViewGrid.Preview; -begin - inherited; - dxComponentPrinter.Preview; -end; - -procedure TfrViewGrid.Print; -begin - inherited; - dxComponentPrinter.Print(True, nil, nil); -end; - -procedure TfrViewGrid.SetPopupMenu(const Value: TPopupMenu); -begin - inherited; - cxViewGridPopupMenu.PopupMenus[0].PopupMenu := FPopupMenu; -end; - -procedure TfrViewGrid.SetViewFiltros(const Value: IViewFiltroBase); -begin - inherited; - if Assigned(ViewFiltros) then - ViewFiltros.OnFiltrosChange := OnChangeValoresFiltro -end; - -procedure TfrViewGrid.actQuitarAgrupacionesExecute(Sender: TObject); -var - Columna: TcxGridDBColumn; - i: Integer; -begin - inherited; - for i := 0 to cxGridView.ColumnCount - 1 do - begin - Columna := (cxGridView as TcxGridDBTableView).Columns[i]; - if not (Columna.GroupIndex < 0) then - begin - Columna.GroupIndex := -1; - Columna.Visible := True; - end; - end; -end; - -procedure TfrViewGrid.actQuitarAgrupacionesUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (cxGridView.GroupedColumnCount > 0); -end; - -function TfrViewGrid.AddFilterGrid(const Operacion: tcxFilterBoolOperatorKind): TcxFilterCriteriaItemList; -var - AItemList: TcxFilterCriteriaItemList; -begin - AItemList := cxGridView.DataController.Filter.Root; - Result := AItemList.AddItemList(Operacion); -end; - -constructor TfrViewGrid.Create(AOwner: TComponent); -begin - inherited; - ViewFiltros := frViewFiltroBase1; -end; - -procedure TfrViewGrid.cxGridViewDblClick(Sender: TObject); -begin - inherited; - if Assigned(FOnDblClick) then - FOnDblClick(Sender); -end; - -procedure TfrViewGrid.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(AItem) then - begin - if AItem.SortOrder = soNone then - AStyle := cxStyleSinOrden - else begin - AStyle := cxStyleConOrden; - if Filtered then - AStyle := cxStyleFilteredConOrden; - end; - end; -end; - -destructor TfrViewGrid.Destroy; -begin - ViewFiltros := Nil; - inherited; -end; - -function TfrViewGrid.esSeleccionCeldaDatos: Boolean; -begin - Result := not (cxGridView.Controller.FocusedRecord is TcxGridGroupRow); -end; - -procedure TfrViewGrid.FilterChanged(Sender: TObject); -begin - inherited; - if Filtered then - _FocusedView.Styles.Content := cxStyleFiltered - else - _FocusedView.Styles.Content := nil; -end; - -end. - diff --git a/Source/Base/GUIBase/uViewGrid2Niveles.dcu b/Source/Base/GUIBase/uViewGrid2Niveles.dcu deleted file mode 100644 index a29a1ba9..00000000 Binary files a/Source/Base/GUIBase/uViewGrid2Niveles.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewGrid2Niveles.dfm b/Source/Base/GUIBase/uViewGrid2Niveles.dfm deleted file mode 100644 index abc45386..00000000 --- a/Source/Base/GUIBase/uViewGrid2Niveles.dfm +++ /dev/null @@ -1,136 +0,0 @@ -inherited frViewGrid2Niveles: TfrViewGrid2Niveles - Width = 519 - Height = 367 - ExplicitWidth = 519 - ExplicitHeight = 367 - object cxGrid: TcxGrid [0] - Left = 0 - Top = 0 - Width = 519 - Height = 367 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - LookAndFeel.Kind = lfOffice11 - LookAndFeel.NativeStyle = True - object cxGridView1N: TcxGridDBTableView - OnDblClick = cxGridView1NDblClick - NavigatorButtons.ConfirmDelete = False - FilterBox.Visible = fvNever - DataController.DataSource = dsDataSource - DataController.Filter.Options = [fcoCaseInsensitive] - DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = <> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.CellHints = True - OptionsCustomize.ColumnFiltering = False - OptionsCustomize.ColumnGrouping = False - OptionsCustomize.ColumnsQuickCustomization = True - OptionsData.Deleting = False - OptionsData.DeletingConfirmation = False - OptionsData.Editing = False - OptionsData.Inserting = False - OptionsSelection.CellSelect = False - OptionsSelection.UnselectFocusedRecordOnExit = False - OptionsView.CellEndEllipsis = True - OptionsView.CellAutoHeight = True - OptionsView.ColumnAutoWidth = True - OptionsView.Footer = True - OptionsView.FooterAutoHeight = True - OptionsView.GridLineColor = cl3DLight - OptionsView.GroupByBox = False - OptionsView.HeaderEndEllipsis = True - Styles.Inactive = cxStyleSelection - Styles.Selection = cxStyleSelection - Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle - end - object cxGridView: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = <> - DataController.Summary.SummaryGroups = <> - end - object cxGridLevel1N: TcxGridLevel - GridView = cxGridView1N - object cxGridLevel: TcxGridLevel - GridView = cxGridView - end - end - end - object dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxComponentPrinterLink - PreviewOptions.EnableOptions = [peoCanChangeMargins, peoPageBackground, peoPageSetup, peoPreferences, peoPrint] - PreviewOptions.VisibleOptions = [pvoPageBackground, pvoPageSetup, pvoPreferences, pvoPrint, pvoPrintStyles, pvoReportFileOperations, pvoPageMargins] - PreviewOptions.WindowState = wsMaximized - Version = 0 - Left = 368 - Top = 128 - object dxComponentPrinterLink: TdxGridReportLink - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - BuiltInReportLink = True - end - end - object dxPSEngineController1: TdxPSEngineController - LookAndFeel = pslfOffice11 - UseNativeLookAndFeel = False - Left = 336 - Top = 128 - end - object cxStyleRepository1: TcxStyleRepository - Left = 296 - Top = 128 - object cxStyleEven: TcxStyle - end - object cxStyleOdd: TcxStyle - AssignedValues = [svColor] - Color = clInactiveCaptionText - end - object cxStyleSelection: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clHighlight - TextColor = clHighlightText - end - object cxStyleSinOrden: TcxStyle - end - object cxStyleConOrden: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleFiltered: TcxStyle - AssignedValues = [svColor] - Color = clInfoBk - end - object cxStyleFilteredConOrden: TcxStyle - AssignedValues = [svColor] - Color = 14546175 - end - end - object cxViewGridPopupMenu: TcxGridPopupMenu - Grid = cxGrid - PopupMenus = < - item - GridView = cxGridView1N - HitTypes = [gvhtCell] - Index = 0 - end> - Left = 264 - Top = 128 - end -end diff --git a/Source/Base/GUIBase/uViewGrid2Niveles.pas b/Source/Base/GUIBase/uViewGrid2Niveles.pas deleted file mode 100644 index 030b5664..00000000 --- a/Source/Base/GUIBase/uViewGrid2Niveles.pas +++ /dev/null @@ -1,211 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewGrid2Niveles; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids, - DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg, - cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu, - cxGridPopupMenu; - -type - IViewGrid2Niveles = interface(IViewGridBase) - ['{7EA40980-AD73-4590-A53A-932316C7B121}'] - end; - - TfrViewGrid2Niveles = class(TfrViewGridBase, IViewGrid2Niveles) - cxGrid: TcxGrid; - cxGridLevel1N: TcxGridLevel; - cxGridView1N: TcxGridDBTableView; - dxComponentPrinter: TdxComponentPrinter; - dxPSEngineController1: TdxPSEngineController; - cxStyleRepository1: TcxStyleRepository; - cxStyleEven: TcxStyle; - cxStyleOdd: TcxStyle; - cxStyleSelection: TcxStyle; - cxStyleSinOrden: TcxStyle; - cxStyleConOrden: TcxStyle; - cxViewGridPopupMenu: TcxGridPopupMenu; - dxComponentPrinterLink: TdxGridReportLink; - cxStyleFiltered: TcxStyle; - cxStyleFilteredConOrden: TcxStyle; - cxGridLevel: TcxGridLevel; - cxGridView: TcxGridDBTableView; - procedure cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridView1NDblClick(Sender: TObject); - protected - function GetGrid : TcxGrid; override; - function GetFocusedView : TcxGridDBTableView; override; - procedure SetPopupMenu(const Value: TPopupMenu); override; - procedure FilterChanged(Sender : TObject); override; - function GetFiltered: Boolean; override; - procedure FiltrarGrid(TextoFiltro : String); override; - public - procedure AjustarAncho; override; - procedure ContraerTodo; override; - procedure ExpandirTodo; override; - function IsEmpty : Boolean; override; - procedure RestoreFromRegistry (const Path : String); override; - procedure StoreToRegistry (const Path : String); override; - end; - -implementation - -uses - uDataModuleBase, uDBSelectionListUtils; - -{$R *.dfm} - -{ -********************************* TfrViewGrid ********************************** -} - -{ TfrViewGrid } -function TfrViewGrid2Niveles.GetFiltered: Boolean; -begin - Result := inherited GetFiltered; - Result := Result OR (cxGridView1N.DataController.Filter.Root.Count > 0); -end; - -function TfrViewGrid2Niveles.GetFocusedView: TcxGridDBTableView; -begin - Result := cxGridView; -end; - -function TfrViewGrid2Niveles.GetGrid: TcxGrid; -begin - Result := cxGrid; -end; - -function TfrViewGrid2Niveles.IsEmpty: Boolean; -begin - Result := (cxGridView1N.ViewData.RowCount < 1); -end; - -procedure TfrViewGrid2Niveles.RestoreFromRegistry(const Path: String); -begin - inherited; - cxGridView1N.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, []); -end; - -procedure TfrViewGrid2Niveles.SetPopupMenu(const Value: TPopupMenu); -begin - inherited; - cxViewGridPopupMenu.PopupMenus[0].PopupMenu := FPopupMenu; -end; - -procedure TfrViewGrid2Niveles.StoreToRegistry(const Path: String); -begin - inherited; - cxGridView1N.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, []); -end; - -procedure TfrViewGrid2Niveles.AjustarAncho; -begin - inherited; - cxGridView1N.ApplyBestFit; -end; - -procedure TfrViewGrid2Niveles.ContraerTodo; -begin - inherited; - cxGridView1N.ViewData.Collapse(True); -end; - -procedure TfrViewGrid2Niveles.cxGridView1NDblClick(Sender: TObject); -begin - inherited; - if Assigned(FOnDblClick) then - FOnDblClick(Sender); -end; - -procedure TfrViewGrid2Niveles.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(AItem) then - begin - if AItem.SortOrder = soNone then - AStyle := cxStyleSinOrden - else begin - AStyle := cxStyleConOrden; - if Filtered then - AStyle := cxStyleFilteredConOrden; - end; - end; -end; - -procedure TfrViewGrid2Niveles.ExpandirTodo; -begin - inherited; - cxGridView1N.ViewData.Expand(True); -end; - -procedure TfrViewGrid2Niveles.FilterChanged(Sender: TObject); -begin - inherited; - if Filtered then - begin - _FocusedView.Styles.Content := cxStyleFiltered; - cxGridView1N.Styles.Content := cxStyleFiltered - end - else - begin - _FocusedView.Styles.Content := nil; - cxGridView1N.Styles.Content := nil - end; -end; - -procedure TfrViewGrid2Niveles.FiltrarGrid(TextoFiltro: String); -var - Columna: TcxGridDBColumn; - i: Integer; - AItemList: TcxFilterCriteriaItemList; -begin - inherited; - - with cxGridView1N.DataController.Filter do - begin - BeginUpdate; - try - Options := [fcoCaseInsensitive, fcoSoftCompare]; - Root.Clear; - if Length(TextoFiltro) > 0 then - begin - AItemList := Root.AddItemList(fboAnd); - AItemList.BoolOperatorKind := fboOr; - for i:=0 to (cxGridView1N as TcxGridDBTableView).ColumnCount - 1 do - begin - Columna := (cxGridView1N as TcxGridDBTableView).Columns[i]; - if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then - AItemList.AddItem(Columna, foLike, '%'+TextoFiltro+'%', IntToStr(i)); - end; - Active := True; - end - else - Active := False; - finally - EndUpdate; - end; - end; -end; - -end. - diff --git a/Source/Base/GUIBase/uViewGridBase.dcu b/Source/Base/GUIBase/uViewGridBase.dcu deleted file mode 100644 index e7943b67..00000000 Binary files a/Source/Base/GUIBase/uViewGridBase.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewGridBase.dfm b/Source/Base/GUIBase/uViewGridBase.dfm deleted file mode 100644 index 56958797..00000000 --- a/Source/Base/GUIBase/uViewGridBase.dfm +++ /dev/null @@ -1,10 +0,0 @@ -inherited frViewGridBase: TfrViewGridBase - Width = 441 - Height = 268 - ExplicitWidth = 441 - ExplicitHeight = 268 - object dsDataSource: TDADataSource - Left = 8 - Top = 16 - end -end diff --git a/Source/Base/GUIBase/uViewGridBase.pas b/Source/Base/GUIBase/uViewGridBase.pas deleted file mode 100644 index 293a96de..00000000 --- a/Source/Base/GUIBase/uViewGridBase.pas +++ /dev/null @@ -1,421 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewGridBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids, - DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg, - cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils, uViewFiltroBase; - -type - IViewGridBase = interface(IViewBase) - ['{D5B9B017-2A2E-44AC-8223-E54664C6BC66}'] - procedure ExpandirTodo; - procedure ContraerTodo; - procedure AjustarAncho; - - procedure Preview; - procedure Print; - procedure PrintSetup; - - function IsEmpty : Boolean; - - procedure SaveGridStatus; - procedure RestoreGridStatus; - - procedure GotoFirst; - procedure GotoLast; - - function GetFocusedView : TcxGridDBTableView; - property _FocusedView : TcxGridDBTableView read GetFocusedView; - - function GetGrid : TcxGrid; - property _Grid : TcxGrid read GetGrid; - - procedure StoreToRegistry (const Path : String); - procedure RestoreFromRegistry (const Path : String); - - procedure SetDblClick(const Value: TNotifyEvent); - function GetDblClick: TNotifyEvent; - property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick; - - procedure SetPopupMenu(const Value: TPopupMenu); - function GetPopupMenu: TPopupMenu; - property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; - - function GetMultiSelect: Boolean; - procedure SetMultiSelect(const Value: Boolean); - property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; - - procedure SetFilter(const Value: string); - function GetFilter: string; - property Filter: string read GetFilter write SetFilter; - - function GetFiltered: Boolean; - property Filtered : Boolean read GetFiltered; - - function GetViewFiltros: IViewFiltroBase; - procedure SetViewFiltros(const Value: IViewFiltroBase); - property ViewFiltros: IViewFiltroBase read GetViewFiltros write SetViewFiltros; - - function esSeleccionCeldaDatos: Boolean; - - function getNumSeleccionados: Integer; - property NumSeleccionados: Integer read getNumSeleccionados; - - function Locate(const AItemIndex: Integer; const AValue: String; - const APartialCompare: Boolean = False) : Boolean; - end; - - - TfrViewGridBase = class(TfrViewBase, IViewGridBase) - dsDataSource: TDADataSource; - private - FViewFiltros: IViewFiltroBase; - FFilter: string; - FOnFilterChanged : TNotifyEvent; - FGridStatus : TcxGridStatus; - protected - FOnDblClick: TNotifyEvent; - FPopupMenu: TPopupMenu; - function GetMultiSelect: Boolean; virtual; - procedure SetMultiSelect(const Value: Boolean); virtual; - procedure SetPopupMenu(const Value: TPopupMenu); virtual; - function GetPopupMenu: TPopupMenu; virtual; - procedure SetDblClick(const Value: TNotifyEvent); virtual; - function GetDblClick: TNotifyEvent; virtual; - function GetGrid : TcxGrid; virtual; abstract; - function GetFocusedView : TcxGridDBTableView; virtual; abstract; - function esSeleccionCeldaDatos: Boolean; virtual; abstract; - function getNumSeleccionados: Integer; - - procedure SetFilter(const Value: string); virtual; - procedure RefrescarFiltro; - function GetFilter: string; virtual; - function GetFiltered: Boolean; virtual; - procedure FiltrarGrid(TextoFiltro : String); virtual; - function GetViewFiltros: IViewFiltroBase; - procedure SetViewFiltros(const Value: IViewFiltroBase); virtual; - procedure FilterChanged(Sender : TObject); virtual; - - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - - procedure ShowEmbedded(const AParent : TWinControl); override; - - procedure ExpandirTodo; virtual; - procedure ContraerTodo; virtual; - procedure AjustarAncho; virtual; - - procedure Preview; virtual; - procedure Print; virtual; - procedure PrintSetup; virtual; - - function IsEmpty : Boolean; virtual; - - procedure SaveGridStatus; - procedure RestoreGridStatus; - - procedure GotoFirst; - procedure GotoLast; - - procedure StoreToRegistry (const Path : String); virtual; - procedure RestoreFromRegistry (const Path : String); virtual; - - function Locate(const AItemIndex: Integer; const AValue: String; - const APartialCompare: Boolean = False) : Boolean; - - property Filter: string read GetFilter write SetFilter; - property Filtered : Boolean read GetFiltered; - - procedure AnadirOtrosFiltros; virtual; - property ViewFiltros: IViewFiltroBase read GetViewFiltros write SetViewFiltros; - - property _FocusedView : TcxGridDBTableView read GetFocusedView; - property _Grid : TcxGrid read GetGrid; - property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick; - property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; - property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; - property NumSeleccionados: Integer read getNumSeleccionados; - end; - -procedure Register; - -implementation - -uses - CCReg, uDataModuleBase, uDBSelectionListUtils; - -{$R *.dfm} - -procedure Register; -begin - RegisterCustomContainer(TfrViewGridBase); -end; - -{ TfrViewGrid } - -procedure TfrViewGridBase.AjustarAncho; -begin - if Assigned(_FocusedView) then - _FocusedView.ApplyBestFit; -end; - -procedure TfrViewGridBase.AnadirOtrosFiltros; -begin -// -end; - -procedure TfrViewGridBase.ContraerTodo; -begin - if Assigned(_FocusedView) then - _FocusedView.ViewData.Collapse(True); -end; - -constructor TfrViewGridBase.Create(AOwner: TComponent); -begin - inherited; - FFilter := ''; - FOnFilterChanged := FilterChanged; - FPopupMenu := nil; - FOnDblClick := nil; - FGridStatus := NIL; -end; - -procedure TfrViewGridBase.ExpandirTodo; -begin - if Assigned(_FocusedView) then - _FocusedView.ViewData.Expand(True); -end; - -function TfrViewGridBase.GetDblClick: TNotifyEvent; -begin - Result := FOnDblClick; -end; - -function TfrViewGridBase.GetFilter: string; -begin - Result := FFilter; -end; - -function TfrViewGridBase.GetFiltered: Boolean; -begin -//Los niveles de los grid no se consideran filtros - if (_Grid.Levels.Count > 1) then - Result := (_FocusedView.DataController.Filter.Root.Count > 1) - else - Result := (_FocusedView.DataController.Filter.Root.Count > 0); -end; - -function TfrViewGridBase.GetMultiSelect: Boolean; -begin - Result := _FocusedView.OptionsSelection.MultiSelect; -end; - -function TfrViewGridBase.getNumSeleccionados: Integer; -begin - Result := _FocusedView.DataController.GetSelectedCount; -end; - -function TfrViewGridBase.GetPopupMenu: TPopupMenu; -begin - Result := FPopupMenu; -end; - -function TfrViewGridBase.GetViewFiltros: IViewFiltroBase; -begin - Result := FViewFiltros; -end; - -procedure TfrViewGridBase.GotoFirst; -begin - if Assigned(_FocusedView) then - _FocusedView.DataController.GotoFirst; -end; - -procedure TfrViewGridBase.GotoLast; -begin - if Assigned(_FocusedView) then - _FocusedView.DataController.GotoLast; -end; - -function TfrViewGridBase.IsEmpty: Boolean; -begin - Result := (_FocusedView.ViewData.RowCount < 1); -end; - -function TfrViewGridBase.Locate(const AItemIndex: Integer; const AValue: String; - const APartialCompare: Boolean): Boolean; -begin -{ if Assigned(_FocusedView) then - Result := _FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AText, APartialCompare, True, True)} -end; - -procedure TfrViewGridBase.Preview; -begin -// -end; - -procedure TfrViewGridBase.Print; -begin -// -end; - -procedure TfrViewGridBase.PrintSetup; -begin -// -end; - -procedure TfrViewGridBase.RefrescarFiltro; -begin - //De esta forma obligaremos a que se creen nuevamente todos los filtros, cuando llamemos a este metodo - if Assigned(ViewFiltros) then - Filter := ViewFiltros.Texto; -end; - -procedure TfrViewGridBase.RestoreFromRegistry(const Path : String); -begin - if Assigned(_FocusedView) then - _FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, [], Self.Name); -end; - -procedure TfrViewGridBase.RestoreGridStatus; -begin - if Assigned(FGridStatus) and (not IsEmpty) then - FGridStatus.Restore(_FocusedView); -end; - -procedure TfrViewGridBase.SaveGridStatus; -begin - FreeAndNil(FGridStatus); - if not IsEmpty then - FGridStatus := TcxGridStatus.Create(_FocusedView); -end; - -procedure TfrViewGridBase.SetDblClick(const Value: TNotifyEvent); -begin - FOnDblClick := Value; -end; - -procedure TfrViewGridBase.SetFilter(const Value: string); -begin - FFilter := Value; - - //Así tendremos el mismo valor en el filtro simple que en el filtro en detalle - if Assigned(ViewFiltros) then - ViewFiltros.Texto := FFilter; - - FiltrarGrid(FFilter); - - //Obliga a generar todos los filtros de las vista hija - AnadirOtrosFiltros; - - if Assigned(FOnFilterChanged) then - FOnFilterChanged(Self); -end; - -procedure TfrViewGridBase.SetMultiSelect(const Value: Boolean); -begin - _FocusedView.OptionsSelection.MultiSelect := Value; -// _FocusedView..OnSelectionChanged := SelectionChanged; -end; - -procedure TfrViewGridBase.SetPopupMenu(const Value: TPopupMenu); -begin - FPopupMenu := Value; -end; - -procedure TfrViewGridBase.SetViewFiltros(const Value: IViewFiltroBase); -begin - if Assigned(FViewFiltros) then - ViewFiltros.OnFiltrosChange := Nil; - - FViewFiltros := Value; -end; - -procedure TfrViewGridBase.ShowEmbedded(const AParent: TWinControl); -begin - inherited; - - // No activar la tabla ya por si acaso tuviera parámetros -{ if not DADataSource.DataTable.Active then - DADataSource.DataTable.Active := True;} - - GotoFirst; - _FocusedView.Focused := True; - if _FocusedView.ViewData.RecordCount > 0 then - begin - _FocusedView.ViewData.Records[0].Selected := True; - _FocusedView.ViewData.Records[0].Focused := True; - end; -end; - -procedure TfrViewGridBase.StoreToRegistry(const Path : String); -begin - if Assigned(_FocusedView) then - _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name); -end; - -procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String); -var - Columna: TcxGridDBColumn; - i: Integer; - AItemList: TcxFilterCriteriaItemList; -begin - with _FocusedView.DataController.Filter do - begin - BeginUpdate; - try - Options := [fcoCaseInsensitive, fcoSoftCompare]; - Root.Clear; - if Length(TextoFiltro) > 0 then - begin - AItemList := Root.AddItemList(fboAnd); - AItemList.BoolOperatorKind := fboOr; - for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do - begin - Columna := (_FocusedView as TcxGridDBTableView).Columns[i]; - if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then - AItemList.AddItem(Columna, foLike, '%'+TextoFiltro+'%', IntToStr(i)); - end; - Active := True; - end - else - Active := False; - finally - EndUpdate; - end; - end; -end; - - -procedure TfrViewGridBase.FilterChanged(Sender: TObject); -begin -// -end; - -destructor TfrViewGridBase.Destroy; -begin - FOnFilterChanged := Nil; - if Assigned(FGridStatus) then - FreeAndNil(FGridStatus); - inherited; -end; - -end. - diff --git a/Source/Base/GUIBase/uViewIncidencias.dcu b/Source/Base/GUIBase/uViewIncidencias.dcu deleted file mode 100644 index 32fb4f0f..00000000 Binary files a/Source/Base/GUIBase/uViewIncidencias.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewIncidencias.dfm b/Source/Base/GUIBase/uViewIncidencias.dfm deleted file mode 100644 index 451339a3..00000000 --- a/Source/Base/GUIBase/uViewIncidencias.dfm +++ /dev/null @@ -1,54 +0,0 @@ -inherited frViewIncidencias: TfrViewIncidencias - Width = 451 - Height = 370 - Align = alBottom - ExplicitWidth = 451 - ExplicitHeight = 370 - object pnlSup: TPanel - Left = 0 - Top = 0 - Width = 451 - Height = 28 - Align = alTop - BevelOuter = bvNone - TabOrder = 0 - object eIncidenciaActiva: TcxDBCheckBox - Left = 2 - Top = 4 - Caption = 'Hay incidencias sin resolver' - DataBinding.DataField = 'INCIDENCIAS_ACTIVAS' - DataBinding.DataSource = DADataSource - Properties.ValueChecked = 1 - Properties.ValueUnchecked = 0 - TabOrder = 0 - Transparent = True - Width = 359 - end - end - object GroupBox1: TGroupBox - Left = 0 - Top = 28 - Width = 451 - Height = 342 - Align = alClient - Caption = 'Incidencias' - TabOrder = 1 - DesignSize = ( - 451 - 342) - object eIncidencias: TcxDBMemo - Left = 10 - Top = 22 - Anchors = [akLeft, akTop, akRight, akBottom] - DataBinding.DataField = 'INCIDENCIAS' - DataBinding.DataSource = DADataSource - TabOrder = 0 - Height = 305 - Width = 420 - end - end - object DADataSource: TDADataSource - Left = 560 - Top = 8 - end -end diff --git a/Source/Base/GUIBase/uViewIncidencias.pas b/Source/Base/GUIBase/uViewIncidencias.pas deleted file mode 100644 index b017d385..00000000 --- a/Source/Base/GUIBase/uViewIncidencias.pas +++ /dev/null @@ -1,30 +0,0 @@ -unit uViewIncidencias; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, - cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, - cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, - cxCheckBox, cxMemo; - -type - TfrViewIncidencias = class(TfrViewBase) - DADataSource: TDADataSource; - pnlSup: TPanel; - eIncidenciaActiva: TcxDBCheckBox; - eIncidencias: TcxDBMemo; - GroupBox1: TGroupBox; - private - { Private declarations } - public - { Public declarations } - end; - - -implementation - -{$R *.dfm} - -end. diff --git a/Source/Base/GUIBase/uViewObservaciones.dcu b/Source/Base/GUIBase/uViewObservaciones.dcu deleted file mode 100644 index f78ed78c..00000000 Binary files a/Source/Base/GUIBase/uViewObservaciones.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewObservaciones.dfm b/Source/Base/GUIBase/uViewObservaciones.dfm deleted file mode 100644 index f0b06091..00000000 --- a/Source/Base/GUIBase/uViewObservaciones.dfm +++ /dev/null @@ -1,46 +0,0 @@ -inherited frViewObservaciones: TfrViewObservaciones - Width = 300 - DesignSize = ( - 300 - 226) - object Label5: TLabel - Left = 8 - Top = 8 - Width = 85 - Height = 13 - Caption = 'Observaciones' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - end - object Bevel1: TBevel - Left = 96 - Top = 8 - Width = 192 - Height = 9 - Anchors = [akLeft, akTop, akRight] - Shape = bsBottomLine - end - object memObservaciones: TcxDBMemo - Left = 16 - Top = 32 - Anchors = [akLeft, akTop, akRight, akBottom] - DataBinding.DataField = 'OBSERVACIONES' - DataBinding.DataSource = DADataSource - Properties.ScrollBars = ssVertical - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Height = 179 - Width = 269 - end - object DADataSource: TDADataSource - Left = 16 - Top = 48 - end -end diff --git a/Source/Base/GUIBase/uViewObservaciones.pas b/Source/Base/GUIBase/uViewObservaciones.pas deleted file mode 100644 index 2430ebac..00000000 --- a/Source/Base/GUIBase/uViewObservaciones.pas +++ /dev/null @@ -1,26 +0,0 @@ -unit uViewObservaciones; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls, - cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls; - -type - TfrViewObservaciones = class(TfrViewBase) - Label5: TLabel; - Bevel1: TBevel; - memObservaciones: TcxDBMemo; - DADataSource: TDADataSource; - private - { Private declarations } - public - { Public declarations } - end; - -implementation - -{$R *.dfm} - -end. diff --git a/Source/Base/GUIBase/uViewPreview.dcu b/Source/Base/GUIBase/uViewPreview.dcu deleted file mode 100644 index f02b8cc0..00000000 Binary files a/Source/Base/GUIBase/uViewPreview.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewPreview.dfm b/Source/Base/GUIBase/uViewPreview.dfm deleted file mode 100644 index 52e3be36..00000000 --- a/Source/Base/GUIBase/uViewPreview.dfm +++ /dev/null @@ -1,10 +0,0 @@ -inherited frViewPreview: TfrViewPreview - object frxPreview: TfrxPreview - Left = 0 - Top = 0 - Width = 294 - Height = 214 - Align = alClient - OutlineVisible = False - end -end diff --git a/Source/Base/GUIBase/uViewPreview.pas b/Source/Base/GUIBase/uViewPreview.pas deleted file mode 100644 index c16f3764..00000000 --- a/Source/Base/GUIBase/uViewPreview.pas +++ /dev/null @@ -1,43 +0,0 @@ -unit uViewPreview; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, frxClass, frxPreview, JvComponent, JvFormAutoSize; - -type - IViewPreview = interface(IViewBase) - ['{F9A96948-4005-4E9B-8045-7B4874A05D19}'] - function GetPreview: TfrxPreview; - property Preview : TfrxPreview read GetPreview; - end; - - TfrViewPreview = class(TfrViewBase, IViewPreview) - frxPreview: TfrxPreview; - private - function GetPreview: TfrxPreview; - public - property Preview : TfrxPreview read GetPreview; - end; - -implementation - -{$R *.dfm} - -{ TfrViewPreview } - -function TfrViewPreview.GetPreview: TfrxPreview; -begin - Result := frxPreview; -end; - -initialization - RegisterClass(TfrViewPreview); - -finalization - UnRegisterClass(TfrViewPreview); - -end. - - diff --git a/Source/Base/GUIBase/uViewTotales.dcu b/Source/Base/GUIBase/uViewTotales.dcu deleted file mode 100644 index 9f5dd40a..00000000 Binary files a/Source/Base/GUIBase/uViewTotales.dcu and /dev/null differ diff --git a/Source/Base/GUIBase/uViewTotales.dfm b/Source/Base/GUIBase/uViewTotales.dfm deleted file mode 100644 index d3e8b6e6..00000000 --- a/Source/Base/GUIBase/uViewTotales.dfm +++ /dev/null @@ -1,619 +0,0 @@ -inherited frViewTotales: TfrViewTotales - Width = 451 - Height = 350 - Align = alBottom - ExplicitWidth = 451 - ExplicitHeight = 350 - object dxLayoutControl1: TdxLayoutControl - AlignWithMargins = True - Left = 0 - Top = 0 - Width = 451 - Height = 217 - Margins.Left = 0 - Margins.Top = 0 - Margins.Right = 0 - Margins.Bottom = 0 - Align = alTop - ParentBackground = True - TabOrder = 0 - AutoContentSizes = [acsWidth, acsHeight] - object Bevel1: TBevel - Left = 104 - Top = 109 - Width = 73 - Height = 9 - Shape = bsBottomLine - end - object Bevel3: TBevel - Left = 278 - Top = 28 - Width = 3 - Height = 122 - Shape = bsRightLine - end - object Bevel4: TBevel - Left = 390 - Top = 109 - Width = 192 - Height = 9 - Shape = bsBottomLine - end - object ImporteDto: TcxDBCurrencyEdit - Left = 175 - Top = 129 - AutoSize = False - DataBinding.DataField = 'IMPORTE_DESCUENTO' - DataBinding.DataSource = DADataSource - Enabled = False - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = True - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [] - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 - Height = 21 - Width = 93 - end - object ImporteIVA: TcxDBCurrencyEdit - Left = 461 - Top = 55 - AutoSize = False - DataBinding.DataField = 'IMPORTE_IVA' - DataBinding.DataSource = DADataSource - Enabled = False - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = True - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [] - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 - Height = 21 - Width = 137 - end - object ImporteTotal: TcxDBCurrencyEdit - Left = 391 - Top = 129 - AutoSize = False - DataBinding.DataField = 'IMPORTE_TOTAL' - DataBinding.DataSource = DADataSource - Enabled = False - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = True - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -12 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [] - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clActiveCaption - Style.TextStyle = [fsBold] - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 - Height = 21 - Width = 137 - end - object edtDescuento: TcxDBSpinEdit - Left = 104 - Top = 129 - AutoSize = False - DataBinding.DataField = 'DESCUENTO' - DataBinding.DataSource = DADataSource - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = ',0.00 %;-,0.00 %' - Properties.ImmediatePost = True - Properties.MaxValue = 100.000000000000000000 - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [] - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.ButtonStyle = bts3D - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 - Height = 21 - Width = 65 - end - object edtIVA: TcxDBSpinEdit - Left = 390 - Top = 55 - AutoSize = False - DataBinding.DataField = 'IVA' - DataBinding.DataSource = DADataSource - Enabled = False - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.AssignedValues.MinValue = True - Properties.DisplayFormat = ',0.00 %;-,0.00 %' - Properties.ImmediatePost = True - Properties.MaxValue = 100.000000000000000000 - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [] - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.ButtonStyle = bts3D - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 - Height = 21 - Width = 65 - end - object ImporteBase: TcxDBCurrencyEdit - Left = 390 - Top = 28 - AutoSize = False - DataBinding.DataField = 'BASE_IMPONIBLE' - DataBinding.DataSource = DADataSource - Enabled = False - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = True - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [fsBold] - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 - Height = 21 - Width = 92 - end - object edtRE: TcxDBSpinEdit - Left = 390 - Top = 82 - AutoSize = False - DataBinding.DataField = 'RE' - DataBinding.DataSource = DADataSource - Enabled = False - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.AssignedValues.EditFormat = True - Properties.DisplayFormat = ',0.00 %;-,0.00 %' - Properties.ImmediatePost = True - Properties.MaxValue = 100.000000000000000000 - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [] - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.ButtonStyle = bts3D - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 - Height = 21 - Width = 65 - end - object ImporteRE: TcxDBCurrencyEdit - Left = 461 - Top = 82 - AutoSize = False - DataBinding.DataField = 'IMPORTE_RE' - DataBinding.DataSource = DADataSource - Enabled = False - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = True - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [] - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 - Height = 21 - Width = 56 - end - object eImporteNeto: TcxDBCurrencyEdit - Left = 104 - Top = 28 - AutoSize = False - DataBinding.DataField = 'IMPORTE_NETO' - DataBinding.DataSource = DADataSource - Enabled = False - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = True - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [fsBold] - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Height = 21 - Width = 147 - end - object ePorte: TcxDBCurrencyEdit - Left = 104 - Top = 156 - AutoSize = False - DataBinding.DataField = 'IMPORTE_PORTE' - DataBinding.DataSource = DADataSource - ParentFont = False - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = False - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clWindowText - Style.Font.Height = -11 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [] - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 - Height = 21 - Width = 147 - end - object eIVA: TcxDBLookupComboBox - Left = 104 - Top = 55 - DataBinding.DataField = 'ID_TIPO_IVA' - DataBinding.DataSource = DADataSource - Properties.GridMode = True - Properties.ImmediatePost = True - Properties.KeyFieldNames = 'ID' - Properties.ListColumns = < - item - FieldName = 'REFERENCIA' - end> - Properties.ListOptions.GridLines = glNone - Properties.ListOptions.ShowHeader = False - Properties.ListSource = dsTiposIVA - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D - 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 = 81 - end - object bTiposIVA: TButton - Left = 130 - Top = 55 - Width = 132 - Height = 21 - Caption = 'Ver los tipos de IVA...' - TabOrder = 2 - end - object cbRecargoEquivalencia: TcxDBCheckBox - Left = 104 - Top = 82 - Caption = 'Aplicar recargo de equivalencia' - DataBinding.DataField = 'RECARGO_EQUIVALENCIA' - DataBinding.DataSource = DADataSource - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - Properties.ValueChecked = 1 - Properties.ValueUnchecked = 0 - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - 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 = 3 - Width = 219 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group1: TdxLayoutGroup - Caption = 'Importes totales' - LayoutDirection = ldHorizontal - object dxLayoutControl1Group2: TdxLayoutGroup - AutoAligns = [aaVertical] - AlignHorz = ahClient - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item8: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Importe neto:' - Control = eImporteNeto - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group6: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item11: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Tipo de IVA:' - Control = eIVA - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item15: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - ShowCaption = False - Control = bTiposIVA - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item16: TdxLayoutItem - Caption = ' ' - Control = cbRecargoEquivalencia - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item10: TdxLayoutItem - Caption = ' ' - Control = Bevel1 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group7: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item4: TdxLayoutItem - AutoAligns = [aaVertical] - Caption = 'Descuento (%):' - Control = edtDescuento - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item1: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Importe de dto:' - ShowCaption = False - Control = ImporteDto - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item9: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Porte:' - Control = ePorte - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group5: TdxLayoutGroup - AutoAligns = [aaVertical] - AlignHorz = ahClient - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item13: TdxLayoutItem - AutoAligns = [aaHorizontal] - AlignVert = avClient - Caption = ' ' - Offsets.Left = 10 - Offsets.Right = 10 - ShowCaption = False - Control = Bevel3 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group3: TdxLayoutGroup - AutoAligns = [aaVertical] - AlignHorz = ahClient - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item12: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Base imponible:' - Control = ImporteBase - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group9: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item5: TdxLayoutItem - AutoAligns = [aaVertical] - Caption = 'IVA (%):' - CaptionOptions.AlignHorz = taRightJustify - Control = edtIVA - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item2: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Importe de IVA:' - ShowCaption = False - Control = ImporteIVA - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group8: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item6: TdxLayoutItem - AutoAligns = [aaVertical] - Caption = 'RE. (%):' - CaptionOptions.AlignHorz = taRightJustify - Control = edtRE - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item7: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Importe de RE:' - ShowCaption = False - Visible = False - Control = ImporteRE - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item14: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = ' ' - Control = Bevel4 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Importe total:' - LookAndFeel = LookAndFeelIMPORTE_TOTAL - Control = ImporteTotal - ControlOptions.ShowBorder = False - end - end - end - end - end - object dxLayoutControl1Group4: TdxLayoutGroup - end - end - object DADataSource: TDADataSource - Left = 8 - Top = 8 - end - object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList - Left = 40 - Top = 8 - object LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel - ItemOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET - ItemOptions.CaptionOptions.Font.Color = clWindowText - ItemOptions.CaptionOptions.Font.Height = -12 - ItemOptions.CaptionOptions.Font.Name = 'Tahoma' - ItemOptions.CaptionOptions.Font.Style = [fsBold] - ItemOptions.CaptionOptions.UseDefaultFont = False - end - end - object dsTiposIVA: TDADataSource - Left = 8 - Top = 40 - end -end diff --git a/Source/Base/GUIBase/uViewTotales.pas b/Source/Base/GUIBase/uViewTotales.pas deleted file mode 100644 index 4b92be56..00000000 --- a/Source/Base/GUIBase/uViewTotales.pas +++ /dev/null @@ -1,71 +0,0 @@ -unit uViewTotales; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, - cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, - cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, - ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, - cxDBLookupComboBox, cxCheckBox; - -type - TfrViewTotales = class(TfrViewBase) - DADataSource: TDADataSource; - ImporteBase: TcxDBCurrencyEdit; - ImporteDto: TcxDBCurrencyEdit; - ImporteIVA: TcxDBCurrencyEdit; - ImporteTotal: TcxDBCurrencyEdit; - edtDescuento: TcxDBSpinEdit; - edtIVA: TcxDBSpinEdit; - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - dxLayoutControl1Item1: TdxLayoutItem; - dxLayoutControl1Item2: TdxLayoutItem; - dxLayoutControl1Item3: TdxLayoutItem; - dxLayoutControl1Item4: TdxLayoutItem; - dxLayoutControl1Item5: TdxLayoutItem; - dxLayoutControl1Item12: TdxLayoutItem; - dxLayoutControl1Group1: TdxLayoutGroup; - dxLayoutControl1Group4: TdxLayoutGroup; - dxLayoutControl1Group5: TdxLayoutGroup; - dxLayoutControl1Item6: TdxLayoutItem; - edtRE: TcxDBSpinEdit; - dxLayoutControl1Item7: TdxLayoutItem; - ImporteRE: TcxDBCurrencyEdit; - dxLayoutControl1Item8: TdxLayoutItem; - eImporteNeto: TcxDBCurrencyEdit; - dxLayoutControl1Item9: TdxLayoutItem; - ePorte: TcxDBCurrencyEdit; - dxLayoutControl1Group2: TdxLayoutGroup; - Bevel1: TBevel; - dxLayoutControl1Item10: TdxLayoutItem; - dxLayoutControl1Group7: TdxLayoutGroup; - Bevel3: TBevel; - dxLayoutControl1Item13: TdxLayoutItem; - dxLayoutControl1Group3: TdxLayoutGroup; - dxLayoutControl1Item14: TdxLayoutItem; - Bevel4: TBevel; - dxLayoutControl1Group9: TdxLayoutGroup; - dxLayoutControl1Group8: TdxLayoutGroup; - dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; - LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel; - dxLayoutControl1Item11: TdxLayoutItem; - eIVA: TcxDBLookupComboBox; - dxLayoutControl1Item15: TdxLayoutItem; - bTiposIVA: TButton; - dxLayoutControl1Group6: TdxLayoutGroup; - dsTiposIVA: TDADataSource; - dxLayoutControl1Item16: TdxLayoutItem; - cbRecargoEquivalencia: TcxDBCheckBox; - public - { Public declarations } - end; - - -implementation - -{$R *.dfm} - -end. diff --git a/Source/Base/Jv3rdD10R.drc b/Source/Base/Jv3rdD10R.drc deleted file mode 100644 index 09081cc2..00000000 --- a/Source/Base/Jv3rdD10R.drc +++ /dev/null @@ -1,21 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x4c", "\x00", "\x69", "\x00", "\x62", "\x00", "\x72", "\x00", /* 0000: L.i.b.r. */ - "\x65", "\x00", "\x72", "\x00", "\x69", "\x00", "\x61", "\x00", /* 0008: e.r.i.a. */ - "\x20", "\x00", "\x62", "\x00", "\x61", "\x00", "\x73", "\x00", /* 0010: .b.a.s. */ - "\x65", "\x00", "\x20", "\x00", "\x64", "\x00", "\x65", "\x00", /* 0018: e. .d.e. */ - "\x20", "\x00", "\x46", "\x00", "\x61", "\x00", "\x63", "\x00", /* 0020: .F.a.c. */ - "\x74", "\x00", "\x75", "\x00", "\x47", "\x00", "\x45", "\x00", /* 0028: t.u.G.E. */ - "\x53", "\x00", "\x00", "\x00" /* 0030: S... */ -END - diff --git a/Source/Base/JvCustomD11R.drc b/Source/Base/JvCustomD11R.drc deleted file mode 100644 index e53c929c..00000000 --- a/Source/Base/JvCustomD11R.drc +++ /dev/null @@ -1,28 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x4c", "\x00", "\x69", "\x00", "\x62", "\x00", "\x72", "\x00", /* 0000: L.i.b.r. */ - "\x65", "\x00", "\x72", "\x00", "\x69", "\x00", "\x61", "\x00", /* 0008: e.r.i.a. */ - "\x20", "\x00", "\x62", "\x00", "\x61", "\x00", "\x73", "\x00", /* 0010: .b.a.s. */ - "\x65", "\x00", "\x20", "\x00", "\x64", "\x00", "\x65", "\x00", /* 0018: e. .d.e. */ - "\x20", "\x00", "\x46", "\x00", "\x61", "\x00", "\x63", "\x00", /* 0020: .F.a.c. */ - "\x74", "\x00", "\x75", "\x00", "\x47", "\x00", "\x45", "\x00", /* 0028: t.u.G.E. */ - "\x53", "\x00", "\x00", "\x00" /* 0030: S... */ -END - -/* C:\Codigo Tecsitel\Lib\JSDialog\mbimg.res */ -/* C:\Codigo Tecsitel\Lib\JSDialog\vistaimg.res */ -/* uConfigurarConexion.dfm */ -/* uDataModuleConexion.dfm */ -/* uDataModuleConfiguracion.dfm */ -/* uDataModuleBase.DFM */ -/* uActualizacion.dfm */ diff --git a/Source/Base/dxComnD10.drc b/Source/Base/dxComnD10.drc deleted file mode 100644 index 09081cc2..00000000 --- a/Source/Base/dxComnD10.drc +++ /dev/null @@ -1,21 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x4c", "\x00", "\x69", "\x00", "\x62", "\x00", "\x72", "\x00", /* 0000: L.i.b.r. */ - "\x65", "\x00", "\x72", "\x00", "\x69", "\x00", "\x61", "\x00", /* 0008: e.r.i.a. */ - "\x20", "\x00", "\x62", "\x00", "\x61", "\x00", "\x73", "\x00", /* 0010: .b.a.s. */ - "\x65", "\x00", "\x20", "\x00", "\x64", "\x00", "\x65", "\x00", /* 0018: e. .d.e. */ - "\x20", "\x00", "\x46", "\x00", "\x61", "\x00", "\x63", "\x00", /* 0020: .F.a.c. */ - "\x74", "\x00", "\x75", "\x00", "\x47", "\x00", "\x45", "\x00", /* 0028: t.u.G.E. */ - "\x53", "\x00", "\x00", "\x00" /* 0030: S... */ -END - diff --git a/Source/Base/uActualizacion.dcu b/Source/Base/uActualizacion.dcu deleted file mode 100644 index 5b3f801f..00000000 Binary files a/Source/Base/uActualizacion.dcu and /dev/null differ diff --git a/Source/Base/uActualizacion.dfm b/Source/Base/uActualizacion.dfm deleted file mode 100644 index a264311c..00000000 --- a/Source/Base/uActualizacion.dfm +++ /dev/null @@ -1,272 +0,0 @@ -object fActualizacion: TfActualizacion - Left = 447 - Top = 316 - Caption = 'Configuraci'#243'n' - ClientHeight = 340 - ClientWidth = 354 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poOwnerFormCenter - OnActivate = FormActivate - DesignSize = ( - 354 - 340) - PixelsPerInch = 96 - TextHeight = 13 - object Panel2: TPanel - Left = 0 - Top = 306 - Width = 354 - Height = 34 - Align = alBottom - BevelOuter = bvNone - ParentColor = True - TabOrder = 0 - object OKBtn: TButton - Left = 190 - Top = 2 - Width = 75 - Height = 25 - Caption = '&Aceptar' - Default = True - ModalResult = 1 - TabOrder = 0 - OnClick = OKBtnClick - end - object CancelBtn: TButton - Left = 270 - Top = 2 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - end - object PageControl1: TPageControl - Left = 8 - Top = 8 - Width = 337 - Height = 289 - ActivePage = TabSheet1 - Anchors = [akLeft, akTop, akRight, akBottom] - TabOrder = 1 - object TabSheet1: TTabSheet - Caption = 'Configuraci'#243'n' - object GroupBox1: TGroupBox - Left = 7 - Top = 6 - Width = 313 - Height = 242 - Caption = 'Configuraci'#243'n de acceso' - TabOrder = 0 - object Label2: TLabel - Left = 32 - Top = 115 - Width = 259 - Height = 26 - Margins.Bottom = 0 - Caption = - 'Para poder descargar actualizaciones de FactuGES desde Internet ' + - 'debe introducir su usuario y contrase'#241'a:' - WordWrap = True - end - object Label3: TLabel - Left = 41 - Top = 180 - Width = 39 - Height = 13 - Margins.Bottom = 0 - Caption = 'Usuario:' - end - object Label4: TLabel - Left = 23 - Top = 205 - Width = 57 - Height = 13 - Margins.Bottom = 0 - Caption = 'Contrase'#241'a:' - end - object bDirectorio: TSpeedButton - Left = 272 - Top = 48 - Width = 23 - Height = 22 - Caption = '...' - OnClick = bDirectorioClick - end - object Label6: TLabel - Left = 32 - Top = 155 - Width = 48 - Height = 13 - Margins.Bottom = 0 - Caption = 'Direcci'#243'n:' - end - object edUsuario: TEdit - Left = 87 - Top = 176 - Width = 208 - Height = 21 - TabOrder = 0 - end - object edPassword: TEdit - Left = 87 - Top = 201 - Width = 208 - Height = 21 - PasswordChar = '*' - TabOrder = 1 - end - object edRutaLan: TEdit - Left = 32 - Top = 48 - Width = 241 - Height = 21 - ReadOnly = True - TabOrder = 2 - end - object rbInternet: TRadioButton - Left = 16 - Top = 96 - Width = 257 - Height = 17 - Caption = 'Actualizaci'#243'n por Internet' - TabOrder = 3 - OnClick = Action1Update - end - object rbLan: TRadioButton - Left = 16 - Top = 24 - Width = 265 - Height = 17 - Caption = 'Actualizaci'#243'n por red local' - TabOrder = 4 - OnClick = Action1Update - end - object edLocation: TEdit - Left = 87 - Top = 151 - Width = 208 - Height = 21 - TabOrder = 5 - end - end - end - object TabSheet2: TTabSheet - Caption = 'Opciones avanzadas' - ImageIndex = 1 - object GroupBox2: TGroupBox - Left = 8 - Top = 7 - Width = 313 - Height = 242 - Caption = 'Opciones avanzadas' - TabOrder = 0 - object Label1: TLabel - Left = 16 - Top = 19 - Width = 282 - Height = 13 - Margins.Bottom = 0 - Caption = 'Por favor, s'#243'lo modificar si se sabe lo que se est'#225' haciendo.' - WordWrap = True - end - object Label5: TLabel - Left = 16 - Top = 52 - Width = 177 - Height = 13 - Margins.Bottom = 0 - Caption = 'Nombre del archivo de configuraci'#243'n:' - end - object Label7: TLabel - Left = 200 - Top = 76 - Width = 90 - Height = 13 - Margins.Bottom = 0 - Caption = 'p.e: versionlocal.ini' - end - object edFicheroConfig: TEdit - Left = 16 - Top = 72 - Width = 177 - Height = 21 - TabOrder = 0 - end - end - end - end - object JvAppRegistryStorage1: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - StorageOptions.BooleanAsString = False - RegRoot = hkLocalMachine - Root = 'Software\FactuGES\Update' - SubStorages = <> - Left = 326 - end - object JvFormStorage1: TJvFormStorage - Active = False - AppStorage = JvAppRegistryStorage1 - AppStoragePath = '\' - Options = [] - StoredProps.Strings = ( - 'edPassword.Text' - 'edUsuario.Text' - 'edRutaLan.Text' - 'rbInternet.Checked' - 'rbLan.Checked' - 'edFicheroConfig.Text' - 'edLocation.Text') - StoredValues = < - item - Name = 'TipoActualizacion' - Value = '' - OnSave = JvFormStorage1StoredValues0Save - end> - Left = 296 - end - object ActionList1: TActionList - Left = 242 - Top = 2 - object Action1: TAction - Caption = 'Action1' - OnUpdate = Action1Update - end - object Action2: TAction - Caption = 'Action2' - end - end - object JvBrowseForFolderDialog1: TJvBrowseForFolderDialog - Options = [odOnlyDirectory, odStatusAvailable, odNewDialogStyle] - Title = 'Ruta de las actualizaciones' - Left = 268 - Top = 1 - end - object JvProgramVersionCheck1: TJvProgramVersionCheck - CheckFrequency = 0 - LocalDirectory = 'update' - LocalVersionInfoFileName = 'versioninfo.ini' - LocationNetwork = JvProgramVersionNetworkLocation1 - LocationType = pvltHTTP - UserOptions = [uoLocalDirectory, uoAllowedReleaseType, uoLocationType, uoLocationNetwork, uoLocationHTTP] - Left = 176 - Top = 48 - end - object JvProgramVersionNetworkLocation1: TJvProgramVersionNetworkLocation - Left = 208 - Top = 48 - end - object JvProgramVersionHTTPLocation1: TJvProgramVersionHTTPLocation - Left = 232 - Top = 48 - end -end diff --git a/Source/Base/uActualizacion.pas b/Source/Base/uActualizacion.pas deleted file mode 100644 index 2001f0a5..00000000 --- a/Source/Base/uActualizacion.pas +++ /dev/null @@ -1,182 +0,0 @@ -{ -=============================================================================== - Copyright (©) 2005. Rodax Software. -=============================================================================== - Los contenidos de este fichero son propiedad de Rodax Software titular del - copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, - en su totalidad o en parte, con el permiso escrito de Rodax Software, o de - acuerdo con los términos y condiciones establecidas en el acuerdo/contrato - bajo el que se suministra. - ----------------------------------------------------------------------------- - Web: www.rodax-software.com -=============================================================================== - Fecha primera versión: 17-05-2005 - Versión actual: 1.0.0 - Fecha versión actual: 17-05-2005 -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} - -unit uActualizacion; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, ComCtrls, JvComponent, JvAppStorage, - JvAppRegistryStorage, JvFormPlacement, JvProgramVersionCheck, JvPropertyStore, - JvBaseDlg, JvBrowseFolder, ActnList, JvComponentBase, Buttons, uInfoProjectUtils; - -type - TfActualizacion = class(TForm) - Panel2: TPanel; - OKBtn: TButton; - CancelBtn: TButton; - PageControl1: TPageControl; - TabSheet1: TTabSheet; - GroupBox1: TGroupBox; - Label2: TLabel; - edUsuario: TEdit; - Label3: TLabel; - edPassword: TEdit; - Label4: TLabel; - JvAppRegistryStorage1: TJvAppRegistryStorage; - JvFormStorage1: TJvFormStorage; - edRutaLan: TEdit; - bDirectorio: TSpeedButton; - rbInternet: TRadioButton; - rbLan: TRadioButton; - ActionList1: TActionList; - Action1: TAction; - Action2: TAction; - TabSheet2: TTabSheet; - GroupBox2: TGroupBox; - Label1: TLabel; - Label5: TLabel; - edFicheroConfig: TEdit; - JvBrowseForFolderDialog1: TJvBrowseForFolderDialog; - JvProgramVersionCheck1: TJvProgramVersionCheck; - JvProgramVersionNetworkLocation1: TJvProgramVersionNetworkLocation; - Label6: TLabel; - edLocation: TEdit; - Label7: TLabel; - procedure bDirectorioClick(Sender: TObject); - procedure Action1Update(Sender: TObject); - procedure FormActivate(Sender: TObject); - procedure OKBtnClick(Sender: TObject); - procedure JvFormStorage1StoredValues0Save(Sender: TJvStoredValue; - var AValue: Variant); - private - InfoProject : TInfoProject; - public - { Public declarations } - function HayConfiguracion: Boolean; - procedure Actualizar; - function darVersion: String; - end; - -var - fActualizacion: TfActualizacion; - -implementation - -{$R *.dfm} - -uses - JclFileUtils; - -procedure TfActualizacion.bDirectorioClick(Sender: TObject); -begin - if Length(edRutaLan.Text) > 0 then - JvBrowseForFolderDialog1.Directory := edRutaLan.Text; - JvBrowseForFolderDialog1.Execute; - if DirectoryExists(JvBrowseForFolderDialog1.Directory) then - edRutaLan.Text := JvBrowseForFolderDialog1.Directory + '\' - else begin - ShowMessage('Directorio no válido'); - bDirectorio.Click; - end; -end; - -procedure TfActualizacion.Action1Update(Sender: TObject); -begin - edRutaLan.Enabled := rbLan.Checked; - bDirectorio.Enabled := rbLan.Checked; - edLocation.Enabled := rbInternet.Checked; - edUsuario.Enabled := rbInternet.Checked; - edPassword.Enabled := rbInternet.Checked; -end; - -procedure TfActualizacion.FormActivate(Sender: TObject); -begin - JvFormStorage1.RestoreFormPlacement; - PageControl1.TabIndex := 0; -end; - -procedure TfActualizacion.OKBtnClick(Sender: TObject); -begin - JvFormStorage1.SaveFormPlacement; -end; - -procedure TfActualizacion.Actualizar; -begin - JvFormStorage1.RestoreFormPlacement; - - if rbLan.Checked then - begin - JvProgramVersionCheck1.LocationType := pvltNetwork; - with JvProgramVersionNetworkLocation1 do - begin - VersionInfoLocationPathList.Clear; - VersionInfoLocationPathList.Add(edRutaLan.Text); - VersionInfoFileName := edFicheroConfig.Text; - end; - end - else begin - {JvProgramVersionCheck1.LocationType := pvltHTTP; - with JvProgramVersionHTTPLocationIndy1 do - begin - VersionInfoFileName := edFicheroConfig.Text; - VersionInfoLocationPathList.Clear; - VersionInfoLocationPathList.Add(edLocation.Text); - UserName := edUsuario.Text; - Password := edPassword.Text; - end;} - end; - - JvProgramVersionCheck1.LocalVersionInfoFileName := 'versionlocal.ini';//edFicheroConfig.Text; - JvProgramVersionCheck1.Execute; -end; - -procedure TfActualizacion.JvFormStorage1StoredValues0Save( - Sender: TJvStoredValue; var AValue: Variant); -begin - if rbInternet.Checked then - AValue := 'INTERNET' - else - AValue := 'LAN'; -end; - -function TfActualizacion.darVersion: String; -begin - InfoProject := TInfoProject.Create(Self); - try - Result := InfoProject.FileVersion; - finally - FreeAndNil(InfoProject); - end; -end; - -function TfActualizacion.HayConfiguracion: Boolean; -begin - // Cargar la configuración desde el registro. - JvFormStorage1.RestoreFormPlacement; - - Result := (rbLan.Checked) or (rbInternet.Checked); -end; - -end. diff --git a/Source/Base/uClassRegistryUtils.dcu b/Source/Base/uClassRegistryUtils.dcu deleted file mode 100644 index 47e0e091..00000000 Binary files a/Source/Base/uClassRegistryUtils.dcu and /dev/null differ diff --git a/Source/Base/uConfigurarConexion.dcu b/Source/Base/uConfigurarConexion.dcu deleted file mode 100644 index f05beed4..00000000 Binary files a/Source/Base/uConfigurarConexion.dcu and /dev/null differ diff --git a/Source/Base/uConfigurarConexion.dfm b/Source/Base/uConfigurarConexion.dfm deleted file mode 100644 index 715c6fda..00000000 --- a/Source/Base/uConfigurarConexion.dfm +++ /dev/null @@ -1,114 +0,0 @@ -object fConfigurarConexion: TfConfigurarConexion - Left = 663 - Top = 468 - ActiveControl = edtServer - Caption = 'Configuraci'#243'n de la conexi'#243'n' - ClientHeight = 149 - ClientWidth = 392 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - Scaled = False - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object bProbar: TButton - Left = 8 - Top = 113 - Width = 121 - Height = 25 - Caption = '&Probar la conexi'#243'n' - TabOrder = 1 - OnClick = bProbarClick - end - object GroupBox1: TGroupBox - Left = 8 - Top = 8 - Width = 375 - Height = 97 - Caption = 'Servidor' - TabOrder = 0 - DesignSize = ( - 375 - 97) - object Label1: TLabel - Left = 18 - Top = 28 - Width = 97 - Height = 13 - Margins.Bottom = 0 - Caption = 'Nombre del servidor:' - end - object Label2: TLabel - Left = 18 - Top = 60 - Width = 93 - Height = 13 - Margins.Bottom = 0 - Caption = 'Puerto de escucha:' - end - object edtServer: TEdit - Left = 136 - Top = 24 - Width = 223 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 0 - end - object edtPort: TEdit - Left = 136 - Top = 56 - Width = 108 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 1 - Text = '8099' - end - end - object bAceptar: TButton - Left = 219 - Top = 113 - Width = 75 - Height = 25 - Caption = '&Aceptar' - Default = True - ModalResult = 1 - TabOrder = 2 - end - object bCancelar: TButton - Left = 307 - Top = 113 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 3 - end - object HTTPChannel: TROWinInetHTTPChannel - ServerLocators = <> - DispatchOptions = [] - ProbeServers = False - ProbeFrequency = 60000 - UserAgent = 'AdminPV' - TargetURL = 'http://localhost:8099/BIN' - Left = 120 - Top = 112 - end - object ROBinMessage: TROBinMessage - Left = 152 - Top = 112 - end - object CoService: TRORemoteService - ServiceName = 'srvLogin' - Message = ROBinMessage - Channel = HTTPChannel - Left = 184 - Top = 112 - end -end diff --git a/Source/Base/uConfigurarConexion.pas b/Source/Base/uConfigurarConexion.pas deleted file mode 100644 index 30707b75..00000000 --- a/Source/Base/uConfigurarConexion.pas +++ /dev/null @@ -1,76 +0,0 @@ -unit uConfigurarConexion; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, uROClient, uROWinInetHttpChannel, uRODynamicRequest, - uROServiceComponent, uRORemoteService, uROBinMessage; - -type - TfConfigurarConexion = class(TForm) - bProbar: TButton; - GroupBox1: TGroupBox; - Label1: TLabel; - Label2: TLabel; - edtServer: TEdit; - edtPort: TEdit; - bAceptar: TButton; - bCancelar: TButton; - HTTPChannel: TROWinInetHTTPChannel; - ROBinMessage: TROBinMessage; - CoService: TRORemoteService; - procedure bProbarClick(Sender: TObject); - procedure FormCreate(Sender: TObject); - private - function GetTargetURL: String; - procedure SetTargetURL(const Value: String); - { Private declarations } - public - property TargetURL : String read GetTargetURL write SetTargetURL; - end; - -var - fConfigurarConexion: TfConfigurarConexion; - -implementation - -uses - StrUtils, JclStrings, uDataModuleConexion, uDialogUtils; - -{$R *.dfm} - -{ TfConfigurarConexion } - -function TfConfigurarConexion.GetTargetURL: String; -begin - Result := 'http://' + edtServer.Text + ':' + edtPort.Text + '/bin'; -end; - -procedure TfConfigurarConexion.SetTargetURL(const Value: String); -var - s : String; -begin - s := StrAfter('http://', Value); - s := StrBefore(':', s); - edtServer.Text := s; - - s := StrAfter(edtServer.Text + ':', Value); - s := StrBefore('/bin', s); - edtPort.Text := s; -end; - -procedure TfConfigurarConexion.bProbarClick(Sender: TObject); -begin - if dmConexion.ProbarConexion(TargetURL) then - ShowInfoMessage('Conexión válida con el servidor.') - else - ShowErrorMessage('Error de conexión', 'No se ha podido establecer la conexión con el servidor.') -end; - -procedure TfConfigurarConexion.FormCreate(Sender: TObject); -begin - HTTPChannel.OnFailure := dmConexion.ROChannelFailure; -end; - -end. diff --git a/Source/Base/uDBSelectionListUtils.dcu b/Source/Base/uDBSelectionListUtils.dcu deleted file mode 100644 index 7c9c2acb..00000000 Binary files a/Source/Base/uDBSelectionListUtils.dcu and /dev/null differ diff --git a/Source/Base/uDataModuleBase.dcu b/Source/Base/uDataModuleBase.dcu deleted file mode 100644 index 41560ec8..00000000 Binary files a/Source/Base/uDataModuleBase.dcu and /dev/null differ diff --git a/Source/Base/uDataModuleConexion.dcu b/Source/Base/uDataModuleConexion.dcu deleted file mode 100644 index 6d49a6cc..00000000 Binary files a/Source/Base/uDataModuleConexion.dcu and /dev/null differ diff --git a/Source/Base/uDataModuleConexion.dfm b/Source/Base/uDataModuleConexion.dfm deleted file mode 100644 index 16eb7df7..00000000 --- a/Source/Base/uDataModuleConexion.dfm +++ /dev/null @@ -1,31 +0,0 @@ -object dmConexion: TdmConexion - OldCreateOrder = False - Height = 177 - Width = 275 - object ROChannel: TROWinInetHTTPChannel - OnFailure = ROChannelFailure - OnException = ROChannelFailure - UserAgent = 'RemObjects SDK' - TargetURL = 'http://localhost:8099/bin' - KeepConnection = True - ServerLocators = <> - DispatchOptions = [] - Left = 42 - Top = 16 - end - object ROMessage: TROBinMessage - Left = 42 - Top = 88 - end - object DABINAdapter: TDABINAdapter - Left = 136 - Top = 16 - end - object RORemoteService: TRORemoteService - Message = ROMessage - Channel = ROChannel - ServiceName = 'srvConfiguracion' - Left = 136 - Top = 88 - end -end diff --git a/Source/Base/uDataModuleConexion.pas b/Source/Base/uDataModuleConexion.pas deleted file mode 100644 index 9eb17cab..00000000 --- a/Source/Base/uDataModuleConexion.pas +++ /dev/null @@ -1,152 +0,0 @@ -unit uDataModuleConexion; - -interface - -uses - SysUtils, Classes, uRORemoteService, uDADataTable, - uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel, - uDADataStreamer; - -const - SERVER_URL = 'http://localhost:8099/bin'; // Dirección por defecto del servidor - -type - TdmConexion = class(TDataModule) - ROChannel: TROWinInetHTTPChannel; - ROMessage: TROBinMessage; - DABINAdapter: TDABINAdapter; - RORemoteService: TRORemoteService; - procedure ROChannelFailure(Sender: TROTransportChannel; - anException: Exception; var Retry: Boolean); - private - function GetChannel: TROWinInetHTTPChannel; - function GetMessage: TROBinMessage; - function GetTargetURL: String; - procedure SetTargetURL(const Value: String); - public - function HayConexion : Boolean; - function ProbarConexion(const ATargetURL : String): Boolean; - procedure ConfigurarConexion; - property TargetURL : String read GetTargetURL write SetTargetURL; - property Channel: TROWinInetHTTPChannel read GetChannel; - property Message: TROBinMessage read GetMessage; - end; - -var - dmConexion: TdmConexion; - -implementation - -{$R *.dfm} - -uses - Windows, WinInet, cxControls, uConfigurarConexion, Dialogs, Controls, - uDataModuleBase, FactuGES_Intf; - -const - IE_OFFLINE_ERROR = 'Unexpected error in WinInet HTTP Channel (2)'; - -function TdmConexion.HayConexion: Boolean; -begin - Result := ROChannel.Connected; -end; - -procedure TdmConexion.ConfigurarConexion; -begin - with TfConfigurarConexion.Create(NIL) do - try - TargetURL := ROChannel.TargetURL; - if ShowModal = mrOk then - begin - ROChannel.TargetURL := TargetURL; - ROChannel.Connected := False; - ROChannel.Connected := True; - dmBase.SalvarConfiguracion; - end; - finally - Free; - end; -end; - -function TdmConexion.GetChannel: TROWinInetHTTPChannel; -begin - Result := ROChannel; -end; - -function TdmConexion.GetMessage: TROBinMessage; -begin - Result := ROMessage; -end; - -function TdmConexion.GetTargetURL: String; -begin - Result := ROChannel.TargetURL; -end; - -function TdmConexion.ProbarConexion(const ATargetURL: String): Boolean; -var - AHTTPChannel: TROWinInetHTTPChannel; - AROBinMessage: TROBinMessage; - ACoService: TRORemoteService; -begin - if ATargetURL = '' then - raise Exception.Create('No se ha indicado la URL del servidor (HayConexion)'); - - AHTTPChannel := TROWinInetHTTPChannel.Create(Self); - AROBinMessage := TROBinMessage.Create(Self); - ACoService := TRORemoteService.Create(Self); - - ShowHourglassCursor; - try - with AHTTPChannel do - begin - Name := 'HTTPChannel'; - if Length(ATargetURL) > 0 then - TargetURL := ATargetURL - else - TargetURL := ROChannel.TargetURL; - end; - - with ACoService do - begin - ServiceName := 'srvLogin'; - ACoService.Message := AROBinMessage; - Channel := AHTTPChannel; - end; - - try - AHTTPChannel.Connected := True; - (ACoService as IsrvLogin).Ping; - AHTTPChannel.Connected := False; - Result := True; - except - Result := False; - end; - finally - AHTTPChannel.Connected := False; - FreeAndNil(AHTTPChannel); - FreeAndNil(ACoService); - FreeAndNil(AROBinMessage); - HideHourglassCursor; - end; -end; - -procedure TdmConexion.ROChannelFailure(Sender: TROTransportChannel; - anException: Exception; var Retry: Boolean); -begin - if (Pos(anException.Message, IE_OFFLINE_ERROR) > 0) then - begin - // Preguntar al usuario si se quiere conectar - if InternetGoOnline(PAnsiChar(ROChannel.TargetURL), GetDesktopWindow(), 0) then - Retry := True // Si el usuario pulsa en 'Conectar' reintentar la operación - else - Abort; // Si el usuario pulsa en 'Seguir desconectado' parar todo - end -end; - -procedure TdmConexion.SetTargetURL(const Value: String); -begin - ROChannel.TargetURL := Value; -end; - -end. diff --git a/Source/Base/uDataModuleConfiguracion.dcu b/Source/Base/uDataModuleConfiguracion.dcu deleted file mode 100644 index 59ff9989..00000000 Binary files a/Source/Base/uDataModuleConfiguracion.dcu and /dev/null differ diff --git a/Source/Base/uDataModuleConfiguracion.dfm b/Source/Base/uDataModuleConfiguracion.dfm deleted file mode 100644 index 1a2bfb5a..00000000 --- a/Source/Base/uDataModuleConfiguracion.dfm +++ /dev/null @@ -1,31 +0,0 @@ -object dmConfiguracion: TdmConfiguracion - OldCreateOrder = False - Height = 160 - Width = 275 - object ROChannel: TROWinInetHTTPChannel - UserAgent = 'RemObjects SDK' - TargetURL = 'http://localhost:8099/bin' - Login.Username = '123456' - Login.Password = 'sa' - KeepConnection = True - ServerLocators = <> - DispatchOptions = [] - Left = 42 - Top = 16 - end - object ROMessage: TROBinMessage - Left = 42 - Top = 88 - end - object DABINAdapter: TDABINAdapter - Left = 136 - Top = 16 - end - object RORemoteService: TRORemoteService - Message = ROMessage - Channel = ROChannel - ServiceName = 'srvConfiguracion' - Left = 136 - Top = 88 - end -end diff --git a/Source/Base/uDataModuleConfiguracion.pas b/Source/Base/uDataModuleConfiguracion.pas deleted file mode 100644 index a8127ae7..00000000 --- a/Source/Base/uDataModuleConfiguracion.pas +++ /dev/null @@ -1,71 +0,0 @@ -unit uDataModuleConfiguracion; - -interface - -uses - SysUtils, Classes, uROServiceComponent, uRORemoteService, uDADataTable, - uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel, IniFiles, - uDADataStreamer; - -const - SERVER_URL = 'http://localhost:8099/bin'; - -type - TdmConfiguracion = class(TDataModule) - ROChannel: TROWinInetHTTPChannel; - ROMessage: TROBinMessage; - DABINAdapter: TDABINAdapter; - RORemoteService: TRORemoteService; - private - FIniFile : TIniFile; - public - function DarValor(const CODIGO: String): Variant; - procedure LeerConfiguracion; - procedure SalvarConfiguracion; - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -var - dmConfiguracion: TdmConfiguracion; - -implementation - -{$R *.dfm} - -uses - Forms, FactuGES_Intf, Variants, uDataModuleConexion; - - -{ TdmConfiguracion } - -constructor TdmConfiguracion.Create(AOwner: TComponent); -begin - inherited; - FIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini' ) ); -end; - -function TdmConfiguracion.DarValor(const CODIGO: String): Variant; -begin - Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO); -end; - -destructor TdmConfiguracion.Destroy; -begin - FreeAndNIL(FIniFile); - inherited; -end; - -procedure TdmConfiguracion.LeerConfiguracion; -begin - with FIniFile do - dmConexion.TargetURL := ReadString('Server', 'URL', SERVER_URL); -end; - -procedure TdmConfiguracion.SalvarConfiguracion; -begin - with FIniFile do - WriteString('Server', 'URL', dmConexion.TargetURL); -end; - -end. diff --git a/Source/Base/uDataTableUtils.dcu b/Source/Base/uDataTableUtils.dcu deleted file mode 100644 index 1ebd04ec..00000000 Binary files a/Source/Base/uDataTableUtils.dcu and /dev/null differ diff --git a/Source/Base/uDateUtils.dcu b/Source/Base/uDateUtils.dcu deleted file mode 100644 index 600b98fc..00000000 Binary files a/Source/Base/uDateUtils.dcu and /dev/null differ diff --git a/Source/Base/uDialogUtils.dcu b/Source/Base/uDialogUtils.dcu deleted file mode 100644 index 5da4cebe..00000000 Binary files a/Source/Base/uDialogUtils.dcu and /dev/null differ diff --git a/Source/Base/uEditorRegistryUtils.dcu b/Source/Base/uEditorRegistryUtils.dcu deleted file mode 100644 index 6a1cf67b..00000000 Binary files a/Source/Base/uEditorRegistryUtils.dcu and /dev/null differ diff --git a/Source/Base/uExceptions.pas b/Source/Base/uExceptions.pas deleted file mode 100644 index d3e6e852..00000000 --- a/Source/Base/uExceptions.pas +++ /dev/null @@ -1,20 +0,0 @@ -unit uExceptions; - -interface - -uses - uDADataTable; - -const - AUF_FKVIOLATION = 'violation of FOREIGN KEY'; - AUF_HAVEVALUE = 'must have a value'; - -type - IApplyUpdateFailedException = interface - ['{B090A762-3D65-405E-A810-14DB4F6E8F82}'] - procedure ShowApplyUpdateFailed (const Error: EDAApplyUpdateFailed); - end; - -implementation - -end. diff --git a/Source/Base/uGridUtils.dcu b/Source/Base/uGridUtils.dcu deleted file mode 100644 index ecc0863f..00000000 Binary files a/Source/Base/uGridUtils.dcu and /dev/null differ diff --git a/Source/Base/uInfoProjectUtils.dcu b/Source/Base/uInfoProjectUtils.dcu deleted file mode 100644 index a088f835..00000000 Binary files a/Source/Base/uInfoProjectUtils.dcu and /dev/null differ diff --git a/Source/Base/uInformeRegistryUtils.dcu b/Source/Base/uInformeRegistryUtils.dcu deleted file mode 100644 index bfe79c29..00000000 Binary files a/Source/Base/uInformeRegistryUtils.dcu and /dev/null differ diff --git a/Source/Base/uIntegerListUtils.dcu b/Source/Base/uIntegerListUtils.dcu deleted file mode 100644 index 9c43d0c6..00000000 Binary files a/Source/Base/uIntegerListUtils.dcu and /dev/null differ diff --git a/Source/Base/uMD5.dcu b/Source/Base/uMD5.dcu deleted file mode 100644 index 7ddabcdb..00000000 Binary files a/Source/Base/uMD5.dcu and /dev/null differ diff --git a/Source/Base/uNumUtils.dcu b/Source/Base/uNumUtils.dcu deleted file mode 100644 index b3e9001c..00000000 Binary files a/Source/Base/uNumUtils.dcu and /dev/null differ diff --git a/Source/Base/uPasswordUtils.dcu b/Source/Base/uPasswordUtils.dcu deleted file mode 100644 index a3dfab3b..00000000 Binary files a/Source/Base/uPasswordUtils.dcu and /dev/null differ diff --git a/Source/Base/uSistemaFunc.dcu b/Source/Base/uSistemaFunc.dcu deleted file mode 100644 index 593b0693..00000000 Binary files a/Source/Base/uSistemaFunc.dcu and /dev/null differ diff --git a/Source/Base/uViewRegistryUtils.dcu b/Source/Base/uViewRegistryUtils.dcu deleted file mode 100644 index c1056eaf..00000000 Binary files a/Source/Base/uViewRegistryUtils.dcu and /dev/null differ diff --git a/Source/Cliente/uAcercaDe.dcu b/Source/Cliente/uAcercaDe.dcu deleted file mode 100644 index fcbd9fba..00000000 Binary files a/Source/Cliente/uAcercaDe.dcu and /dev/null differ diff --git a/Source/Cliente/uClienteUtils.dcu b/Source/Cliente/uClienteUtils.dcu deleted file mode 100644 index bd95e971..00000000 Binary files a/Source/Cliente/uClienteUtils.dcu and /dev/null differ diff --git a/Source/Cliente/uMainMenuController.dcu b/Source/Cliente/uMainMenuController.dcu deleted file mode 100644 index a1f011fe..00000000 Binary files a/Source/Cliente/uMainMenuController.dcu and /dev/null differ diff --git a/Source/Cliente/uMenuUtils.dcu b/Source/Cliente/uMenuUtils.dcu deleted file mode 100644 index 1f374a4f..00000000 Binary files a/Source/Cliente/uMenuUtils.dcu and /dev/null differ diff --git a/Source/Cliente/uNavPaneController.dcu b/Source/Cliente/uNavPaneController.dcu deleted file mode 100644 index db588ebd..00000000 Binary files a/Source/Cliente/uNavPaneController.dcu and /dev/null differ diff --git a/Source/Cliente/uNavPaneUtils.dcu b/Source/Cliente/uNavPaneUtils.dcu deleted file mode 100644 index c6d3edd2..00000000 Binary files a/Source/Cliente/uNavPaneUtils.dcu and /dev/null differ diff --git a/Source/Cliente/uPantallaPrincipal.dcu b/Source/Cliente/uPantallaPrincipal.dcu deleted file mode 100644 index 264fea8b..00000000 Binary files a/Source/Cliente/uPantallaPrincipal.dcu and /dev/null differ diff --git a/Source/Cliente/uSplash.dcu b/Source/Cliente/uSplash.dcu deleted file mode 100644 index 23bc24b7..00000000 Binary files a/Source/Cliente/uSplash.dcu and /dev/null differ diff --git a/Source/Lib/Base.dcp b/Source/Lib/Base.dcp deleted file mode 100644 index d5e87b4d..00000000 Binary files a/Source/Lib/Base.dcp and /dev/null differ diff --git a/Source/Lib/ControllerBase.dcp b/Source/Lib/ControllerBase.dcp deleted file mode 100644 index bd9a0797..00000000 Binary files a/Source/Lib/ControllerBase.dcp and /dev/null differ diff --git a/Source/Lib/GUIBase.dcp b/Source/Lib/GUIBase.dcp deleted file mode 100644 index 00af78c1..00000000 Binary files a/Source/Lib/GUIBase.dcp and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dcu b/Source/Modulos/Contactos/Controller/Contactos_controller.dcu deleted file mode 100644 index dda9cb1b..00000000 Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uClientesController.dcu b/Source/Modulos/Contactos/Controller/uClientesController.dcu deleted file mode 100644 index ebb817e4..00000000 Binary files a/Source/Modulos/Contactos/Controller/uClientesController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uContactosController.dcu b/Source/Modulos/Contactos/Controller/uContactosController.dcu deleted file mode 100644 index 54055b77..00000000 Binary files a/Source/Modulos/Contactos/Controller/uContactosController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.dcu b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.dcu deleted file mode 100644 index d840bc99..00000000 Binary files a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uEmpleadosController.dcu b/Source/Modulos/Contactos/Controller/uEmpleadosController.dcu deleted file mode 100644 index 9113f6b3..00000000 Binary files a/Source/Modulos/Contactos/Controller/uEmpleadosController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.dcu b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.dcu deleted file mode 100644 index fceb1fb9..00000000 Binary files a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.dcu b/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.dcu deleted file mode 100644 index c7cd1f3a..00000000 Binary files a/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uGruposClienteController.dcu b/Source/Modulos/Contactos/Controller/uGruposClienteController.dcu deleted file mode 100644 index 0b22da98..00000000 Binary files a/Source/Modulos/Contactos/Controller/uGruposClienteController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uGruposEmpleadoController.dcu b/Source/Modulos/Contactos/Controller/uGruposEmpleadoController.dcu deleted file mode 100644 index d7048c38..00000000 Binary files a/Source/Modulos/Contactos/Controller/uGruposEmpleadoController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uGruposProveedorController.dcu b/Source/Modulos/Contactos/Controller/uGruposProveedorController.dcu deleted file mode 100644 index b420f562..00000000 Binary files a/Source/Modulos/Contactos/Controller/uGruposProveedorController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorCliente.dcu b/Source/Modulos/Contactos/Controller/uIEditorCliente.dcu deleted file mode 100644 index 88a6170c..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorCliente.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorClientes.dcu b/Source/Modulos/Contactos/Controller/uIEditorClientes.dcu deleted file mode 100644 index aa81ad39..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorClientes.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorContacto.dcu b/Source/Modulos/Contactos/Controller/uIEditorContacto.dcu deleted file mode 100644 index 2ac3b590..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorContacto.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorContactos.dcu b/Source/Modulos/Contactos/Controller/uIEditorContactos.dcu deleted file mode 100644 index 7ec79075..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorContactos.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorDireccionContacto.dcu b/Source/Modulos/Contactos/Controller/uIEditorDireccionContacto.dcu deleted file mode 100644 index f4f038cd..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorDireccionContacto.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorElegirClientes.dcu b/Source/Modulos/Contactos/Controller/uIEditorElegirClientes.dcu deleted file mode 100644 index a10fcd68..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorElegirClientes.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorElegirContactos.dcu b/Source/Modulos/Contactos/Controller/uIEditorElegirContactos.dcu deleted file mode 100644 index c409241d..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorElegirContactos.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorElegirDireccionEntrega.dcu b/Source/Modulos/Contactos/Controller/uIEditorElegirDireccionEntrega.dcu deleted file mode 100644 index 43f56d92..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorElegirDireccionEntrega.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorElegirProveedores.dcu b/Source/Modulos/Contactos/Controller/uIEditorElegirProveedores.dcu deleted file mode 100644 index b5827b97..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorElegirProveedores.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorEmpleado.dcu b/Source/Modulos/Contactos/Controller/uIEditorEmpleado.dcu deleted file mode 100644 index 6e0495aa..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorEmpleado.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorEmpleados.dcu b/Source/Modulos/Contactos/Controller/uIEditorEmpleados.dcu deleted file mode 100644 index 3573d4e2..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorEmpleados.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorEtiquetasContactosPreview.dcu b/Source/Modulos/Contactos/Controller/uIEditorEtiquetasContactosPreview.dcu deleted file mode 100644 index c9339d84..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorEtiquetasContactosPreview.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorFichasEmpleadoPreview.dcu b/Source/Modulos/Contactos/Controller/uIEditorFichasEmpleadoPreview.dcu deleted file mode 100644 index 7d87a13f..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorFichasEmpleadoPreview.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorGruposCliente.dcu b/Source/Modulos/Contactos/Controller/uIEditorGruposCliente.dcu deleted file mode 100644 index 6d64462b..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorGruposCliente.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorGruposEmpleado.dcu b/Source/Modulos/Contactos/Controller/uIEditorGruposEmpleado.dcu deleted file mode 100644 index 2be28012..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorGruposEmpleado.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorGruposProveedor.dcu b/Source/Modulos/Contactos/Controller/uIEditorGruposProveedor.dcu deleted file mode 100644 index 51d16c49..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorGruposProveedor.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorProveedor.dcu b/Source/Modulos/Contactos/Controller/uIEditorProveedor.dcu deleted file mode 100644 index c31a1781..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorProveedor.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uIEditorProveedores.dcu b/Source/Modulos/Contactos/Controller/uIEditorProveedores.dcu deleted file mode 100644 index 2647a869..00000000 Binary files a/Source/Modulos/Contactos/Controller/uIEditorProveedores.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.dcu b/Source/Modulos/Contactos/Controller/uProveedoresController.dcu deleted file mode 100644 index 9e8af0dd..00000000 Binary files a/Source/Modulos/Contactos/Controller/uProveedoresController.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dcu b/Source/Modulos/Contactos/Data/Contactos_data.dcu deleted file mode 100644 index bef6db63..00000000 Binary files a/Source/Modulos/Contactos/Data/Contactos_data.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dcu b/Source/Modulos/Contactos/Data/uDataModuleClientes.dcu deleted file mode 100644 index 43091386..00000000 Binary files a/Source/Modulos/Contactos/Data/uDataModuleClientes.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.dcu b/Source/Modulos/Contactos/Data/uDataModuleContactos.dcu deleted file mode 100644 index 251d6a58..00000000 Binary files a/Source/Modulos/Contactos/Data/uDataModuleContactos.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dcu b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dcu deleted file mode 100644 index 2025a205..00000000 Binary files a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dcu b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dcu deleted file mode 100644 index 5733e8e7..00000000 Binary files a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dcu b/Source/Modulos/Contactos/Model/Contactos_model.dcu deleted file mode 100644 index 769b7459..00000000 Binary files a/Source/Modulos/Contactos/Model/Contactos_model.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.dcu b/Source/Modulos/Contactos/Model/schContactosClient_Intf.dcu deleted file mode 100644 index 5424cea6..00000000 Binary files a/Source/Modulos/Contactos/Model/schContactosClient_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.dcu b/Source/Modulos/Contactos/Model/schContactosServer_Intf.dcu deleted file mode 100644 index d299e3f3..00000000 Binary files a/Source/Modulos/Contactos/Model/schContactosServer_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uBizCategoriasContacto.dcu b/Source/Modulos/Contactos/Model/uBizCategoriasContacto.dcu deleted file mode 100644 index 1f7d7b0f..00000000 Binary files a/Source/Modulos/Contactos/Model/uBizCategoriasContacto.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uBizClientesDescuentos.dcu b/Source/Modulos/Contactos/Model/uBizClientesDescuentos.dcu deleted file mode 100644 index 70c46f12..00000000 Binary files a/Source/Modulos/Contactos/Model/uBizClientesDescuentos.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uBizContactos.dcu b/Source/Modulos/Contactos/Model/uBizContactos.dcu deleted file mode 100644 index c8d18e08..00000000 Binary files a/Source/Modulos/Contactos/Model/uBizContactos.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uBizContactosDatosBancarios.dcu b/Source/Modulos/Contactos/Model/uBizContactosDatosBancarios.dcu deleted file mode 100644 index 7d5d8607..00000000 Binary files a/Source/Modulos/Contactos/Model/uBizContactosDatosBancarios.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uBizDireccionesContacto.dcu b/Source/Modulos/Contactos/Model/uBizDireccionesContacto.dcu deleted file mode 100644 index 88969b92..00000000 Binary files a/Source/Modulos/Contactos/Model/uBizDireccionesContacto.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uBizGruposCliente.dcu b/Source/Modulos/Contactos/Model/uBizGruposCliente.dcu deleted file mode 100644 index 6a75fe33..00000000 Binary files a/Source/Modulos/Contactos/Model/uBizGruposCliente.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uBizGruposEmpleado.dcu b/Source/Modulos/Contactos/Model/uBizGruposEmpleado.dcu deleted file mode 100644 index 8a1c006c..00000000 Binary files a/Source/Modulos/Contactos/Model/uBizGruposEmpleado.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uBizGruposProveedor.dcu b/Source/Modulos/Contactos/Model/uBizGruposProveedor.dcu deleted file mode 100644 index 91954735..00000000 Binary files a/Source/Modulos/Contactos/Model/uBizGruposProveedor.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uIDataModuleClientes.dcu b/Source/Modulos/Contactos/Model/uIDataModuleClientes.dcu deleted file mode 100644 index 71da9d12..00000000 Binary files a/Source/Modulos/Contactos/Model/uIDataModuleClientes.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uIDataModuleContactos.dcu b/Source/Modulos/Contactos/Model/uIDataModuleContactos.dcu deleted file mode 100644 index f527b552..00000000 Binary files a/Source/Modulos/Contactos/Model/uIDataModuleContactos.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uIDataModuleEmpleados.dcu b/Source/Modulos/Contactos/Model/uIDataModuleEmpleados.dcu deleted file mode 100644 index 1e06e37f..00000000 Binary files a/Source/Modulos/Contactos/Model/uIDataModuleEmpleados.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uIDataModuleEtiquetasContactosReport.dcu b/Source/Modulos/Contactos/Model/uIDataModuleEtiquetasContactosReport.dcu deleted file mode 100644 index 0cec5241..00000000 Binary files a/Source/Modulos/Contactos/Model/uIDataModuleEtiquetasContactosReport.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uIDataModuleFichasEmpleadoReport.dcu b/Source/Modulos/Contactos/Model/uIDataModuleFichasEmpleadoReport.dcu deleted file mode 100644 index 40f201a3..00000000 Binary files a/Source/Modulos/Contactos/Model/uIDataModuleFichasEmpleadoReport.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uIDataModuleProveedores.dcu b/Source/Modulos/Contactos/Model/uIDataModuleProveedores.dcu deleted file mode 100644 index 29111e14..00000000 Binary files a/Source/Modulos/Contactos/Model/uIDataModuleProveedores.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Model/uRegimenIVAUtils.dcu b/Source/Modulos/Contactos/Model/uRegimenIVAUtils.dcu deleted file mode 100644 index 69c25a2e..00000000 Binary files a/Source/Modulos/Contactos/Model/uRegimenIVAUtils.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Views/uViewContactos.dcu b/Source/Modulos/Contactos/Views/uViewContactos.dcu deleted file mode 100644 index 208163e2..00000000 Binary files a/Source/Modulos/Contactos/Views/uViewContactos.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.bdsproj b/Source/Modulos/Empresas/Controller/Empresas_controller.bdsproj deleted file mode 100644 index a78ba8bd..00000000 --- a/Source/Modulos/Empresas/Controller/Empresas_controller.bdsproj +++ /dev/null @@ -1,497 +0,0 @@ - - - - - - - - - - - - Empresas_controller.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - JCL Debug IDE extension - JCL Project Analyzer - JCL Open and Save IDE dialogs with favorite folders - - - - True - diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.dcu b/Source/Modulos/Empresas/Controller/Empresas_controller.dcu deleted file mode 100644 index 0f2820b3..00000000 Binary files a/Source/Modulos/Empresas/Controller/Empresas_controller.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.dpk b/Source/Modulos/Empresas/Controller/Empresas_controller.dpk deleted file mode 100644 index a865e3c1..00000000 --- a/Source/Modulos/Empresas/Controller/Empresas_controller.dpk +++ /dev/null @@ -1,42 +0,0 @@ -package Empresas_controller; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - Base, - GUIBase, - Empresas_model, - Empresas_data; - -contains - uEmpresasController in 'uEmpresasController.pas', - uIEditorEmpresas in 'View\uIEditorEmpresas.pas', - uIEditorEmpresa in 'View\uIEditorEmpresa.pas', - uDatosBancariosEmpresaController in 'uDatosBancariosEmpresaController.pas', - uIEditorDatosBancarioEmpresa in 'View\uIEditorDatosBancarioEmpresa.pas'; - -end. diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.dpk.bak b/Source/Modulos/Empresas/Controller/Empresas_controller.dpk.bak deleted file mode 100644 index 737775e4..00000000 --- a/Source/Modulos/Empresas/Controller/Empresas_controller.dpk.bak +++ /dev/null @@ -1,42 +0,0 @@ -package Empresas_controller; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} - -requires - rtl, - vcl, - Base, - GUIBase, - Empresas_model, - Empresas_data; - -contains - uEmpresasController in 'uEmpresasController.pas', - uIEditorEmpresas in 'View\uIEditorEmpresas.pas', - uIEditorEmpresa in 'View\uIEditorEmpresa.pas', - uDatosBancariosEmpresaController in 'uDatosBancariosEmpresaController.pas', - uIEditorDatosBancarioEmpresa in 'View\uIEditorDatosBancarioEmpresa.pas'; - -end. diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.dproj b/Source/Modulos/Empresas/Controller/Empresas_controller.dproj deleted file mode 100644 index 6eeab254..00000000 --- a/Source/Modulos/Empresas/Controller/Empresas_controller.dproj +++ /dev/null @@ -1,561 +0,0 @@ - - - - {e4ad187e-0c3a-462a-b435-f69475af2f56} - Empresas_controller.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Empresas_controller.bpl - - - 7.0 - False - False - 0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - RELEASE - - - 7.0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - - - - JCL Debug IDE extension - JCL Project Analyzer - JCL Open and Save IDE dialogs with favorite folders - Empresas_controller.dpk - - - - - MainSource - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.drc b/Source/Modulos/Empresas/Controller/Empresas_controller.drc deleted file mode 100644 index fccdf2aa..00000000 --- a/Source/Modulos/Empresas/Controller/Empresas_controller.drc +++ /dev/null @@ -1,16 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Controller\Empresas_controller.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Controller\Empresas_controller.drf */ diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.identcache b/Source/Modulos/Empresas/Controller/Empresas_controller.identcache deleted file mode 100644 index ff64937b..00000000 Binary files a/Source/Modulos/Empresas/Controller/Empresas_controller.identcache and /dev/null differ diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.rc b/Source/Modulos/Empresas/Controller/Empresas_controller.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Empresas/Controller/Empresas_controller.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.res b/Source/Modulos/Empresas/Controller/Empresas_controller.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Empresas/Controller/Empresas_controller.res and /dev/null differ diff --git a/Source/Modulos/Empresas/Controller/ModelSupport_Empresas_controller/Empresas_controller.prjconfig b/Source/Modulos/Empresas/Controller/ModelSupport_Empresas_controller/Empresas_controller.prjconfig deleted file mode 100644 index c8f28340..00000000 --- a/Source/Modulos/Empresas/Controller/ModelSupport_Empresas_controller/Empresas_controller.prjconfig +++ /dev/null @@ -1,2 +0,0 @@ - - \ No newline at end of file diff --git a/Source/Modulos/Empresas/Controller/ModelSupport_Empresas_controller/default.txaPackage b/Source/Modulos/Empresas/Controller/ModelSupport_Empresas_controller/default.txaPackage deleted file mode 100644 index e69de29b..00000000 diff --git a/Source/Modulos/Empresas/Controller/View/uIEditorDatosBancarioEmpresa.pas b/Source/Modulos/Empresas/Controller/View/uIEditorDatosBancarioEmpresa.pas deleted file mode 100644 index b4d4d6b4..00000000 --- a/Source/Modulos/Empresas/Controller/View/uIEditorDatosBancarioEmpresa.pas +++ /dev/null @@ -1,28 +0,0 @@ -unit uIEditorDatosBancarioEmpresa; - -interface - -uses - uBizEmpresasDatosBancarios, uDatosBancariosEmpresaController; - -type - IEditorDatosBancariosEmpresa = interface - ['{486525AD-953D-453D-AF70-2FBBF39B5188}'] - - function GetController : IDatosBancariosEmpresaController; - procedure SetController (const Value : IDatosBancariosEmpresaController); - property Controller : IDatosBancariosEmpresaController read GetController - write SetController; - - function GetDatosBancarios: IBizEmpresasDatosBancarios; - procedure SetDatosBancarios(const Value: IBizEmpresasDatosBancarios); - property DatosBancarios: IBizEmpresasDatosBancarios read GetDatosBancarios write SetDatosBancarios; - - function ShowModal : Integer; - procedure Release; - end; - - -implementation - -end. diff --git a/Source/Modulos/Empresas/Controller/View/uIEditorEmpresa.pas b/Source/Modulos/Empresas/Controller/View/uIEditorEmpresa.pas deleted file mode 100644 index 9c90c847..00000000 --- a/Source/Modulos/Empresas/Controller/View/uIEditorEmpresa.pas +++ /dev/null @@ -1,23 +0,0 @@ -unit uIEditorEmpresa; - -interface - -uses - uEditorDBItem, uBizEmpresas, uEmpresasController; - -type - IEditorEmpresa = interface(IEditorDBItem) - ['{88FA3FF3-ACDC-4BCC-ADCE-6BA890E55220}'] - function GetController : IEmpresasController; - procedure SetController (const Value : IEmpresasController); - property Controller : IEmpresasController read GetController - write SetController; - - function GetEmpresa: IBizEmpresa; - procedure SetEmpresa(const Value: IBizEmpresa); - property Empresa: IBizEmpresa read GetEmpresa write SetEmpresa; - end; - -implementation - -end. diff --git a/Source/Modulos/Empresas/Controller/View/uIEditorEmpresas.pas b/Source/Modulos/Empresas/Controller/View/uIEditorEmpresas.pas deleted file mode 100644 index 305881f2..00000000 --- a/Source/Modulos/Empresas/Controller/View/uIEditorEmpresas.pas +++ /dev/null @@ -1,24 +0,0 @@ -unit uIEditorEmpresas; - -interface - -uses - uEditorGridBase, uBizEmpresas, uEmpresasController; - -type - IEditorEmpresas = interface(IEditorGridBase) - ['{F4E5DE2F-C08A-47DA-827B-78BD31861BD0}'] - function GetEmpresas: IBizEmpresa; - procedure SetEmpresas(const Value: IBizEmpresa); - property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas; - - function GetController : IEmpresasController; - procedure SetController (const Value : IEmpresasController); - property Controller : IEmpresasController read GetController - write SetController; - end; - - -implementation - -end. diff --git a/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.dcu b/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.dcu deleted file mode 100644 index 1fc58fd4..00000000 Binary files a/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.pas b/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.pas deleted file mode 100644 index 64e6b6a7..00000000 --- a/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.pas +++ /dev/null @@ -1,71 +0,0 @@ -unit uDatosBancariosEmpresaController; - -interface - -uses - Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, - uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas; - -type - IDatosBancariosEmpresaController = interface - ['{E9B0313E-7B16-420A-B47E-20E42E96BAC6}'] - procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios); - end; - - TDatosBancariosEmpresaController = class(TInterfacedObject, IDatosBancariosEmpresaController) - private - FDataModule : IDataModuleEmpresas; - public - procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios); - constructor Create; virtual; - destructor Destroy; override; - end; - -implementation - -{ TDatosBancariosEmpresaController } - -uses - uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa, - uEditorRegistryUtils, cxControls; - -constructor TDatosBancariosEmpresaController.Create; -begin - inherited; - FDataModule := TDataModuleEmpresas.Create(Nil); -end; - -destructor TDatosBancariosEmpresaController.Destroy; -begin - FDataModule := Nil; - inherited; -end; - -procedure TDatosBancariosEmpresaController.Ver( - ADatosBancarios : IBizEmpresasDatosBancarios); -var - AEditor : IEditorDatosBancariosEmpresa; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorDatosBancariosEmpresa', IEditorDatosBancariosEmpresa, AEditor); - with AEditor do - begin - DatosBancarios := ADatosBancarios; - Controller := Self; - end; - finally - HideHourglassCursor; - end; - - if Assigned(AEditor) then - try - AEditor.ShowModal; - AEditor.Release; - finally - AEditor := NIL; - end; -end; - -end. diff --git a/Source/Modulos/Empresas/Controller/uEmpresasController.dcu b/Source/Modulos/Empresas/Controller/uEmpresasController.dcu deleted file mode 100644 index 7cde31c7..00000000 Binary files a/Source/Modulos/Empresas/Controller/uEmpresasController.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Controller/uEmpresasController.pas b/Source/Modulos/Empresas/Controller/uEmpresasController.pas deleted file mode 100644 index 799f8852..00000000 --- a/Source/Modulos/Empresas/Controller/uEmpresasController.pas +++ /dev/null @@ -1,242 +0,0 @@ -unit uEmpresasController; - -interface - - -uses - Windows, Forms, Classes, Controls, Contnrs, SysUtils, - uBizEmpresas, uIDataModuleEmpresas, uDADataTable; - -type - IEmpresasController = interface - ['{2F0AB21C-4F19-446E-87C4-B9C1038850FC}'] - function Buscar(const ID: Integer): IBizEmpresa; - function BuscarTodos: IBizEmpresa; - procedure Ver(AEmpresa : IBizEmpresa); - procedure VerTodos(AEmpresas: IBizEmpresa); - function Nuevo : IBizEmpresa; - procedure Anadir(AEmpresa : IBizEmpresa); - function Eliminar(const ID : Integer): Boolean; overload; - function Eliminar(AEmpresa : IBizEmpresa): Boolean; overload; - function Guardar(AEmpresa : IBizEmpresa): Boolean; - procedure DescartarCambios(AEmpresa : IBizEmpresa); - function Existe(const ID: Integer) : Boolean; - function ToStringList(AEmpresa : IBizEmpresa) : TStringList; - end; - - TEmpresasController = class(TInterfacedObject, IEmpresasController) - protected - FDataModule : IDataModuleEmpresas; - function ValidarEmpresa(AEmpresa : IBizEmpresa): Boolean; virtual; - public - constructor Create; virtual; - destructor Destroy; override; - - function Eliminar(const ID : Integer): Boolean; overload; - function Eliminar(AEmpresa : IBizEmpresa): Boolean; overload; - function Guardar(AEmpresa : IBizEmpresa): Boolean; - procedure DescartarCambios(AEmpresa : IBizEmpresa); virtual; - function Existe(const ID: Integer) : Boolean; virtual; - procedure Anadir(AEmpresa : IBizEmpresa); virtual; - - function Buscar(const ID: Integer): IBizEmpresa; virtual; - function BuscarTodos: IBizEmpresa; virtual; - function Nuevo : IBizEmpresa; virtual; - procedure Ver(AEmpresa : IBizEmpresa); virtual; - procedure VerTodos(AEmpresas: IBizEmpresa); virtual; - function ToStringList(AEmpresa : IBizEmpresa) : TStringList; virtual; - end; - -implementation - -uses - uEditorRegistryUtils, cxControls, DB, - uDataModuleEmpresas, uIEditorEmpresa; - -{ TEmpresasController } - -procedure TEmpresasController.Anadir(AEmpresa: IBizEmpresa); -begin - AEmpresa.Insert; -end; - -function TEmpresasController.Buscar(const ID: Integer): IBizEmpresa; -begin - Result := FDataModule.GetItem(ID) -end; - -function TEmpresasController.BuscarTodos: IBizEmpresa; -begin - Result := FDataModule.GetItems; -end; - -constructor TEmpresasController.Create; -begin - FDataModule := TDataModuleEmpresas.Create(Nil); -end; - -procedure TEmpresasController.DescartarCambios(AEmpresa: IBizEmpresa); -begin - if not Assigned(AEmpresa) then - raise Exception.Create ('Empresa no asignada'); - - ShowHourglassCursor; - try - if (AEmpresa.State in dsEditModes) then - AEmpresa.Cancel; - - AEmpresa.DataTable.CancelUpdates; - finally - HideHourglassCursor; - end; -end; - -destructor TEmpresasController.Destroy; -begin - FDataModule := NIL; - inherited; -end; - -function TEmpresasController.Eliminar(AEmpresa: IBizEmpresa): Boolean; -begin - Result := False; - - if not Assigned(AEmpresa) then - raise Exception.Create ('Empresa no asignada'); - - ShowHourglassCursor; - try - if (AEmpresa.State in dsEditModes) then - AEmpresa.Cancel; - - AEmpresa.Delete; - AEmpresa.DataTable.ApplyUpdates; - - Result := True; - finally - HideHourglassCursor; - end; -end; - -function TEmpresasController.Eliminar(const ID: Integer): Boolean; -var - AEmpresa : IBizEmpresa; -begin - AEmpresa := Buscar(ID); - - if not Assigned(AEmpresa) then - raise Exception.Create(Format('No se ha encontrado la empresa con ID = %d', [ID])); - - Result := Eliminar(AEmpresa); - AEmpresa := NIL; -end; - -function TEmpresasController.Existe(const ID: Integer): Boolean; -var - AEmpresa : IBizEmpresa; -begin - try - AEmpresa := Buscar(ID); - Result := Assigned(AEmpresa) and (AEmpresa.ID = ID); - finally - AEmpresa := NIL; - end; -end; - -function TEmpresasController.Guardar(AEmpresa: IBizEmpresa): Boolean; -begin - Result := False; - - if ValidarEmpresa(AEmpresa) then - begin - ShowHourglassCursor; - try - AEmpresa.DataTable.ApplyUpdates; - Result := True; - finally - HideHourglassCursor; - end; - end; -end; - -function TEmpresasController.Nuevo: IBizEmpresa; -begin - Result := FDataModule.NewItem; -end; - -function TEmpresasController.ToStringList(AEmpresa: IBizEmpresa): TStringList; -begin - Result := TStringList.Create; - with Result do - begin - AEmpresa.DataTable.Active := True; - AEmpresa.First; - while not AEmpresa.EOF do - begin - Add(AEmpresa.NOMBRE); - AEmpresa.Next; - end; - end; -end; - -function TEmpresasController.ValidarEmpresa(AEmpresa: IBizEmpresa): Boolean; -begin - Result := False; - - if not Assigned(AEmpresa) then - raise Exception.Create ('Empresa no asignada'); - - if (AEmpresa.DataTable.State in dsEditModes) then - AEmpresa.DataTable.Post; - - if Length(AEmpresa.NOMBRE) = 0 then - raise Exception.Create('Debe indicar al menos el nombre de la empresa.'); - - // Asegurarse de valores en campos "automáticos" -{ AEmpresa.Edit; - AEmpresa.USUARIO := dmUsuarios.LoginInfo.Usuario; - AEmpresa.Post;} - - Result := True; -end; - -procedure TEmpresasController.Ver(AEmpresa: IBizEmpresa); -var - AEditor : IEditorEmpresa; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorEmpresa', IEditorEmpresa, AEditor); - with AEditor do - begin - Empresa := AEmpresa; - Controller := Self; - end; - finally - HideHourglassCursor; - end; - - if Assigned(AEditor) then - try - AEditor.ShowModal; - AEditor.Release; - finally - AEditor := NIL; - end; -end; - -procedure TEmpresasController.VerTodos(AEmpresas: IBizEmpresa); -{var - AEditor : IEditorClientes;} -begin -{ CreateEditor('EditorEmpresas', IEditorClientes, AEditor); - with AEditor do - begin - Contactos := AContactos; - Controller := Self; - ShowEmbedded; - end;} -end; - -end. diff --git a/Source/Modulos/Empresas/Controller/uIEditorDatosBancarioEmpresa.dcu b/Source/Modulos/Empresas/Controller/uIEditorDatosBancarioEmpresa.dcu deleted file mode 100644 index f311f324..00000000 Binary files a/Source/Modulos/Empresas/Controller/uIEditorDatosBancarioEmpresa.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Controller/uIEditorEmpresa.dcu b/Source/Modulos/Empresas/Controller/uIEditorEmpresa.dcu deleted file mode 100644 index ed38567c..00000000 Binary files a/Source/Modulos/Empresas/Controller/uIEditorEmpresa.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Controller/uIEditorEmpresas.dcu b/Source/Modulos/Empresas/Controller/uIEditorEmpresas.dcu deleted file mode 100644 index 76b0750e..00000000 Binary files a/Source/Modulos/Empresas/Controller/uIEditorEmpresas.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Data/Empresas_data.bdsproj b/Source/Modulos/Empresas/Data/Empresas_data.bdsproj deleted file mode 100644 index edfe9d47..00000000 --- a/Source/Modulos/Empresas/Data/Empresas_data.bdsproj +++ /dev/null @@ -1,493 +0,0 @@ - - - - - - - - - - - - Empresas_data.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - Empresas - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - False - diff --git a/Source/Modulos/Empresas/Data/Empresas_data.dcu b/Source/Modulos/Empresas/Data/Empresas_data.dcu deleted file mode 100644 index 955a0ebc..00000000 Binary files a/Source/Modulos/Empresas/Data/Empresas_data.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Data/Empresas_data.dpk b/Source/Modulos/Empresas/Data/Empresas_data.dpk deleted file mode 100644 index 50a986bd..00000000 --- a/Source/Modulos/Empresas/Data/Empresas_data.dpk +++ /dev/null @@ -1,37 +0,0 @@ -package Empresas_data; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Empresas'} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - Base, - Empresas_model; - -contains - uDataModuleEmpresas in 'uDataModuleEmpresas.pas' {DataModuleEmpresas}; - -end. diff --git a/Source/Modulos/Empresas/Data/Empresas_data.dpk.bak b/Source/Modulos/Empresas/Data/Empresas_data.dpk.bak deleted file mode 100644 index b8ec5547..00000000 --- a/Source/Modulos/Empresas/Data/Empresas_data.dpk.bak +++ /dev/null @@ -1,37 +0,0 @@ -package Empresas_data; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Empresas'} -{$IMPLICITBUILD OFF} - -requires - rtl, - vcl, - Base, - Empresas_model; - -contains - uDataModuleEmpresas in 'uDataModuleEmpresas.pas' {DataModuleEmpresas}; - -end. diff --git a/Source/Modulos/Empresas/Data/Empresas_data.dproj b/Source/Modulos/Empresas/Data/Empresas_data.dproj deleted file mode 100644 index 5050bb35..00000000 --- a/Source/Modulos/Empresas/Data/Empresas_data.dproj +++ /dev/null @@ -1,544 +0,0 @@ - - - - {13ceca01-95fe-4f1e-80ed-6dcc5ef31c88} - Empresas_data.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Empresas_data.bpl - - - 7.0 - False - False - 0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - RELEASE - - - 7.0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseEmpresasFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Empresas_data.dpk - - - - - MainSource - - - - - - -
DataModuleEmpresas
- - - - - diff --git a/Source/Modulos/Empresas/Data/Empresas_data.drc b/Source/Modulos/Empresas/Data/Empresas_data.drc deleted file mode 100644 index 4726c4a4..00000000 --- a/Source/Modulos/Empresas/Data/Empresas_data.drc +++ /dev/null @@ -1,17 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Data\uDataModuleEmpresas.DFM */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Data\Empresas_data.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Data\Empresas_data.drf */ diff --git a/Source/Modulos/Empresas/Data/Empresas_data.identcache b/Source/Modulos/Empresas/Data/Empresas_data.identcache deleted file mode 100644 index e17e8d99..00000000 Binary files a/Source/Modulos/Empresas/Data/Empresas_data.identcache and /dev/null differ diff --git a/Source/Modulos/Empresas/Data/Empresas_data.rc b/Source/Modulos/Empresas/Data/Empresas_data.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Empresas/Data/Empresas_data.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Empresas/Data/Empresas_data.res b/Source/Modulos/Empresas/Data/Empresas_data.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Empresas/Data/Empresas_data.res and /dev/null differ diff --git a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dcu b/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dcu deleted file mode 100644 index a67e44f8..00000000 Binary files a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dfm b/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dfm deleted file mode 100644 index c0305bb9..00000000 --- a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dfm +++ /dev/null @@ -1,292 +0,0 @@ -object DataModuleEmpresas: TDataModuleEmpresas - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 267 - Width = 402 - object RORemoteService: TRORemoteService - Message = dmConexion.ROMessage - Channel = dmConexion.ROChannel - ServiceName = 'srvEmpresas' - Left = 48 - Top = 24 - end - object rda_Empresas: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 176 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 96 - end - object tbl_Empresas: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_EMPRESAS_ID' - LogChanges = False - Required = True - ReadOnly = True - ServerAutoRefresh = True - DictionaryEntry = 'Empresas_ID' - InPrimaryKey = True - end - item - Name = 'NIF_CIF' - DataType = datString - Size = 15 - DisplayLabel = 'CIF' - DictionaryEntry = 'Empresas_NIF_CIF' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DisplayLabel = 'Nombre' - DictionaryEntry = 'Empresas_NOMBRE' - end - item - Name = 'RAZON_SOCIAL' - DataType = datString - Size = 255 - DisplayLabel = 'Raz'#243'n Social' - DictionaryEntry = 'Empresas_RAZON_SOCIAL' - end - item - Name = 'CALLE' - DataType = datString - Size = 255 - DisplayLabel = 'Calle' - DictionaryEntry = 'Empresas_CALLE' - end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - DisplayLabel = 'Poblaci'#243'n' - DictionaryEntry = 'Empresas_POBLACION' - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Provincia' - DictionaryEntry = 'Empresas_PROVINCIA' - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - DisplayLabel = 'C'#243'd. postal' - DictionaryEntry = 'Empresas_CODIGO_POSTAL' - end - item - Name = 'TELEFONO_1' - DataType = datString - Size = 25 - DisplayLabel = 'Tel'#233'fono 1' - DictionaryEntry = 'Empresas_TELEFONO_1' - end - item - Name = 'TELEFONO_2' - DataType = datString - Size = 25 - DisplayLabel = 'Tel'#233'fono 2' - DictionaryEntry = 'Empresas_TELEFONO_2' - end - item - Name = 'MOVIL_1' - DataType = datString - Size = 25 - DisplayLabel = 'M'#243'vil 1' - DictionaryEntry = 'Empresas_MOVIL_1' - end - item - Name = 'MOVIL_2' - DataType = datString - Size = 25 - DisplayLabel = 'M'#243'vil 2' - DictionaryEntry = 'Empresas_MOVIL_2' - end - item - Name = 'FAX' - DataType = datString - Size = 25 - DisplayLabel = 'Fax' - DictionaryEntry = 'Empresas_FAX' - end - item - Name = 'EMAIL_1' - DataType = datString - Size = 255 - DisplayLabel = 'E-mail 1' - DictionaryEntry = 'Empresas_EMAIL_1' - end - item - Name = 'EMAIL_2' - DataType = datString - Size = 255 - DisplayLabel = 'E-mail 2' - DictionaryEntry = 'Empresas_EMAIL_2' - end - item - Name = 'PAGINA_WEB' - DataType = datString - Size = 255 - DisplayLabel = 'P'#225'gina web' - DictionaryEntry = 'Empresas_PAGINA_WEB' - end - item - Name = 'NOTAS' - DataType = datMemo - DisplayLabel = 'Notas' - DictionaryEntry = 'Empresas_NOTAS' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DisplayLabel = 'Empresas_FECHA_ALTA' - DictionaryEntry = 'Empresas_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DisplayLabel = 'Empresas_FECHA_MODIFICACION' - DictionaryEntry = 'Empresas_FECHA_MODIFICACION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DisplayLabel = 'Empresas_USUARIO' - DictionaryEntry = 'Empresas_USUARIO' - end - item - Name = 'LOGOTIPO' - DataType = datBlob - BlobType = dabtBlob - DisplayLabel = 'Logotipo' - DictionaryEntry = 'Empresas_LOGOTIPO' - end - item - Name = 'REGISTRO_MERCANTIL' - DataType = datString - Size = 255 - DisplayLabel = 'Registro mercantil' - DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL' - end - item - Name = 'IVA' - DataType = datFloat - DictionaryEntry = 'Empresas_IVA' - end> - Params = <> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = rda_Empresas - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Empresas' - Left = 176 - Top = 96 - end - object ds_Empresas: TDADataSource - DataSet = tbl_Empresas.Dataset - DataTable = tbl_Empresas - Left = 176 - Top = 168 - end - object tbl_EmpresasDatosBanco: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID' - LogChanges = False - Required = True - ReadOnly = True - ServerAutoRefresh = True - DictionaryEntry = 'EmpresasDatosBanco_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DisplayLabel = 'EmpresasDatosBanco_ID_EMPRESA' - DictionaryEntry = 'EmpresasDatosBanco_ID_EMPRESA' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DisplayLabel = 'Nombre del banco' - DictionaryEntry = 'EmpresasDatosBanco_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DisplayLabel = 'Entidad' - DictionaryEntry = 'EmpresasDatosBanco_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DisplayLabel = 'Sucursal' - DictionaryEntry = 'EmpresasDatosBanco_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'EmpresasDatosBanco_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DisplayLabel = 'Cuenta' - DictionaryEntry = 'EmpresasDatosBanco_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DisplayLabel = 'Sufijo 19' - DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DisplayLabel = 'Sufijo 58' - DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N58' - end> - Params = <> - MasterMappingMode = mmWhere - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = rda_Empresas - MasterSource = ds_Empresas - MasterFields = 'ID' - DetailFields = 'ID_EMPRESA' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'EmpresasDatosBanco' - Left = 288 - Top = 96 - end - object ds_EmpresasDatosBanco: TDADataSource - DataSet = tbl_EmpresasDatosBanco.Dataset - DataTable = tbl_EmpresasDatosBanco - Left = 288 - Top = 168 - end -end diff --git a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.pas b/Source/Modulos/Empresas/Data/uDataModuleEmpresas.pas deleted file mode 100644 index a2070ab3..00000000 --- a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.pas +++ /dev/null @@ -1,149 +0,0 @@ -unit uDataModuleEmpresas; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDADataTable, uDAScriptingProvider, - uDACDSDataTable, uDABINAdapter, uRORemoteService, - uROClient, uROBinMessage, uROWinInetHttpChannel, uDADesigntimeCall, - uIDataModuleEmpresas, uBizEmpresas, uBizEmpresasDatosBancarios, - uDARemoteDataAdapter, uDADataStreamer, uRODynamicRequest, uDAInterfaces, - uDAMemDataTable, uDABin2DataStreamer, uIntegerListUtils; - -type - TDataModuleEmpresas = class(TDataModule, IDataModuleEmpresas) - RORemoteService: TRORemoteService; - rda_Empresas: TDARemoteDataAdapter; - Bin2DataStreamer: TDABin2DataStreamer; - tbl_Empresas: TDAMemDataTable; - ds_Empresas: TDADataSource; - tbl_EmpresasDatosBanco: TDAMemDataTable; - ds_EmpresasDatosBanco: TDADataSource; - procedure DAClientDataModuleCreate(Sender: TObject); - private - FEmpresaActual: IBizEmpresa; - - function _GetDatosBancarios : IBizEmpresasDatosBancarios; - -{ function GetEmpresas: TIntegerList; - - procedure SetEmpresaActual(const Value: IBizEmpresa); - function GetIDEmpresaActual: Integer; - procedure SetIDEmpresaActual(const Value: Integer);} - public - function GetItem(const ID : Integer) : IBizEmpresa; - function NewItem : IBizEmpresa; - function GetItems : IBizEmpresa; - -{ property IDEmpresaActual : Integer read GetIDEmpresaActual write SetIDEmpresaActual; - property EmpresaActual : IBizEmpresa read FEmpresaActual write SetEmpresaActual; - property Empresas : TIntegerList read GetEmpresas;} - - end; - - -implementation - -{$R *.DFM} - -uses - uDataModuleConexion, uDataTableUtils, - FactuGES_Intf, schEmpresasClient_Intf, cxControls; - -procedure TDataModuleEmpresas.DAClientDataModuleCreate(Sender: TObject); -begin - FEmpresaActual := nil; - RORemoteService.Channel := dmConexion.Channel; - RORemoteService.Message := dmConexion.Message; -end; - -function TDataModuleEmpresas.GetItem(const ID: Integer): IBizEmpresa; -begin - ShowHourglassCursor; - try - Result := Self.GetItems; - - with Result.DataTable.DynamicWhere do - begin - Clear; - // (ID = :ID) - Expression := NewBinaryExpression(NewField('', fld_EmpresasID), - NewConstant(ID, datInteger), dboEqual); - end; - finally - HideHourglassCursor; - end; -end; - -function TDataModuleEmpresas.GetItems: IBizEmpresa; -var - AEmpresa : TDAMemDataTable; -begin - ShowHourglassCursor; - try - AEmpresa := CloneDataTable(tbl_Empresas); - AEmpresa.BusinessRulesID := BIZ_CLIENT_EMPRESA; - - with TBizEmpresa(AEmpresa.BusinessEventsObj) do - begin - DatosBancarios := _GetDatosBancarios; - end; - - Result := (AEmpresa as IBizEmpresa); - finally - HideHourglassCursor; - end; -end; - -function TDataModuleEmpresas.NewItem: IBizEmpresa; -begin - Result := GetItem(ID_NULO) -end; - -{procedure TDataModuleEmpresas.SetEmpresaActual(const Value: IBizEmpresa); -begin - FEmpresaActual := Value; - FEmpresaActual.DataTable.Active := True; -end; - -procedure TDataModuleEmpresas.SetIDEmpresaActual(const Value: Integer); -var - AEmpresasController : IEmpresasController; - AEmpresa : IBizEmpresa; -begin - AEmpresasController := TEmpresasController.Create; - AEmpresa := AEmpresasController.Buscar(Value); - AEmpresa.DataTable.Active := True; - - if not AEmpresa.IsEmpty then - begin - FEmpresaActual := AEmpresa; - FEmpresaActual.DataTable.Active := True; - end - else - FEmpresaActual := NIL; -end;} - -function TDataModuleEmpresas._GetDatosBancarios: IBizEmpresasDatosBancarios; -var - ADatosBancarios : TDAMemDataTable; -begin - ShowHourglassCursor; - try - ADatosBancarios := CloneDataTable(tbl_EmpresasDatosBanco); - with ADatosBancarios do - begin - BusinessRulesID := BIZ_CLIENT_EMPRESAS_DATOS_BANCARIOS; - DetailOptions := DetailOptions - - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; - end; - Result := (ADatosBancarios as IBizEmpresasDatosBancarios); - finally - HideHourglassCursor; - end; - -end; - -initialization - -end. \ No newline at end of file diff --git a/Source/Modulos/Empresas/Empresas_Group.bdsgroup b/Source/Modulos/Empresas/Empresas_Group.bdsgroup deleted file mode 100644 index 3fefbff7..00000000 --- a/Source/Modulos/Empresas/Empresas_Group.bdsgroup +++ /dev/null @@ -1,31 +0,0 @@ - - - - - - - - - - - ..\..\Base\Base.bdsproj - ..\..\Base\GUIBase\GUIBase.bdsproj - ..\..\Base\Usuarios\Usuarios.bdsproj - Model\Empresas_model.bdsproj - Data\Empresas_data.bdsproj - Controller\Empresas_controller.bdsproj - Views\Empresas_view.bdsproj - Plugin\Empresas_plugin.bdsproj - Test\Empresas_Tests.bdsproj - Base.bpl GUIBase.bpl Usuarios.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Empresas_view.bpl Empresas_plugin.bpl Empresas_Tests.exe - - - - - - - - - - diff --git a/Source/Modulos/Empresas/Empresas_Group.groupproj b/Source/Modulos/Empresas/Empresas_Group.groupproj deleted file mode 100644 index 57016711..00000000 --- a/Source/Modulos/Empresas/Empresas_Group.groupproj +++ /dev/null @@ -1,106 +0,0 @@ - - - {f8b3d728-de77-47ab-94ad-f92e28df9e6b} - - - - - - - - - - Model\Empresas_model.dproj;Data\Empresas_data.dproj;Controller\Empresas_controller.dproj - - - - - - Default.Personality - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Source/Modulos/Empresas/Model/Data/uIDataModuleEmpresas.pas b/Source/Modulos/Empresas/Model/Data/uIDataModuleEmpresas.pas deleted file mode 100644 index e87571fa..00000000 --- a/Source/Modulos/Empresas/Model/Data/uIDataModuleEmpresas.pas +++ /dev/null @@ -1,19 +0,0 @@ -unit uIDataModuleEmpresas; - -interface - -uses - SysUtils, Classes, - uBizEmpresas; - -type - IDataModuleEmpresas = interface - ['{681FD37D-8C67-47F1-8286-2B6EFE95CE7D}'] - function GetItem(const ID : Integer) : IBizEmpresa; - function NewItem : IBizEmpresa; - function GetItems : IBizEmpresa; - end; - -implementation - -end. diff --git a/Source/Modulos/Empresas/Model/Empresas_model.bdsproj b/Source/Modulos/Empresas/Model/Empresas_model.bdsproj deleted file mode 100644 index 84e8891d..00000000 --- a/Source/Modulos/Empresas/Model/Empresas_model.bdsproj +++ /dev/null @@ -1,497 +0,0 @@ - - - - - - - - - - - - Empresas_model.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - Empresas - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - JCL Debug IDE extension - JCL Project Analyzer - JCL Open and Save IDE dialogs with favorite folders - - - - False - diff --git a/Source/Modulos/Empresas/Model/Empresas_model.dcu b/Source/Modulos/Empresas/Model/Empresas_model.dcu deleted file mode 100644 index 70e0100c..00000000 Binary files a/Source/Modulos/Empresas/Model/Empresas_model.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Model/Empresas_model.dpk b/Source/Modulos/Empresas/Model/Empresas_model.dpk deleted file mode 100644 index 0e3f2242..00000000 --- a/Source/Modulos/Empresas/Model/Empresas_model.dpk +++ /dev/null @@ -1,41 +0,0 @@ -package Empresas_model; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Empresas'} -{$IMPLICITBUILD ON} - -requires - rtl, - dbrtl, - vcl, - Base; - -contains - uBizEmpresas in 'uBizEmpresas.pas', - uIDataModuleEmpresas in 'Data\uIDataModuleEmpresas.pas', - uBizEmpresasDatosBancarios in 'uBizEmpresasDatosBancarios.pas', - schEmpresasClient_Intf in 'schEmpresasClient_Intf.pas', - schEmpresasServer_Intf in 'schEmpresasServer_Intf.pas'; - -end. diff --git a/Source/Modulos/Empresas/Model/Empresas_model.dpk.bak b/Source/Modulos/Empresas/Model/Empresas_model.dpk.bak deleted file mode 100644 index e88656a5..00000000 --- a/Source/Modulos/Empresas/Model/Empresas_model.dpk.bak +++ /dev/null @@ -1,41 +0,0 @@ -package Empresas_model; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Empresas'} -{$IMPLICITBUILD OFF} - -requires - rtl, - dbrtl, - vcl, - Base; - -contains - uBizEmpresas in 'uBizEmpresas.pas', - uIDataModuleEmpresas in 'Data\uIDataModuleEmpresas.pas', - uBizEmpresasDatosBancarios in 'uBizEmpresasDatosBancarios.pas', - schEmpresasClient_Intf in 'schEmpresasClient_Intf.pas', - schEmpresasServer_Intf in 'schEmpresasServer_Intf.pas'; - -end. diff --git a/Source/Modulos/Empresas/Model/Empresas_model.dproj b/Source/Modulos/Empresas/Model/Empresas_model.dproj deleted file mode 100644 index 20021a77..00000000 --- a/Source/Modulos/Empresas/Model/Empresas_model.dproj +++ /dev/null @@ -1,552 +0,0 @@ - - - - {a7225a8d-f40d-4878-9a27-c5de0e7cb638} - Empresas_model.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Empresas_model.bpl - - - 7.0 - False - False - 0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - RELEASE - - - 7.0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseEmpresasTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - JCL Debug IDE extension - JCL Project Analyzer - JCL Open and Save IDE dialogs with favorite folders - Empresas_model.dpk - - - - - MainSource - - - - - - - - - - - - - diff --git a/Source/Modulos/Empresas/Model/Empresas_model.drc b/Source/Modulos/Empresas/Model/Empresas_model.drc deleted file mode 100644 index 82183bfb..00000000 --- a/Source/Modulos/Empresas/Model/Empresas_model.drc +++ /dev/null @@ -1,16 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Model\Empresas_model.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Model\Empresas_model.drf */ diff --git a/Source/Modulos/Empresas/Model/Empresas_model.identcache b/Source/Modulos/Empresas/Model/Empresas_model.identcache deleted file mode 100644 index 67d5ed77..00000000 Binary files a/Source/Modulos/Empresas/Model/Empresas_model.identcache and /dev/null differ diff --git a/Source/Modulos/Empresas/Model/Empresas_model.rc b/Source/Modulos/Empresas/Model/Empresas_model.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Empresas/Model/Empresas_model.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Empresas/Model/Empresas_model.res b/Source/Modulos/Empresas/Model/Empresas_model.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Empresas/Model/Empresas_model.res and /dev/null differ diff --git a/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.dcu b/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.dcu deleted file mode 100644 index 83185105..00000000 Binary files a/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.pas b/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.pas deleted file mode 100644 index e75719a7..00000000 --- a/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.pas +++ /dev/null @@ -1,1243 +0,0 @@ -unit schEmpresasClient_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; - -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_Empresas = '{339ECEE2-0E9D-4AFD-9CCF-7991FCAFFC44}'; - RID_EmpresasDatosBanco = '{97535864-08DF-42D3-9334-2009E15B6DE5}'; - - { Data table names } - nme_Empresas = 'Empresas'; - nme_EmpresasDatosBanco = 'EmpresasDatosBanco'; - - { Empresas fields } - fld_EmpresasID = 'ID'; - fld_EmpresasNIF_CIF = 'NIF_CIF'; - fld_EmpresasNOMBRE = 'NOMBRE'; - fld_EmpresasRAZON_SOCIAL = 'RAZON_SOCIAL'; - fld_EmpresasCALLE = 'CALLE'; - fld_EmpresasPOBLACION = 'POBLACION'; - fld_EmpresasPROVINCIA = 'PROVINCIA'; - fld_EmpresasCODIGO_POSTAL = 'CODIGO_POSTAL'; - fld_EmpresasTELEFONO_1 = 'TELEFONO_1'; - fld_EmpresasTELEFONO_2 = 'TELEFONO_2'; - fld_EmpresasMOVIL_1 = 'MOVIL_1'; - fld_EmpresasMOVIL_2 = 'MOVIL_2'; - fld_EmpresasFAX = 'FAX'; - fld_EmpresasEMAIL_1 = 'EMAIL_1'; - fld_EmpresasEMAIL_2 = 'EMAIL_2'; - fld_EmpresasPAGINA_WEB = 'PAGINA_WEB'; - fld_EmpresasNOTAS = 'NOTAS'; - fld_EmpresasFECHA_ALTA = 'FECHA_ALTA'; - fld_EmpresasFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_EmpresasUSUARIO = 'USUARIO'; - fld_EmpresasLOGOTIPO = 'LOGOTIPO'; - fld_EmpresasREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL'; - fld_EmpresasIVA = 'IVA'; - - { Empresas field indexes } - idx_EmpresasID = 0; - idx_EmpresasNIF_CIF = 1; - idx_EmpresasNOMBRE = 2; - idx_EmpresasRAZON_SOCIAL = 3; - idx_EmpresasCALLE = 4; - idx_EmpresasPOBLACION = 5; - idx_EmpresasPROVINCIA = 6; - idx_EmpresasCODIGO_POSTAL = 7; - idx_EmpresasTELEFONO_1 = 8; - idx_EmpresasTELEFONO_2 = 9; - idx_EmpresasMOVIL_1 = 10; - idx_EmpresasMOVIL_2 = 11; - idx_EmpresasFAX = 12; - idx_EmpresasEMAIL_1 = 13; - idx_EmpresasEMAIL_2 = 14; - idx_EmpresasPAGINA_WEB = 15; - idx_EmpresasNOTAS = 16; - idx_EmpresasFECHA_ALTA = 17; - idx_EmpresasFECHA_MODIFICACION = 18; - idx_EmpresasUSUARIO = 19; - idx_EmpresasLOGOTIPO = 20; - idx_EmpresasREGISTRO_MERCANTIL = 21; - idx_EmpresasIVA = 22; - - { EmpresasDatosBanco fields } - fld_EmpresasDatosBancoID = 'ID'; - fld_EmpresasDatosBancoID_EMPRESA = 'ID_EMPRESA'; - fld_EmpresasDatosBancoNOMBRE = 'NOMBRE'; - fld_EmpresasDatosBancoENTIDAD = 'ENTIDAD'; - fld_EmpresasDatosBancoSUCURSAL = 'SUCURSAL'; - fld_EmpresasDatosBancoDC = 'DC'; - fld_EmpresasDatosBancoCUENTA = 'CUENTA'; - fld_EmpresasDatosBancoSUFIJO_N19 = 'SUFIJO_N19'; - fld_EmpresasDatosBancoSUFIJO_N58 = 'SUFIJO_N58'; - - { EmpresasDatosBanco field indexes } - idx_EmpresasDatosBancoID = 0; - idx_EmpresasDatosBancoID_EMPRESA = 1; - idx_EmpresasDatosBancoNOMBRE = 2; - idx_EmpresasDatosBancoENTIDAD = 3; - idx_EmpresasDatosBancoSUCURSAL = 4; - idx_EmpresasDatosBancoDC = 5; - idx_EmpresasDatosBancoCUENTA = 6; - idx_EmpresasDatosBancoSUFIJO_N19 = 7; - idx_EmpresasDatosBancoSUFIJO_N58 = 8; - -type - { IEmpresas } - IEmpresas = interface(IDAStronglyTypedDataTable) - ['{96DF5DB9-5264-4B33-BC6D-F6A8119C40F2}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetNIF_CIFValue: String; - procedure SetNIF_CIFValue(const aValue: String); - function GetNIF_CIFIsNull: Boolean; - procedure SetNIF_CIFIsNull(const aValue: Boolean); - function GetNOMBREValue: String; - procedure SetNOMBREValue(const aValue: String); - function GetNOMBREIsNull: Boolean; - procedure SetNOMBREIsNull(const aValue: Boolean); - function GetRAZON_SOCIALValue: String; - procedure SetRAZON_SOCIALValue(const aValue: String); - function GetRAZON_SOCIALIsNull: Boolean; - procedure SetRAZON_SOCIALIsNull(const aValue: Boolean); - function GetCALLEValue: String; - procedure SetCALLEValue(const aValue: String); - function GetCALLEIsNull: Boolean; - procedure SetCALLEIsNull(const aValue: Boolean); - function GetPOBLACIONValue: String; - procedure SetPOBLACIONValue(const aValue: String); - function GetPOBLACIONIsNull: Boolean; - procedure SetPOBLACIONIsNull(const aValue: Boolean); - function GetPROVINCIAValue: String; - procedure SetPROVINCIAValue(const aValue: String); - function GetPROVINCIAIsNull: Boolean; - procedure SetPROVINCIAIsNull(const aValue: Boolean); - function GetCODIGO_POSTALValue: String; - procedure SetCODIGO_POSTALValue(const aValue: String); - function GetCODIGO_POSTALIsNull: Boolean; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); - function GetTELEFONO_1Value: String; - procedure SetTELEFONO_1Value(const aValue: String); - function GetTELEFONO_1IsNull: Boolean; - procedure SetTELEFONO_1IsNull(const aValue: Boolean); - function GetTELEFONO_2Value: String; - procedure SetTELEFONO_2Value(const aValue: String); - function GetTELEFONO_2IsNull: Boolean; - procedure SetTELEFONO_2IsNull(const aValue: Boolean); - function GetMOVIL_1Value: String; - procedure SetMOVIL_1Value(const aValue: String); - function GetMOVIL_1IsNull: Boolean; - procedure SetMOVIL_1IsNull(const aValue: Boolean); - function GetMOVIL_2Value: String; - procedure SetMOVIL_2Value(const aValue: String); - function GetMOVIL_2IsNull: Boolean; - procedure SetMOVIL_2IsNull(const aValue: Boolean); - function GetFAXValue: String; - procedure SetFAXValue(const aValue: String); - function GetFAXIsNull: Boolean; - procedure SetFAXIsNull(const aValue: Boolean); - function GetEMAIL_1Value: String; - procedure SetEMAIL_1Value(const aValue: String); - function GetEMAIL_1IsNull: Boolean; - procedure SetEMAIL_1IsNull(const aValue: Boolean); - function GetEMAIL_2Value: String; - procedure SetEMAIL_2Value(const aValue: String); - function GetEMAIL_2IsNull: Boolean; - procedure SetEMAIL_2IsNull(const aValue: Boolean); - function GetPAGINA_WEBValue: String; - procedure SetPAGINA_WEBValue(const aValue: String); - function GetPAGINA_WEBIsNull: Boolean; - procedure SetPAGINA_WEBIsNull(const aValue: Boolean); - function GetNOTASValue: IROStrings; - function GetNOTASIsNull: Boolean; - procedure SetNOTASIsNull(const aValue: Boolean); - function GetFECHA_ALTAValue: DateTime; - procedure SetFECHA_ALTAValue(const aValue: DateTime); - function GetFECHA_ALTAIsNull: Boolean; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); - function GetFECHA_MODIFICACIONValue: DateTime; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetFECHA_MODIFICACIONIsNull: Boolean; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); - function GetUSUARIOValue: String; - procedure SetUSUARIOValue(const aValue: String); - function GetUSUARIOIsNull: Boolean; - procedure SetUSUARIOIsNull(const aValue: Boolean); - function GetLOGOTIPOValue: IROStream; - function GetLOGOTIPOIsNull: Boolean; - procedure SetLOGOTIPOIsNull(const aValue: Boolean); - function GetREGISTRO_MERCANTILValue: String; - procedure SetREGISTRO_MERCANTILValue(const aValue: String); - function GetREGISTRO_MERCANTILIsNull: Boolean; - procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); - function GetIVAValue: Float; - procedure SetIVAValue(const aValue: Float); - function GetIVAIsNull: Boolean; - procedure SetIVAIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; - property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property RAZON_SOCIAL: String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue; - property RAZON_SOCIALIsNull: Boolean read GetRAZON_SOCIALIsNull write SetRAZON_SOCIALIsNull; - property CALLE: String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; - property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; - property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; - property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; - property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; - property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; - property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; - property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; - property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; - property FAX: String read GetFAXValue write SetFAXValue; - property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; - property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; - property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; - property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; - property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; - property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; - property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; - property NOTAS: IROStrings read GetNOTASValue; - property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property LOGOTIPO: IROStream read GetLOGOTIPOValue; - property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull; - property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue; - property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; - property IVA: Float read GetIVAValue write SetIVAValue; - property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; - end; - - { TEmpresasDataTableRules } - TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas) - private - f_NOTAS: IROStrings; - f_LOGOTIPO: IROStream; - procedure NOTAS_OnChange(Sender: TObject); - procedure LOGOTIPO_OnChange(Sender: TObject); - 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; - function GetNIF_CIFValue: String; virtual; - procedure SetNIF_CIFValue(const aValue: String); virtual; - function GetNIF_CIFIsNull: Boolean; virtual; - procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetRAZON_SOCIALValue: String; virtual; - procedure SetRAZON_SOCIALValue(const aValue: String); virtual; - function GetRAZON_SOCIALIsNull: Boolean; virtual; - procedure SetRAZON_SOCIALIsNull(const aValue: Boolean); virtual; - function GetCALLEValue: String; virtual; - procedure SetCALLEValue(const aValue: String); virtual; - function GetCALLEIsNull: Boolean; virtual; - procedure SetCALLEIsNull(const aValue: Boolean); virtual; - function GetPOBLACIONValue: String; virtual; - procedure SetPOBLACIONValue(const aValue: String); virtual; - function GetPOBLACIONIsNull: Boolean; virtual; - procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; - function GetPROVINCIAValue: String; virtual; - procedure SetPROVINCIAValue(const aValue: String); virtual; - function GetPROVINCIAIsNull: Boolean; virtual; - procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; - function GetCODIGO_POSTALValue: String; virtual; - procedure SetCODIGO_POSTALValue(const aValue: String); virtual; - function GetCODIGO_POSTALIsNull: Boolean; virtual; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; - function GetTELEFONO_1Value: String; virtual; - procedure SetTELEFONO_1Value(const aValue: String); virtual; - function GetTELEFONO_1IsNull: Boolean; virtual; - procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; - function GetTELEFONO_2Value: String; virtual; - procedure SetTELEFONO_2Value(const aValue: String); virtual; - function GetTELEFONO_2IsNull: Boolean; virtual; - procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; - function GetMOVIL_1Value: String; virtual; - procedure SetMOVIL_1Value(const aValue: String); virtual; - function GetMOVIL_1IsNull: Boolean; virtual; - procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; - function GetMOVIL_2Value: String; virtual; - procedure SetMOVIL_2Value(const aValue: String); virtual; - function GetMOVIL_2IsNull: Boolean; virtual; - procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; - function GetFAXValue: String; virtual; - procedure SetFAXValue(const aValue: String); virtual; - function GetFAXIsNull: Boolean; virtual; - procedure SetFAXIsNull(const aValue: Boolean); virtual; - function GetEMAIL_1Value: String; virtual; - procedure SetEMAIL_1Value(const aValue: String); virtual; - function GetEMAIL_1IsNull: Boolean; virtual; - procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; - function GetEMAIL_2Value: String; virtual; - procedure SetEMAIL_2Value(const aValue: String); virtual; - function GetEMAIL_2IsNull: Boolean; virtual; - procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; - function GetPAGINA_WEBValue: String; virtual; - procedure SetPAGINA_WEBValue(const aValue: String); virtual; - function GetPAGINA_WEBIsNull: Boolean; virtual; - procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; - function GetNOTASValue: IROStrings; virtual; - function GetNOTASIsNull: Boolean; virtual; - procedure SetNOTASIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - function GetUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - function GetLOGOTIPOValue: IROStream; virtual; - function GetLOGOTIPOIsNull: Boolean; virtual; - procedure SetLOGOTIPOIsNull(const aValue: Boolean); virtual; - function GetREGISTRO_MERCANTILValue: String; virtual; - procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual; - function GetREGISTRO_MERCANTILIsNull: Boolean; virtual; - procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual; - function GetIVAValue: Float; virtual; - procedure SetIVAValue(const aValue: Float); virtual; - function GetIVAIsNull: Boolean; virtual; - procedure SetIVAIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; - property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property RAZON_SOCIAL: String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue; - property RAZON_SOCIALIsNull: Boolean read GetRAZON_SOCIALIsNull write SetRAZON_SOCIALIsNull; - property CALLE: String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; - property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; - property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; - property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; - property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; - property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; - property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; - property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; - property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; - property FAX: String read GetFAXValue write SetFAXValue; - property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; - property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; - property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; - property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; - property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; - property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; - property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; - property NOTAS: IROStrings read GetNOTASValue; - property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property LOGOTIPO: IROStream read GetLOGOTIPOValue; - property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull; - property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue; - property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; - property IVA: Float read GetIVAValue write SetIVAValue; - property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IEmpresasDatosBanco } - IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) - ['{5653808F-F011-430B-935F-451A93D817DA}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetID_EMPRESAValue: Integer; - procedure SetID_EMPRESAValue(const aValue: Integer); - function GetID_EMPRESAIsNull: Boolean; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); - function GetNOMBREValue: String; - procedure SetNOMBREValue(const aValue: String); - function GetNOMBREIsNull: Boolean; - procedure SetNOMBREIsNull(const aValue: Boolean); - function GetENTIDADValue: String; - procedure SetENTIDADValue(const aValue: String); - function GetENTIDADIsNull: Boolean; - procedure SetENTIDADIsNull(const aValue: Boolean); - function GetSUCURSALValue: String; - procedure SetSUCURSALValue(const aValue: String); - function GetSUCURSALIsNull: Boolean; - procedure SetSUCURSALIsNull(const aValue: Boolean); - function GetDCValue: String; - procedure SetDCValue(const aValue: String); - function GetDCIsNull: Boolean; - procedure SetDCIsNull(const aValue: Boolean); - function GetCUENTAValue: String; - procedure SetCUENTAValue(const aValue: String); - function GetCUENTAIsNull: Boolean; - procedure SetCUENTAIsNull(const aValue: Boolean); - function GetSUFIJO_N19Value: String; - procedure SetSUFIJO_N19Value(const aValue: String); - function GetSUFIJO_N19IsNull: Boolean; - procedure SetSUFIJO_N19IsNull(const aValue: Boolean); - function GetSUFIJO_N58Value: String; - procedure SetSUFIJO_N58Value(const aValue: String); - function GetSUFIJO_N58IsNull: Boolean; - procedure SetSUFIJO_N58IsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; - property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; - property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; - property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; - property DC: String read GetDCValue write SetDCValue; - property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; - property CUENTA: String read GetCUENTAValue write SetCUENTAValue; - property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; - property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; - property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; - end; - - { TEmpresasDatosBancoDataTableRules } - TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco) - 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; - function GetID_EMPRESAValue: Integer; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetENTIDADValue: String; virtual; - procedure SetENTIDADValue(const aValue: String); virtual; - function GetENTIDADIsNull: Boolean; virtual; - procedure SetENTIDADIsNull(const aValue: Boolean); virtual; - function GetSUCURSALValue: String; virtual; - procedure SetSUCURSALValue(const aValue: String); virtual; - function GetSUCURSALIsNull: Boolean; virtual; - procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; - function GetDCValue: String; virtual; - procedure SetDCValue(const aValue: String); virtual; - function GetDCIsNull: Boolean; virtual; - procedure SetDCIsNull(const aValue: Boolean); virtual; - function GetCUENTAValue: String; virtual; - procedure SetCUENTAValue(const aValue: String); virtual; - function GetCUENTAIsNull: Boolean; virtual; - procedure SetCUENTAIsNull(const aValue: Boolean); virtual; - function GetSUFIJO_N19Value: String; virtual; - procedure SetSUFIJO_N19Value(const aValue: String); virtual; - function GetSUFIJO_N19IsNull: Boolean; virtual; - procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual; - function GetSUFIJO_N58Value: String; virtual; - procedure SetSUFIJO_N58Value(const aValue: String); virtual; - function GetSUFIJO_N58IsNull: Boolean; virtual; - procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; - property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; - property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; - property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; - property DC: String read GetDCValue write SetDCValue; - property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; - property CUENTA: String read GetCUENTAValue write SetCUENTAValue; - property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; - property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; - property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants, uROBinaryHelpers; - -{ TEmpresasDataTableRules } -constructor TEmpresasDataTableRules.Create(aDataTable: TDADataTable); -var - StrList: TStringList; - ROStream: TROStream; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := NOTAS_OnChange; - f_NOTAS := NewROStrings(StrList,True); - - ROStream := TROStream.Create; - ROStream.OnChange := LOGOTIPO_OnChange; - f_LOGOTIPO := ROStream; -end; - -destructor TEmpresasDataTableRules.Destroy; -begin - inherited; -end; - -procedure TEmpresasDataTableRules.NOTAS_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_EmpresasNOTAS].AsVariant := TStringList(Sender).Text; -end; - -procedure TEmpresasDataTableRules.LOGOTIPO_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_EmpresasLOGOTIPO].LoadFromStream(TROStream(Sender)); -end; - -function TEmpresasDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_EmpresasID].AsInteger; -end; - -procedure TEmpresasDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_EmpresasID].AsInteger := aValue; -end; - -function TEmpresasDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasID].IsNull; -end; - -procedure TEmpresasDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasID].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetNIF_CIFValue: String; -begin - result := DataTable.Fields[idx_EmpresasNIF_CIF].AsString; -end; - -procedure TEmpresasDataTableRules.SetNIF_CIFValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasNIF_CIF].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetNIF_CIFIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasNIF_CIF].IsNull; -end; - -procedure TEmpresasDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasNIF_CIF].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_EmpresasNOMBRE].AsString; -end; - -procedure TEmpresasDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasNOMBRE].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetNOMBREIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasNOMBRE].IsNull; -end; - -procedure TEmpresasDataTableRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasNOMBRE].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetRAZON_SOCIALValue: String; -begin - result := DataTable.Fields[idx_EmpresasRAZON_SOCIAL].AsString; -end; - -procedure TEmpresasDataTableRules.SetRAZON_SOCIALValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasRAZON_SOCIAL].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetRAZON_SOCIALIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasRAZON_SOCIAL].IsNull; -end; - -procedure TEmpresasDataTableRules.SetRAZON_SOCIALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasRAZON_SOCIAL].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetCALLEValue: String; -begin - result := DataTable.Fields[idx_EmpresasCALLE].AsString; -end; - -procedure TEmpresasDataTableRules.SetCALLEValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasCALLE].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetCALLEIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasCALLE].IsNull; -end; - -procedure TEmpresasDataTableRules.SetCALLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasCALLE].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetPOBLACIONValue: String; -begin - result := DataTable.Fields[idx_EmpresasPOBLACION].AsString; -end; - -procedure TEmpresasDataTableRules.SetPOBLACIONValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasPOBLACION].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetPOBLACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasPOBLACION].IsNull; -end; - -procedure TEmpresasDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasPOBLACION].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetPROVINCIAValue: String; -begin - result := DataTable.Fields[idx_EmpresasPROVINCIA].AsString; -end; - -procedure TEmpresasDataTableRules.SetPROVINCIAValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasPROVINCIA].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetPROVINCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasPROVINCIA].IsNull; -end; - -procedure TEmpresasDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasPROVINCIA].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetCODIGO_POSTALValue: String; -begin - result := DataTable.Fields[idx_EmpresasCODIGO_POSTAL].AsString; -end; - -procedure TEmpresasDataTableRules.SetCODIGO_POSTALValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasCODIGO_POSTAL].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetCODIGO_POSTALIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasCODIGO_POSTAL].IsNull; -end; - -procedure TEmpresasDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasCODIGO_POSTAL].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetTELEFONO_1Value: String; -begin - result := DataTable.Fields[idx_EmpresasTELEFONO_1].AsString; -end; - -procedure TEmpresasDataTableRules.SetTELEFONO_1Value(const aValue: String); -begin - DataTable.Fields[idx_EmpresasTELEFONO_1].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetTELEFONO_1IsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasTELEFONO_1].IsNull; -end; - -procedure TEmpresasDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasTELEFONO_1].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetTELEFONO_2Value: String; -begin - result := DataTable.Fields[idx_EmpresasTELEFONO_2].AsString; -end; - -procedure TEmpresasDataTableRules.SetTELEFONO_2Value(const aValue: String); -begin - DataTable.Fields[idx_EmpresasTELEFONO_2].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetTELEFONO_2IsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasTELEFONO_2].IsNull; -end; - -procedure TEmpresasDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasTELEFONO_2].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetMOVIL_1Value: String; -begin - result := DataTable.Fields[idx_EmpresasMOVIL_1].AsString; -end; - -procedure TEmpresasDataTableRules.SetMOVIL_1Value(const aValue: String); -begin - DataTable.Fields[idx_EmpresasMOVIL_1].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetMOVIL_1IsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasMOVIL_1].IsNull; -end; - -procedure TEmpresasDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasMOVIL_1].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetMOVIL_2Value: String; -begin - result := DataTable.Fields[idx_EmpresasMOVIL_2].AsString; -end; - -procedure TEmpresasDataTableRules.SetMOVIL_2Value(const aValue: String); -begin - DataTable.Fields[idx_EmpresasMOVIL_2].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetMOVIL_2IsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasMOVIL_2].IsNull; -end; - -procedure TEmpresasDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasMOVIL_2].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetFAXValue: String; -begin - result := DataTable.Fields[idx_EmpresasFAX].AsString; -end; - -procedure TEmpresasDataTableRules.SetFAXValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasFAX].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetFAXIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasFAX].IsNull; -end; - -procedure TEmpresasDataTableRules.SetFAXIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasFAX].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetEMAIL_1Value: String; -begin - result := DataTable.Fields[idx_EmpresasEMAIL_1].AsString; -end; - -procedure TEmpresasDataTableRules.SetEMAIL_1Value(const aValue: String); -begin - DataTable.Fields[idx_EmpresasEMAIL_1].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetEMAIL_1IsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasEMAIL_1].IsNull; -end; - -procedure TEmpresasDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasEMAIL_1].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetEMAIL_2Value: String; -begin - result := DataTable.Fields[idx_EmpresasEMAIL_2].AsString; -end; - -procedure TEmpresasDataTableRules.SetEMAIL_2Value(const aValue: String); -begin - DataTable.Fields[idx_EmpresasEMAIL_2].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetEMAIL_2IsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasEMAIL_2].IsNull; -end; - -procedure TEmpresasDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasEMAIL_2].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetPAGINA_WEBValue: String; -begin - result := DataTable.Fields[idx_EmpresasPAGINA_WEB].AsString; -end; - -procedure TEmpresasDataTableRules.SetPAGINA_WEBValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasPAGINA_WEB].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetPAGINA_WEBIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasPAGINA_WEB].IsNull; -end; - -procedure TEmpresasDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasPAGINA_WEB].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetNOTASValue: IROStrings; -begin - result := f_NOTAS; - result.Text := DataTable.Fields[idx_EmpresasNOTAS].AsString; -end; - -function TEmpresasDataTableRules.GetNOTASIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasNOTAS].IsNull; -end; - -procedure TEmpresasDataTableRules.SetNOTASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasNOTAS].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetFECHA_ALTAValue: DateTime; -begin - result := DataTable.Fields[idx_EmpresasFECHA_ALTA].AsDateTime; -end; - -procedure TEmpresasDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_EmpresasFECHA_ALTA].AsDateTime := aValue; -end; - -function TEmpresasDataTableRules.GetFECHA_ALTAIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasFECHA_ALTA].IsNull; -end; - -procedure TEmpresasDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasFECHA_ALTA].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := DataTable.Fields[idx_EmpresasFECHA_MODIFICACION].AsDateTime; -end; - -procedure TEmpresasDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_EmpresasFECHA_MODIFICACION].AsDateTime := aValue; -end; - -function TEmpresasDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasFECHA_MODIFICACION].IsNull; -end; - -procedure TEmpresasDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasFECHA_MODIFICACION].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetUSUARIOValue: String; -begin - result := DataTable.Fields[idx_EmpresasUSUARIO].AsString; -end; - -procedure TEmpresasDataTableRules.SetUSUARIOValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasUSUARIO].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetUSUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasUSUARIO].IsNull; -end; - -procedure TEmpresasDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasUSUARIO].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetLOGOTIPOValue: IROStream; -begin - result := f_LOGOTIPO; - result.Position := 0; - if not Result.InUpdateMode then begin - DataTable.Fields[idx_EmpresasLOGOTIPO].SaveToStream(result); - result.Position := 0; - end; -end; - -function TEmpresasDataTableRules.GetLOGOTIPOIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasLOGOTIPO].IsNull; -end; - -procedure TEmpresasDataTableRules.SetLOGOTIPOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasLOGOTIPO].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetREGISTRO_MERCANTILValue: String; -begin - result := DataTable.Fields[idx_EmpresasREGISTRO_MERCANTIL].AsString; -end; - -procedure TEmpresasDataTableRules.SetREGISTRO_MERCANTILValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasREGISTRO_MERCANTIL].AsString := aValue; -end; - -function TEmpresasDataTableRules.GetREGISTRO_MERCANTILIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasREGISTRO_MERCANTIL].IsNull; -end; - -procedure TEmpresasDataTableRules.SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasREGISTRO_MERCANTIL].AsVariant := Null; -end; - -function TEmpresasDataTableRules.GetIVAValue: Float; -begin - result := DataTable.Fields[idx_EmpresasIVA].AsFloat; -end; - -procedure TEmpresasDataTableRules.SetIVAValue(const aValue: Float); -begin - DataTable.Fields[idx_EmpresasIVA].AsFloat := aValue; -end; - -function TEmpresasDataTableRules.GetIVAIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasIVA].IsNull; -end; - -procedure TEmpresasDataTableRules.SetIVAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasIVA].AsVariant := Null; -end; - - -{ TEmpresasDatosBancoDataTableRules } -constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TEmpresasDatosBancoDataTableRules.Destroy; -begin - inherited; -end; - -function TEmpresasDatosBancoDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoID].AsInteger; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_EmpresasDatosBancoID].AsInteger := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoID].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoID].AsVariant := Null; -end; - -function TEmpresasDatosBancoDataTableRules.GetID_EMPRESAValue: Integer; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoID_EMPRESA].AsInteger; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetID_EMPRESAValue(const aValue: Integer); -begin - DataTable.Fields[idx_EmpresasDatosBancoID_EMPRESA].AsInteger := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetID_EMPRESAIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoID_EMPRESA].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoID_EMPRESA].AsVariant := Null; -end; - -function TEmpresasDatosBancoDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoNOMBRE].AsString; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasDatosBancoNOMBRE].AsString := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetNOMBREIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoNOMBRE].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoNOMBRE].AsVariant := Null; -end; - -function TEmpresasDatosBancoDataTableRules.GetENTIDADValue: String; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoENTIDAD].AsString; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetENTIDADValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasDatosBancoENTIDAD].AsString := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetENTIDADIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoENTIDAD].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetENTIDADIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoENTIDAD].AsVariant := Null; -end; - -function TEmpresasDatosBancoDataTableRules.GetSUCURSALValue: String; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoSUCURSAL].AsString; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetSUCURSALValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasDatosBancoSUCURSAL].AsString := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetSUCURSALIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoSUCURSAL].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetSUCURSALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoSUCURSAL].AsVariant := Null; -end; - -function TEmpresasDatosBancoDataTableRules.GetDCValue: String; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoDC].AsString; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetDCValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasDatosBancoDC].AsString := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetDCIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoDC].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetDCIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoDC].AsVariant := Null; -end; - -function TEmpresasDatosBancoDataTableRules.GetCUENTAValue: String; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoCUENTA].AsString; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetCUENTAValue(const aValue: String); -begin - DataTable.Fields[idx_EmpresasDatosBancoCUENTA].AsString := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetCUENTAIsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoCUENTA].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetCUENTAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoCUENTA].AsVariant := Null; -end; - -function TEmpresasDatosBancoDataTableRules.GetSUFIJO_N19Value: String; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N19].AsString; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetSUFIJO_N19Value(const aValue: String); -begin - DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N19].AsString := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetSUFIJO_N19IsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N19].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetSUFIJO_N19IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N19].AsVariant := Null; -end; - -function TEmpresasDatosBancoDataTableRules.GetSUFIJO_N58Value: String; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N58].AsString; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetSUFIJO_N58Value(const aValue: String); -begin - DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N58].AsString := aValue; -end; - -function TEmpresasDatosBancoDataTableRules.GetSUFIJO_N58IsNull: boolean; -begin - result := DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N58].IsNull; -end; - -procedure TEmpresasDatosBancoDataTableRules.SetSUFIJO_N58IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N58].AsVariant := Null; -end; - - -initialization - RegisterDataTableRules(RID_Empresas, TEmpresasDataTableRules); - RegisterDataTableRules(RID_EmpresasDatosBanco, TEmpresasDatosBancoDataTableRules); - -end. diff --git a/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.dcu b/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.dcu deleted file mode 100644 index db7ea159..00000000 Binary files a/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.pas b/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.pas deleted file mode 100644 index 6f076fb5..00000000 --- a/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.pas +++ /dev/null @@ -1,1490 +0,0 @@ -unit schEmpresasServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schEmpresasClient_Intf; - -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_EmpresasDelta = '{AA5637FC-EFD6-42DE-BDA1-C31464CB14D3}'; - RID_EmpresasDatosBancoDelta = '{9C692459-7C4C-4403-8747-2D651CC6D3A2}'; - -type - { IEmpresasDelta } - IEmpresasDelta = interface(IEmpresas) - ['{AA5637FC-EFD6-42DE-BDA1-C31464CB14D3}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldNIF_CIFValue : String; - function GetOldNOMBREValue : String; - function GetOldRAZON_SOCIALValue : String; - function GetOldCALLEValue : String; - function GetOldPOBLACIONValue : String; - function GetOldPROVINCIAValue : String; - function GetOldCODIGO_POSTALValue : String; - function GetOldTELEFONO_1Value : String; - function GetOldTELEFONO_2Value : String; - function GetOldMOVIL_1Value : String; - function GetOldMOVIL_2Value : String; - function GetOldFAXValue : String; - function GetOldEMAIL_1Value : String; - function GetOldEMAIL_2Value : String; - function GetOldPAGINA_WEBValue : String; - function GetOldNOTASValue : IROStrings; - function GetOldFECHA_ALTAValue : DateTime; - function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldUSUARIOValue : String; - function GetOldLOGOTIPOValue : IROStream; - function GetOldREGISTRO_MERCANTILValue : String; - function GetOldIVAValue : Float; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldNIF_CIF : String read GetOldNIF_CIFValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue; - property OldCALLE : String read GetOldCALLEValue; - property OldPOBLACION : String read GetOldPOBLACIONValue; - property OldPROVINCIA : String read GetOldPROVINCIAValue; - property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; - property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; - property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; - property OldMOVIL_1 : String read GetOldMOVIL_1Value; - property OldMOVIL_2 : String read GetOldMOVIL_2Value; - property OldFAX : String read GetOldFAXValue; - property OldEMAIL_1 : String read GetOldEMAIL_1Value; - property OldEMAIL_2 : String read GetOldEMAIL_2Value; - property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; - property OldNOTAS : IROStrings read GetOldNOTASValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue; - property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue; - property OldIVA : Float read GetOldIVAValue; - end; - - { TEmpresasBusinessProcessorRules } - TEmpresasBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpresas, IEmpresasDelta) - private - f_NOTAS: IROStrings; - f_LOGOTIPO: IROStream; - procedure NOTAS_OnChange(Sender: TObject); - procedure LOGOTIPO_OnChange(Sender: Tobject); - 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; - function GetNIF_CIFValue: String; virtual; - function GetNIF_CIFIsNull: Boolean; virtual; - function GetOldNIF_CIFValue: String; virtual; - function GetOldNIF_CIFIsNull: Boolean; virtual; - procedure SetNIF_CIFValue(const aValue: String); virtual; - procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - function GetNOMBREIsNull: Boolean; virtual; - function GetOldNOMBREValue: String; virtual; - function GetOldNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetRAZON_SOCIALValue: String; virtual; - function GetRAZON_SOCIALIsNull: Boolean; virtual; - function GetOldRAZON_SOCIALValue: String; virtual; - function GetOldRAZON_SOCIALIsNull: Boolean; virtual; - procedure SetRAZON_SOCIALValue(const aValue: String); virtual; - procedure SetRAZON_SOCIALIsNull(const aValue: Boolean); virtual; - function GetCALLEValue: String; virtual; - function GetCALLEIsNull: Boolean; virtual; - function GetOldCALLEValue: String; virtual; - function GetOldCALLEIsNull: Boolean; virtual; - procedure SetCALLEValue(const aValue: String); virtual; - procedure SetCALLEIsNull(const aValue: Boolean); virtual; - function GetPOBLACIONValue: String; virtual; - function GetPOBLACIONIsNull: Boolean; virtual; - function GetOldPOBLACIONValue: String; virtual; - function GetOldPOBLACIONIsNull: Boolean; virtual; - procedure SetPOBLACIONValue(const aValue: String); virtual; - procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; - function GetPROVINCIAValue: String; virtual; - function GetPROVINCIAIsNull: Boolean; virtual; - function GetOldPROVINCIAValue: String; virtual; - function GetOldPROVINCIAIsNull: Boolean; virtual; - procedure SetPROVINCIAValue(const aValue: String); virtual; - procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; - function GetCODIGO_POSTALValue: String; virtual; - function GetCODIGO_POSTALIsNull: Boolean; virtual; - function GetOldCODIGO_POSTALValue: String; virtual; - function GetOldCODIGO_POSTALIsNull: Boolean; virtual; - procedure SetCODIGO_POSTALValue(const aValue: String); virtual; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; - function GetTELEFONO_1Value: String; virtual; - function GetTELEFONO_1IsNull: Boolean; virtual; - function GetOldTELEFONO_1Value: String; virtual; - function GetOldTELEFONO_1IsNull: Boolean; virtual; - procedure SetTELEFONO_1Value(const aValue: String); virtual; - procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; - function GetTELEFONO_2Value: String; virtual; - function GetTELEFONO_2IsNull: Boolean; virtual; - function GetOldTELEFONO_2Value: String; virtual; - function GetOldTELEFONO_2IsNull: Boolean; virtual; - procedure SetTELEFONO_2Value(const aValue: String); virtual; - procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; - function GetMOVIL_1Value: String; virtual; - function GetMOVIL_1IsNull: Boolean; virtual; - function GetOldMOVIL_1Value: String; virtual; - function GetOldMOVIL_1IsNull: Boolean; virtual; - procedure SetMOVIL_1Value(const aValue: String); virtual; - procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; - function GetMOVIL_2Value: String; virtual; - function GetMOVIL_2IsNull: Boolean; virtual; - function GetOldMOVIL_2Value: String; virtual; - function GetOldMOVIL_2IsNull: Boolean; virtual; - procedure SetMOVIL_2Value(const aValue: String); virtual; - procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; - function GetFAXValue: String; virtual; - function GetFAXIsNull: Boolean; virtual; - function GetOldFAXValue: String; virtual; - function GetOldFAXIsNull: Boolean; virtual; - procedure SetFAXValue(const aValue: String); virtual; - procedure SetFAXIsNull(const aValue: Boolean); virtual; - function GetEMAIL_1Value: String; virtual; - function GetEMAIL_1IsNull: Boolean; virtual; - function GetOldEMAIL_1Value: String; virtual; - function GetOldEMAIL_1IsNull: Boolean; virtual; - procedure SetEMAIL_1Value(const aValue: String); virtual; - procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; - function GetEMAIL_2Value: String; virtual; - function GetEMAIL_2IsNull: Boolean; virtual; - function GetOldEMAIL_2Value: String; virtual; - function GetOldEMAIL_2IsNull: Boolean; virtual; - procedure SetEMAIL_2Value(const aValue: String); virtual; - procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; - function GetPAGINA_WEBValue: String; virtual; - function GetPAGINA_WEBIsNull: Boolean; virtual; - function GetOldPAGINA_WEBValue: String; virtual; - function GetOldPAGINA_WEBIsNull: Boolean; virtual; - procedure SetPAGINA_WEBValue(const aValue: String); virtual; - procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; - function GetNOTASValue: IROStrings; virtual; - function GetNOTASIsNull: Boolean; virtual; - function GetOldNOTASValue: IROStrings; virtual; - function GetOldNOTASIsNull: Boolean; virtual; - procedure SetNOTASIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - function GetOldFECHA_ALTAValue: DateTime; virtual; - function GetOldFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; - function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - function GetUSUARIOIsNull: Boolean; virtual; - function GetOldUSUARIOValue: String; virtual; - function GetOldUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - function GetLOGOTIPOValue: IROStream; virtual; - function GetLOGOTIPOIsNull: Boolean; virtual; - function GetOldLOGOTIPOValue: IROStream; virtual; - function GetOldLOGOTIPOIsNull: Boolean; virtual; - procedure SetLOGOTIPOIsNull(const aValue: Boolean); virtual; - function GetREGISTRO_MERCANTILValue: String; virtual; - function GetREGISTRO_MERCANTILIsNull: Boolean; virtual; - function GetOldREGISTRO_MERCANTILValue: String; virtual; - function GetOldREGISTRO_MERCANTILIsNull: Boolean; virtual; - procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual; - procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual; - function GetIVAValue: Float; virtual; - function GetIVAIsNull: Boolean; virtual; - function GetOldIVAValue: Float; virtual; - function GetOldIVAIsNull: Boolean; virtual; - procedure SetIVAValue(const aValue: Float); virtual; - procedure SetIVAIsNull(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; - property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; - property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; - property OldNIF_CIF : String read GetOldNIF_CIFValue; - property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; - property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; - property RAZON_SOCIAL : String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue; - property RAZON_SOCIALIsNull : Boolean read GetRAZON_SOCIALIsNull write SetRAZON_SOCIALIsNull; - property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue; - property OldRAZON_SOCIALIsNull : Boolean read GetOldRAZON_SOCIALIsNull; - property CALLE : String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; - property OldCALLE : String read GetOldCALLEValue; - property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; - property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property OldPOBLACION : String read GetOldPOBLACIONValue; - property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; - property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property OldPROVINCIA : String read GetOldPROVINCIAValue; - property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; - property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; - property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; - property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value; - property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; - property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; - property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull; - property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value; - property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; - property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; - property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull; - property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value; - property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; - property OldMOVIL_1 : String read GetOldMOVIL_1Value; - property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull; - property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value; - property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; - property OldMOVIL_2 : String read GetOldMOVIL_2Value; - property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull; - property FAX : String read GetFAXValue write SetFAXValue; - property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; - property OldFAX : String read GetOldFAXValue; - property OldFAXIsNull : Boolean read GetOldFAXIsNull; - property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value; - property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; - property OldEMAIL_1 : String read GetOldEMAIL_1Value; - property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull; - property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value; - property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; - property OldEMAIL_2 : String read GetOldEMAIL_2Value; - property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull; - property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; - property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; - property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; - property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull; - property NOTAS : IROStrings read GetNOTASValue; - property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; - property OldNOTAS : IROStrings read GetOldNOTASValue; - property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; - property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; - property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; - property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; - property LOGOTIPO : IROStream read GetLOGOTIPOValue; - property LOGOTIPOIsNull : Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull; - property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue; - property OldLOGOTIPOIsNull : Boolean read GetOldLOGOTIPOIsNull; - property REGISTRO_MERCANTIL : String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue; - property REGISTRO_MERCANTILIsNull : Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; - property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue; - property OldREGISTRO_MERCANTILIsNull : Boolean read GetOldREGISTRO_MERCANTILIsNull; - property IVA : Float read GetIVAValue write SetIVAValue; - property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; - property OldIVA : Float read GetOldIVAValue; - property OldIVAIsNull : Boolean read GetOldIVAIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IEmpresasDatosBancoDelta } - IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) - ['{9C692459-7C4C-4403-8747-2D651CC6D3A2}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_EMPRESAValue : Integer; - function GetOldNOMBREValue : String; - function GetOldENTIDADValue : String; - function GetOldSUCURSALValue : String; - function GetOldDCValue : String; - function GetOldCUENTAValue : String; - function GetOldSUFIJO_N19Value : String; - function GetOldSUFIJO_N58Value : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldENTIDAD : String read GetOldENTIDADValue; - property OldSUCURSAL : String read GetOldSUCURSALValue; - property OldDC : String read GetOldDCValue; - property OldCUENTA : String read GetOldCUENTAValue; - property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; - property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; - end; - - { TEmpresasDatosBancoBusinessProcessorRules } - TEmpresasDatosBancoBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpresasDatosBanco, IEmpresasDatosBancoDelta) - 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; - function GetID_EMPRESAValue: Integer; virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - function GetOldID_EMPRESAValue: Integer; virtual; - function GetOldID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - function GetNOMBREIsNull: Boolean; virtual; - function GetOldNOMBREValue: String; virtual; - function GetOldNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetENTIDADValue: String; virtual; - function GetENTIDADIsNull: Boolean; virtual; - function GetOldENTIDADValue: String; virtual; - function GetOldENTIDADIsNull: Boolean; virtual; - procedure SetENTIDADValue(const aValue: String); virtual; - procedure SetENTIDADIsNull(const aValue: Boolean); virtual; - function GetSUCURSALValue: String; virtual; - function GetSUCURSALIsNull: Boolean; virtual; - function GetOldSUCURSALValue: String; virtual; - function GetOldSUCURSALIsNull: Boolean; virtual; - procedure SetSUCURSALValue(const aValue: String); virtual; - procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; - function GetDCValue: String; virtual; - function GetDCIsNull: Boolean; virtual; - function GetOldDCValue: String; virtual; - function GetOldDCIsNull: Boolean; virtual; - procedure SetDCValue(const aValue: String); virtual; - procedure SetDCIsNull(const aValue: Boolean); virtual; - function GetCUENTAValue: String; virtual; - function GetCUENTAIsNull: Boolean; virtual; - function GetOldCUENTAValue: String; virtual; - function GetOldCUENTAIsNull: Boolean; virtual; - procedure SetCUENTAValue(const aValue: String); virtual; - procedure SetCUENTAIsNull(const aValue: Boolean); virtual; - function GetSUFIJO_N19Value: String; virtual; - function GetSUFIJO_N19IsNull: Boolean; virtual; - function GetOldSUFIJO_N19Value: String; virtual; - function GetOldSUFIJO_N19IsNull: Boolean; virtual; - procedure SetSUFIJO_N19Value(const aValue: String); virtual; - procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual; - function GetSUFIJO_N58Value: String; virtual; - function GetSUFIJO_N58IsNull: Boolean; virtual; - function GetOldSUFIJO_N58Value: String; virtual; - function GetOldSUFIJO_N58IsNull: Boolean; virtual; - procedure SetSUFIJO_N58Value(const aValue: String); virtual; - procedure SetSUFIJO_N58IsNull(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; - property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; - property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; - property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; - property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull; - property OldENTIDAD : String read GetOldENTIDADValue; - property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull; - property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; - property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; - property OldSUCURSAL : String read GetOldSUCURSALValue; - property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull; - property DC : String read GetDCValue write SetDCValue; - property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull; - property OldDC : String read GetOldDCValue; - property OldDCIsNull : Boolean read GetOldDCIsNull; - property CUENTA : String read GetCUENTAValue write SetCUENTAValue; - property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull; - property OldCUENTA : String read GetOldCUENTAValue; - property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull; - property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property SUFIJO_N19IsNull : Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; - property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; - property OldSUFIJO_N19IsNull : Boolean read GetOldSUFIJO_N19IsNull; - property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - property SUFIJO_N58IsNull : Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; - property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; - property OldSUFIJO_N58IsNull : Boolean read GetOldSUFIJO_N58IsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers, uDAInterfaces; - -{ TEmpresasBusinessProcessorRules } -constructor TEmpresasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -var - StrList: TStringList; - ROStream: TROStream; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := NOTAS_OnChange; - f_NOTAS := NewROStrings(StrList,True); - - ROStream := TROStream.Create; - ROStream.OnChange := LOGOTIPO_OnChange; - f_LOGOTIPO := ROStream; -end; - -destructor TEmpresasBusinessProcessorRules.Destroy; -begin - inherited; -end; - -procedure TEmpresasBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOTAS] := TStringList(Sender).Text; -end; - -procedure TEmpresasBusinessProcessorRules.LOGOTIPO_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasLOGOTIPO] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream); -end; - -function TEmpresasBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID]; -end; - -function TEmpresasBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID]); -end; - -function TEmpresasBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID]; -end; - -function TEmpresasBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID]); -end; - -procedure TEmpresasBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetNIF_CIFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNIF_CIF]; -end; - -function TEmpresasBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNIF_CIF]); -end; - -function TEmpresasBusinessProcessorRules.GetOldNIF_CIFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNIF_CIF]; -end; - -function TEmpresasBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNIF_CIF]); -end; - -procedure TEmpresasBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNIF_CIF] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNIF_CIF] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOMBRE]; -end; - -function TEmpresasBusinessProcessorRules.GetNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOMBRE]); -end; - -function TEmpresasBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNOMBRE]; -end; - -function TEmpresasBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNOMBRE]); -end; - -procedure TEmpresasBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOMBRE] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOMBRE] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetRAZON_SOCIALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasRAZON_SOCIAL]; -end; - -function TEmpresasBusinessProcessorRules.GetRAZON_SOCIALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasRAZON_SOCIAL]); -end; - -function TEmpresasBusinessProcessorRules.GetOldRAZON_SOCIALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasRAZON_SOCIAL]; -end; - -function TEmpresasBusinessProcessorRules.GetOldRAZON_SOCIALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasRAZON_SOCIAL]); -end; - -procedure TEmpresasBusinessProcessorRules.SetRAZON_SOCIALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasRAZON_SOCIAL] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetRAZON_SOCIALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasRAZON_SOCIAL] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetCALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCALLE]; -end; - -function TEmpresasBusinessProcessorRules.GetCALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCALLE]); -end; - -function TEmpresasBusinessProcessorRules.GetOldCALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasCALLE]; -end; - -function TEmpresasBusinessProcessorRules.GetOldCALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasCALLE]); -end; - -procedure TEmpresasBusinessProcessorRules.SetCALLEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCALLE] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCALLE] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetPOBLACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPOBLACION]; -end; - -function TEmpresasBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPOBLACION]); -end; - -function TEmpresasBusinessProcessorRules.GetOldPOBLACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPOBLACION]; -end; - -function TEmpresasBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPOBLACION]); -end; - -procedure TEmpresasBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPOBLACION] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPOBLACION] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetPROVINCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPROVINCIA]; -end; - -function TEmpresasBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPROVINCIA]); -end; - -function TEmpresasBusinessProcessorRules.GetOldPROVINCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPROVINCIA]; -end; - -function TEmpresasBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPROVINCIA]); -end; - -procedure TEmpresasBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPROVINCIA] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPROVINCIA] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetCODIGO_POSTALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCODIGO_POSTAL]; -end; - -function TEmpresasBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCODIGO_POSTAL]); -end; - -function TEmpresasBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasCODIGO_POSTAL]; -end; - -function TEmpresasBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasCODIGO_POSTAL]); -end; - -procedure TEmpresasBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCODIGO_POSTAL] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCODIGO_POSTAL] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetTELEFONO_1Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_1]; -end; - -function TEmpresasBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_1]); -end; - -function TEmpresasBusinessProcessorRules.GetOldTELEFONO_1Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTELEFONO_1]; -end; - -function TEmpresasBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTELEFONO_1]); -end; - -procedure TEmpresasBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_1] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_1] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetTELEFONO_2Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_2]; -end; - -function TEmpresasBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_2]); -end; - -function TEmpresasBusinessProcessorRules.GetOldTELEFONO_2Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTELEFONO_2]; -end; - -function TEmpresasBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTELEFONO_2]); -end; - -procedure TEmpresasBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_2] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_2] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetMOVIL_1Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_1]; -end; - -function TEmpresasBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_1]); -end; - -function TEmpresasBusinessProcessorRules.GetOldMOVIL_1Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasMOVIL_1]; -end; - -function TEmpresasBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasMOVIL_1]); -end; - -procedure TEmpresasBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_1] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_1] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetMOVIL_2Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_2]; -end; - -function TEmpresasBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_2]); -end; - -function TEmpresasBusinessProcessorRules.GetOldMOVIL_2Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasMOVIL_2]; -end; - -function TEmpresasBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasMOVIL_2]); -end; - -procedure TEmpresasBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_2] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_2] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetFAXValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFAX]; -end; - -function TEmpresasBusinessProcessorRules.GetFAXIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFAX]); -end; - -function TEmpresasBusinessProcessorRules.GetOldFAXValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFAX]; -end; - -function TEmpresasBusinessProcessorRules.GetOldFAXIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFAX]); -end; - -procedure TEmpresasBusinessProcessorRules.SetFAXValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFAX] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFAX] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetEMAIL_1Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_1]; -end; - -function TEmpresasBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_1]); -end; - -function TEmpresasBusinessProcessorRules.GetOldEMAIL_1Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasEMAIL_1]; -end; - -function TEmpresasBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasEMAIL_1]); -end; - -procedure TEmpresasBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_1] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_1] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetEMAIL_2Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_2]; -end; - -function TEmpresasBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_2]); -end; - -function TEmpresasBusinessProcessorRules.GetOldEMAIL_2Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasEMAIL_2]; -end; - -function TEmpresasBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasEMAIL_2]); -end; - -procedure TEmpresasBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_2] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_2] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetPAGINA_WEBValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPAGINA_WEB]; -end; - -function TEmpresasBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPAGINA_WEB]); -end; - -function TEmpresasBusinessProcessorRules.GetOldPAGINA_WEBValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPAGINA_WEB]; -end; - -function TEmpresasBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPAGINA_WEB]); -end; - -procedure TEmpresasBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPAGINA_WEB] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPAGINA_WEB] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetNOTASValue: IROStrings; -begin - result := f_NOTAS; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOTAS]; -end; - -function TEmpresasBusinessProcessorRules.GetNOTASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOTAS]); -end; - -function TEmpresasBusinessProcessorRules.GetOldNOTASValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNOTAS]; -end; - -function TEmpresasBusinessProcessorRules.GetOldNOTASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNOTAS]); -end; - -procedure TEmpresasBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOTAS] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_ALTA]; -end; - -function TEmpresasBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_ALTA]); -end; - -function TEmpresasBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFECHA_ALTA]; -end; - -function TEmpresasBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFECHA_ALTA]); -end; - -procedure TEmpresasBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_ALTA] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_ALTA] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_MODIFICACION]; -end; - -function TEmpresasBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_MODIFICACION]); -end; - -function TEmpresasBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFECHA_MODIFICACION]; -end; - -function TEmpresasBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFECHA_MODIFICACION]); -end; - -procedure TEmpresasBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_MODIFICACION] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_MODIFICACION] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasUSUARIO]; -end; - -function TEmpresasBusinessProcessorRules.GetUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasUSUARIO]); -end; - -function TEmpresasBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasUSUARIO]; -end; - -function TEmpresasBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasUSUARIO]); -end; - -procedure TEmpresasBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasUSUARIO] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasUSUARIO] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetLOGOTIPOValue: IROStream; -begin - result := f_LOGOTIPO; - result.Position := 0; - if not Result.InUpdateMode then begin - WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasLOGOTIPO], result.Stream); - result.Position := 0; - end; -end; - -function TEmpresasBusinessProcessorRules.GetLOGOTIPOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasLOGOTIPO]); -end; - -function TEmpresasBusinessProcessorRules.GetOldLOGOTIPOValue: IROStream; -begin - result := NewROStream(); - WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasLOGOTIPO], result.Stream); -end; - -function TEmpresasBusinessProcessorRules.GetOldLOGOTIPOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasLOGOTIPO]); -end; - -procedure TEmpresasBusinessProcessorRules.SetLOGOTIPOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasLOGOTIPO] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetREGISTRO_MERCANTILValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL]; -end; - -function TEmpresasBusinessProcessorRules.GetREGISTRO_MERCANTILIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL]); -end; - -function TEmpresasBusinessProcessorRules.GetOldREGISTRO_MERCANTILValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasREGISTRO_MERCANTIL]; -end; - -function TEmpresasBusinessProcessorRules.GetOldREGISTRO_MERCANTILIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasREGISTRO_MERCANTIL]); -end; - -procedure TEmpresasBusinessProcessorRules.SetREGISTRO_MERCANTILValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL] := Null; -end; - -function TEmpresasBusinessProcessorRules.GetIVAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA]; -end; - -function TEmpresasBusinessProcessorRules.GetIVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA]); -end; - -function TEmpresasBusinessProcessorRules.GetOldIVAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasIVA]; -end; - -function TEmpresasBusinessProcessorRules.GetOldIVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasIVA]); -end; - -procedure TEmpresasBusinessProcessorRules.SetIVAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA] := aValue; -end; - -procedure TEmpresasBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA] := Null; -end; - - -{ TEmpresasDatosBancoBusinessProcessorRules } -constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TEmpresasDatosBancoBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoID]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoID]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID] := Null; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID_EMPRESA]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID_EMPRESA]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoID_EMPRESA]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoID_EMPRESA]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID_EMPRESA] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID_EMPRESA] := Null; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoNOMBRE]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoNOMBRE]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoNOMBRE]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoNOMBRE]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoNOMBRE] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoNOMBRE] := Null; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetENTIDADValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoENTIDAD]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetENTIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoENTIDAD]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldENTIDADValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoENTIDAD]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldENTIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoENTIDAD]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetENTIDADValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoENTIDAD] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoENTIDAD] := Null; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetSUCURSALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUCURSAL]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetSUCURSALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUCURSAL]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUCURSALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUCURSAL]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUCURSAL]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUCURSALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUCURSAL] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUCURSAL] := Null; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetDCValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoDC]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetDCIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoDC]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldDCValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoDC]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldDCIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoDC]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetDCValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoDC] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetDCIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoDC] := Null; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetCUENTAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoCUENTA]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetCUENTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoCUENTA]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldCUENTAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoCUENTA]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoCUENTA]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetCUENTAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoCUENTA] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoCUENTA] := Null; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N19Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N19]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N19IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N19]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N19Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUFIJO_N19]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N19IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUFIJO_N19]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N19] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N19IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N19] := Null; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N58Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N58IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58]); -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N58Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUFIJO_N58]; -end; - -function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N58IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUFIJO_N58]); -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58] := aValue; -end; - -procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N58IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58] := Null; -end; - - -initialization - RegisterBusinessProcessorRules(RID_EmpresasDelta, TEmpresasBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_EmpresasDatosBancoDelta, TEmpresasDatosBancoBusinessProcessorRules); - -end. diff --git a/Source/Modulos/Empresas/Model/uBizEmpresas.dcu b/Source/Modulos/Empresas/Model/uBizEmpresas.dcu deleted file mode 100644 index bba178c7..00000000 Binary files a/Source/Modulos/Empresas/Model/uBizEmpresas.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Model/uBizEmpresas.pas b/Source/Modulos/Empresas/Model/uBizEmpresas.pas deleted file mode 100644 index cc9eeb14..00000000 --- a/Source/Modulos/Empresas/Model/uBizEmpresas.pas +++ /dev/null @@ -1,99 +0,0 @@ -unit uBizEmpresas; - -interface - -uses - uDAInterfaces, uDADataTable, schEmpresasClient_Intf, - uBizEmpresasDatosBancarios; - -const - BIZ_CLIENT_EMPRESA = 'Client.Empresa'; - -type - IBizEmpresa = interface (IEmpresas) - ['{1DB69F36-969C-4078-B862-6D697670BCFD}'] - procedure SetDatosBancarios(AValue : IBizEmpresasDatosBancarios); - function GetDatosBancarios : IBizEmpresasDatosBancarios; - property DatosBancarios : IBizEmpresasDatosBancarios read GetDatosBancarios - write SetDatosBancarios; - - function EsNuevo : Boolean; - end; - - TBizEmpresa = class(TEmpresasDataTableRules, IBizEmpresa) - protected - FDatosBancarios : IBizEmpresasDatosBancarios; - FDatosBancariosLink : TDADataSource; - - procedure OnNewRecord(Sender: TDADataTable); override; - - procedure SetDatosBancarios(AValue : IBizEmpresasDatosBancarios); - function GetDatosBancarios : IBizEmpresasDatosBancarios; - public - function EsNuevo : Boolean; - procedure IniciarValoresEmpresaNueva; - - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - property DatosBancarios : IBizEmpresasDatosBancarios read GetDatosBancarios - write SetDatosBancarios; - end; - - -implementation - -uses - uDataTableUtils, Classes, DateUtils, SysUtils; - -{ TBizEmpresa } - - -constructor TBizEmpresa.Create(aDataTable: TDADataTable); -begin - inherited; - FDatosBancariosLink := TDADataSource.Create(NIL); - FDatosBancariosLink.DataTable := aDataTable; -end; - -destructor TBizEmpresa.Destroy; -begin - FDatosBancarios := NIL; - FDatosBancariosLink.Free; - inherited; -end; - -function TBizEmpresa.EsNuevo: Boolean; -begin - Result := (ID < 0); -end; - -function TBizEmpresa.GetDatosBancarios: IBizEmpresasDatosBancarios; -begin - Result := FDatosBancarios; -end; - -procedure TBizEmpresa.IniciarValoresEmpresaNueva; -begin -// USUARIO := dmUsuarios.LoginInfo.Usuario; -end; - -procedure TBizEmpresa.OnNewRecord(Sender: TDADataTable); -begin - inherited; - IniciarValoresEmpresaNueva; -end; - -procedure TBizEmpresa.SetDatosBancarios(AValue: IBizEmpresasDatosBancarios); -begin - FDatosBancarios := AValue; - EnlazarMaestroDetalle(FDatosBancariosLink, FDatosBancarios); -end; - -initialization - RegisterDataTableRules(BIZ_CLIENT_EMPRESA, TBizEmpresa); - -finalization - -end. - diff --git a/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.dcu b/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.dcu deleted file mode 100644 index 8bb2bcde..00000000 Binary files a/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.pas b/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.pas deleted file mode 100644 index 54e810f8..00000000 --- a/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.pas +++ /dev/null @@ -1,51 +0,0 @@ -unit uBizEmpresasDatosBancarios; - -interface - -uses - uDAInterfaces, uDADataTable, - schEmpresasClient_Intf; - -const - BIZ_CLIENT_EMPRESAS_DATOS_BANCARIOS = 'Client.EmpresasDatosBancarios'; - -type - IBizEmpresasDatosBancarios = interface(IEmpresasDatosBanco) - ['{CF695D8D-B9C0-406F-A3EA-B251E35A7E19}'] - function EsNuevo : Boolean; - end; - - TBizEmpresasDatosBancarios = class(TEmpresasDatosBancoDataTableRules, IBizEmpresasDatosBancarios) - protected - procedure BeforeInsert(Sender: TDADataTable); override; - public - function EsNuevo : Boolean; - end; - -implementation - -uses - Dialogs,uDataTableUtils, DB; - -{ TBizDatosBancarios } - -procedure TBizEmpresasDatosBancarios.BeforeInsert(Sender: TDADataTable); -var - AMasterTable : TDADataTable; -begin - inherited; - AMasterTable := DataTable.GetMasterDataTable; - if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then - AMasterTable.Post; -end; - -function TBizEmpresasDatosBancarios.EsNuevo: Boolean; -begin - Result := (ID < 0); -end; - -initialization - RegisterDataTableRules(BIZ_CLIENT_EMPRESAS_DATOS_BANCARIOS, TBizEmpresasDatosBancarios); - - -end. diff --git a/Source/Modulos/Empresas/Model/uIDataModuleEmpresas.dcu b/Source/Modulos/Empresas/Model/uIDataModuleEmpresas.dcu deleted file mode 100644 index 3a979fc8..00000000 Binary files a/Source/Modulos/Empresas/Model/uIDataModuleEmpresas.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.bdsproj b/Source/Modulos/Empresas/Plugin/Empresas_plugin.bdsproj deleted file mode 100644 index f5a22bd8..00000000 --- a/Source/Modulos/Empresas/Plugin/Empresas_plugin.bdsproj +++ /dev/null @@ -1,496 +0,0 @@ - - - - - - - - - - - - Empresas_plugin.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - JCL Debug IDE extension - JCL Project Analyzer - JCL Open and Save IDE dialogs with favorite folders - - - - diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.dcu b/Source/Modulos/Empresas/Plugin/Empresas_plugin.dcu deleted file mode 100644 index 85529d47..00000000 Binary files a/Source/Modulos/Empresas/Plugin/Empresas_plugin.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.dpk b/Source/Modulos/Empresas/Plugin/Empresas_plugin.dpk deleted file mode 100644 index 16670785..00000000 --- a/Source/Modulos/Empresas/Plugin/Empresas_plugin.dpk +++ /dev/null @@ -1,39 +0,0 @@ -package Empresas_plugin; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - PluginSDK_D10R, - Empresas_model, - Empresas_data, - Empresas_controller, - Empresas_view; - -contains - uPluginEmpresas in 'uPluginEmpresas.pas' {PluginEmpresas: TDataModule}; - -end. diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.dpk.bak b/Source/Modulos/Empresas/Plugin/Empresas_plugin.dpk.bak deleted file mode 100644 index 89d42683..00000000 --- a/Source/Modulos/Empresas/Plugin/Empresas_plugin.dpk.bak +++ /dev/null @@ -1,40 +0,0 @@ -package Empresas_plugin; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} - -requires - rtl, - vcl, - PluginSDK_D10R, - Usuarios, - Empresas_model, - Empresas_data, - Empresas_controller, - Empresas_view; - -contains - uPluginEmpresas in 'uPluginEmpresas.pas' {PluginEmpresas: TDataModule}; - -end. diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.dproj b/Source/Modulos/Empresas/Plugin/Empresas_plugin.dproj deleted file mode 100644 index ec354b13..00000000 --- a/Source/Modulos/Empresas/Plugin/Empresas_plugin.dproj +++ /dev/null @@ -1,550 +0,0 @@ - - - {cafb4b38-ab55-40a5-8d2e-c54895b98402} - Empresas_plugin.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Empresas_plugin.bpl - - - 7.0 - False - False - 0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - RELEASE - - - 7.0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - JCL Debug IDE extension - JCL Project Analyzer - JCL Open and Save IDE dialogs with favorite folders - Empresas_plugin.dpk - - - - - MainSource - - - - - - - - - - -
PluginEmpresas
- - - - diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.drc b/Source/Modulos/Empresas/Plugin/Empresas_plugin.drc deleted file mode 100644 index 3a8cb3c5..00000000 --- a/Source/Modulos/Empresas/Plugin/Empresas_plugin.drc +++ /dev/null @@ -1,17 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Plugin\uPluginEmpresas.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Plugin\Empresas_plugin.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Plugin\Empresas_plugin.drf */ diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.identcache b/Source/Modulos/Empresas/Plugin/Empresas_plugin.identcache deleted file mode 100644 index 5030d3f9..00000000 Binary files a/Source/Modulos/Empresas/Plugin/Empresas_plugin.identcache and /dev/null differ diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.rc b/Source/Modulos/Empresas/Plugin/Empresas_plugin.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Empresas/Plugin/Empresas_plugin.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.res b/Source/Modulos/Empresas/Plugin/Empresas_plugin.res deleted file mode 100644 index 1641339f..00000000 Binary files a/Source/Modulos/Empresas/Plugin/Empresas_plugin.res and /dev/null differ diff --git a/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dcu b/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dcu deleted file mode 100644 index fe559bf8..00000000 Binary files a/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dfm b/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dfm deleted file mode 100644 index cbe91335..00000000 --- a/Source/Modulos/Empresas/Plugin/uPluginEmpresas.dfm +++ /dev/null @@ -1,816 +0,0 @@ -object PluginEmpresas: TPluginEmpresas - OldCreateOrder = True - DefaultAction = actNuevaEmpresa - ModuleMenu = MainMenu - ModuleName = 'Empresas' - SmallImages = SmallImages - LargeImages = LargeImages - Version = '1.0' - Height = 193 - Width = 422 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002744944415478DA - 63FCFFFF3F032D01E3F0B060F9D6D334B3056E41A4B729491AFFFCFDCFF0F7EF - 3F869FBFFE80E93FFFFE8169301B887FFDFECB109E5E876A41E249438206FF05 - AAFFF5F72FC3AF3F7FC0F4975FBF207C10065A02932BFAB59C61DED24D9816CC - 373F8F6291F45B6F8626CF660C8BFE010D0361CFD5F60C1F791E800DBF14F082 - 4169A520D8928ABFAB705B00022036B2E11718CF33189F346660B809E4A83330 - 9C353FCBA0F9438BE117D007415B3C189EB2DF66B811FC1AAC566C3137431DC3 - 5AFC3E8019CE7C8A89E1AFD93F300D32FC6CDC5906E379408BB419183EEB7C61 - E0BDC2C3F05AE50D43F84E5F86BD51C718841771817DD0CEB211BB05E841C3BC - 1C684124D082C54C10C39719339C8D02D2B38C193E447C6410D8C2CFF0C2E525 - 43D49E00860B7F2EC0E3A3977D0B911620FBE02A508203887F30807DF056ED1D - 83F02D218627324F18E20E86329CFA79166EC164AEEDF82D40B6E42F50C36596 - 4B9038B80894D087C481DC5B79869F3F7E60180E02382D404E4520C58A1FFC18 - 6A9C6BC196FC03A7F5BF700CE247EF0D841BFE33E50F03E34C46FC16C0003C6D - 03B1CCB31F0C5325B4B1E60BDE877B505C0E03582D40CFA57FA039F3EA444D06 - 09A7200645CB1E86FBC74BC06A5EDC0726E7FBF719E6EE7BCE30A7DA09C3E229 - 4F73312D98B2780756570A7E3BC7A0F4660ED8307450DD928DD3E273AC89080B - BA27CF27584C9C2B7B88553CA5751FA65AA0E12000B680919191A0E1C75A14FF - 93124C404BC3E6EEFBB19A140B4281D42A6CC13467EF77AC96022D6024CA0290 - E196969AABB0C91D3F7E1D6BDC008101D0828BC45A803778402EC5A597681FE0 - 0A1E200087355E0B6809686E0100FA3E2AAB1481BE0E0000000049454E44AE42 - 6082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000033B4944415478DA - DD957F68565518C73F77EF0FDFBDB9B94DC1214D5BB2FD61A3B0399236D66424 - 96A32874A1329D2D322C7F24686C0D539318FE964419E29F6AFF5810D982821C - BA0D57292846A4AD36B7D770BEEFF6FEBA7BEF3DF7DEB773A72EDFDE3BD71FEE - 1F0F3CDC7378CEF97E9EE73CE79CAB24934926B3298F07E0EB73BF4E0AE5B5AA - 79CA18400EC61C86162270F93043033D986692E9454B99337F459A80695AA37E - FB6B58D6BDF1DDFE2BAB3EE2D277479D01033FED440FFC4E389C60381263C474 - 31B7BC9EE205B5FF4BDCFED6AC6E7406F47535A1057AE5242FD1689C585C9516 - 27AA06A9ACFB9C278B5F1A136F3A2D1CB766D3E2115E5FFB713A203E78893F2F - 1C401D1A91C571CBA9493C2E055DE80C066F93F55429E5CB0F3D34F251B392BC - D9D09C0E08F67C457FF7492CCD853FD38FCFEB41C142681AAAAA72FD763F351F - 768E8A08C364D797CEC57DAF2A46EDBAEDCE80E16B67F0E1C7E3F64821032104 - 42D7D125E47AD8A2BAE1F4B8D15B7666327A43F657AEDF910E880C7413BAF205 - 198961321419BB5C681806868444E30922D32B295DBC7E42717B5CB761977391 - FBBB5AD16E76CAED37B17DA66167A13310715358BD8D1905CF4C286E5BFDE6DD - CE806B7D17E8ED68656622814716591882802AB893534259453D3373674F286E - FBDED9F2593AE07C7F072DDDFBE9BBF51BCBF4222AF29F261009D13674836EF3 - 0ED5854B787FE106F29E98312AD47CF01BC7226F5C5DC5BAAD2DA980E7E64F65 - 5FE711DA035DA8DE30B9A129AC29A9E5AFE19B7C1B6C079F0F821994E79552B7 - E06D0AB2E7A4446E9FAA0733FBA0716F2A80593DECF9F118514610D3E2E8468C - BC58169A5710F70B7C46164AC84B70B097A5C5AFB2B5E2133E3DDAE698C1BB6F - 95B3A9797F2A2090DDC1DE1F5AC9F6E5626427107E699ABC702E175E251377DC - 872BECE3EF500F453905B4BE71EAA1176DCBF603A90033FF0F769FDD879600F7 - 340F56A620E936E569525074372ED5432C1C269618A4A6A4868D658DEC39FEBD - 63060DCB5F4C07BCFC4211576F5DE5F8C513FC7CE3171991B0B5EDD7027999A5 - 2964E678D95CD6C4B3F9A5E3467EBFA5011695CD1D77D1442FE77FC51D0195CF - 173E327147C08E96238FFA87F62F6032DBA403FE011B7940FEE55D65A3000000 - 0049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000034D4944415478DA - DD957D6855651CC73FE7BE7177CDB9B18A126639175BE8F08F59BE35D199B6DE - 56833057E20B668AA361A953D3A1A6CEA9C3A0242AFA27184134080A05250DCD - 958E06350269D272EE6ED96DBBDEBB7BCFD9BDE7B5E75CB7E1E59E39FF70FFF8 - C08FE739E739E7FBF93EBFDF799E235996C54436E9FE007C7BEE8F09A15495CF - 924601E26274429707E8BD7C9C707F17866EF160D14B3C5EBA2A43C0304C1156 - AAD74C31D6CDD458370D9E5BB98DDF7FF8DC1910FCB11EF56627916842441CC5 - 705358B68EE2A7ABEF4ADCEE5F78B3CE19D07DA68EC4CD6E0CD3472C26138F2B - C46499981266F19A13E4172F1915AF6BD61C53F35E85C2CBAB776602E4DE5FF9 - EBE72694C890288E473C6AE1754BA89A4AA83F44F6F452CA569EB8A3F3549816 - AFAEDD9509E8EF68A1A7A319537513C80A90E5F322218412496445A13314E495 - ED6D29115533D8DBE25CDC9AF218AFBDB5DB1910E96AC14F00AFC72BDCE9689A - 264225994CD2193159BEF11B74DD766CBB3586DDDF726EDA2B13EE3531AEDE58 - 9F0988062F11FEED2B5C43115C2EE15DBCA80F43627282C1BC45CCA9A81D57DC - 4EDBAA9ABDCE45EE69FD84E4F556917E037BEE16402518F550B06C270F4D2B19 - 57DCBEB7A676FF185FD1852B749CFA80470A13784591355DA357D608F72E64D1 - BA2AB2A74E1F57DC9E5BBFE54026A0E7FC4F5C6A384ADFB5106A6125B3AB6FD0 - D716267859D423D44641F97C166C7F075FCE6329A15D4DDF391679CBDA72DEDE - 7A281DB0A46032178F1CA1EFC2797C8ACE40CEC394AC7883484F3703674F8BC2 - 27E87799E4CD5BC8539B5633E9D15969CE353D3D6D353B1AD3014F46BB38D7D4 - 004A9C298A785085786E1E3E3541408EA1FB250644FCF7CF2045CF2F675E7D23 - FB3F3EE9B8824DD565D4BE7F341D907FA595331F1EC69F9B2D003A01D522A999 - 887D86E47321FB5D44B2DC84FFFE979C19C5547EF935FAC8C6BACDF9C8467B77 - CFB1744051F84FBE3F78402422C914B7878010F78883CE1200D52B21FBDC4407 - E3E21819A2E4C50A66D71DA2F1B3D38E2BD8F0FA3399808AF945F475B4F3CBA7 - 5F70B5BD1D53E455B24CEC73DC4C85458EFF01E6EED94CEECC67C7743ED23200 - 4BE73E31E6B992BA678CF4E6B8E28E80C5A533EE99B823605FC347F7FC8F360A - 98C836E180FF01702244FEF5B056BE0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000034D4944415478DA - DD957D6855651CC73FF7E56CF7DEE962EA340397D96C0B97291B8AD95227EA08 - 6706460E476AA60B06C3B7966FC3AD482457D01441A13F842141232128288656 - B4ECC58992F8C760E2CB9DB9DBBABBD773CFDD793F3DF7EA86977B74FDE1FEE9 - 811FCF73CEF39CEFE7FB3C3F7ECFF1388EC37836CFFF0370E6EC9571A1BC5E55 - E619058887D10953FB87FE9E4F8986AF61990E534A5633B3BC2E4BC0B26C114E - BA376C3136EDF4D8B42D56ADDFCDE5AE93EE80F06FCDE8FDBDC4E2AA880449CB - 4771E5664A17D4FE27F154FFEA862677C08DEE26D4F00D2C3B075956482492C8 - 8A829C8CB274E33166942E1B156FEA305C8F666775929AB7F6640394C805FA7E - 6C23191B16C9F18BA50E92CF836EE8440623E43F534EE5FA638F749E0EDB61ED - A6BDD980C1BE4E6E9DEFC0D67D8482218239121E8490AAA12493F446C2BCF6DE - EF6911DDB038D8E99EDC862A9975EFEC7707C4FEEC244008C92F097726866188 - D0D1348DDE98CDCAFA2F31CD94E3945BEBBEFB7BCEEDD4CE847B438C6BEB9BB3 - 01F1F0AF442F9DC63B1CC3EB15DEC587E67D88ACA8DC9DFC0A15D58D638AA78E - ADAEE1A07B926F751F47BBD92D8EDF2235770FA0138EFB99B5620F85452F8C29 - 9E7AB7B1B1D51D702EDC43E287369E5455249164C334E8570C060BCAA858D0C0 - 53D3A78E299E9ADBB2FDC36C40D7A53B1C387599EBB13BAC29FB8275D38AB97D - 37CA2772057FFD022BE7CCA069CB8B4CCE9B9216DADBF6B56B92B76FAA62DBAE - 8F3201739F2FA2F5F38B745D88A048010AF306D85053C2CDDB71BE3D9FC0D182 - F8127FB364DE04EAEBCA78FA89E919CE0D33F3D81ADE3F9C09D0FD797C70F467 - E2092FDAC449E83E93C2608C612B80AC4E2464EAF8E2830CE903AC7969162DDB - 96D17AF41BD71DBC5B5B49E3BE8F33017D4370A8FD27F27373D14205E8B91344 - 21A9A20EFCE488AB30479591E428036A94E78AF339DDF206E648613DE07CA4D0 - 761C389209187682347FF63D9AA8626FA00033370F4792402CF6EA1A929E4051 - 8650BC1A358B4BD9F7F6620E9FF8CE75075BDF7C391B50BDA8848B57FB69FFAA - 873FAE5C4B5F038EED495F171EC716209B40C124F66F9EC3FCA2E2873A1F6959 - 80E50B673FF45E49BFB3467A7B4C7157C0D2F2671F9BB82BA0E550FB63FFA38D - 02C6B38D3BE05FAF5B45FEC8107D9F0000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F330000028C4944415478DADD945F4853511C - C7BF77646942ABE9A061F6BF8690D443427B88A2321123166EDAA21E122308EA - B184407DC887E8A932F0611A3542325F0A0729B432A849CA68CA1CA2B86C0C4B - 43A428EFEEEE9FCE39E8DA9FBB7F0F7BE9073F7EE7DE7BCEF7737EBFF33B9753 - 1405F934EEFF00F43A47F34689026C7555392D1425059224232C882C8AB2CC22 - 1B131722121AAFB6C6030E5BDE6514964540126444C2448CB8F0538448C78204 - 99BC672E8A687FA045CFB357C980B1FEE371A033B53EB4365D4B06911D53AFAE - 71603A50C284BF85CEA174CB73709284B647BAD4006A741C2B3EBEFC05756573 - 88AC7C4541D17638433B602C324010049C35F7C33FA1C5C2623D9B5B5AEC407B - 973E7D066BE2E5C5C308FE3EC622151F5A3A8AD3BAB704B21B538B5530EA47E1 - 0D56A2DEFA12C3AE26E8373E25352419D80DEA80C4D21834BD98976DD8AA7130 - F11A9D1B834B2654970C6166D986FDDA018C7F3F8586F303981C59C7C4E941B5 - F594670788CF60161C0AA18067194C840EA2B2CC8B4FD3FB70E1D220263F70AB - 5D403278B2333D2016229105BE5F417606023F85F585467606DBE44D08F37C92 - 38B59480D82EA2ED6736FBD172B1994164D6EB52D4E973A3CD19155F8C5C815E - D3951E10BD48B4B77985C50D073CF86C79AF7A2FF4B596B89DAF992A20F1968A - AB37D377BF02FA9356EC3D72173323B7D89C85D931708100BA5DF3B0DF3E9104 - EE0C5D4F06743A5EABEE72F31F0FF6FCB033B1446BE9B89112EC29B8FC0F70EF - E1E38CBF09CFCD39D5F7CD1DAEE4B9449C1A03701C9751FCE39D5D4A2E6522D0 - 866E17FF22178095843EB532D9DFACA8420980CB0A40C54DA68A3EB56F6EB75F - F56C881D22006FB680B4E5A13B4DB536EB0C52958718AB755A403E2DEF80BF27 - 2521AB920B52530000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003E54944415478DA - DD955D6C145514C7FF33B36D77D952281050902FCB8A74AB8D402DEDBA76B1A6 - 4896501142B028A105DAB47C941A890A292D1FF2D1E00B06358527134D782A1F - 29840A442925D604B5A8444C7830354AA8752DDBD9D9D99DB9D77B6767A69D66 - 1FED0BB3999C7B6736E777CEFF9C7347A094623C2FE1F100745CFF795C286B5E - 29106C00DB180FF99E27450C6BAE09617B40D7990505D1A8F19E101D3AE196DA - D6F82FBBDFA8D987BEABED4E0077A60C0DE2D78BEDF8FD9B0EC8B28CA827170B - CB5F4761C5DB70B927994E4C8754B7D7945BE68007C1D7EBB6A60124D418EE7C - 7E1CA4F7022231050F878731A8C431202B78B1AA162FBDD90C486E23729ED1D1 - F31969A5A90B0D61436DB3135019F2E36EF745F49FD90B414D201257F1AF40E1 - 9A968381070F31F0288EC6CFBAE07DD26F46CD65647270D9A899914EA1D1944C - 5575FB9D80D565F9B87ABA1583D7BE404214214DCAC60CDF2C3CE39B8EC8DFFF - E05CC74D846B0F604E4915AB8268383C71C99D36832DC108DEAA6F7102563140 - E7478DD086EEC0E79F87291327C0EB11118BCAC81029AE7FFD0366966E832FB8 - 1144108D68ADA272ED3592D2DECA64D38E5627201C5C84B30737635AE61F08BC - 5C00558E4361FA27985C2E11E8EAFA0EF35EDB83FCE00626896076162F2A9765 - B473628037EF3AE804AC0C3C8B530DAFB236BA8F70E5327833DC88C754482C7A - 5989E2CBB3DD285AB71F4BC25B98448211A56E69CFB33023B7C0358D879C8015 - A50BF169730DEEF55C4645E83914E64F413291448224D17BBB1FB77AEE21DCF2 - 318A8AD7B276E63520C64DCCF6E4B3414DB998C1D6A631808A121FFA6EF4E0A7 - 96D3C8F5C6E1298940CA5531709F42E99D0C817890D7DE84F94FF8ED880F9CEC - 4C5BE4DDD5E5A87DE7B013505EBC00DD4D9F60EAED3FA16851C4973F40CED224 - 94CE89F0FE32035474E16E2013853BAB91E3CE75E86D4F314D3DE33EEBDE3DE2 - 042C5F9A871B45DB317942162455042D559053C0D4BE928DD85F2C0B68901F25 - F05B830F2BD6541B83F6E1A9CB6933D8B92984FA3D479D80D0923C5C2BAA47B6 - 3B035EC1059A4D206501AE6117D4A40E59D3580308F8FEA9382ACFB419DD4347 - 1D13562DA8D9510DEF1D7302822F3C8D4B8BB761BAC70B8F4B42A628B17162DD - C2A659D535C4182496D0F0E3A22CAC3FD1C29C11B4B577A5CDA061631976BC3F - 0610289C8F6F3BBF427F6F1FD44814601DC465607D0A2231505626A45953915F - 16C0CCD9730D9DC9E813D43A81CD5AECFAE0B81350F2FC1CB3B7C9C884EAB0F7 - 464BEAA39C5A00E33D6CCB01FCD7B8B7CD0928F6CF368FE05427A48668044638 - CC76689DFB23DF0D0B0A3393DDFBC6005A8F9CFCDFBF6836603CAF7107FC0730 - 314BFE0CBC83B80000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002874944415478DA - B5944D68134114C7DF50C47E585BA2D0B095924095A51E4CA5CA2208D58BE9AD - 154F06CA565452A1A224E736F4165088F45222480881DE6C901EA4274F122FC9 - 0A3DE450684C2FA188C4A6F9EA6EB2CE5BBBC36E13936CA40F1E339999FC7FFB - E63F3344555538CB20670EE864D1FA7AC2471B81E6384DD7C9B044739766C2EB - 15DE760C0804246349F18101A53438A83CE6790EC6C62E82D339C4268B451962 - B1644B5053C0CACA0DF63B184C42A5D20399CC1736B6BC2C6A2004E8B9BD9DC6 - 29FF6908317E7520E022B4EFA1DD18428E8E6428148E211CDE8DD3B9B993B5DA - BCDF3F6102944A0AA4523F1A20C4F8D50B0BEF2012798510D5E79BD0C4313736 - B21ADC58E5E2E2559378B9FCB7CD660F80024853000642D6D65E3071CCADAD1C - 033C7BFE441DE55EC2FCBCA3411C7367A704767B85556102C8721DAAD59A49DC - 66EB856834A301425E507F2AD7A176E91E9CEF7B0A333323267145A9433E9F6F - 345914439B3E9F6796E32E306104A1389AB9B7F75B83B8875D50EBE761F36B11 - F2E7EEC395D1D726F31D8E69AD32FD3FABAB115681872E7C8490C3C3636DF1FE - 7E8196DACF8EA60E79303205A4AA40F0130797C7DDF03EFC81E8772597EB7D83 - 000C141704C16F344E83D0EEAC3EE676BB9B4286732E887EE321994A9B8E396E - 35027471F4A1E54DA65BA7FE0B623C5546006E992EDEF4A2E981860A3C2D5D0A - 811548DB9B6C14770922A43312843E8B5D43483BF14A4E82047D05A44A779590 - 4EC47543AD7A6202B413EFD6786245BC1B08B12A6E1542961EDAD4E93BD7A047 - FE0EF6BE7247E2ED2078D1F055665B74739257EFF2BFC03974D0B1782B087D91 - E31430673279EAF62DB52E172C89378344221F9978C331FD9F40086D4CE2187F - 00FADE10E28785B5A40000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actDatosDe: TAction - Category = 'Empresa' - Caption = 'Datos de...' - OnExecute = actDatosDeExecute - OnUpdate = actDatosDeUpdate - end - object actPreferencias: TAction - Category = 'Empresa' - Caption = 'Preferencias' - Visible = False - end - object actGestionEmpresas: TAction - Category = 'Empresa' - Caption = 'Gesti'#243'n de empresas' - end - object actSucursales: TAction - Category = 'Empresa' - Caption = 'Sucursales' - Visible = False - end - object actNuevaEmpresa: TAction - Category = 'Empresa' - Caption = 'Nueva empresa...' - OnExecute = actNuevaEmpresaExecute - end - end - object MainMenu: TMainMenu - Images = LargeImages - Left = 40 - Top = 16 - object Empresas1: TMenuItem - Caption = 'Empresa' - object Gestindeempresas1: TMenuItem - Tag = -1000 - Action = actGestionEmpresas - end - object N2: TMenuItem - Tag = -100 - Caption = '-' - end - object N1: TMenuItem - Tag = 7000 - Caption = '-' - end - object Sucursales1: TMenuItem - Tag = 8000 - Action = actSucursales - end - object N3: TMenuItem - Tag = 8999 - Caption = '-' - end - object Datosde1: TMenuItem - Tag = 9000 - Action = actDatosDe - end - object Preferencias1: TMenuItem - Tag = 9001 - Action = actPreferencias - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000011A4944415478DA - 63FCFFFF3F032580916203966D3945B60991DEA68C6003D4BD9919269F4CC6AA - E8F7DFBF0CDFFFFC61F8F6FB37C3C71F3FC0ECB9FE5B19523CE6309CDB310D61 - 0008C00C996B760EC3209B6D7270CD208062C02E9134B8429866E6534C1081AB - 0C0C7F13FF81999A6B4519BE035D02728DDCB204220CB80A118319A0B04200AC - 19843556A762370024B9DCFA328617903583BC62B83E13350C40FE074B421581 - 70EF05569C31907DD8036140F7E4F9180AA6DAEE60B04CAE6660905064F8717C - 2AC3F97DE719E6EE7BCE30A5C50BCE9EB3F73B23232E1B8EB528861E7CADB6EA - CEE58358E5939D24C32CABEFADC667C07F8A5D00A456811452D505208D5635F7 - 5783D480F211C92E98BBEF075C0FD8004A73230074DEE0E1BE54FBD500000000 - 49454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001EC4944415478DA - A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B - A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842 - 5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B - 3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB - 9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F - 44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C - 43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C - 3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9 - 28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358 - 9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8 - BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21 - 4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991 - 22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA - 5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06 - 0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF - C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001FA4944415478DA - A5934B6813511486BF342610A2C50A86A220150BA2145C58D120828ABA2AD2BA - F0B510C48D1B1154A828A55D5877825474AB45375D58A80B9385292DA8A8B151 - 6B6D8DB50F43C1B4C624364C1E73E7E19DA96408B50BCDC0E5CC65E6FFFE7FCE - DCE3324D936A2E577FE46355041BD076B0C9DE280B23E412E3F6FD9A4DDBF107 - 76965F3464524D33109A8E2A7459350E1FBFEC002CF1FCEB1EF28B82F98534C9 - 5C9203A7EFB2A1712F9A6E70A557AD706EA88970FFD1C012E0E8BECDCC3EEF22 - 33338DAECBA7A64E36FB8B5431C389EBB12557B93461D8CED6FE71F8A5036809 - AE271EBA0879177E9F0FB704284A9ED8B7498EB5476D71671F2B276809D63337 - D481B75892EEC86F5429140A7CD7D6D17CEA4E85B3D5070B181A8A3A00AB07C9 - B70F512643567E8410E4F22A46432B8D7B4E2E130BD9C4672F629580A9D02B86 - E76EB0CDF0CA0425A205D8B5F11C5B8F1C5A26B6D6F09B0F0E2058AB11B97495 - D44F95FAB34D881A831F0F26989A9EA0FDEB275B7CEDD6938A1EECDE117000FE - 701FF1A703D4153D28AB6B71E3C2A72C92F6A8C413292E8CBD2F3B8B3F67213A - 3AEE000AB7BB49CC8E11D03CAC92BFDB251D4A5E93B45B90984973FEDD08DDF7 - C22B27889D69239355FE7A54EBD6FA690D0FDAAEBA61DAD59075F4F31707B0BF - 790BBDFD83FF3C076540D7CD9EFF1FA66AC7F93783B161288AF0DFC000000000 - 49454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001FE4944415478DA - A593DD4B145118C69F5574D5458A40DD44FCCA9B42D88B8494104A1242C4AF0B - 4DF1CA3FA08822C110F7C6BA124151BB8990F422304183564165053FD05D575C - 4334694D8D1A97C65DDB666677CE7C78668C1D16F3A276E0F09EC3CCFB7B9EF3 - CEFB9A5455453C8F697C76332E820EA8AF28D60F9C7F0DA1832D7D9F9E7B0396 - CC9BD10F15EA54921410498648641A2554363E31005AF2D14A1FF85F0447FE63 - 302106775B06905D741B92ACE0E9B018A39C9F308B37231367809AF2027C5DB0 - 23B0E7832CD3B7AA8C60F0043FC301343DF79CA9D225114557D6CEEFA7960C40 - 755906761C8F00DE044B6A2A122980E37878F677D1D0EED293BBDEE16207D565 - 567C737622391CA1EAA077142108027E485750D2DC1FA3ACD541033A9C2E03A0 - D58071BF05B7EBD0FC831082102F42C9AF4351E98373C984167166D1130B18DB - 6710986B43B198421D44B0282AB0DAECA8B25D3F97ACADF9D50D0390919783D6 - A14F601358D4DE8B4015C3F8E8B420B8EEC6C1E8333DB9A36732A606B76C9906 - E0C31782B1E94384AC57713999859A988413E112D2FCDFC1B3CBD87EFD38AA4C - FEF482CBBB6500BAE759F8DC8710B27211369B697B9990F29B83F998A1202F36 - 5F3D44F7E0D4C50E1A7A97E92FF4FDBD57D30AE17E795F579515558F0A8DDEED - CF06E04EC9350C8FCFFDF31C4401F6177DFF3F4CF18EF329BD276228E7D4407E - 0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F330000012D4944415478DA63FCFFFF3F0325 - 80916203966D3945B60991DEA68C6003B42CC41852B26F6355F4E7E77F86DFDF - FE31FCFEFC97E1FBFBDF60F68E73460C89D19D0CE7764C4318000230434E2E77 - C63048416B135C3308A018D0B7F8235C214CB30CFF5E880B3E3F6278F12F11CC - 16175BC3F0FFF76F06865F7F18E4EC4E103600A41904600688092E076B66001A - 22E77C16BB01BFBEFC6338BFD915C30BC89A19FFFC619075BF881A0620FF8334 - FFFAF297E1D75760A07DF9C3B032A610670C641FF64018D03D793E8682A9B63B - 184C53EA197E89A933309DE86638BFEF3CC3DC7DCF19A6B478C1D973F67E6764 - C465C3B116C5D003AFD556DDBD7C10AB7CB293649865F5BDD5F80CF84FB10B80 - D42A9042AABA00A4D1AAE6FE6A901A503E22D90573F7FD80EB011B40696E0400 - A0BEE1E16734A0290000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000023A4944415478DA - A593DB4B54511487BF39733C3A9A9930A99486541086169598264184522F3D84 - 34200541FF400FD24B17886E6405911111111614158414955866669A1682E565 - 2A310BAF9490CC4C303367CED9E7B4CF0C34F9E043B95FD67ED8EB5BBFF55B7B - B96CDB6621C7D5D436B820421CB07B7B31C1994986EF9E67EAFD6B66748BBCF2 - 6ACA7D07513D5E8430318585B06C4CD38982C58BD2A8F6D5250015856E461E5C - 461DEA623C1060C634980E8428F31DA072DF4999A050FF449B53B95069A3F1F6 - A304C03BD9CC647323564C472CC964457101A1C02CC35F83D41CB9436A762186 - 252B4B15A62930E5BDB5B32F09D0061A098D77B366DD4ABCD919A4692E8C6898 - 573DA394D49C25ABA0848B2D9EF915443A2EE00EFBD9B9AB8C48304A241CC632 - 755E747DA3747F03D9F94508D9BB21EC78741474BCFB90048C3E3CCAD4A7767C - 7B2A599695251FC5181E9BE0D99B097C87EFB1347FAD4C962D1889644B9AD9D9 - DBFF570BD3FD0CDCBCCF6AAF4E6EA5C1AF90CE582B0473F2D871A29E742D33E1 - 813301D38E4FA1BB6F2809C878DA85DA3E82AD06A0761AD70F0DED713ED1F454 - A60E6D60D3C62A4E5F6999E3C1E6F5394940FAB11BA4842268AA0B75AB8EE767 - 1A51BF228D140CE5EA6CB9762A2E3D3E05A705E945EFC0C72440ADBB8AC71064 - A6A8286E05372E624260183018FA4E45CB25CE5D7F3EBF82E8DB1E66FD5F2010 - 469146D96E09502096E2C62A5A4ED5DEDA7875E7273AD1D99F3EFFE724605BE9 - 2A6E35BDFCE73DF803387EA6E1FF9769A1EBFC1BC1A15528DD8924DF00000000 - 49454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000B1300000B1301009A9C18000001604944415478DA - A5923F48C34014C6DF81B838A88B145DD22D20D8E8505737330A5D9CE4BA650C - 34739BEE0AE7E658B277A8939364B5A0C6A19231500417A14D177539EF1D5EB8 - E64F1D3C7821B9F7BE1FDFFB08E19CC37F0E512FBE1FE9244FD465C9BCE7FBD6 - 5529000FA58C33E60063B1005A04BFF1BEDBA550AF6F42BFFF5280C8A1C1C025 - CA45ABB507C3E19B04FCDE75D04DAFD780F9FC4BC275880418C649E6220F5060 - D735613A5DC81A8FD3AC4F946D6C4C261FD06CD62008926C40B4F8AC164930CE - A4E937DC3F8E6077E354BA4040470FCCB66D5186B4BAF56E814329C44904EC8E - CAFE6C6D013BDBEB08280D51C274C89949210C23081E4C787A8E899E49BB7DBD - 0CA882DC8ECEA558CF244942C0F00B00DC196D3B37D6D23A7AA895FF8112E3CE - 683BFA647F42489518773E68385E7E9D3C845489D5CE6599E810B24A5C166CFE - 3F918FA343935F1CC7A5E23C44D4AB487FBF900142AAC4ABCE0F9C32EE2C4B99 - 4F200000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002D84944415478DA - ED946D48535118C7FF57855EB4171542B01756516845C868B63E4A1F2A7B1996 - 990B845008EA637DD2A828F34BF521D220C98484C28232B24C302329456D380D - A99C75035FB6A5B3E9ACAEBA7BD773CF4D9BEE6E6E23F6217AE0F09C73EE73CE - EF79CEFF9CCB793C1E44D2B8FFC07F0378EF697BC4A833C0DCCC6D616DE0163D - 104589BCC43CEB4B5E7DE62986E6728E9F9D0D3CD69A163448A47593A28849B7 - 5BF1731B01A6BFD7E97AC0F70DA0B0A4DC175899DE310B9CECC8C485DD17FD82 - 25DA58621589D8FB3003A3715F18ACCB60C3DAEA7806ADD759D03768F50F944D - EEABC1CC5C07B4AD5AE0230D3602A6741352845406945B56ED2E0C2CB0E0C3C1 - 2116BFA22A160DBA5E0CDAED812BF48645B745013C1D638EA4F40966CA33417B - 9BC09B00D7E6712C791C07AC0386D60F23A77E1F5E189B91786731ABB029FD33 - ECC343EA40B5A38CAE268844C05C02564529B0BB5A988CE4CBB5701E19C5F2DA - 652CD6B6D30E63830166B77946CFD7DB7938461C2100E5AA2C043CFABBC26E9A - 5C484D00ABD0B16104897509ACC2FE95FDC87B958DB609D30CF08D8EC798CB19 - 18A87661648DDEC574291A76D2C45645C3D58E35EC9B7B6ACA07265B93F613BE - FF189BFF96CA0B34CEFD0C2A6F386EEB467C4F61C0E7B2CADC80AF4B454C14B8 - C1DDE4D8DCCB340B04613C70856A6FABB81DD0E71701491A128B677102FF8C79 - 276F65FE4C45076E1565CC4AE291EB0416C527FB02E7FB7BF4DED882A48C2C68 - F457C0B79C562E09AF3C23F04A02158D569416EFF149E2D0B9165FE0F32673C0 - E31AB0BC45AAAD846DAA66D66F024ACB4EA9262103CBAE5DFD03BC7CBD12C158 - 72AC0B4F4E8E048C29B8D4E83DAC791F73C0F0934B600306E4382E28986CCDC5 - 1A4FA83A5202872B1A8507610383D5D13B010272E102B3694323750D7E426AF2 - F37718E62610165086E9F529F743D08F2540ED3C013BC30106A5DF74356A1632 - 3018FDFE26705EFDBC8FCF2F30921671E02FBE648AC22CC7AE57000000004945 - 4E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000002F94944415478DAED946B48936114 - C7FFAFDA55CD5CD32E46609161D087082129E8B2794B50495B5EBE140C83A2CF - 5DD13E9804111195502441068D04D32C2DCD6181592D2F594CF2B291A6DB9C9A - 3AB3E9DE4BCFFB583ADBC539621FA2030FE7BCCF7B38BF739EFFF3BE8C2008F0 - A531FF81FF06F0C1538DCFA833C0ACE418AF0AB09C008EE389E7A9A7316F1753 - 4F72C8DEE16379738131992F3C06092C814D0AB05949C1499EC6A2E726391AF3 - 53FCF462593434C9A0EFEDC3D9C2DB8E408D4A3E079CBCAF1B79B9B92EC13CE9 - 9CA71371484C54A1B367250519BF1E8454A202C3F2A86F96A1B7DFE01A289A18 - 3B837D1CEE41526427584B3F0282D7A15ABF195181AB29505C29296568D70661 - 602083E64B034BA06E96A3DF64723FA13D6C7D481DB871330C5C268D4558EDE0 - 1EC449EB0874033A0CB1D8145401FFE070B4E9B7233DBD122FEB8F206CF93D90 - 2E50D3120FD3A0D939D0D951AEF55711D10418F82CACF12BA1B07869036A0677 - 412E7D8EAED14C44853CA1B96D2639148A2A68DFF95198B8AA5A1330343CE439 - 904E68311260CEAF097BC060290458E9849FBEEC40B4A49A4EA8698F46764E2D - B48DC20CB0A23901639611F740671746D4483BDA4735B459745814BC916A1881 - 20FA8EB5D91C60A29569E2F07D626CFE5BCA5A05A426E928542C68316A21E938 - E3F6735992B6172B264261669508636ED1BDD2B73258ADE3EE2714619C75F6FB - 12FDFD832711A3CCC754F8162C1EF83C9DA77B4CFD88DE40FDF9E216DC39B77F - 4E138F2CC7B12C34C21138DFDFA3AB681B56C91488DA79091D6F4ED35CB3BE89 - 7A3F5D37F5C56A036E141C70682223BFD111F8EC55ABDBE3EAEB7C8FADC6425A - D49919BE5971B5E894D32644E0CD6B57668197AFDF852716116841E58961B739 - CA8B6AFBC7F2F680D4B41F8C843E5020C3301EC1447B5D10292C5447D280A258 - 6D2DF51AE8A98EF60D1020E32DF01029984DC2341729E54795BBD3FE6CC02BA0 - 088B8D8D7EB800FD6803645D20C00FDE003DD2EFF734CE6CC1404FF4FB9BC079 - F5B33F3E97405F9ACF813F01DF078FC2BAE18F2B0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 94000000097048597300004E2000004E2001167D99DE000002C04944415478DA - E5D54D6813411400E0B788D816B1A5150CA99404AA2CF5E02AFE2C82503DA5B7 - 14BD054A2A6A130F5549CE6DDA9BD0424A2F69041B42A517B1417A909E3C497A - 3129F49043A131BD8422129BE6A7CDCF3A6F935932C96E9AB0928B0F1E43B233 - FBCD4CDE4C384992A093C1FD1F20C7712D0FF0F9C22ED2882487490AD5AFA324 - F748861D0E71516BAC6CB50356B1059E37C2D0D025309B7B99E72B2BDB4D6155 - D0E389D6EE7188E4278F47F85805A564B20BE2F16F4A879919BB0C67320525B7 - B662F8C85D8F6A82B3B33795CF73733B0C5A1BA4AF8D346B6EF7080366B34588 - 447E36A00A485E2A555E2070F425881E1F17209D3E05BF7F2F449E8DAB6D334E - D0E9BCC660B95CA54D240E81809C2A88C0E4E41204026F10955CAE1119C35C5F - 4FC893A9C75EBC7C260D1AA76162C2D48061EEEE66C160C82BAB6C0031105D5E - 7EA560989B9BC906D0EB00E957F10694061EC185EEE730367685C18AC532A452 - 2966825353F739062C14CA70725262B0FEFE2E0806E30C8898C803947A78D8F8 - 9E81D4F9C77075F02D534C26D3A8BC722CA8FDFD3F303F1F80D5D5D71590AC6A - C3E5B2598DC68B0A8430627400452926887652186BC09D14E1DD17235C1EB6C0 - 7BFF078E1E1F52CD0B086220268AA29BAC7091AED04666F714D1A3A353B9D3C1 - 419AEC7F8F72DE286AE913642C168F423E1985303901C16D1E7E4462CC96631D - 204831FC1D996381D58928E96BA5832C168B2A6AE5ED4D310AE216534CF31CD6 - 86DDEE95B4D0BEA4A08969454B575B3354EDA8E8026981F8A25EF8176853B0B6 - 1AB140BC5FEDBA514DB01EA30512CDEB5BA92AA885D102D1F39B368067617A0B - 89015BC5F4A00AB8E4E4DAC2CE42F176C17F1D4D70FAC98034FAE03A9C2BEC80 - A13BD712D60C2577738880E39A206EE9ED5BBCF490FF0DE6DEC3B66F905A3410 - F8AC8AA916CD9D7B77A57221DD16568B92461363C04E46C7C1BF0E73BFE74CCD - 6AD20000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end> - Left = 232 - Top = 80 - Bitmap = {} - end -end diff --git a/Source/Modulos/Empresas/Plugin/uPluginEmpresas.pas b/Source/Modulos/Empresas/Plugin/uPluginEmpresas.pas deleted file mode 100644 index 6a207cc4..00000000 --- a/Source/Modulos/Empresas/Plugin/uPluginEmpresas.pas +++ /dev/null @@ -1,142 +0,0 @@ -unit uPluginEmpresas; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList, uBizEmpresas, - uEmpresasController; - -type - IEmpresasPlugin = interface(IInterface) - ['{4E732376-FFD0-4E72-846A-224A6E27FA85}'] - function Empresas : TStringList; - function Controller : IEmpresasController; - end; - - TPluginEmpresas = class(TModuleController, IEmpresasPlugin) - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - Empresas1: TMenuItem; - Preferencias1: TMenuItem; - N1: TMenuItem; - Gestindeempresas1: TMenuItem; - Datosde1: TMenuItem; - actDatosDe: TAction; - actPreferencias: TAction; - actGestionEmpresas: TAction; - N2: TMenuItem; - actSucursales: TAction; - Sucursales1: TMenuItem; - N3: TMenuItem; - actNuevaEmpresa: TAction; - procedure actDatosDeUpdate(Sender: TObject); - procedure actDatosDeExecute(Sender: TObject); - procedure actNuevaEmpresaExecute(Sender: TObject); - protected - function Empresas : TStringList; - function Controller : IEmpresasController; - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, - uEmpresasViewRegister; - -function GetModule : TModuleController; -begin - Result := TPluginEmpresas.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -{ -******************************* TModuleEmpresas ******************************* -} -procedure TPluginEmpresas.actDatosDeExecute(Sender: TObject); -var - AController : IEmpresasController; -begin - AController := TEmpresasController.Create; - //AController.Ver(dmUsuarios.EmpresaActual); -end; - -procedure TPluginEmpresas.actDatosDeUpdate(Sender: TObject); -begin -{ with (Sender as TAction) do - begin - if Assigned(dmUsuarios.EmpresaActual) then - begin - Enabled := True; - Caption := 'Datos de ' + dmUsuarios.EmpresaActual.NOMBRE - end - else begin - Enabled := False; - Caption := 'Datos de la empresa'; - end; - end;} -end; - -procedure TPluginEmpresas.actNuevaEmpresaExecute(Sender: TObject); -var - AEmpresasController : IEmpresasController; - AEmpresa : IBizEmpresa; -begin - AEmpresasController := TEmpresasController.Create; - AEmpresa := AEmpresasController.Nuevo; - try - AEmpresasController.Ver(AEmpresa); - finally - AEmpresa := NIL; - end; -end; - -function TPluginEmpresas.Controller: IEmpresasController; -begin - Result := TEmpresasController.Create; -end; - -function TPluginEmpresas.Empresas: TStringList; -var - AEmpresasController : IEmpresasController; - AEmpresas : IBizEmpresa; -begin - AEmpresasController := TEmpresasController.Create; - AEmpresas := AEmpresasController.BuscarTodos; - try - Result := AEmpresasController.ToStringList(AEmpresas); - finally - AEmpresasController := NIL; - end; -end; - -constructor TPluginEmpresas.Create(AOwner: TComponent); -begin - inherited; - uEmpresasViewRegister.RegisterViews; -end; - -destructor TPluginEmpresas.Destroy; -begin - uEmpresasViewRegister.UnregisterViews; - inherited; -end; - - -initialization - uHostManager.RegisterModuleClass(TPluginEmpresas); - -finalization - uHostManager.UnRegisterModuleClass(TPluginEmpresas); - -end. diff --git a/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.dfm deleted file mode 100644 index 265163ef..00000000 --- a/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.dfm +++ /dev/null @@ -1,633 +0,0 @@ -object srvEmpresas: TsrvEmpresas - OldCreateOrder = True - OnCreate = DARemoteServiceCreate - RequiresSession = True - ConnectionName = 'IBX' - ServiceSchema = schEmpresas - ServiceDataStreamer = DABin2DataStreamer - ExportedDataTables = <> - BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection - BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData - Height = 166 - Width = 351 - object schEmpresas: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'IBX' - Default = True - TargetTable = 'EMPRESAS' - Name = 'IBX' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'NIF_CIF' - TableField = 'NIF_CIF' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'RAZON_SOCIAL' - TableField = 'RAZON_SOCIAL' - end - item - DatasetField = 'CALLE' - TableField = 'CALLE' - end - item - DatasetField = 'POBLACION' - TableField = 'POBLACION' - end - item - DatasetField = 'PROVINCIA' - TableField = 'PROVINCIA' - end - item - DatasetField = 'CODIGO_POSTAL' - TableField = 'CODIGO_POSTAL' - end - item - DatasetField = 'TELEFONO_1' - TableField = 'TELEFONO_1' - end - item - DatasetField = 'TELEFONO_2' - TableField = 'TELEFONO_2' - end - item - DatasetField = 'MOVIL_1' - TableField = 'MOVIL_1' - end - item - DatasetField = 'MOVIL_2' - TableField = 'MOVIL_2' - end - item - DatasetField = 'FAX' - TableField = 'FAX' - end - item - DatasetField = 'EMAIL_1' - TableField = 'EMAIL_1' - end - item - DatasetField = 'EMAIL_2' - TableField = 'EMAIL_2' - end - item - DatasetField = 'PAGINA_WEB' - TableField = 'PAGINA_WEB' - end - item - DatasetField = 'NOTAS' - TableField = 'NOTAS' - end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end - item - DatasetField = 'LOGOTIPO' - TableField = 'LOGOTIPO' - end - item - DatasetField = 'REGISTRO_MERCANTIL' - TableField = 'REGISTRO_MERCANTIL' - end - item - DatasetField = 'IVA' - TableField = 'IVA' - end> - end> - Name = 'Empresas' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_EMPRESAS_ID' - ServerAutoRefresh = True - DictionaryEntry = 'Empresas_ID' - InPrimaryKey = True - end - item - Name = 'NIF_CIF' - DataType = datString - Size = 15 - DictionaryEntry = 'Empresas_NIF_CIF' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_NOMBRE' - end - item - Name = 'RAZON_SOCIAL' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_RAZON_SOCIAL' - end - item - Name = 'CALLE' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_CALLE' - end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_POBLACION' - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_PROVINCIA' - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - DictionaryEntry = 'Empresas_CODIGO_POSTAL' - end - item - Name = 'TELEFONO_1' - DataType = datString - Size = 25 - DictionaryEntry = 'Empresas_TELEFONO_1' - end - item - Name = 'TELEFONO_2' - DataType = datString - Size = 25 - DictionaryEntry = 'Empresas_TELEFONO_2' - end - item - Name = 'MOVIL_1' - DataType = datString - Size = 25 - DictionaryEntry = 'Empresas_MOVIL_1' - end - item - Name = 'MOVIL_2' - DataType = datString - Size = 25 - DictionaryEntry = 'Empresas_MOVIL_2' - end - item - Name = 'FAX' - DataType = datString - Size = 25 - DictionaryEntry = 'Empresas_FAX' - end - item - Name = 'EMAIL_1' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_EMAIL_1' - end - item - Name = 'EMAIL_2' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_EMAIL_2' - end - item - Name = 'PAGINA_WEB' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_PAGINA_WEB' - end - item - Name = 'NOTAS' - DataType = datMemo - DictionaryEntry = 'Empresas_NOTAS' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DictionaryEntry = 'Empresas_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DictionaryEntry = 'Empresas_FECHA_MODIFICACION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'Empresas_USUARIO' - end - item - Name = 'LOGOTIPO' - DataType = datBlob - BlobType = dabtBlob - DictionaryEntry = 'Empresas_LOGOTIPO' - end - item - Name = 'REGISTRO_MERCANTIL' - DataType = datString - Size = 255 - DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL' - end - item - Name = 'IVA' - DataType = datFloat - DictionaryEntry = 'Empresas_IVA' - end> - end - item - Params = <> - Statements = < - item - Connection = 'IBX' - Default = True - TargetTable = 'EMPRESAS_DATOS_BANCO' - Name = 'IBX' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'ENTIDAD' - TableField = 'ENTIDAD' - end - item - DatasetField = 'SUCURSAL' - TableField = 'SUCURSAL' - end - item - DatasetField = 'DC' - TableField = 'DC' - end - item - DatasetField = 'CUENTA' - TableField = 'CUENTA' - end - item - DatasetField = 'SUFIJO_N19' - TableField = 'SUFIJO_N19' - end - item - DatasetField = 'SUFIJO_N58' - TableField = 'SUFIJO_N58' - end> - end> - Name = 'EmpresasDatosBanco' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID' - ServerAutoRefresh = True - DictionaryEntry = 'EmpresasDatosBanco_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'EmpresasDatosBanco_ID_EMPRESA' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'EmpresasDatosBanco_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'EmpresasDatosBanco_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'EmpresasDatosBanco_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'EmpresasDatosBanco_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'EmpresasDatosBanco_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N58' - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = <> - RelationShips = < - item - Name = 'FK_EmpresasDatosBanco_Empresas' - MasterDatasetName = 'Empresas' - MasterFields = 'ID' - DetailDatasetName = 'EmpresasDatosBanco' - DetailFields = 'ID_EMPRESA' - RelationshipType = rtForeignKey - end> - UpdateRules = < - item - Name = 'Insert Empresas' - DoUpdate = False - DoDelete = False - DatasetName = 'Empresas' - FailureBehavior = fbRaiseException - end - item - Name = 'Insert EmpresasDatosBanco' - DoUpdate = False - DoDelete = False - DatasetName = 'EmpresasDatosBanco' - FailureBehavior = fbRaiseException - end - item - Name = 'Update Empresas' - DoInsert = False - DoDelete = False - DatasetName = 'Empresas' - FailureBehavior = fbRaiseException - end - item - Name = 'Update EmpresasDatosBanco' - DoInsert = False - DoDelete = False - DatasetName = 'EmpresasDatosBanco' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete EmpresasDatosBanco' - DoUpdate = False - DoInsert = False - DatasetName = 'EmpresasDatosBanco' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete Empresas' - DoUpdate = False - DoInsert = False - DatasetName = 'Empresas' - FailureBehavior = fbRaiseException - end> - Version = 0 - Left = 46 - Top = 22 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'Empresas_NIF_CIF' - DataType = datString - Size = 15 - DisplayLabel = 'CIF' - end - item - Name = 'Empresas_NOMBRE' - DataType = datString - Size = 255 - DisplayLabel = 'Nombre' - end - item - Name = 'Empresas_RAZON_SOCIAL' - DataType = datString - Size = 255 - DisplayLabel = 'Raz'#243'n Social' - end - item - Name = 'Empresas_CALLE' - DataType = datString - Size = 255 - DisplayLabel = 'Calle' - end - item - Name = 'Empresas_POBLACION' - DataType = datString - Size = 255 - DisplayLabel = 'Poblaci'#243'n' - end - item - Name = 'Empresas_PROVINCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Provincia' - end - item - Name = 'Empresas_CODIGO_POSTAL' - DataType = datString - Size = 10 - DisplayLabel = 'C'#243'd. postal' - end - item - Name = 'Empresas_TELEFONO_1' - DataType = datString - Size = 25 - DisplayLabel = 'Tel'#233'fono 1' - end - item - Name = 'Empresas_TELEFONO_2' - DataType = datString - Size = 25 - DisplayLabel = 'Tel'#233'fono 2' - end - item - Name = 'Empresas_MOVIL_1' - DataType = datString - Size = 25 - DisplayLabel = 'M'#243'vil 1' - end - item - Name = 'Empresas_MOVIL_2' - DataType = datString - Size = 25 - DisplayLabel = 'M'#243'vil 2' - end - item - Name = 'Empresas_FAX' - DataType = datString - Size = 25 - DisplayLabel = 'Fax' - end - item - Name = 'Empresas_EMAIL_1' - DataType = datString - Size = 255 - DisplayLabel = 'E-mail 1' - end - item - Name = 'Empresas_EMAIL_2' - DataType = datString - Size = 255 - DisplayLabel = 'E-mail 2' - end - item - Name = 'Empresas_PAGINA_WEB' - DataType = datString - Size = 255 - DisplayLabel = 'P'#225'gina web' - end - item - Name = 'Empresas_NOTAS' - DataType = datMemo - DisplayLabel = 'Notas' - end - item - Name = 'Empresas_FECHA_ALTA' - DataType = datDateTime - end - item - Name = 'Empresas_FECHA_MODIFICACION' - DataType = datDateTime - end - item - Name = 'Empresas_USUARIO' - DataType = datString - Size = 20 - end - item - Name = 'Empresas_LOGOTIPO' - DataType = datBlob - BlobType = dabtBlob - DisplayLabel = 'Logotipo' - end - item - Name = 'Empresas_REGISTRO_MERCANTIL' - DataType = datString - Size = 255 - DisplayLabel = 'Registro mercantil' - end - item - Name = 'Empresas_IVA' - DataType = datFloat - DisplayLabel = 'IVA' - end - item - Name = 'EmpresasDatosBanco_ID_EMPRESA' - DataType = datInteger - end - item - Name = 'EmpresasDatosBanco_NOMBRE' - DataType = datString - Size = 255 - DisplayLabel = 'Nombre del banco' - end - item - Name = 'EmpresasDatosBanco_ENTIDAD' - DataType = datString - Size = 15 - DisplayLabel = 'Entidad' - end - item - Name = 'EmpresasDatosBanco_SUCURSAL' - DataType = datString - Size = 15 - DisplayLabel = 'Sucursal' - end - item - Name = 'EmpresasDatosBanco_DC' - DataType = datString - Size = 15 - DisplayLabel = 'DC' - end - item - Name = 'EmpresasDatosBanco_CUENTA' - DataType = datString - Size = 15 - DisplayLabel = 'Cuenta' - end - item - Name = 'EmpresasDatosBanco_SUFIJO_N19' - DataType = datString - Size = 3 - DisplayLabel = 'Sufijo 19' - end - item - Name = 'EmpresasDatosBanco_SUFIJO_N58' - DataType = datString - Size = 3 - DisplayLabel = 'Sufijo 58' - end - item - Name = 'Empresas_ID' - DataType = datAutoInc - GeneratorName = 'GEN_EMPRESAS_ID' - LogChanges = False - Required = True - DisplayLabel = 'ID' - ReadOnly = True - ServerAutoRefresh = True - end - item - Name = 'EmpresasDatosBanco_ID' - DataType = datAutoInc - GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID' - LogChanges = False - Required = True - DisplayLabel = 'ID' - ReadOnly = True - ServerAutoRefresh = True - end> - Left = 158 - Top = 22 - end - object Diagrams: TDADiagrams - Left = 158 - Top = 90 - DiagramData = - ''#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10 - end - object DABin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 88 - end -end diff --git a/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.pas b/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.pas deleted file mode 100644 index 68407ec0..00000000 --- a/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.pas +++ /dev/null @@ -1,81 +0,0 @@ -unit srvEmpresas_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DataAbstractService_Impl, - {Used RODLs:} DataAbstract4_Intf, - {Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor, - uDABin2DataStreamer, uDADataStreamer, uDAClasses, uDAInterfaces; - -type - { TsrvEmpresas } - TsrvEmpresas = class(TDataAbstractService, IsrvEmpresas) - Diagrams: TDADiagrams; - DABin2DataStreamer: TDABin2DataStreamer; - schEmpresas: TDASchema; - DataDictionary: TDADataDictionary; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); - procedure DataAbstractServiceBeforeGetDatasetData(aSender: TObject; - const aDataset: IDADataset; const aIncludeSchema: Boolean; - const aMaxRecords: Integer); - private - protected - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, uDataModuleServer, uRORemoteDataModule, - uDatabaseUtils, Dialogs, Variants, uROStreamSerializer, uROBinaryHelpers, - uSesionesUtils, schEmpresasClient_Intf, uUsersManager, - uRestriccionesUsuarioUtils; - -procedure Create_srvEmpresas(out anInstance : IUnknown); -begin - anInstance := TsrvEmpresas.Create(NIL); -end; - -{ srvEmpresas } -procedure TsrvEmpresas.DARemoteServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; -end; - -procedure TsrvEmpresas.DataAbstractServiceBeforeAcquireConnection( - aSender: TObject; var aConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -procedure TsrvEmpresas.DataAbstractServiceBeforeGetDatasetData(aSender: TObject; - const aDataset: IDADataset; const aIncludeSchema: Boolean; - const aMaxRecords: Integer); -begin - Exit; - if (aDataset.Name <> nme_EmpresasDatosBanco) then - begin - { Aquí se asegura que el usuario sólo accede a las empresas a - las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } - FiltrarAccesoUsuario(Session, Connection, ServiceSchema, aDataset, fld_EmpresasID); - end; -end; - -initialization - TROClassFactory.Create('srvEmpresas', Create_srvEmpresas, TsrvEmpresas_Invoker); - -finalization - -end. diff --git a/Source/Modulos/Empresas/Test/Empresas_Tests.bdsproj b/Source/Modulos/Empresas/Test/Empresas_Tests.bdsproj deleted file mode 100644 index 37154e7a..00000000 --- a/Source/Modulos/Empresas/Test/Empresas_Tests.bdsproj +++ /dev/null @@ -1,496 +0,0 @@ - - - - - - - - - - - - Empresas_Tests.dpr - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - ..\..\..\..\Output\Debug\Cliente - .\ - - ..\..\Lib - ..\..\..\Lib;..\..\Lib - DataAbstract_D10;Base;GUIBase;Empresas_model;Empresas_controller - _CONSOLE_TESTRUNNER;EUREKALOG;EUREKALOG_VER5 - - True - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - Empresas (Test) - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - DUnit / Delphi Win32 - GUI - - - diff --git a/Source/Modulos/Empresas/Test/Empresas_Tests.dpr b/Source/Modulos/Empresas/Test/Empresas_Tests.dpr deleted file mode 100644 index e43b0109..00000000 --- a/Source/Modulos/Empresas/Test/Empresas_Tests.dpr +++ /dev/null @@ -1,39 +0,0 @@ -program Empresas_Tests; -{ - - Delphi DUnit Test Project - ------------------------- - This project contains the DUnit test framework and the GUI/Console test runners. - Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options - to use the console test runner. Otherwise the GUI test runner will be used by - default. - -} - -{$IFDEF CONSOLE_TESTRUNNER} -{$APPTYPE CONSOLE} -{$ENDIF} - -uses - ExceptionLog, - Forms, - TestFramework, - GUITestRunner, - TextTestRunner, - uEmpresasController_Test in 'uEmpresasController_Test.pas', - uHostMainForm in 'uHostMainForm.pas' {HostMainForm}; - -{$R *.RES} - -begin - Application.Initialize; - Application.CreateForm(THostMainForm, HostMainForm); - Application.Run; - Application.Terminate; - - {if IsConsole then - TextTestRunner.RunRegisteredTests - else - GUITestRunner.RunRegisteredTests;} -end. - diff --git a/Source/Modulos/Empresas/Test/Empresas_Tests.dproj b/Source/Modulos/Empresas/Test/Empresas_Tests.dproj deleted file mode 100644 index 97df5837..00000000 --- a/Source/Modulos/Empresas/Test/Empresas_Tests.dproj +++ /dev/null @@ -1,579 +0,0 @@ - - - {a12ecf04-330a-4a69-9080-e0e6821e2fc3} - Empresas_Tests.dpr - Debug - AnyCPU - true - DataAbstract_D10;Base;GUIBase;Empresas_model;Empresas_controller - DCC32 - ..\..\..\..\Output\Debug\Cliente\Empresas_Tests.exe - - - 7.0 - False - False - 0 - 3 - ..\..\..\..\Output\Debug\Cliente - .\ - .\ - .\ - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - _CONSOLE_TESTRUNNER;EUREKALOG;EUREKALOG_VER5;RELEASE - - - 7.0 - 3 - ..\..\..\..\Output\Debug\Cliente - .\ - .\ - .\ - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - _CONSOLE_TESTRUNNER;EUREKALOG;EUREKALOG_VER5;DEBUG - - - Delphi.Personality - - - - False - True - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - Empresas (Test) - 1.0.0.0 - - - - - - 1.0.0.0 - - - - Empresas_Tests.dpr - - - - - - - MainSource - - - -
HostMainForm
- - - - - - diff --git a/Source/Modulos/Empresas/Test/Empresas_Tests.drc b/Source/Modulos/Empresas/Test/Empresas_Tests.drc deleted file mode 100644 index 7642ac97..00000000 --- a/Source/Modulos/Empresas/Test/Empresas_Tests.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Source/Modulos/Empresas/Test/Empresas_Tests.identcache b/Source/Modulos/Empresas/Test/Empresas_Tests.identcache deleted file mode 100644 index 6de1cb1d..00000000 Binary files a/Source/Modulos/Empresas/Test/Empresas_Tests.identcache and /dev/null differ diff --git a/Source/Modulos/Empresas/Test/Empresas_Tests.res b/Source/Modulos/Empresas/Test/Empresas_Tests.res deleted file mode 100644 index 346c5f0c..00000000 Binary files a/Source/Modulos/Empresas/Test/Empresas_Tests.res and /dev/null differ diff --git a/Source/Modulos/Empresas/Test/uEmpresasController_Test.pas b/Source/Modulos/Empresas/Test/uEmpresasController_Test.pas deleted file mode 100644 index 50cf2686..00000000 --- a/Source/Modulos/Empresas/Test/uEmpresasController_Test.pas +++ /dev/null @@ -1,178 +0,0 @@ -unit uEmpresasController_Test; -{ - - Delphi DUnit Test Case - ---------------------- - This unit contains a skeleton test case class generated by the Test Case Wizard. - Modify the generated code to correctly setup and call the methods from the unit - being tested. - -} - -interface - -uses - TestFramework, Classes, uEmpresasController, Contnrs, SysUtils, uIDataModuleEmpresas, - Forms, Windows, Controls, uBizEmpresas; -type - // Test methods for class TEmpresasController - - TestTEmpresasController = class(TTestCase) - strict private - FEmpresasController: TEmpresasController; - public - procedure SetUp; override; - procedure TearDown; override; - published - procedure TestEliminar; - procedure TestEliminar1; - procedure TestGuardar; - procedure TestDescartarCambios; - procedure TestExiste; - procedure TestAnadir; - procedure TestBuscar; - procedure TestBuscarTodos; - procedure TestNuevo; - procedure TestVer; - procedure TestVerTodos; - procedure TestToStringList; - end; - -implementation - -procedure TestTEmpresasController.SetUp; -begin - FEmpresasController := TEmpresasController.Create; -end; - -procedure TestTEmpresasController.TearDown; -begin - FEmpresasController.Free; - FEmpresasController := nil; -end; - -procedure TestTEmpresasController.TestEliminar; -var - ID: Integer; -begin - Check(False); - // TODO: Setup method call parameters - FEmpresasController.Eliminar(ID); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestEliminar1; -var - AEmpresa: IBizEmpresa; -begin - Check(False); - // TODO: Setup method call parameters - FEmpresasController.Eliminar(AEmpresa); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestGuardar; -var - AEmpresa: IBizEmpresa; -begin - Check(False); - // TODO: Setup method call parameters - FEmpresasController.Guardar(AEmpresa); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestDescartarCambios; -var - AEmpresa: IBizEmpresa; -begin - Check(False); - // TODO: Setup method call parameters - FEmpresasController.DescartarCambios(AEmpresa); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestExiste; -var - ReturnValue: Boolean; - ID: Integer; -begin - Check(False); - // TODO: Setup method call parameters - ReturnValue := FEmpresasController.Existe(ID); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestAnadir; -var - AEmpresa: IBizEmpresa; -begin - Check(False); - // TODO: Setup method call parameters - FEmpresasController.Anadir(AEmpresa); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestBuscar; -var - ReturnValue: IBizEmpresa; - ID: Integer; -begin - Check(False); - // TODO: Setup method call parameters - ReturnValue := FEmpresasController.Buscar(ID); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestBuscarTodos; -var - ReturnValue: IBizEmpresa; -begin - ReturnValue := FEmpresasController.BuscarTodos; - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestNuevo; -var - ReturnValue: IBizEmpresa; -begin - Check(False); - ReturnValue := FEmpresasController.Nuevo; - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestVer; -var - AEmpresa: IBizEmpresa; -begin - Check(False); - // TODO: Setup method call parameters - FEmpresasController.Ver(AEmpresa); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestVerTodos; -var - AEmpresas: IBizEmpresa; -begin - Check(False); - // TODO: Setup method call parameters - FEmpresasController.VerTodos(AEmpresas); - // TODO: Validate method results -end; - -procedure TestTEmpresasController.TestToStringList; -var - ReturnValue: TStringList; - AEmpresa: IBizEmpresa; -begin - Check(False); - // TODO: Setup method call parameters - ReturnValue := FEmpresasController.ToStringList(AEmpresa); - // TODO: Validate method results -end; - -initialization - // Register any test cases with the test runner - RegisterTest(TestTEmpresasController.Suite); -end. - diff --git a/Source/Modulos/Empresas/Test/uHostMainForm.dfm b/Source/Modulos/Empresas/Test/uHostMainForm.dfm deleted file mode 100644 index 1de986c4..00000000 --- a/Source/Modulos/Empresas/Test/uHostMainForm.dfm +++ /dev/null @@ -1,28 +0,0 @@ -object HostMainForm: THostMainForm - Left = 0 - Top = 0 - Caption = 'HostMainForm' - ClientHeight = 598 - ClientWidth = 690 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnCloseQuery = FormCloseQuery - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object Panel1: TPanel - Left = 0 - Top = 0 - Width = 690 - Height = 598 - Align = alClient - BevelOuter = bvNone - TabOrder = 0 - end -end diff --git a/Source/Modulos/Empresas/Test/uHostMainForm.pas b/Source/Modulos/Empresas/Test/uHostMainForm.pas deleted file mode 100644 index 50f4b46e..00000000 --- a/Source/Modulos/Empresas/Test/uHostMainForm.pas +++ /dev/null @@ -1,116 +0,0 @@ -unit uHostMainForm; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uGUIBase, ExtCtrls, uCustomEditor, cxControls; - -type - THostMainForm = class(TForm, IHostForm) - Panel1: TPanel; - procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); - procedure FormShow(Sender: TObject); - protected - FContenido : TCustomEditor; - function GetWorkPanel: TWinControl; - procedure OnWorkPanelChanged(AEditor : ICustomEditor); - procedure ShowEmbedded(AEditor : ICustomEditor); - procedure ReleaseEmbedded; - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - property WorkPanel: TWinControl read GetWorkPanel; - end; - -var - HostMainForm: THostMainForm; - -implementation - -{$R *.dfm} - -uses - TestFramework, GUITestRunner, TextTestRunner; - - -{ TForm1 } - -constructor THostMainForm.Create(AOwner: TComponent); -begin - inherited; - FContenido := NIL; -end; - -destructor THostMainForm.Destroy; -begin - ReleaseEmbedded; - inherited; -end; - -procedure THostMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); -begin - CanClose := True; - if Assigned(FContenido) then - CanClose := FContenido.CloseQuery; -end; - -procedure THostMainForm.FormShow(Sender: TObject); -begin - if IsConsole then - TextTestRunner.RunRegisteredTests - else - GUITestRunner.RunRegisteredTestsModeless; - Self.SendToBack; -end; - -function THostMainForm.GetWorkPanel: TWinControl; -begin - Result := Panel1; -end; - -procedure THostMainForm.OnWorkPanelChanged(AEditor: ICustomEditor); -begin - // -end; - -procedure THostMainForm.ReleaseEmbedded; -begin - if Assigned(FContenido) then - FContenido.Release; - Application.ProcessMessages; -end; - -procedure THostMainForm.ShowEmbedded(AEditor: ICustomEditor); -begin - if Assigned(FContenido) then - if not FContenido.CloseQuery then - begin - AEditor.Release; - AEditor := NIL; - Exit; - end; - - ShowHourglassCursor; - LockWindowUpdate(Handle); - try - FContenido := AEditor.GetInstance as TCustomEditor; - with (FContenido) do - begin - Visible := False; - BorderIcons := []; - BorderStyle := bsNone; - Parent := WorkPanel; - FContenido.Show; - Align := alClient; - FContenido.SetFocus; - end; - finally - Application.ProcessMessages; - LockWindowUpdate(0); - HideHourglassCursor; - end; - OnWorkPanelChanged(FContenido); -end; - -end. diff --git a/Source/Modulos/Empresas/Views/Empresas_view.bdsproj b/Source/Modulos/Empresas/Views/Empresas_view.bdsproj deleted file mode 100644 index df17f8a0..00000000 --- a/Source/Modulos/Empresas/Views/Empresas_view.bdsproj +++ /dev/null @@ -1,543 +0,0 @@ - - - - - - - - - - - - Empresas_view.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - ExpressBars extended items by Developer Express Inc. - ExpressCommonLibrary by Developer Express Inc. - ExpressBars by Developer Express Inc. - Express Cross Platform Library by Developer Express Inc. - Express XP Theme Manager by Developer Express Inc. - ExpressEditors Library 5 by Developer Express Inc. - ExpressDataController by Developer Express Inc. - ExpressExtendedEditors Library 5 by Developer Express Inc. - ExpressQuantumGrid 5 by Developer Express Inc. - Express Cross Platform PageControl by Developer Express Inc. - Express Cross Platform Export Library by Developer Express Inc. - ExpressScheduler 2 by Developer Express Inc. - ExpressQuantumTreeList 4 by Developer Express Inc. - ExpressVerticalGrid by Developer Express Inc. - ExpressBars DBNavigator by Developer Express Inc. - ExpressBars extended DB items by Developer Express Inc. - ExpressDocking Library by Developer Express Inc. - ExpressLayout Control by Developer Express Inc. - ExpressNavBar by Developer Express Inc. - ExpressPrinting System by Developer Express Inc. - ExpressSideBar by Developer Express Inc. - JVCL Application and Form Components Runtime Package - JVCL Core Runtime Package - JEDI Code Library RTL package - JEDI Code Library VCL package - JVCL System Runtime Package - JVCL Standard Controls Runtime Package - JVCL Band Objects Runtime Package - JVCL BDE Components Runtime Package - JVCL Controls Runtime Package - JVCL Components Runtime Package - JVCL DotNet Controls Runtime Package - JVCL EDI Components - JVCL Globus Components - JVCL HMI Controls runtime package - JVCL Interpreter Components Runtime Package - JVCL Jans Components - JVCL Managed Threads - runtime package - JVCL Multimedia and Image Components Runtime Package - JVCL Network Components Runtime Package - JVCL Page Style Components Runtime Package - JVCL Plugin Components Runtime Package - JVCL Print Preview Components - JVCL Runtime Design Components Runtime Package - JVCL Time Framework - JVCL Validators and Error Indicator Components - JVCL Wizard Run Time Package - JVCL XP Controls Runtime Package - (untitled) - ExpressGDI+ Library by Developer Express Inc. - - - - diff --git a/Source/Modulos/Empresas/Views/Empresas_view.dcu b/Source/Modulos/Empresas/Views/Empresas_view.dcu deleted file mode 100644 index f3ecb4ee..00000000 Binary files a/Source/Modulos/Empresas/Views/Empresas_view.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Views/Empresas_view.dpk b/Source/Modulos/Empresas/Views/Empresas_view.dpk deleted file mode 100644 index 558f0496..00000000 --- a/Source/Modulos/Empresas/Views/Empresas_view.dpk +++ /dev/null @@ -1,45 +0,0 @@ -package Empresas_view; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - dbrtl, - vcldb, - Base, - GUIBase, - Empresas_model, - Empresas_controller, - JvJansD11R; - -contains - uEmpresasViewRegister in 'uEmpresasViewRegister.pas', - uEditorEmpresa in 'uEditorEmpresa.pas' {fEditorEmpresa: TForm}, - uViewEmpresa in 'uViewEmpresa.pas' {frViewEmpresa: TFrame}, - uViewDatosBancarios in 'uViewDatosBancarios.pas' {frViewDatosBancarios: TFrame}, - uEditorDatosBancariosEmpresa in 'uEditorDatosBancariosEmpresa.pas' {fEditorDatosBancariosEmpresa}; - -end. diff --git a/Source/Modulos/Empresas/Views/Empresas_view.dpk.bak b/Source/Modulos/Empresas/Views/Empresas_view.dpk.bak deleted file mode 100644 index b56ea6fa..00000000 --- a/Source/Modulos/Empresas/Views/Empresas_view.dpk.bak +++ /dev/null @@ -1,45 +0,0 @@ -package Empresas_view; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} - -requires - rtl, - vcl, - dbrtl, - vcldb, - Base, - GUIBase, - Empresas_model, - Empresas_controller, - JvJansD11R; - -contains - uEmpresasViewRegister in 'uEmpresasViewRegister.pas', - uEditorEmpresa in 'uEditorEmpresa.pas' {fEditorEmpresa: TForm}, - uViewEmpresa in 'uViewEmpresa.pas' {frViewEmpresa: TFrame}, - uViewDatosBancarios in 'uViewDatosBancarios.pas' {frViewDatosBancarios: TFrame}, - uEditorDatosBancariosEmpresa in 'uEditorDatosBancariosEmpresa.pas' {fEditorDatosBancariosEmpresa}; - -end. diff --git a/Source/Modulos/Empresas/Views/Empresas_view.dproj b/Source/Modulos/Empresas/Views/Empresas_view.dproj deleted file mode 100644 index 1cd250b8..00000000 --- a/Source/Modulos/Empresas/Views/Empresas_view.dproj +++ /dev/null @@ -1,557 +0,0 @@ - - - {3a12ff5e-75c6-4e1e-bc5c-b6b9010ba595} - Empresas_view.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Empresas_view.bpl - - - 7.0 - False - False - 0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - RELEASE - - - 7.0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Empresas_view.dpk - - - - - MainSource - - - - - - - - - -
fEditorDatosBancariosEmpresa
- - -
fEditorEmpresa
- - - -
frViewDatosBancarios
- - -
frViewEmpresa
- - - - - - diff --git a/Source/Modulos/Empresas/Views/Empresas_view.drc b/Source/Modulos/Empresas/Views/Empresas_view.drc deleted file mode 100644 index 08b60d23..00000000 --- a/Source/Modulos/Empresas/Views/Empresas_view.drc +++ /dev/null @@ -1,20 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\uViewEmpresa.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\uViewDatosBancarios.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\uEditorEmpresa.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\uEditorDatosBancariosEmpresa.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\Empresas_view.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\Empresas_view.drf */ diff --git a/Source/Modulos/Empresas/Views/Empresas_view.rc b/Source/Modulos/Empresas/Views/Empresas_view.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Empresas/Views/Empresas_view.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Empresas/Views/Empresas_view.res b/Source/Modulos/Empresas/Views/Empresas_view.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Empresas/Views/Empresas_view.res and /dev/null differ diff --git a/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.dcu b/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.dcu deleted file mode 100644 index 50a45358..00000000 Binary files a/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.dfm b/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.dfm deleted file mode 100644 index adc3d192..00000000 --- a/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.dfm +++ /dev/null @@ -1,181 +0,0 @@ -object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa - Left = 227 - Top = 108 - BorderStyle = bsDialog - Caption = 'Cambio de datos bancarios' - ClientHeight = 292 - ClientWidth = 433 - Color = clBtnFace - ParentFont = True - OldCreateOrder = True - Position = poOwnerFormCenter - DesignSize = ( - 433 - 292) - PixelsPerInch = 96 - TextHeight = 13 - object OKBtn: TButton - Left = 350 - Top = 7 - Width = 75 - Height = 25 - Anchors = [akTop, akRight] - Caption = '&Guardar' - ModalResult = 1 - TabOrder = 0 - end - object CancelBtn: TButton - Left = 350 - Top = 38 - Width = 75 - Height = 25 - Anchors = [akTop, akRight] - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - object GroupBox1: TGroupBox - Left = 8 - Top = 8 - Width = 329 - Height = 176 - Caption = 'Datos bancarios' - TabOrder = 2 - object Label5: TLabel - Left = 12 - Top = 31 - Width = 77 - Height = 13 - AutoSize = False - Caption = 'Banco:' - end - object Label2: TLabel - Left = 12 - Top = 67 - Width = 77 - Height = 13 - AutoSize = False - Caption = 'C'#243'd. entidad:' - end - object Label3: TLabel - Left = 12 - Top = 94 - Width = 77 - Height = 13 - AutoSize = False - Caption = 'C'#243'd. sucursal:' - end - object Label4: TLabel - Left = 12 - Top = 120 - Width = 77 - Height = 13 - AutoSize = False - Caption = 'DC:' - end - object Label6: TLabel - Left = 11 - Top = 146 - Width = 78 - Height = 13 - AutoSize = False - Caption = 'Cuenta:' - end - object eNombre: TDBEdit - Left = 95 - Top = 28 - Width = 223 - Height = 21 - Color = clInfoBk - DataField = 'NOMBRE' - DataSource = dsDatosBancarios - TabOrder = 0 - end - object eCodEntidad: TDBEdit - Left = 95 - Top = 64 - Width = 74 - Height = 21 - DataField = 'ENTIDAD' - DataSource = dsDatosBancarios - TabOrder = 1 - end - object eCodSucursal: TDBEdit - Left = 95 - Top = 90 - Width = 74 - Height = 21 - DataField = 'SUCURSAL' - DataSource = dsDatosBancarios - TabOrder = 2 - end - object eDC: TDBEdit - Left = 95 - Top = 116 - Width = 74 - Height = 21 - DataField = 'DC' - DataSource = dsDatosBancarios - MaxLength = 2 - TabOrder = 3 - end - object eCuenta: TDBEdit - Left = 95 - Top = 142 - Width = 223 - Height = 21 - DataField = 'CUENTA' - DataSource = dsDatosBancarios - TabOrder = 4 - end - end - object GroupBox2: TGroupBox - Left = 8 - Top = 190 - Width = 329 - Height = 83 - Caption = 'Sufijos para normas CSB' - TabOrder = 3 - object Label7: TLabel - Left = 12 - Top = 28 - Width = 77 - Height = 13 - AutoSize = False - Caption = 'Norma 19:' - end - object Label1: TLabel - Left = 12 - Top = 55 - Width = 77 - Height = 13 - AutoSize = False - Caption = 'Norma 58:' - end - object eNorma19: TDBEdit - Left = 95 - Top = 24 - Width = 74 - Height = 21 - DataField = 'SUFIJO_N19' - DataSource = dsDatosBancarios - MaxLength = 3 - TabOrder = 0 - end - object eNorma58: TDBEdit - Left = 95 - Top = 51 - Width = 74 - Height = 21 - DataField = 'SUFIJO_N58' - DataSource = dsDatosBancarios - MaxLength = 3 - TabOrder = 1 - end - end - object dsDatosBancarios: TDADataSource - Left = 352 - Top = 72 - end -end diff --git a/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.pas b/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.pas deleted file mode 100644 index c31fb01f..00000000 --- a/Source/Modulos/Empresas/Views/uEditorDatosBancariosEmpresa.pas +++ /dev/null @@ -1,97 +0,0 @@ -unit uEditorDatosBancariosEmpresa; - -interface - -uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, - Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton, - cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit, - uIEditorDatosBancarioEmpresa, uDatosBancariosEmpresaController, uBizEmpresasDatosBancarios, - cxCurrencyEdit; - -type - TfEditorDatosBancariosEmpresa = class(TForm, IEditorDatosBancariosEmpresa) - OKBtn: TButton; - CancelBtn: TButton; - dsDatosBancarios: TDADataSource; - GroupBox1: TGroupBox; - Label5: TLabel; - eNombre: TDBEdit; - Label2: TLabel; - eCodEntidad: TDBEdit; - Label3: TLabel; - eCodSucursal: TDBEdit; - Label4: TLabel; - eDC: TDBEdit; - Label6: TLabel; - eCuenta: TDBEdit; - GroupBox2: TGroupBox; - Label7: TLabel; - eNorma19: TDBEdit; - Label1: TLabel; - eNorma58: TDBEdit; - protected - FController : IDatosBancariosEmpresaController; - FDatosBancarios: IBizEmpresasDatosBancarios; - - function GetController : IDatosBancariosEmpresaController; - procedure SetController (const Value : IDatosBancariosEmpresaController); - - function GetDatosBancarios: IBizEmpresasDatosBancarios; - procedure SetDatosBancarios(const Value: IBizEmpresasDatosBancarios); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - property DatosBancarios: IBizEmpresasDatosBancarios read GetDatosBancarios write SetDatosBancarios; - property Controller : IDatosBancariosEmpresaController read GetController - write SetController; - end; - -implementation - -uses - Variants; - -{$R *.dfm} - -{ TfEditorDireccion } - -constructor TfEditorDatosBancariosEmpresa.Create(AOwner: TComponent); -begin - inherited; - FController := NIL; -end; - -destructor TfEditorDatosBancariosEmpresa.Destroy; -begin - FController := NIL; - inherited; -end; - -function TfEditorDatosBancariosEmpresa.GetController: IDatosBancariosEmpresaController; -begin - Result := FController; -end; - -function TfEditorDatosBancariosEmpresa.GetDatosBancarios: IBizEmpresasDatosBancarios; -begin - Result := FDatosBancarios; -end; - -procedure TfEditorDatosBancariosEmpresa.SetController( - const Value: IDatosBancariosEmpresaController); -begin - FController := Value; -end; - -procedure TfEditorDatosBancariosEmpresa.SetDatosBancarios( - const Value: IBizEmpresasDatosBancarios); -begin - FDatosBancarios := Value; - if Assigned(FDatosBancarios) then - dsDatosBancarios.DataTable := FDatosBancarios.DataTable - else - dsDatosBancarios.DataTable := NIL; -end; - - -end. diff --git a/Source/Modulos/Empresas/Views/uEditorEmpresa.dcu b/Source/Modulos/Empresas/Views/uEditorEmpresa.dcu deleted file mode 100644 index 0c1b9f2b..00000000 Binary files a/Source/Modulos/Empresas/Views/uEditorEmpresa.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Views/uEditorEmpresa.dfm b/Source/Modulos/Empresas/Views/uEditorEmpresa.dfm deleted file mode 100644 index 4bd2a6a0..00000000 --- a/Source/Modulos/Empresas/Views/uEditorEmpresa.dfm +++ /dev/null @@ -1,336 +0,0 @@ -inherited fEditorEmpresa: TfEditorEmpresa - Left = 575 - Top = 291 - HorzScrollBar.Visible = False - VertScrollBar.Visible = False - Caption = 'Ficha de empresa' - ClientHeight = 554 - ClientWidth = 674 - Scaled = False - ExplicitWidth = 682 - ExplicitHeight = 588 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 674 - Caption = 'Empresa' - ExplicitWidth = 660 - inherited Image1: TImage - Left = 647 - ExplicitLeft = 607 - end - end - inherited TBXDock: TTBXDock - Width = 674 - ExplicitWidth = 660 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 324 - inherited TBXItem2: TTBXItem - Visible = False - end - inherited TBXItem5: TTBXItem - Visible = False - end - inherited TBXItem23: TTBXItem - Visible = False - end - inherited TBXItem3: TTBXItem - Visible = False - end - end - inherited tbxMenu: TTBXToolbar - DockPos = 0 - ExplicitWidth = 674 - inherited TBXSubmenuItem4: TTBXSubmenuItem - inherited TBXItem8: TTBXItem - Visible = False - end - inherited TBXSeparatorItem5: TTBXSeparatorItem - Visible = False - end - inherited TBXItem10: TTBXItem - Visible = False - end - inherited TBXItem21: TTBXItem - Visible = False - end - inherited TBXItem22: TTBXItem - Visible = False - end - inherited TBXItem9: TTBXItem - Visible = False - end - end - inherited TBXSubmenuItem1: TTBXSubmenuItem - inherited TBXItem32: TTBXItem - Visible = False - end - inherited TBXItem31: TTBXItem - Visible = False - end - inherited TBXSeparatorItem13: TTBXSeparatorItem - Visible = False - end - end - end - end - inherited pgPaginas: TPageControl - Width = 674 - Height = 459 - ExplicitWidth = 660 - ExplicitHeight = 451 - inherited pagGeneral: TTabSheet - ExplicitLeft = 4 - ExplicitTop = 24 - ExplicitWidth = 652 - ExplicitHeight = 423 - inline frViewEmpresa1: TfrViewEmpresa - Left = 0 - Top = 0 - Width = 666 - Height = 431 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - ExplicitWidth = 652 - ExplicitHeight = 423 - inherited dxLayoutControl1: TdxLayoutControl - Width = 666 - Height = 431 - LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 652 - ExplicitHeight = 423 - inherited PngSpeedButton1: TPngSpeedButton - Left = 621 - Top = 295 - ExplicitLeft = 621 - ExplicitTop = 295 - end - inherited PngSpeedButton2: TPngSpeedButton - Left = 621 - Top = 267 - ExplicitLeft = 621 - ExplicitTop = 267 - end - inherited eCalle: TcxDBTextEdit - Top = 189 - ExplicitTop = 189 - ExplicitWidth = 84 - Width = 84 - end - inherited eProvincia: TcxDBTextEdit - Top = 243 - ExplicitTop = 243 - ExplicitWidth = 60 - Width = 60 - end - inherited ePoblacion: TcxDBTextEdit - Top = 216 - ExplicitTop = 216 - ExplicitWidth = 100 - Width = 100 - end - inherited eCodigoPostal: TcxDBTextEdit - Left = 289 - Top = 216 - ExplicitLeft = 289 - ExplicitTop = 216 - end - inherited ePaginaWeb: TcxDBTextEdit - Left = 477 - Top = 216 - ExplicitLeft = 477 - ExplicitTop = 216 - ExplicitWidth = 165 - Width = 165 - end - inherited eMailParticular: TcxDBTextEdit - Left = 477 - Top = 189 - ExplicitLeft = 477 - ExplicitTop = 189 - ExplicitWidth = 165 - Width = 165 - end - inherited eMailTrabajo: TcxDBTextEdit - Left = 477 - Top = 162 - ExplicitLeft = 477 - ExplicitTop = 162 - ExplicitWidth = 129 - Width = 129 - end - inherited cxDBMemo1: TcxDBMemo - Top = 294 - ExplicitTop = 294 - ExplicitWidth = 107 - ExplicitHeight = 234 - Height = 234 - Width = 107 - end - inherited eTlfParticular: TcxDBTextEdit - Left = 477 - Top = 57 - ExplicitLeft = 477 - ExplicitTop = 57 - ExplicitWidth = 91 - Width = 91 - end - inherited eTlfTrabajo: TcxDBTextEdit - Left = 477 - Top = 30 - ExplicitLeft = 477 - ExplicitTop = 30 - ExplicitWidth = 127 - Width = 127 - end - inherited eTlfMovil: TcxDBTextEdit - Left = 477 - Top = 84 - ExplicitLeft = 477 - ExplicitTop = 84 - ExplicitWidth = 155 - Width = 155 - end - inherited eFax: TcxDBTextEdit - Left = 477 - Top = 111 - ExplicitLeft = 477 - ExplicitTop = 111 - ExplicitWidth = 121 - Width = 121 - end - inherited eNombre: TcxDBTextEdit - Top = 30 - ExplicitTop = 30 - ExplicitWidth = 108 - Width = 108 - end - inherited eNIFCIF: TcxDBTextEdit - Top = 57 - ExplicitTop = 57 - ExplicitWidth = 108 - Width = 108 - end - inherited memRegistroMercantil: TcxDBMemo - Top = 84 - ExplicitTop = 84 - ExplicitWidth = 76 - Width = 76 - end - inherited cxDBSpinEdit1: TcxDBSpinEdit - Top = 138 - ExplicitTop = 138 - end - inherited cxDBImage1: TcxDBImage - Left = 382 - Top = 267 - ExplicitLeft = 382 - ExplicitTop = 267 - ExplicitWidth = 140 - ExplicitHeight = 100 - Height = 100 - Width = 140 - end - end - end - end - object TabSheet1: TTabSheet - Caption = 'Datos bancarios' - ImageIndex = 1 - ExplicitWidth = 652 - ExplicitHeight = 423 - inline frViewDatosBancarios1: TfrViewDatosBancarios - Left = 0 - Top = 0 - Width = 666 - Height = 431 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - ExplicitWidth = 652 - ExplicitHeight = 423 - inherited cxGrid: TcxGrid - Width = 666 - Height = 406 - ExplicitWidth = 652 - ExplicitHeight = 398 - end - inherited ToolBar1: TToolBar - Width = 666 - ExplicitWidth = 666 - inherited ToolButton1: TToolButton - ExplicitWidth = 62 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 74 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 67 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 117 - end - end - end - end - end - inherited StatusBar: TJvStatusBar - Top = 535 - Width = 674 - Panels = < - item - Width = 200 - end> - ExplicitTop = 527 - ExplicitWidth = 660 - end - inherited EditorActionList: TActionList - Top = 128 - end - inherited SmallImages: TPngImageList - Left = 403 - Top = 176 - end - inherited dsDataTable: TDADataSource [6] - Left = 168 - Top = 120 - end - inherited LargeImages: TPngImageList [7] - Left = 435 - Top = 176 - end - inherited JvFormStorage: TJvFormStorage [8] - Left = 408 - Top = 208 - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage - Left = 440 - Top = 208 - end - object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList - Left = 248 - Top = 168 - object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel - GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET - GroupOptions.CaptionOptions.Font.Color = clWindowText - GroupOptions.CaptionOptions.Font.Height = -11 - GroupOptions.CaptionOptions.Font.Name = 'Tahoma' - GroupOptions.CaptionOptions.Font.Style = [fsBold] - GroupOptions.CaptionOptions.TextColor = clHighlight - GroupOptions.CaptionOptions.UseDefaultFont = False - end - end -end diff --git a/Source/Modulos/Empresas/Views/uEditorEmpresa.pas b/Source/Modulos/Empresas/Views/uEditorEmpresa.pas deleted file mode 100644 index 332cafac..00000000 --- a/Source/Modulos/Empresas/Views/uEditorEmpresa.pas +++ /dev/null @@ -1,183 +0,0 @@ -unit uEditorEmpresa; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent, - uBizEmpresas, JvNavigationPane, ActnList, - uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList, - TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, - uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls, - TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, - JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, - uViewEmpresa, uIEditorEmpresa, uEmpresasController, dxLayoutLookAndFeels, - JvExComCtrls, JvStatusBar, uViewDetallesGenerico, uViewDatosBancarios; - -type - TfEditorEmpresa = class(TfEditorDBItem, IEditorEmpresa) - frViewEmpresa1: TfrViewEmpresa; - dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; - dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; - TabSheet1: TTabSheet; - frViewDatosBancarios1: TfrViewDatosBancarios; - procedure FormShow(Sender: TObject); - procedure actRefrescarUpdate(Sender: TObject); - procedure dsDataTableDataChange(Sender: TObject; Field: TField); - private - FController : IEmpresasController; - FEmpresa: IBizEmpresa; - FViewEmpresa : IViewEmpresa; - protected - function GetEmpresa: IBizEmpresa; virtual; - procedure SetEmpresa(const Value: IBizEmpresa); virtual; - - function GetViewEmpresa: IViewEmpresa; - procedure SetViewEmpresa(const Value: IViewEmpresa); - procedure GuardarInterno; override; - procedure EliminarInterno; override; - property ViewEmpresa: IViewEmpresa read GetViewEmpresa write - SetViewEmpresa; - function GetController : IEmpresasController; virtual; - procedure SetController (const Value : IEmpresasController); virtual; - - public - constructor Create(AOwner: TComponent); override; - procedure PonerTitulos(const ATitulo: string = ''); override; - property Controller : IEmpresasController read GetController - write SetController; - property Empresa: IBizEmpresa read GetEmpresa write SetEmpresa; - destructor Destroy; override; - end; - -implementation - -{$R *.dfm} - -uses - uCustomEditor, uDataModuleEmpresas, uDataModuleBase; - -{ -******************************* TfEditorEmpresa ******************************* -} -function TfEditorEmpresa.GetEmpresa: IBizEmpresa; -begin - Result := FEmpresa; -end; - -function TfEditorEmpresa.GetController: IEmpresasController; -begin - Result := FController; -end; - -function TfEditorEmpresa.GetViewEmpresa: IViewEmpresa; -begin - Result := FViewEmpresa; -end; - -procedure TfEditorEmpresa.GuardarInterno; -begin - inherited; - FController.Guardar(FEmpresa); - Modified := False; -end; - -procedure TfEditorEmpresa.PonerTitulos(const ATitulo: string); -var - FTitulo : String; -begin - if (ATitulo = '') and Assigned(FEmpresa) then - begin - if Length(FEmpresa.Nombre) = 0 then - FTitulo := 'Nueva empresa' - else - FTitulo := 'Empresa' + ' - ' + FEmpresa.Nombre - end; - - inherited PonerTitulos(FTitulo); -end; - -procedure TfEditorEmpresa.SetEmpresa(const Value: IBizEmpresa); -begin - FEmpresa := Value; - dsDataTable.DataTable := FEmpresa.DataTable; - - if Assigned(FViewEmpresa) and Assigned(Empresa) then - begin - FViewEmpresa.Empresa := FEmpresa; - frViewDatosBancarios1.dsDetalles.DataTable := FEmpresa.DatosBancarios.DataTable - end - else begin - FViewEmpresa.Empresa := NIL; - frViewDatosBancarios1.dsDetalles.DataTable := NIL; - end; -end; - -procedure TfEditorEmpresa.SetController(const Value: IEmpresasController); -begin - FController := Value; -end; - -procedure TfEditorEmpresa.SetViewEmpresa(const Value: IViewEmpresa); -begin - FViewEmpresa := Value; - - if Assigned(FViewEmpresa) and Assigned(Empresa) then - FViewEmpresa.Empresa := Empresa; -end; - -procedure TfEditorEmpresa.FormShow(Sender: TObject); -begin - inherited; - - if not Assigned(FViewEmpresa) then - raise Exception.Create('No hay ninguna vista asignada'); - - if not Assigned(Empresa) then - raise Exception.Create('No hay ningún Empresa asignado'); - - Empresa.DataTable.Active := True; -// FViewEmpresa.ShowEmbedded(pagGeneral); - FViewEmpresa.SetFocus; -end; - -procedure TfEditorEmpresa.actRefrescarUpdate(Sender: TObject); -begin - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.Fetching) or - (not dsDataTable.DataTable.Opening) or - (not dsDataTable.DataTable.Closing) or - (not FEmpresa.EsNuevo) - else - (Sender as TAction).Enabled := False; -end; - -constructor TfEditorEmpresa.Create(AOwner: TComponent); -begin - inherited; - FViewEmpresa := frViewEmpresa1; -end; - -destructor TfEditorEmpresa.Destroy; -begin - FViewEmpresa := NIL; - FEmpresa := NIL; - inherited; -end; - -procedure TfEditorEmpresa.dsDataTableDataChange(Sender: TObject; Field: TField); -begin - inherited; - if Assigned(FEmpresa) and (not (FEmpresa.DataTable.Fetching) or - not (FEmpresa.DataTable.Opening) or not (FEmpresa.DataTable.Closing)) then - PonerTitulos; -end; - -procedure TfEditorEmpresa.EliminarInterno; -begin - inherited; - FController.Eliminar(FEmpresa); -end; - -end. - diff --git a/Source/Modulos/Empresas/Views/uEmpresasViewRegister.dcu b/Source/Modulos/Empresas/Views/uEmpresasViewRegister.dcu deleted file mode 100644 index 75df8583..00000000 Binary files a/Source/Modulos/Empresas/Views/uEmpresasViewRegister.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Views/uEmpresasViewRegister.pas b/Source/Modulos/Empresas/Views/uEmpresasViewRegister.pas deleted file mode 100644 index 58386775..00000000 --- a/Source/Modulos/Empresas/Views/uEmpresasViewRegister.pas +++ /dev/null @@ -1,25 +0,0 @@ -unit uEmpresasViewRegister; - -interface - -procedure RegisterViews; -procedure UnregisterViews; - -implementation - -uses - uEditorRegistryUtils, uEditorEmpresa, uEditorDatosBancariosEmpresa; - -procedure RegisterViews; -begin - EditorRegistry.RegisterClass(TfEditorEmpresa, 'EditorEmpresa'); - EditorRegistry.RegisterClass(TfEditorDatosBancariosEmpresa, 'EditorDatosBancariosEmpresa'); -end; - -procedure UnregisterViews; -begin - EditorRegistry.UnRegisterClass(TfEditorEmpresa); - EditorRegistry.UnRegisterClass(TfEditorDatosBancariosEmpresa); -end; - -end. diff --git a/Source/Modulos/Empresas/Views/uViewDatosBancarios.dcu b/Source/Modulos/Empresas/Views/uViewDatosBancarios.dcu deleted file mode 100644 index 313c34f7..00000000 Binary files a/Source/Modulos/Empresas/Views/uViewDatosBancarios.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Views/uViewDatosBancarios.dfm b/Source/Modulos/Empresas/Views/uViewDatosBancarios.dfm deleted file mode 100644 index 9ffd2041..00000000 --- a/Source/Modulos/Empresas/Views/uViewDatosBancarios.dfm +++ /dev/null @@ -1,52 +0,0 @@ -inherited frViewDatosBancarios: TfrViewDatosBancarios - Width = 583 - Height = 464 - ExplicitWidth = 583 - ExplicitHeight = 464 - inherited cxGrid: TcxGrid - Width = 583 - Height = 439 - ExplicitWidth = 583 - ExplicitHeight = 439 - inherited cxGridView: TcxGridDBTableView - OnDblClick = cxGridViewDblClick - OptionsData.Appending = False - OptionsData.Deleting = False - OptionsData.DeletingConfirmation = False - OptionsData.Editing = False - OptionsData.Inserting = False - object cxGridViewNOMBRE: TcxGridDBColumn - DataBinding.FieldName = 'NOMBRE' - Width = 191 - end - object cxGridViewENTIDAD: TcxGridDBColumn - DataBinding.FieldName = 'ENTIDAD' - Width = 48 - end - object cxGridViewSUCURSAL: TcxGridDBColumn - DataBinding.FieldName = 'SUCURSAL' - Width = 48 - end - object cxGridViewDC: TcxGridDBColumn - DataBinding.FieldName = 'DC' - Width = 29 - end - object cxGridViewCUENTA: TcxGridDBColumn - DataBinding.FieldName = 'CUENTA' - Width = 141 - end - object cxGridViewSUFIJO_N19: TcxGridDBColumn - DataBinding.FieldName = 'SUFIJO_N19' - Width = 55 - end - object cxGridViewSUFIJO_N58: TcxGridDBColumn - DataBinding.FieldName = 'SUFIJO_N58' - Width = 57 - end - end - end - inherited ToolBar1: TToolBar - Width = 583 - ExplicitWidth = 583 - end -end diff --git a/Source/Modulos/Empresas/Views/uViewDatosBancarios.pas b/Source/Modulos/Empresas/Views/uViewDatosBancarios.pas deleted file mode 100644 index bcc0aca5..00000000 --- a/Source/Modulos/Empresas/Views/uViewDatosBancarios.pas +++ /dev/null @@ -1,67 +0,0 @@ -unit uViewDatosBancarios; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridBandedTableView, - cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - uDADataTable, Grids, DBGrids, ActnList, ImgList, PngImageList, ComCtrls, - ToolWin, cxGridDBTableView, uViewDetallesGenerico, cxCurrencyEdit; - -type - TfrViewDatosBancarios = class(TfrViewDetallesGenerico) - cxGridViewNOMBRE: TcxGridDBColumn; - cxGridViewENTIDAD: TcxGridDBColumn; - cxGridViewSUCURSAL: TcxGridDBColumn; - cxGridViewDC: TcxGridDBColumn; - cxGridViewCUENTA: TcxGridDBColumn; - cxGridViewSUFIJO_N19: TcxGridDBColumn; - cxGridViewSUFIJO_N58: TcxGridDBColumn; - procedure cxGridViewDblClick(Sender: TObject); - protected - procedure AnadirInterno; override; - procedure ModificarInterno; override; - public - { Public declarations } - end; - -implementation - -{$R *.dfm} - -uses - uDatosBancariosEmpresaController, uBizEmpresasDatosBancarios, - uDataModuleEmpresas; - -procedure TfrViewDatosBancarios.AnadirInterno; -begin - inherited; - try - with TDatosBancariosEmpresaController.Create do - Ver((dsDetalles.DataTable) as IBizEmpresasDatosBancarios); - finally - if (dsDetalles.DataTable.State in dsEditModes) then - dsDetalles.DataTable.Post; - end; -end; - -procedure TfrViewDatosBancarios.cxGridViewDblClick(Sender: TObject); -begin - inherited; - actModificar.Execute; -end; - -procedure TfrViewDatosBancarios.ModificarInterno; -begin - inherited; - with TDatosBancariosEmpresaController.Create do - Ver((dsDetalles.DataTable) as IBizEmpresasDatosBancarios); -end; - -end. - - - diff --git a/Source/Modulos/Empresas/Views/uViewEmpresa.dcu b/Source/Modulos/Empresas/Views/uViewEmpresa.dcu deleted file mode 100644 index 91bed611..00000000 Binary files a/Source/Modulos/Empresas/Views/uViewEmpresa.dcu and /dev/null differ diff --git a/Source/Modulos/Empresas/Views/uViewEmpresa.dfm b/Source/Modulos/Empresas/Views/uViewEmpresa.dfm deleted file mode 100644 index a2b17571..00000000 --- a/Source/Modulos/Empresas/Views/uViewEmpresa.dfm +++ /dev/null @@ -1,595 +0,0 @@ -inherited frViewEmpresa: TfrViewEmpresa - Width = 590 - Height = 385 - ExplicitWidth = 590 - ExplicitHeight = 385 - object dxLayoutControl1: TdxLayoutControl - Left = 0 - Top = 0 - Width = 590 - Height = 385 - Align = alClient - ParentBackground = True - TabOrder = 0 - AutoContentSizes = [acsWidth, acsHeight] - object PngSpeedButton1: TPngSpeedButton - Left = 545 - Top = 305 - Width = 23 - Height = 22 - Action = actEliminar - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - end - object PngSpeedButton2: TPngSpeedButton - Left = 545 - Top = 277 - Width = 23 - Height = 22 - Action = actAnadir - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - end - object eCalle: TcxDBTextEdit - Left = 117 - Top = 193 - DataBinding.DataField = 'CALLE' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 4 - Width = 84 - end - object eProvincia: TcxDBTextEdit - Left = 117 - Top = 247 - DataBinding.DataField = 'PROVINCIA' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 7 - Width = 60 - end - object ePoblacion: TcxDBTextEdit - Left = 117 - Top = 220 - DataBinding.DataField = 'POBLACION' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 5 - Width = 100 - end - object eCodigoPostal: TcxDBTextEdit - Left = 246 - Top = 220 - DataBinding.DataField = 'CODIGO_POSTAL' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 6 - Width = 65 - end - object ePaginaWeb: TcxDBTextEdit - Left = 436 - Top = 220 - DataBinding.DataField = 'PAGINA_WEB' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 15 - Width = 165 - end - object eMailParticular: TcxDBTextEdit - Left = 436 - Top = 193 - DataBinding.DataField = 'EMAIL_2' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 14 - Width = 165 - end - object eMailTrabajo: TcxDBTextEdit - Left = 436 - Top = 166 - DataBinding.DataField = 'EMAIL_1' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 13 - Width = 129 - end - object cxDBMemo1: TcxDBMemo - Left = 22 - Top = 304 - DataBinding.DataField = 'NOTAS' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 8 - Height = 234 - Width = 107 - end - object eTlfParticular: TcxDBTextEdit - Left = 436 - Top = 55 - DataBinding.DataField = 'TELEFONO_2' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 10 - Width = 91 - end - object eTlfTrabajo: TcxDBTextEdit - Left = 436 - Top = 28 - DataBinding.DataField = 'TELEFONO_1' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 9 - Width = 127 - end - object eTlfMovil: TcxDBTextEdit - Left = 436 - Top = 82 - DataBinding.DataField = 'MOVIL_1' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 11 - Width = 155 - end - object eFax: TcxDBTextEdit - Left = 436 - Top = 109 - DataBinding.DataField = 'FAX' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 12 - Width = 121 - end - object eNombre: TcxDBTextEdit - Left = 117 - Top = 28 - DataBinding.DataField = 'NOMBRE' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - 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 = 0 - Width = 108 - end - object eNIFCIF: TcxDBTextEdit - Left = 117 - Top = 55 - DataBinding.DataField = 'NIF_CIF' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - 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 = 108 - end - object memRegistroMercantil: TcxDBMemo - Left = 117 - Top = 82 - DataBinding.DataField = 'REGISTRO_MERCANTIL' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - 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 = 2 - Height = 48 - Width = 76 - end - object cxDBSpinEdit1: TcxDBSpinEdit - Left = 117 - Top = 136 - DataBinding.DataField = 'IVA' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - 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 = 3 - Width = 60 - end - object cxDBImage1: TcxDBImage - Left = 341 - Top = 277 - DataBinding.DataField = 'LOGOTIPO' - DataBinding.DataSource = DADataSource - Properties.Stretch = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 16 - Height = 100 - Width = 140 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Group4: TdxLayoutGroup - AutoAligns = [aaVertical] - AlignHorz = ahClient - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group1: TdxLayoutGroup - AutoAligns = [] - AlignHorz = ahClient - AlignVert = avClient - Caption = 'Datos generales' - object dxLayoutControl1Item13: TdxLayoutItem - Caption = 'Nombre:' - Control = eNombre - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item14: TdxLayoutItem - Caption = 'CIF:' - Control = eNIFCIF - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item15: TdxLayoutItem - Caption = 'Registro mercantil:' - CaptionOptions.AlignVert = tavTop - Control = memRegistroMercantil - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item16: TdxLayoutItem - AutoAligns = [aaVertical] - Caption = 'IVA por defecto:' - Control = cxDBSpinEdit1 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group3: TdxLayoutGroup - AutoAligns = [aaHorizontal] - Caption = 'Direcci'#243'n' - object dxLayoutControl1Item1: TdxLayoutItem - Caption = 'Calle:' - Control = eCalle - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group8: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Poblaci'#243'n:' - Control = ePoblacion - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item4: TdxLayoutItem - Caption = 'C'#243'd. postal:' - Control = eCodigoPostal - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item2: TdxLayoutItem - Caption = 'Provincia:' - Control = eProvincia - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group7: TdxLayoutGroup - AutoAligns = [] - AlignHorz = ahClient - AlignVert = avClient - Caption = 'Observaciones' - object dxLayoutControl1Item8: TdxLayoutItem - AutoAligns = [aaHorizontal] - AlignVert = avClient - Caption = 'cxDBMemo1' - ShowCaption = False - Control = cxDBMemo1 - ControlOptions.ShowBorder = False - end - end - end - object dxLayoutControl1Group6: TdxLayoutGroup - AutoAligns = [] - AlignHorz = ahClient - AlignVert = avClient - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group2: TdxLayoutGroup - AutoAligns = [] - AlignHorz = ahClient - Caption = 'Tel'#233'fonos' - object dxLayoutControl1Item10: TdxLayoutItem - Caption = 'Tlf. trabajo:' - Control = eTlfTrabajo - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item9: TdxLayoutItem - Caption = 'Tlf. particular:' - Control = eTlfParticular - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item11: TdxLayoutItem - Caption = 'M'#243'vil:' - Control = eTlfMovil - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item12: TdxLayoutItem - Caption = 'Fax:' - Control = eFax - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group5: TdxLayoutGroup - Caption = 'Correo electr'#243'nico e internet' - object dxLayoutControl1Item7: TdxLayoutItem - Caption = 'Correo de trabajo:' - Control = eMailTrabajo - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item6: TdxLayoutItem - Caption = 'Correo particular:' - Control = eMailParticular - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item5: TdxLayoutItem - Caption = 'P'#225'gina web:' - Control = ePaginaWeb - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group10: TdxLayoutGroup - AutoAligns = [] - AlignHorz = ahClient - AlignVert = avClient - Caption = 'Logotipo' - LayoutDirection = ldHorizontal - object dxLayoutControl1Item17: TdxLayoutItem - AutoAligns = [] - AlignHorz = ahClient - AlignVert = avClient - Caption = 'cxDBImage1' - ShowCaption = False - Control = cxDBImage1 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group12: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item20: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'PngSpeedButton2' - ShowCaption = False - Control = PngSpeedButton2 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item19: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'PngSpeedButton1' - ShowCaption = False - Control = PngSpeedButton1 - ControlOptions.ShowBorder = False - end - end - end - end - end - object dxLayoutControl1Group9: TdxLayoutGroup - end - object dxLayoutControl1Group11: TdxLayoutGroup - end - end - object DADataSource: TDADataSource - Left = 16 - Top = 56 - end - object ActionList1: TActionList - Images = SmallImages - Left = 448 - Top = 256 - object actAnadir: TAction - ImageIndex = 0 - OnExecute = actAnadirExecute - OnUpdate = actAnadirUpdate - end - object actEliminar: TAction - ImageIndex = 1 - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000D04944415478DA - 6364C0062630FCC72A5EC0C0882EC488CB80191909706EDDBA750CAF767D6260 - 5830240DF8F9FB3743EBE6CD780CC011602003409A7F0071EF8E1D10030C30D5 - 31A23B1706609AB1E23F7FC0F4FA2967B01B408CE6A3B76E815D856100319ABF - FFFAC570EEC103540340218D0C92EDECE01AD79E398335ACE106305CC0942CAC - 77871BB0F5E2454820620138A331D3CB09EEECBD57AF929E0E629DADC106FCF9 - F70F1E602419106A67C6F01DE40260805D7AFC9874037C2C0D194EDDBD8B1260 - 241900A6D103178B01000648ED7B1FCA93F30000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA - A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 - 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 - 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F - 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 - 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 - 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA - 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E - 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 - E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 - 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 - 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 - 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB - 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 - 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 - E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 - D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 - 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 - A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E - AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 - 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 - 5538F0EAB25B380000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 419 - Top = 256 - Bitmap = {} - end - object OpenDialog1: TOpenDialog - Left = 384 - Top = 256 - end -end diff --git a/Source/Modulos/Empresas/Views/uViewEmpresa.pas b/Source/Modulos/Empresas/Views/uViewEmpresa.pas deleted file mode 100644 index 154d4eba..00000000 --- a/Source/Modulos/Empresas/Views/uViewEmpresa.pas +++ /dev/null @@ -1,179 +0,0 @@ -unit uViewEmpresa; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, - DBCtrls, Grids, DBGrids, uBizEmpresas, Mask, ComCtrls, uCustomView, - JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, - cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit, - cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList, - PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton; - -type - IViewEmpresa = interface(IViewBase) - ['{876DCEBD-9E92-491A-84CE-498B1A84B525}'] - function GetEmpresa: IBizEmpresa; - procedure SetEmpresa(const Value: IBizEmpresa); - property Empresa: IBizEmpresa read GetEmpresa write SetEmpresa; - end; - - TfrViewEmpresa = class(TfrViewBase, IViewEmpresa) - DADataSource: TDADataSource; - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - dxLayoutControl1Group1: TdxLayoutGroup; - dxLayoutControl1Group2: TdxLayoutGroup; - dxLayoutControl1Group3: TdxLayoutGroup; - dxLayoutControl1Group4: TdxLayoutGroup; - dxLayoutControl1Group5: TdxLayoutGroup; - dxLayoutControl1Group6: TdxLayoutGroup; - dxLayoutControl1Group7: TdxLayoutGroup; - dxLayoutControl1Item1: TdxLayoutItem; - eCalle: TcxDBTextEdit; - dxLayoutControl1Item2: TdxLayoutItem; - eProvincia: TcxDBTextEdit; - dxLayoutControl1Item3: TdxLayoutItem; - ePoblacion: TcxDBTextEdit; - dxLayoutControl1Item4: TdxLayoutItem; - eCodigoPostal: TcxDBTextEdit; - dxLayoutControl1Item5: TdxLayoutItem; - ePaginaWeb: TcxDBTextEdit; - dxLayoutControl1Item6: TdxLayoutItem; - eMailParticular: TcxDBTextEdit; - dxLayoutControl1Item7: TdxLayoutItem; - eMailTrabajo: TcxDBTextEdit; - cxDBMemo1: TcxDBMemo; - dxLayoutControl1Item8: TdxLayoutItem; - dxLayoutControl1Item9: TdxLayoutItem; - eTlfParticular: TcxDBTextEdit; - dxLayoutControl1Item10: TdxLayoutItem; - eTlfTrabajo: TcxDBTextEdit; - dxLayoutControl1Item11: TdxLayoutItem; - eTlfMovil: TcxDBTextEdit; - dxLayoutControl1Item12: TdxLayoutItem; - eFax: TcxDBTextEdit; - dxLayoutControl1Item13: TdxLayoutItem; - eNombre: TcxDBTextEdit; - dxLayoutControl1Item14: TdxLayoutItem; - eNIFCIF: TcxDBTextEdit; - dxLayoutControl1Item15: TdxLayoutItem; - memRegistroMercantil: TcxDBMemo; - dxLayoutControl1Group10: TdxLayoutGroup; - dxLayoutControl1Group9: TdxLayoutGroup; - dxLayoutControl1Group11: TdxLayoutGroup; - dxLayoutControl1Group8: TdxLayoutGroup; - cxDBSpinEdit1: TcxDBSpinEdit; - dxLayoutControl1Item16: TdxLayoutItem; - ActionList1: TActionList; - actAnadir: TAction; - actEliminar: TAction; - SmallImages: TPngImageList; - OpenDialog1: TOpenDialog; - cxDBImage1: TcxDBImage; - dxLayoutControl1Item17: TdxLayoutItem; - PngSpeedButton1: TPngSpeedButton; - dxLayoutControl1Item19: TdxLayoutItem; - PngSpeedButton2: TPngSpeedButton; - dxLayoutControl1Item20: TdxLayoutItem; - dxLayoutControl1Group12: TdxLayoutGroup; - procedure actAnadirExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actAnadirUpdate(Sender: TObject); - private - FEmpresa: IBizEmpresa; - protected - function GetEmpresa: IBizEmpresa; - procedure SetEmpresa(const Value: IBizEmpresa); - public - constructor Create(AOwner : TComponent); override; - end; - -implementation -{$R *.dfm} - -uses uROClasses, uROTypes; - -{ TfrViewEmpresas } - -{ -******************************* TfrViewEmpresa ******************************** -} -procedure TfrViewEmpresa.actAnadirExecute(Sender: TObject); -{var - StdStream: TMemoryStream; - StreamRO: IROStream; -} -begin - inherited; - cxDBImage1.LoadFromFile; - -{if not OpenDialog1.Execute then - Exit; - try - StdStream := TMemoryStream.Create; - StdStream.LoadFromFile(OpenDialog1.FileName); - StreamRO := NewROStream(StdStream,False); - DADataSource.DataTable.Edit; -// DADataSource.DataTable.FieldByName('LOGOTIPO').Clear; - DADataSource.DataTable.FieldByName('LOGOTIPO').LoadFromStream(StreamRO); - - DADataSource.DataTable.Post; - finally - StdStream.Free; - end; -} -end; - -procedure TfrViewEmpresa.actAnadirUpdate(Sender: TObject); -begin - inherited; -// (Sender as TAction).Enabled := cxDBImage1.Picture.Graphic.Empty; -end; - -procedure TfrViewEmpresa.actEliminarExecute(Sender: TObject); -begin - inherited; - cxDBImage1.Clear; - -{ DADataSource.DataTable.Edit; - DADataSource.DataTable.FieldByName('LOGOTIPO').AsVariant := Null; - DADataSource.DataTable.Post; -} -end; - -procedure TfrViewEmpresa.actEliminarUpdate(Sender: TObject); -begin - inherited; -// (Sender as TAction).Enabled := not cxDBImage1.Picture.Graphic.Empty; -end; - -constructor TfrViewEmpresa.Create(AOwner : TComponent); -begin - inherited; -end; - -function TfrViewEmpresa.GetEmpresa: IBizEmpresa; -begin - Result := FEmpresa; -end; - -procedure TfrViewEmpresa.SetEmpresa(const Value: IBizEmpresa); -begin - FEmpresa := Value; - if Assigned(FEmpresa) then - DADataSource.DataTable := FEmpresa.DataTable - else - DADataSource.DataTable := NIL; -end; - -initialization - RegisterClass(TfrViewEmpresa); - -finalization - UnRegisterClass(TfrViewEmpresa); - -end. - diff --git a/Source/Modulos/Formas de pago/Controller/FormasPago_controller.dcu b/Source/Modulos/Formas de pago/Controller/FormasPago_controller.dcu deleted file mode 100644 index 5251a0fc..00000000 Binary files a/Source/Modulos/Formas de pago/Controller/FormasPago_controller.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.dcu b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.dcu deleted file mode 100644 index 0b46595f..00000000 Binary files a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.dcu b/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.dcu deleted file mode 100644 index 5a3cd512..00000000 Binary files a/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Controller/uIEditorFormaPago.dcu b/Source/Modulos/Formas de pago/Controller/uIEditorFormaPago.dcu deleted file mode 100644 index fea701b4..00000000 Binary files a/Source/Modulos/Formas de pago/Controller/uIEditorFormaPago.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Controller/uIEditorFormasPago.dcu b/Source/Modulos/Formas de pago/Controller/uIEditorFormasPago.dcu deleted file mode 100644 index 3d460cf6..00000000 Binary files a/Source/Modulos/Formas de pago/Controller/uIEditorFormasPago.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Data/FormasPago_data.dcu b/Source/Modulos/Formas de pago/Data/FormasPago_data.dcu deleted file mode 100644 index 3a352cb5..00000000 Binary files a/Source/Modulos/Formas de pago/Data/FormasPago_data.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dcu b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dcu deleted file mode 100644 index 7e5a4361..00000000 Binary files a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Model/FormasPago_model.dcu b/Source/Modulos/Formas de pago/Model/FormasPago_model.dcu deleted file mode 100644 index 0eb3b288..00000000 Binary files a/Source/Modulos/Formas de pago/Model/FormasPago_model.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Model/schFormasPagoClient_Intf.dcu b/Source/Modulos/Formas de pago/Model/schFormasPagoClient_Intf.dcu deleted file mode 100644 index 4e647fbf..00000000 Binary files a/Source/Modulos/Formas de pago/Model/schFormasPagoClient_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Model/schFormasPagoServer_Intf.dcu b/Source/Modulos/Formas de pago/Model/schFormasPagoServer_Intf.dcu deleted file mode 100644 index 69e81346..00000000 Binary files a/Source/Modulos/Formas de pago/Model/schFormasPagoServer_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Model/uBizFormasPago.dcu b/Source/Modulos/Formas de pago/Model/uBizFormasPago.dcu deleted file mode 100644 index 794096f5..00000000 Binary files a/Source/Modulos/Formas de pago/Model/uBizFormasPago.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Model/uBizFormasPagoPlazos.dcu b/Source/Modulos/Formas de pago/Model/uBizFormasPagoPlazos.dcu deleted file mode 100644 index 3bbc4d3e..00000000 Binary files a/Source/Modulos/Formas de pago/Model/uBizFormasPagoPlazos.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Model/uIDataModuleFormasPago.dcu b/Source/Modulos/Formas de pago/Model/uIDataModuleFormasPago.dcu deleted file mode 100644 index 25eac9eb..00000000 Binary files a/Source/Modulos/Formas de pago/Model/uIDataModuleFormasPago.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Plugin/FormasPago_plugin.dcu b/Source/Modulos/Formas de pago/Plugin/FormasPago_plugin.dcu deleted file mode 100644 index d840e393..00000000 Binary files a/Source/Modulos/Formas de pago/Plugin/FormasPago_plugin.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.dcu b/Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.dcu deleted file mode 100644 index ad216cf5..00000000 Binary files a/Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Views/FormasPago_view.dcu b/Source/Modulos/Formas de pago/Views/FormasPago_view.dcu deleted file mode 100644 index 753e7a60..00000000 Binary files a/Source/Modulos/Formas de pago/Views/FormasPago_view.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dcu b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dcu deleted file mode 100644 index 0a3792cd..00000000 Binary files a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Views/uEditorFormasPago.dcu b/Source/Modulos/Formas de pago/Views/uEditorFormasPago.dcu deleted file mode 100644 index d76c013e..00000000 Binary files a/Source/Modulos/Formas de pago/Views/uEditorFormasPago.dcu and /dev/null differ diff --git a/Source/Modulos/Formas de pago/Views/uFormasPagoViewRegister.dcu b/Source/Modulos/Formas de pago/Views/uFormasPagoViewRegister.dcu deleted file mode 100644 index d3ad0025..00000000 Binary files a/Source/Modulos/Formas de pago/Views/uFormasPagoViewRegister.dcu and /dev/null differ diff --git a/Source/Modulos/Lib/Contactos_controller.dcp b/Source/Modulos/Lib/Contactos_controller.dcp deleted file mode 100644 index 7902b86e..00000000 Binary files a/Source/Modulos/Lib/Contactos_controller.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Contactos_data.dcp b/Source/Modulos/Lib/Contactos_data.dcp deleted file mode 100644 index 3350040c..00000000 Binary files a/Source/Modulos/Lib/Contactos_data.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Contactos_model.dcp b/Source/Modulos/Lib/Contactos_model.dcp deleted file mode 100644 index f2300075..00000000 Binary files a/Source/Modulos/Lib/Contactos_model.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Empresas_controller.dcp b/Source/Modulos/Lib/Empresas_controller.dcp deleted file mode 100644 index 03eaa1f5..00000000 Binary files a/Source/Modulos/Lib/Empresas_controller.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Empresas_data.dcp b/Source/Modulos/Lib/Empresas_data.dcp deleted file mode 100644 index ab179479..00000000 Binary files a/Source/Modulos/Lib/Empresas_data.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Empresas_model.dcp b/Source/Modulos/Lib/Empresas_model.dcp deleted file mode 100644 index 21c4d995..00000000 Binary files a/Source/Modulos/Lib/Empresas_model.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Empresas_plugin.dcp b/Source/Modulos/Lib/Empresas_plugin.dcp deleted file mode 100644 index df9efc48..00000000 Binary files a/Source/Modulos/Lib/Empresas_plugin.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Empresas_view.dcp b/Source/Modulos/Lib/Empresas_view.dcp deleted file mode 100644 index 374c9306..00000000 Binary files a/Source/Modulos/Lib/Empresas_view.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/FormasPago_controller.dcp b/Source/Modulos/Lib/FormasPago_controller.dcp deleted file mode 100644 index e0be559e..00000000 Binary files a/Source/Modulos/Lib/FormasPago_controller.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/FormasPago_data.dcp b/Source/Modulos/Lib/FormasPago_data.dcp deleted file mode 100644 index f8b311ed..00000000 Binary files a/Source/Modulos/Lib/FormasPago_data.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/FormasPago_model.dcp b/Source/Modulos/Lib/FormasPago_model.dcp deleted file mode 100644 index 78a94bfc..00000000 Binary files a/Source/Modulos/Lib/FormasPago_model.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/FormasPago_plugin.dcp b/Source/Modulos/Lib/FormasPago_plugin.dcp deleted file mode 100644 index bbcbdce3..00000000 Binary files a/Source/Modulos/Lib/FormasPago_plugin.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/FormasPago_view.dcp b/Source/Modulos/Lib/FormasPago_view.dcp deleted file mode 100644 index 7efa4a79..00000000 Binary files a/Source/Modulos/Lib/FormasPago_view.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/TiposIVA_controller.dcp b/Source/Modulos/Lib/TiposIVA_controller.dcp deleted file mode 100644 index 28cf2b1b..00000000 Binary files a/Source/Modulos/Lib/TiposIVA_controller.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/TiposIVA_data.dcp b/Source/Modulos/Lib/TiposIVA_data.dcp deleted file mode 100644 index f8518f34..00000000 Binary files a/Source/Modulos/Lib/TiposIVA_data.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/TiposIVA_model.dcp b/Source/Modulos/Lib/TiposIVA_model.dcp deleted file mode 100644 index 701f7deb..00000000 Binary files a/Source/Modulos/Lib/TiposIVA_model.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/TiposIVA_plugin.dcp b/Source/Modulos/Lib/TiposIVA_plugin.dcp deleted file mode 100644 index de63e3b5..00000000 Binary files a/Source/Modulos/Lib/TiposIVA_plugin.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/TiposIVA_view.dcp b/Source/Modulos/Lib/TiposIVA_view.dcp deleted file mode 100644 index ee57696f..00000000 Binary files a/Source/Modulos/Lib/TiposIVA_view.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Usuarios_controller.dcp b/Source/Modulos/Lib/Usuarios_controller.dcp deleted file mode 100644 index 98098096..00000000 Binary files a/Source/Modulos/Lib/Usuarios_controller.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Usuarios_data.dcp b/Source/Modulos/Lib/Usuarios_data.dcp deleted file mode 100644 index 344adc81..00000000 Binary files a/Source/Modulos/Lib/Usuarios_data.dcp and /dev/null differ diff --git a/Source/Modulos/Lib/Usuarios_model.dcp b/Source/Modulos/Lib/Usuarios_model.dcp deleted file mode 100644 index c0defb14..00000000 Binary files a/Source/Modulos/Lib/Usuarios_model.dcp and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.dcu b/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.dcu deleted file mode 100644 index dcd43042..00000000 Binary files a/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Controller/uIEditorTipoIVA.dcu b/Source/Modulos/Tipos de IVA/Controller/uIEditorTipoIVA.dcu deleted file mode 100644 index 8356267b..00000000 Binary files a/Source/Modulos/Tipos de IVA/Controller/uIEditorTipoIVA.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Controller/uIEditorTiposIVA.dcu b/Source/Modulos/Tipos de IVA/Controller/uIEditorTiposIVA.dcu deleted file mode 100644 index 5c197151..00000000 Binary files a/Source/Modulos/Tipos de IVA/Controller/uIEditorTiposIVA.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.dcu b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.dcu deleted file mode 100644 index db53f827..00000000 Binary files a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dcu b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dcu deleted file mode 100644 index e799b5eb..00000000 Binary files a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dcu b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dcu deleted file mode 100644 index 6776b0af..00000000 Binary files a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dcu b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dcu deleted file mode 100644 index f976f6c1..00000000 Binary files a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Model/schTiposIVAClient_Intf.dcu b/Source/Modulos/Tipos de IVA/Model/schTiposIVAClient_Intf.dcu deleted file mode 100644 index 2b6f956d..00000000 Binary files a/Source/Modulos/Tipos de IVA/Model/schTiposIVAClient_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Model/schTiposIVAServer_Intf.dcu b/Source/Modulos/Tipos de IVA/Model/schTiposIVAServer_Intf.dcu deleted file mode 100644 index f93b6654..00000000 Binary files a/Source/Modulos/Tipos de IVA/Model/schTiposIVAServer_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Model/uBizTiposIVA.dcu b/Source/Modulos/Tipos de IVA/Model/uBizTiposIVA.dcu deleted file mode 100644 index 7b5207f5..00000000 Binary files a/Source/Modulos/Tipos de IVA/Model/uBizTiposIVA.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Model/uIDataModuleTiposIVA.dcu b/Source/Modulos/Tipos de IVA/Model/uIDataModuleTiposIVA.dcu deleted file mode 100644 index b5515513..00000000 Binary files a/Source/Modulos/Tipos de IVA/Model/uIDataModuleTiposIVA.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dcu b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dcu deleted file mode 100644 index 5bbec213..00000000 Binary files a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Plugin/uPluginTiposIVA.dcu b/Source/Modulos/Tipos de IVA/Plugin/uPluginTiposIVA.dcu deleted file mode 100644 index 180fadb2..00000000 Binary files a/Source/Modulos/Tipos de IVA/Plugin/uPluginTiposIVA.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dcu b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dcu deleted file mode 100644 index 52c2d885..00000000 Binary files a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Views/uEditorTipoIVA.dcu b/Source/Modulos/Tipos de IVA/Views/uEditorTipoIVA.dcu deleted file mode 100644 index 5b397ba8..00000000 Binary files a/Source/Modulos/Tipos de IVA/Views/uEditorTipoIVA.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Views/uEditorTiposIVA.dcu b/Source/Modulos/Tipos de IVA/Views/uEditorTiposIVA.dcu deleted file mode 100644 index 493c4585..00000000 Binary files a/Source/Modulos/Tipos de IVA/Views/uEditorTiposIVA.dcu and /dev/null differ diff --git a/Source/Modulos/Tipos de IVA/Views/uTiposIVAViewRegister.dcu b/Source/Modulos/Tipos de IVA/Views/uTiposIVAViewRegister.dcu deleted file mode 100644 index d8e8daf3..00000000 Binary files a/Source/Modulos/Tipos de IVA/Views/uTiposIVAViewRegister.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Controller/Usuarios_controller.dcu b/Source/Modulos/Usuarios/Controller/Usuarios_controller.dcu deleted file mode 100644 index 83a8bc8d..00000000 Binary files a/Source/Modulos/Usuarios/Controller/Usuarios_controller.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Controller/Usuarios_controller.dpk b/Source/Modulos/Usuarios/Controller/Usuarios_controller.dpk deleted file mode 100644 index 1a79edd9..00000000 --- a/Source/Modulos/Usuarios/Controller/Usuarios_controller.dpk +++ /dev/null @@ -1,39 +0,0 @@ -package Usuarios_controller; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - dbrtl, - Base, - ControllerBase, - Usuarios_model, - Usuarios_data; - -contains - uUsuariosController in 'uUsuariosController.pas'; - -end. diff --git a/Source/Modulos/Usuarios/Controller/Usuarios_controller.dproj b/Source/Modulos/Usuarios/Controller/Usuarios_controller.dproj deleted file mode 100644 index b55db5ba..00000000 --- a/Source/Modulos/Usuarios/Controller/Usuarios_controller.dproj +++ /dev/null @@ -1,552 +0,0 @@ - - - {87a81063-89eb-4354-bab6-ad8e25505e35} - Usuarios_controller.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Usuarios_controller.bpl - - - 7.0 - False - False - 0 - RELEASE - .\ - .\ - .\ - ..\..\..\..\Output\Release\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - 7.0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Usuarios_controller.dpk - CodeGear Control Panel Applet Package - CodeGear WebSnap Components - CodeGear SOAP Components - Microsoft Office XP Sample Automation Server Wrapper Components - VCL for the Web Design Package for CodeGear RAD Studio - Microsoft Office 2000 Sample Automation Server Wrapper Components - CodeGear C++Builder Internet Explorer 5 Components Package - Borland Sample Controls Design Time Package - CodeGear C++Builder Office 2000 Servers Package - CodeGear C++Builder Office XP Servers Package - - - - - - MainSource - - - - - - - - - - - - diff --git a/Source/Modulos/Usuarios/Controller/Usuarios_controller.res b/Source/Modulos/Usuarios/Controller/Usuarios_controller.res deleted file mode 100644 index 86c94e6a..00000000 Binary files a/Source/Modulos/Usuarios/Controller/Usuarios_controller.res and /dev/null differ diff --git a/Source/Modulos/Usuarios/Controller/Usuarios_data.dcu b/Source/Modulos/Usuarios/Controller/Usuarios_data.dcu deleted file mode 100644 index a68ce238..00000000 Binary files a/Source/Modulos/Usuarios/Controller/Usuarios_data.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Controller/uUsuariosController.dcu b/Source/Modulos/Usuarios/Controller/uUsuariosController.dcu deleted file mode 100644 index e679cf3e..00000000 Binary files a/Source/Modulos/Usuarios/Controller/uUsuariosController.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Controller/uUsuariosController.pas b/Source/Modulos/Usuarios/Controller/uUsuariosController.pas deleted file mode 100644 index cb78c693..00000000 --- a/Source/Modulos/Usuarios/Controller/uUsuariosController.pas +++ /dev/null @@ -1,313 +0,0 @@ -unit uUsuariosController; - -interface - - -uses - Classes, SysUtils, uDADataTable, uControllerBase, - uIDataModuleUsuarios, uDataModuleUsuarios, UCBase; - -type - IUsuariosController = interface(IObservador) - ['{DD963EEC-5880-4DE7-AF55-B5080B538D84}'] - - {procedure Logoff; - procedure Execute; - procedure StartLogin; - procedure ShowUserManager; - procedure ShowProfileManager; - procedure ShowLogManager; - procedure ShowChangePassword; - procedure ChangeUser(IDUser: Integer; Login, Name, Mail: String; Profile,UserExpired,UserDaysSun: Integer; PrivUser: Boolean); - procedure ChangePassword(IDUser: Integer; NewPassword: String); - procedure AddRight(idUser: Integer; ItemRight: TObject; FullPath: Boolean = True); overload; - procedure AddRight(idUser: Integer; ItemRight: String); overload; - procedure AddRightEX(idUser: Integer; Module, FormName, ObjName: String); - function VerificaLogin(User, Password: String): Boolean; - function GetLocalUserName: String; - function GetLocalComputerName: String; - function AddUser(Login, Password, Name, Mail: String; Profile , UserExpired , DaysExpired : Integer; PrivUser: Boolean): Integer; - function ExisteUsuario(Login: String): Boolean; - property CurrentUser: TUCCurrentUser read FCurrentUser write FCurrentUser; - property CurrentEmpresa : TEmpresaDef read FEmpresaAtual write FEmpresaAtual; - property UserSettings: TUCUserSettings read FUserSettings write SetUserSettings;} - -{ function BuscarTodos: IBizFormaPago; - function Buscar(ID: Integer): IBizFormaPago; - procedure VerTodos(AUsuarios: IBizFormaPago); - procedure Ver(AFormaPago: IBizFormaPago); - procedure Anadir(AFormaPago : IBizFormaPago); - function Eliminar(AFormaPago : IBizFormaPago): Boolean; - function Guardar(AFormaPago : IBizFormaPago): Boolean; - procedure DescartarCambios(AFormaPago : IBizFormaPago); - function Localizar(AUsuarios: IBizFormaPago; ADescripcion:String): Boolean; - function DarListaUsuarios: TStringList;} - end; - - TUsuariosController = class(TObservador, IUsuariosController) - protected - FDataModule : IDataModuleUsuarios; - FUserControl: TUserControl; - - procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; - function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; - -// function ValidarFormaPago(AFormaPago: IBizFormaPago): Boolean; - procedure AsignarDataModule; - procedure InicializarUserControl; - public - constructor Create; virtual; - destructor Destroy; override; - -{ function Eliminar(AFormaPago : IBizFormaPago): Boolean; - function Guardar(AFormaPago : IBizFormaPago): Boolean; virtual; - procedure DescartarCambios(AFormaPago : IBizFormaPago); virtual; - procedure Anadir(AFormaPago : IBizFormaPago); - function BuscarTodos: IBizFormaPago; - function Buscar(ID: Integer): IBizFormaPago; - procedure VerTodos(AUsuarios: IBizFormaPago); - procedure Ver(AFormaPago: IBizFormaPago); - function Localizar(AUsuarios: IBizFormaPago; ADescripcion:String): Boolean; - function DarListaUsuarios: TStringList;} - - published - property UserControl : TUserControl read FUserControl; - end; - -implementation - -uses - cxControls, DB, uEditorRegistryUtils, schUsuariosClient_Intf, - uDAInterfaces, uDataTableUtils, uDialogUtils, - uDateUtils, uROTypes, DateUtils, Controls, Windows; - -{ TUsuariosController } - -{procedure TUsuariosController.Anadir(AFormaPago: IBizFormaPago); -begin - AFormaPago.Insert; -end;} - -procedure TUsuariosController.AsignarDataModule; -begin - FDataModule := TDataModuleUsuarios.Create(Nil); -end; - -{function TUsuariosController.Buscar(ID: Integer): IBizFormaPago; -begin - ShowHourglassCursor; - try - Result := BuscarTodos; - with Result.DataTable.Where do - begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_UsuariosID + ' = ' + IntToStr(ID)); - CloseBraket; - end; - finally - HideHourglassCursor; - end; -end; - -function TUsuariosController.BuscarTodos: IBizFormaPago; -begin - Result := FDataModule.GetItems; -end;} - -constructor TUsuariosController.Create; -begin - AsignarDataModule; - FUserControl := TUserControl.Create(nil); - InicializarUserControl; -end; - -function TUsuariosController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; -begin - Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); -end; - -{ -function TUsuariosController.DarListaUsuarios: TStringList; -var - AUsuarios: IBizFormaPago; -begin - AUsuarios := BuscarTodos; - AUsuarios.DataTable.Active := True; - Result := TStringList.Create; - try - with Result do - begin - AUsuarios.DataTable.First; - while not AUsuarios.DataTable.EOF do - begin - Add(AUsuarios.DESCRIPCION); - AUsuarios.DataTable.Next; - end; - end; - finally - AUsuarios := NIL; - end; -end; - -procedure TUsuariosController.DescartarCambios(AFormaPago: IBizFormaPago); -begin - if not Assigned(AFormaPago) then - raise Exception.Create ('Forma de pago no asignada'); - - ShowHourglassCursor; - try - if (AFormaPago.State in dsEditModes) then - AFormaPago.Cancel; - - AFormaPago.DataTable.CancelUpdates; - finally - HideHourglassCursor; - end; -end; -} -destructor TUsuariosController.Destroy; -begin - FreeANDNIL(FUserControl); - FDataModule := NIL; - inherited; -end; -procedure TUsuariosController.InicializarUserControl; -begin - FDataModule.InicializarCamposUserControl(FUserControl); - with FUserControl do - begin - Criptografia := cMD5; - AutoStart := False; - end; -end; - -{ -function TUsuariosController.ValidarFormaPago(AFormaPago: IBizFormaPago): Boolean; -begin - Result := False; - - if not Assigned(AFormaPago) then - raise Exception.Create ('Forma de pago no asignada'); - - if (AFormaPago.DataTable.State in dsEditModes) then - AFormaPago.DataTable.Post; - - if Length(AFormaPago.REFERENCIA) = 0 then - raise Exception.Create('Debe indicar una referencia para esta forma de pago.'); - - if Length(AFormaPago.DESCRIPCION) = 0 then - raise Exception.Create('Debe indicar una descripción para esta forma de pago.'); - - Result := True; -end; - -procedure TUsuariosController.Ver(AFormaPago: IBizFormaPago); -var - AEditor : IEditorFormaPago; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorFormaPago', IEditorFormaPago, AEditor); - with AEditor do - FormaPago := AFormaPago; - finally - HideHourglassCursor; - end; - - if Assigned(AEditor) then - try - AEditor.ShowModal; - AEditor.Release; - finally - AEditor := NIL; - end; -end; - -procedure TUsuariosController.VerTodos(AUsuarios: IBizFormaPago); -var - AEditor : IEditorUsuarios; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorUsuarios', IEditorUsuarios, AEditor); - with AEditor do - Usuarios := AUsuarios; - finally - HideHourglassCursor; - end; - - if Assigned(AEditor) then - try - AEditor.ShowModal; - AEditor.Release; - finally - AEditor := NIL; - end; -end; - -function TUsuariosController.Eliminar(AFormaPago: IBizFormaPago): Boolean; -begin - Result := False; - - if not Assigned(AFormaPago) then - raise Exception.Create ('Forma de pago no asignada'); - - ShowHourglassCursor; - try - if (AFormaPago.State in dsEditModes) then - AFormaPago.Cancel; - - AFormaPago.Delete; - AFormaPago.DataTable.ApplyUpdates; - HideHourglassCursor; - Result := True; - finally - HideHourglassCursor; - end; -end;} - -procedure TUsuariosController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); -begin - inherited; -// -end; - -{function TUsuariosController.Guardar(AFormaPago: IBizFormaPago): Boolean; -begin - Result := False; - - if ValidarFormaPago(AFormaPago) then - begin - ShowHourglassCursor; - try - AFormaPago.DataTable.ApplyUpdates; - Result := True; - finally - HideHourglassCursor; - end; - end; -end; - -function TUsuariosController.Localizar(AUsuarios: IBizFormaPago; ADescripcion: String): Boolean; -begin - Result := True; - ShowHourglassCursor; - try - with AUsuarios.DataTable do - begin - DisableControls; - First; - if not Locate(fld_UsuariosDESCRIPCION, ADescripcion, []) then - Result := False; - EnableControls; - end; - finally - HideHourglassCursor; - end; -end;} - -end. diff --git a/Source/Modulos/Usuarios/Data/Usuarios_data.dcu b/Source/Modulos/Usuarios/Data/Usuarios_data.dcu deleted file mode 100644 index b4118c49..00000000 Binary files a/Source/Modulos/Usuarios/Data/Usuarios_data.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Data/Usuarios_data.dpk b/Source/Modulos/Usuarios/Data/Usuarios_data.dpk deleted file mode 100644 index 55320c6f..00000000 --- a/Source/Modulos/Usuarios/Data/Usuarios_data.dpk +++ /dev/null @@ -1,48 +0,0 @@ -package Usuarios_data; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Gestión de usuarios'} -{$IMPLICITBUILD ON} - -requires - vcl, - vcldb, - pckMD5, - pckUserControl_RT, - pckUCDataConnector, - JvMMD11R, - Base, - Empresas_model, - Empresas_controller, - Usuarios_model; - -contains - uDataModuleUsuarios in 'uDataModuleUsuarios.pas' {dmUsuarios: TDAClientDataModule}, - uUsuarios in 'uUsuarios.pas' {fUsuarios}, - uUsuario in 'uUsuario.pas' {fUsuario}, - uLoginForm in 'uLoginForm.pas' {fLoginForm}, - uCambiarPassword in 'uCambiarPassword.pas' {fCambiarPassword}, - uUCROConn in 'uUCROConn.pas'; - -end. diff --git a/Source/Modulos/Usuarios/Data/Usuarios_data.dproj b/Source/Modulos/Usuarios/Data/Usuarios_data.dproj deleted file mode 100644 index f27787a5..00000000 --- a/Source/Modulos/Usuarios/Data/Usuarios_data.dproj +++ /dev/null @@ -1,80 +0,0 @@ - - - - {0e3d28a9-51af-483b-b478-472a086ee120} - Usuarios_data.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Usuarios_data.bpl - - - 7.0 - False - False - 0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Release\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - RELEASE - - - 7.0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseGestión de usuariosTrueFalseFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1030FalseFalseFalseFalseFalse308212521.0.3.01.0.0.0Usuarios_data.dpk - - - - - MainSource - - - - - - - - - - - - - -
fCambiarPassword
- - -
dmUsuarios
- - -
fLoginForm
- - - -
fUsuario
- - -
fUsuarios
- - - diff --git a/Source/Modulos/Usuarios/Data/Usuarios_data.drc b/Source/Modulos/Usuarios/Data/Usuarios_data.drc deleted file mode 100644 index 4263e775..00000000 --- a/Source/Modulos/Usuarios/Data/Usuarios_data.drc +++ /dev/null @@ -1,21 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* C:\Codigo Tecsitel\Source\Modulos\Usuarios\Data\uLoginForm.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Usuarios\Data\uCambiarPassword.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Usuarios\Data\uDataModuleUsuarios.DFM */ -/* C:\Codigo Tecsitel\Source\Modulos\Usuarios\Data\uUsuarios.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Usuarios\Data\uUsuario.dfm */ -/* C:\Codigo Tecsitel\Source\Modulos\Usuarios\Data\Usuarios_data.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Usuarios\Data\Usuarios_data.drf */ diff --git a/Source/Modulos/Usuarios/Data/Usuarios_data.rc b/Source/Modulos/Usuarios/Data/Usuarios_data.rc deleted file mode 100644 index 169f9978..00000000 --- a/Source/Modulos/Usuarios/Data/Usuarios_data.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Usuarios/Data/Usuarios_data.res b/Source/Modulos/Usuarios/Data/Usuarios_data.res deleted file mode 100644 index aa75bf0c..00000000 Binary files a/Source/Modulos/Usuarios/Data/Usuarios_data.res and /dev/null differ diff --git a/Source/Modulos/Usuarios/Data/uCambiarPassword.dcu b/Source/Modulos/Usuarios/Data/uCambiarPassword.dcu deleted file mode 100644 index a3cc2bea..00000000 Binary files a/Source/Modulos/Usuarios/Data/uCambiarPassword.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Data/uCambiarPassword.dfm b/Source/Modulos/Usuarios/Data/uCambiarPassword.dfm deleted file mode 100644 index 91698274..00000000 --- a/Source/Modulos/Usuarios/Data/uCambiarPassword.dfm +++ /dev/null @@ -1,94 +0,0 @@ -object fCambiarPassword: TfCambiarPassword - Left = 460 - Top = 492 - Width = 361 - Height = 299 - Caption = 'Cambiar la contrase'#241'a' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - PixelsPerInch = 96 - TextHeight = 13 - object bAceptar: TButton - Left = 136 - Top = 230 - Width = 120 - Height = 25 - Caption = '&Cambiar la contrase'#241'a' - Default = True - TabOrder = 0 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 269 - Top = 230 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - object PageControl1: TPageControl - Left = 2 - Top = 2 - Width = 349 - Height = 217 - ActivePage = pagContrasena - TabOrder = 2 - object pagContrasena: TTabSheet - Caption = 'Cambiar la contrase'#241'a' - object Label4: TLabel - Left = 16 - Top = 19 - Width = 167 - Height = 13 - Caption = 'Escriba la nueva contrase'#241'a:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - Transparent = True - end - object Label1: TLabel - Left = 16 - Top = 72 - Width = 257 - Height = 13 - Caption = 'Repita la nueva contrase'#241'a para confirmarla:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - Transparent = True - end - object edtPassword2: TEdit - Left = 16 - Top = 88 - Width = 295 - Height = 21 - CharCase = ecLowerCase - PasswordChar = '*' - TabOrder = 0 - end - object edtPassword: TEdit - Left = 16 - Top = 39 - Width = 295 - Height = 21 - CharCase = ecLowerCase - PasswordChar = '*' - TabOrder = 1 - end - end - end -end diff --git a/Source/Modulos/Usuarios/Data/uCambiarPassword.pas b/Source/Modulos/Usuarios/Data/uCambiarPassword.pas deleted file mode 100644 index 03a158bf..00000000 --- a/Source/Modulos/Usuarios/Data/uCambiarPassword.pas +++ /dev/null @@ -1,41 +0,0 @@ -unit uCambiarPassword; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ComCtrls; - -type - TfCambiarPassword = class(TForm) - bAceptar: TButton; - bCancelar: TButton; - Label4: TLabel; - edtPassword: TEdit; - Label1: TLabel; - edtPassword2: TEdit; - PageControl1: TPageControl; - pagContrasena: TTabSheet; - procedure bAceptarClick(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -var - fCambiarPassword: TfCambiarPassword; - -implementation - -{$R *.dfm} - -procedure TfCambiarPassword.bAceptarClick(Sender: TObject); -begin - if edtPassword2.Text <> edtPassword.Text then - raise Exception.Create('Por favor, introduzca la MISMA contraseña en los dos campos') - else - ModalResult := mrOK; -end; - -end. diff --git a/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.dcu b/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.dcu deleted file mode 100644 index e6b697d8..00000000 Binary files a/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.dfm b/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.dfm deleted file mode 100644 index 1b2ff77c..00000000 --- a/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.dfm +++ /dev/null @@ -1,76 +0,0 @@ -object DataModuleUsuarios: TDataModuleUsuarios - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 205 - Width = 355 - object ROLoginService: TRORemoteService - Message = dmConexion.ROMessage - Channel = dmConexion.ROChannel - ServiceName = 'srvLogin' - Left = 48 - Top = 32 - end - object srvUsuarios: TRORemoteService - Message = dmConexion.ROMessage - Channel = dmConexion.ROChannel - ServiceName = 'srvUsuarios' - Left = 152 - Top = 32 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 104 - end - object UserControl1: TUserControl - ApplicationID = 'ProjetoNovo' - LogControl.TableLog = 'UCLog' - EncryptKey = 0 - Login.InitialLogin.User = 'admin' - Login.InitialLogin.Email = 'usercontrol@usercontrol.net' - Login.InitialLogin.Password = '123mudar' - Login.MaxLoginAttempts = 0 - ExtraRights = <> - TableUsers.FieldUserID = 'UCIdUser' - TableUsers.FieldUserName = 'UCUserName' - TableUsers.FieldLogin = 'UCLogin' - TableUsers.FieldPassword = 'UCPassword' - TableUsers.FieldEmail = 'UCEmail' - TableUsers.FieldPrivileged = 'UCPrivileged' - TableUsers.FieldTypeRec = 'UCTypeRec' - TableUsers.FieldProfile = 'UCProfile' - TableUsers.FieldKey = 'UCKey' - TableUsers.FieldDateExpired = 'UCPassExpired' - TableUsers.FieldUserExpired = 'UCUserExpired' - TableUsers.FieldUserDaysSun = 'UCUserDaysSun' - TableUsers.TableName = 'UCTabUsers' - TableEmpresa.FieldID = 'UCID' - TableEmpresa.FieldName = 'UCNOME' - TableEmpresa.TableName = 'UCEMPRESA' - TableEmpresa.Active = False - TableEmpresa.IDInteiro = False - TableRights.FieldUserID = 'UCIdUser' - TableRights.FieldModule = 'UCModule' - TableRights.FieldComponentName = 'UCCompName' - TableRights.FieldFormName = 'UCFormName' - TableRights.FieldKey = 'UCKey' - TableRights.TableName = 'UCTabRights' - TableUsersLogged.FieldLogonID = 'UCIdLogon' - TableUsersLogged.FieldUserID = 'UCIdUser' - TableUsersLogged.FieldApplicationID = 'UCApplicationId' - TableUsersLogged.FieldMachineName = 'UCMachineName' - TableUsersLogged.FieldData = 'UCData' - TableUsersLogged.TableName = 'UCTabUsersLogged' - TableHistory.TableName = 'UCTABHistory' - TableHistory.FieldApplicationID = 'ApplicationID' - TableHistory.FieldUserID = 'UserID' - TableHistory.FieldEventDate = 'EventDate' - TableHistory.FieldEventTime = 'EventTime' - TableHistory.FieldForm = 'Form' - TableHistory.FieldCaptionForm = 'FormCaption' - TableHistory.FieldEvent = 'Event' - TableHistory.FieldObs = 'Obs' - TableHistory.FieldTableName = 'tName' - Left = 192 - Top = 120 - end -end diff --git a/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.pas b/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.pas deleted file mode 100644 index 2e697243..00000000 --- a/Source/Modulos/Usuarios/Data/uDataModuleUsuarios.pas +++ /dev/null @@ -1,287 +0,0 @@ -unit uDataModuleUsuarios; - -interface - -uses - SysUtils, Classes, DB, DBClient, uDADataTable, - FactuGES_Intf, uIntegerListUtils, uBizEmpresas, - UCBase, UCDataConnector, uUCROConn, uDARemoteDataAdapter, - uDARemoteCommand, uROClient, uRORemoteService, uDADataStreamer, - uDABin2DataStreamer, uDAScriptingProvider, uIDataModuleUsuarios; - -const - PERFIL_ADMINISTRADORES = 'Administradores'; - -type - TDataModuleUsuarios = class(TDataModule, IDataModuleUsuarios) - ROLoginService: TRORemoteService; - srvUsuarios: TRORemoteService; - Bin2DataStreamer: TDABin2DataStreamer; - UserControl1: TUserControl; - procedure DAClientDataModuleCreate(Sender: TObject); - procedure DAClientDataModuleDestroy(Sender: TObject); - private - FDataConnector : TUCROConn; - FUsuario : String; - FPassword : String; // Lo guardo para poder hacer una reconexión - - FLoginInfo: TRdxLoginInfo; - FEmpresaActual: IBizEmpresa; - function CambiarPassword (const APassword : String) : boolean; overload; - function GetEsAdministrador: Boolean; - - function GetEmpresas: TIntegerList; - - procedure SetEmpresaActual(const Value: IBizEmpresa); - function GetIDEmpresaActual: Integer; - procedure SetIDEmpresaActual(const Value: Integer); - function GetDataConnector : TUCDataConnector; - public - procedure InicializarCamposUserControl (AUserControl : TUserControl); - function Login: Boolean; overload; - function Login(Usuario: String; Password: String): Boolean; overload; - procedure Logout; - procedure CambiarPassword; overload; - - property EsAdministrador : Boolean read GetEsAdministrador; - property IDEmpresaActual : Integer read GetIDEmpresaActual write SetIDEmpresaActual; - property EmpresaActual : IBizEmpresa read FEmpresaActual write SetEmpresaActual; - property Empresas : TIntegerList read GetEmpresas; - property LoginInfo: TRdxLoginInfo read FLoginInfo; - property DataConnector : TUCDataConnector read GetDataConnector; - end; - -implementation - -{$R *.DFM} - -uses - Forms, Controls, uDataTableUtils, uDataModuleConexion, uLoginForm, - uCambiarPassword, Dialogs, Windows, uEmpresasController, schUsuariosClient_Intf; - -{ TDAClientDataModule1 } - -procedure TDataModuleUsuarios.DAClientDataModuleCreate(Sender: TObject); -begin - ROLoginService.Channel := dmConexion.Channel; - ROLoginService.Message := dmConexion.Message; - - FDataConnector := TUCROConn.Create(nil); - FDataConnector.RemoteService := srvUsuarios; - - FUsuario := ''; - FPassword := ''; - FLoginInfo := NIL; -end; - -function TDataModuleUsuarios.Login: Boolean; -begin - // Intento hacer login si el usuario ya lo había hecho antes - if (Length(FUsuario) > 0) then - if Login(FUsuario, FPassword) then - begin - Result := True; - Exit; - end; - - // Si no funcionar el login anterior o es la primera vez, - // saco la pantalla de login - with TfLoginForm.Create(NIL) do - try - if Assigned(FLoginInfo) then - edtUser.Text := FLoginInfo.Usuario; - Result := (ShowModal = mrOK) - finally - Free; - end; -end; - -function TDataModuleUsuarios.Login(Usuario: String; Password: String): Boolean; -begin - // Libero la información del login anterior (sesión, etc) - if Assigned(FLoginInfo) then - FreeANDNil(FLoginInfo); - - Result := (ROLoginService as IsrvLogin).Login(Usuario, Password, FLoginInfo); - - if Result then - begin - // Lo guardo para poder reconectarme - FUsuario := Usuario; - FPassword := Password; - end; -end; - -procedure TDataModuleUsuarios.Logout; -begin - (ROLoginService as IsrvLogin).Logout; - if Assigned(FLoginInfo) then - FreeANDNil(FLoginInfo); - FUsuario := ''; - FPassword := ''; -end; - -procedure TDataModuleUsuarios.SetEmpresaActual(const Value: IBizEmpresa); -begin - FEmpresaActual := Value; - FEmpresaActual.DataTable.Active := True; -end; - -procedure TDataModuleUsuarios.SetIDEmpresaActual(const Value: Integer); -var - AEmpresasController : IEmpresasController; - AEmpresa : IBizEmpresa; -begin - AEmpresasController := TEmpresasController.Create; - AEmpresa := AEmpresasController.Buscar(Value); - AEmpresa.DataTable.Active := True; - - if not AEmpresa.IsEmpty then - begin - FEmpresaActual := AEmpresa; - FEmpresaActual.DataTable.Active := True; - end - else - FEmpresaActual := NIL; -end; - -procedure TDataModuleUsuarios.DAClientDataModuleDestroy(Sender: TObject); -begin - if Assigned(FDataConnector) then - FreeANDNIL(FDataConnector); - - if Assigned(FLoginInfo) then - FreeANDNIL(FLoginInfo); -end; - -function TDataModuleUsuarios.GetDataConnector: TUCDataConnector; -begin - Result := FDataConnector; -end; - -function TDataModuleUsuarios.GetEmpresas: TIntegerList; -var - i : integer; -begin - Result := TIntegerList.Create; - - if not Assigned(FLoginInfo) then - raise Exception.Create('Usuario no validado en el sistema (login)'); - - for i := 0 to FLoginInfo.Empresas.Count - 1 do - Result.Add(FLoginInfo.Empresas.Items[i]); -end; - -function TDataModuleUsuarios.GetEsAdministrador: Boolean; -var - I: Integer; -begin - Result := False; - - if not Assigned(FLoginInfo) then - raise Exception.Create('Usuario no validado en el sistema (login)'); - - for I := 0 to FLoginInfo.Perfiles.Count - 1 do - if FLoginInfo.Perfiles.Items[I] = PERFIL_ADMINISTRADORES then - begin - Result := True; - Break; - end; -end; - -function TDataModuleUsuarios.GetIDEmpresaActual: Integer; -begin - if not Assigned(FEmpresaActual) then - Result := ID_NULO - else - Result := FEmpresaActual.ID; -end; - -procedure TDataModuleUsuarios.InicializarCamposUserControl( - AUserControl: TUserControl); -begin - if not Assigned(AUserControl) then - raise Exception.Create('UserControl no asignado (InicializarUserControl)'); - - with AUserControl do - begin - DataConnector := FDataConnector; - - with TableUsers do - begin - TableName := nme_USUARIOS; - FieldUserID := fld_USUARIOSID; - FieldUserName := fld_USUARIOSUSERNAME; - FieldLogin := fld_USUARIOSLOGIN; - FieldPassword := fld_USUARIOSPASS; - FieldEmail := fld_USUARIOSEMAIL; - FieldPrivileged := fld_USUARIOSPRIVILEGED; - FieldTypeRec := fld_USUARIOSTIPO; - FieldProfile := fld_USUARIOSID_PERFIL; - FieldUserExpired := fld_USUARIOSBLOQUEADO; - FieldDateExpired := fld_USUARIOSPASSEXPIRED; - FieldUserDaysSun := fld_USUARIOSUSERDAYSSUN; - FieldKey := fld_USUARIOSCHECKSUM; - end; - - with TableRights do - begin - TableName := nme_PERMISOS; - FieldUserID := fld_PERMISOSID_USUARIO; - FieldModule := fld_PERMISOSMODULO; - FieldComponentName := fld_PERMISOSNOMBRECOMP; - FieldFormName := fld_PERMISOSEXNOMBREFORM; - FieldKey := fld_PERMISOSCHECKSUM; - end; - - with TableUsersLogged do - begin - TableName := nme_USUARIOS_LOGON; - FieldLogonID := fld_USUARIOS_LOGONLOGONID; - FieldUserID := fld_USUARIOS_LOGONID_USUARIO; - FieldApplicationID := fld_USUARIOS_LOGONAPLICACION; - FieldMachineName := fld_USUARIOS_LOGONEQUIPO; - FieldData := fld_USUARIOS_LOGONDATA; - end; - - with TableHistory do - begin - TableName := nme_USUARIOS_EVENTOS; - FieldApplicationID := fld_USUARIOS_EVENTOSAPLICACION; - FieldUserID := fld_USUARIOS_EVENTOSID_USUARIO; - FieldEventDate := fld_USUARIOS_EVENTOSFECHA; - FieldEventTime := fld_USUARIOS_EVENTOSHORA; - FieldForm := fld_USUARIOS_EVENTOSFORM; - FieldCaptionForm := fld_USUARIOS_EVENTOSTITULO_FORM; - FieldEvent := fld_USUARIOS_EVENTOSEVENTO; - FieldObs := fld_USUARIOS_EVENTOSNOTAS; - FieldTableName := fld_USUARIOS_EVENTOSTNAME; - end; - - with TableEmpresa do - begin - Active := False; - end; - end; -end; - -procedure TDataModuleUsuarios.CambiarPassword; -begin - with TfCambiarPassword.Create(NIL) do - try - if ShowModal = mrOk then - if CambiarPassword(edtPassword.Text) then - Application.MessageBox('La contraseña ha sido cambiada correctamente.', 'Información', MB_OK); - finally - Free; - end; -end; - -function TDataModuleUsuarios.CambiarPassword(const APassword: String): boolean; -begin -{ if not (ROLoginService as IsrvLogin).SetUserPassword(LoginInfo.UserID, APassword) then - raise Exception.Create('Error en el servidor. No se ha podido cambiar la contraseña');} - Result := True; -end; - -end. diff --git a/Source/Modulos/Usuarios/Data/uLoginForm.dcu b/Source/Modulos/Usuarios/Data/uLoginForm.dcu deleted file mode 100644 index 15a1d77b..00000000 Binary files a/Source/Modulos/Usuarios/Data/uLoginForm.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Data/uLoginForm.dfm b/Source/Modulos/Usuarios/Data/uLoginForm.dfm deleted file mode 100644 index bfa1641a..00000000 --- a/Source/Modulos/Usuarios/Data/uLoginForm.dfm +++ /dev/null @@ -1,1099 +0,0 @@ -object fLoginForm: TfLoginForm - Left = 790 - Top = 387 - ActiveControl = edtUser - BorderStyle = bsDialog - Caption = 'FactuGES' - ClientHeight = 241 - ClientWidth = 385 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnCreate = FormCreate - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object Label3: TLabel - Left = 24 - Top = 108 - Width = 39 - Height = 13 - Caption = 'Usuario:' - Transparent = False - end - object Label4: TLabel - Left = 24 - Top = 138 - Width = 57 - Height = 13 - Caption = 'Contrase'#241'a:' - Transparent = False - end - object Label1: TLabel - Left = 16 - Top = 72 - Width = 94 - Height = 13 - Caption = 'Inicio de sesi'#243'n:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clMenuHighlight - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - end - object JvGradient1: TJvGradient - Left = 0 - Top = 57 - Width = 385 - Height = 4 - Align = alTop - StartColor = 2971346 - EndColor = 4828405 - end - object Panel1: TPanel - Left = 0 - Top = 0 - Width = 385 - Height = 57 - Align = alTop - BevelOuter = bvNone - Color = clWhite - TabOrder = 0 - object Image1: TImage - Left = 0 - Top = 0 - Width = 385 - Height = 57 - Align = alClient - Center = True - Picture.Data = { - 0B544A76474946496D616765F6750000474946383961C201FA00E60000FFFFFF - F5F5F5A92824ECECECEB743DF48545EF7B40DEDEDECD452DEAEAEAD0492EDC5A - 34FAFAFAF2F2F2BC2A26B02724E5E5E5E26236B95B55E1E1E1F8F8F8D95532FC - FCFCF5D6CAD4D4D4F5C8B5D1B5B0F0F0F0E66A39C23428D65131EEEEEEBCBABA - FEFEFEF7B192F49366CB938CD34D30C7726AC63A2AE96E3BC7564CD26958EEB5 - A5F9E9E3D7C5C2C93F2BE46638F8E1D8D2867AC9C5C4E05E35C03027B82725C7 - 453AE79A89B9322ECBA59EF7A47BFCF4F1FCF0EBB93A36D8D5D4B44741BF2D26 - EEE2E0A22925AB3934A7302CFEF8F5FEF9F8C33B33DB5D3DB52724B12E2AD251 - 3AD9CFCDE47D60FEFCFCBC7D75BD2C26EBE9E9D6D6D7FFFEFDF7F1F0FEFBFAFD - FDFDF3F0EFE8DDDCFBF8F7DFDFDFDED7D6D45A43F4F4F4E0E0E0DADADAC94E41 - F9F9F9DF6648EBEBEBF1EBEAE4E4E4D8D8D8EDEDEDD94E2FD95738C53729EFEF - EFFFFFFEF3F3F3E2E2E2EBECEDE8E8E8F7F7F7EFF0F0CDCCCCF1EEEDE7E7E7F1 - F2F3F1E8E5E76035E86B39D1D1D2F2F3F4EEEDEECF3F2AD2D0D0F1F1F12C0000 - 0000C201FA000007FF800582838485868788898A8322173C5300919293949596 - 9798999A9B9C9D9E9FA0A1A2A393560C717F6763670D710C56A4B1B2B3B4B5B1 - 8323B887B982BC05BEC0BABDBBC2BFBF3A193046B6CCCDCECFD0D1A50C011F70 - 1075636B6D71161621E0D2E2B4E02156E7E8E9EAE5E3968BEFF0F1883A8D3BED - F7F8F9FAA2A601677513DC9481A38D5B180BB0F629BC64C502030A7102489C48 - 31401C0A0713EA3336AC23C78FC10C8504590CD808643C16AA5CC9125AC30003 - CA68D1E265421908633E18D4D8529F290A5DFEAC3933A0A8D1A31FFE707BB54F - 9ED3A78B4624EB49B5AAD54DFD621ED8BAD58B9B6C6B5A85796525C4D567211C - 024D05A70E843270FFE3CA850067C0862EDDCAE283CAB76F2F1130CE0A1EDCF3 - A556AE5D05D649F0A141000A0C2C10B665254C805409EA947133C18BE7CF9E27 - 88BEC9F84F808366DBF95DFD54C785296C26CB9E2DAEDF3F2D880FCCD4127031 - ABC7DF688B4A4BA1CD87CC9BBDEC5ECE9CA6CD3A701ABB4A2D8EB5F577272F14 - 7122BCBB77592FCF40505ED38D4037CA0FD88490C02EDEC87ABF33B410A6CB86 - 319A95E35E0E9A79D7E78C75414170D22462006B072A9260010B1E825211B1C9 - 27E18498D8564768742590001C654C3053796580F51E4F1486704A030370881E - 6E5B3967DE8B9C75C6E287E6E1F44737D55DA7E32E52C1C00377140629E44B1F - 5CE8C5408DB5B1C6FF186FA597581DEE0D489D7CE05810C006097488988B37D5 - E1A59710BCB5998C5B0EB4018ED10CB2608387ACA9669B6F1AC2A6200D9E944C - 1542E639615A71AC0107676E24D0401861C4A1247E7079A8DB04741574DA2B53 - D26662351C7AC11588D02530C651638CA1615B6FADC8951603AD110042D0ECA8 - AA21F4C050849EB07AC7E7067FDA344617AF3864E8922A5ACA9B798B49170689 - B3595964194E6AE14686037CB0C6061BFCF107B46B7C4094A76D71C6E2015E45 - 776AA4B53028EE81E48E6B6EB9E89EAB6EBAECAA5B0032F6C42AAF6CE650F047 - 029C95716B59E09862E87DD7ACB8DBB28CB502293B839913C01A00EDC75B8839 - 6DD0461B5D54D445FF1B0D48BBC150F84140E6568C7E100003E0CE42679CE29E - AC72CA2C13E2A69C28BFFC4B062C4032EFCD67D57B6F876524D0C637E5985868 - 5067B4D5A1AF006E13471C631178D5A4D6B871E9570557BCF4D5584B74710319 - 7F304002A1A6A76C1D67E04AAC2CEBA6DDEEDA6AB7CDEE0880155132CE742B64 - 4E180D8CD161A07F8411B4390D3D74D97110B8B15F4D21367B1744929D654535 - 855BAADB57EE5D440146845E0ED1D25A6F3DED0763043CE3047588EC342D32A7 - 1EF3EA2BABDE7A21705FB083CD75D7BED0DD79EF0DC70614F0FB779510357046 - 669CE977A497496D70EA3973EB034E181B5CD8E29170B0C27464D833A03DA161 - 5C1E5144124DDCC0FF50C46F1B72006793E2F6FA6CB7CF3E8376C280A7EDF43B - 5F59DE80C2F147EFBF07AD56000D009D8A6612104611447990499FF318D005BD - 4DAD7AA6699A37B497BDED758F735A9B98508AE6B119B9010E6D600033DC47C2 - F795B05DBF004CBCEAC7C271E82C4B36D1DFB0FAF7B78614AA0DF7A983E166C2 - 2D0336E6348D5B8905FA0410AE7CE50C6D78943796C8C4EC656E7301B818C6A6 - 95A20ECDA80C1FA040F3426100727591415FECA217C70846328AB18C683CA31A - C3C8C60421830555D8620BE7188B17022A017DF31D0DFD770AE3802D39B8395E - 7BFE2020F8C8112DF6FAD37E488744A631511D4C748805A1D805298EAF8A8A52 - 8FA098823A137AF2FF84EF938AEC8044C752D6C28ED4CBE31EFB674343798D43 - 1EA2498D08B28611EDE3710340CFA26C3432F8A80392137448E6302845A1202A - 3D5E80C0194676484E88F199D08CA634A749CD6A5AF3406F7442334DC9CD4CD8 - 312078E4DF2A69D89038D80793DBF20A4E6A09996DD682017FA8038B8E84C791 - 2D9179BF4B47301930CCCE4D917002FBCA1AE2A0C04FACD18C6D7C661ADB5846 - 851E74A1647C1760E2D8CD8A0EE77E7A0BC8EEC4394E1AEAAA0D7F48D15BC8F4 - 1CBB180452D2A8D707CA60C4D201311DE18844D0F4E910615E302295C4D80686 - D7416EE9AB0B418CC535874AD4A256B309B1939B4597FA0913B5610085FBE099 - 80D651720AF3321CFFD4A52C43543057147416698189D474D3B31BF9D27792A8 - E1399648C10B4EA498A0D321D2E0D00092CD62A80DB5665EA3B9D7315ED34E3C - 981F5307EB4D6A14893375182842AADA51FA5C89A7C85A0EC174E2557E35E37E - 7FD28D17C8862B6FA023A6699DE95A9DE8D6286A7028D798408B20B0062DBAF3 - 12468DED350920DB2EC68E07AF252C37ADE4A70EB974B1E5680842F458557F01 - 10A05A7D4E4E4C33A0F8D462880CF350B74CA5BDE15A76126A156E5B6F6A5A9D - 2EA9702C2AC319BA91DB4AD4F6BCE8856613DE958C65E8F6BD941822AD6A643A - 3DD6D4908CED9724E320BC3F1A6F3D1004627931C140A87AC85666F52C5AB12B - 5AE14AB27B10C9A0FF7707A0C3F00E6079B230006D69DBC50D6B588C1CFEB087 - 3DDC611183F8C4252EF1884DCC61418820032B842F7CE5ABA2D2E5858FDD1BCB - 59F36B0E6AFCE1389A91116E7CE89883004D1661F843A5C666BDEA02371CF944 - 075BB7E73D9C8A6F5A458BEC017AD686616538BD6046EFCC5820E332D31858A6 - 7A725A0A15458B60E460F935EEF83A66B84591E60C84F4EA80654AC458226929 - 35C52739D7BA4F7E7A4FC219DB29D814C5B7016578C59066B1A4493CE94A47FA - D21A7E5760CA3CE385C132B1372E87430230C506546C2CC4EDE85A2D631CFCD4 - 994674B10B70F61C02C8E9E7834A73B2A0594968D26ECECA535474E494B5D1A0 - 8A42C5964671A59FFF19624C3B7BD9AED90EA7757B0A3F2156B17AFC09A9B996 - 448BE878B83C1EF5A13453BC992CAB2E7771A47339814B99F83401E9A6A08279 - 4DE8094E929853FCDC31790307C53E5AC3047836A4039E6C81175CD23D8AF1B4 - 2DCADB4F635BB4DB035F4EAD0619AA325698FFFA5A937AB82CB018ECAB94C065 - 9D9309EFF74466DED9AD3705F9595AD3664CDFB0E44D624F250B83DBFCE037C7 - B401EC54B3853315BAB59AB99A67EA0D88943A89154FB5AA1DCB96CDCCC82B8B - 61E7E932D1EE40B227DDDF4679BFA43CE57B5B248A9E839600AD48BA818A3016 - 014FBBDAD7CEF6B6BBFDED708F7BDA33AD0357F97CA90DF7ADC8E0CC4AFA00BB - 62DEAEAED2572938FFCC846DC8109398120BFAB8318CFCEA492494BC7FC9757B - 4F32C219E4DAB4381673D2EDBDE638C739C1731EFAB96F185E7767781CE67BBE - A1E7F3C114907012D5CDE3C059A6BF3A8CA55706D255D4540826EEA6A7D2DEAC - EB5F36F1C1C394F895A935BC20CBDCEC35DFB0DCA74FFDEA4FBF0934A35DEA4B - 69255AF9B66C9149F9EBD90CD23F985ADDBB2E2E35C6879C5806843461111055 - 430EFC4022C93197D3F1C969CA56E473B7BB2FB7316BF03572C56FFE86760067 - 7D6F97806AC780D5E7806EF72E8EA07DDBD74267B62C03D06516471F97835F7C - 14619504786EA63DE9B74A0D113C4BE2162FD2195F511711E40D911207671059 - A4024178917FD813FF49FB847C55F65657B6795E03362B22558E867628A08048 - 9884D6570037A01D15C87D57A222109081A8D12FAC766A7C07380F86535CD300 - 919785E3245C37948280541EECF11B45280914B006E3616E5072176E26793535 - 6592644110F63D60873189B606D522528C465707117D4A388884E8765291124F - 38471738851A185CF5C135155371E0564382536A9168649FC558FE72282AA27B - 93A53C19010EF6822FCAC128091016166139FA775F2BC7723DA87C9A472DD6E2 - 6AE9F1539C440A697784BA4800BB1870BBF88BB9188CC07884BEC88BC6588CC3 - 688CC4788CC6D8042BA00C7B9688F2D17D52380083627182D33912E14816D72F - 86063E60B78D4D33FF78ACC44FA4B60129927B047413E85648FD502407767FDB - 781192D78ADB75875783681AB331D6E25FBAA14CE4258885389085C85E3D278D - F473668C628DA8165C6A614E2FC70D151765B60791D2327B1E585CA660196C01 - 5E1F723CD6C83496315FDC423984348F98638FDC838F5F977989C68F44912D81 - 9458FC5373C97893CA989338B9933AD9933C8902B1333B08693B79B7906DD05C - 35E4585DC06D78713D5AA75F43833114231190B17FE4F83B82A368B9E719BCC1 - 1E1F102DA9504434C11EF13711AAB8924FF48AFE148B02E83588124B811242D1 - 28093FE99376599778799739B9732BC002EE35947BA209D4C0309CC18849874F - A3555A527489DD68FF0EC28479175349DEE67A7B143811114088821EE5E12570 - 902D92432A64A3148077359A539ABF068E79186C02C831FED595E305729C8002 - BA289BBC489BB2799BB6A98CB6899BBB398CBD599BB3199C3AF99B06904D8029 - 2169815296C05BB937850D7098BFE48DA7B094D2E218B4D777A7B06DE68717A1 - 587B9B0864A2F291FA712964A91466499A55C639E09853CBC787D51284CE3736 - BC339774099CF6799BC3299CF8B99FB9E99BFAD99F77999BA2F42AC759155562 - 68E1175FE6F41E30580AABF727CB320609E66043D74ADD6535172178BFF3908B - D994C437898D359214A64BB9911B63A30D5E2899DF9335A8C99E7A382D6D398B - A9B51F7C1306B580FF021C709B392A9B3B8AA3BCF9A33D1AA43FCA9B42CAA33A - 3AA448BAA34D7003198088055A1816B01677E16593C00028E228542A09780343 - 3D038A27F748BED36B6E254553994049F998C056A61919861CC9247556A28861 - 130970061233956679A76F65499AB779EE491442283603D137378AA4848A9B79 - 50A8889AA8B279A885CAA8F80937CA40814F7A0FFA959D21D599224322143083 - 54231D7016066DC024726A2A46765F73F894BA426AD5F985D6954F82439DE699 - 74C515A541E16ADB322A3C444067182D14238216C39E5D282D7CFA01C44A805A - D2225FB17708330A2870A839EAAC43CA017990A3D4EAA3D00AADD55AADD8EAA3 - DA6AADDEFAACDCFAFFAD28600037A04293EA137EB794AF5438FA823E94100709 - 508A5C956B0801AA06D6A58FA25D3785119EF537180776A3498FE1478985B2A0 - 53D990ABA42B44F396255A1E99A42C671816BD9AA72EFAA2FB18A3C31373A3D2 - 2DBFE17BA370A820DBAC3EBAA8221BB2210BAE272BB2E0BAB22A5BB22E6BB2DE - 0AB3204B004D8012E78A0F26B22BE9681E9EE10663E0AE9300AFBBB199DA2020 - 8592371ED3A5EA2649101199DCC82F34A53D11A68718D998A3F510E6346B093B - 9299F9315303266F0A75736A7EBD1A821373B6C17AB1EE692D22F5A61B7B6E9E - 0A9B9630AD79E0ACD3FAAD754BB7752BAD76BBB7758BA3772BADD41AB884EBB7 - 829BB7820BB886ABFFB777DB048DF09737DB0C8E89B5E3566E5C3101FB420901 - 900033627F6F282D5926A7CA137E81137B7A78834DB37F33C54F16E98581F794 - 5562195A3B7E00F40F6E8BABEBC11803F8279F79676B40B667AB87690B2DD4F2 - 9EAAB021E005A72D628ADB604FD7C5097B0BB8D92ABD2DCBB7E17AB8899BBD81 - CBAD843BB879FBB7897BAD742BB848957D91EB0C9B483E2AC8955CA91E991BB4 - 9CFB213CA44E9D89BCE8A1B42453A9B147A695B434B24A7458BB9E80F7BF0EC9 - 4F60080E0FD106CD47A25B22B694456AD63635B19614E6E785E2B3A7305ABC6E - 69349DA1BCA30220783622DBC401824BC2E36BC2D88BA3283CBED34AC22EFCC2 - 307CC2251CC32ECCFFC2D9FBC2742B064CE808F479BED370254C7234E41110E5 - E6B3402B0971300607661E42561E4CAC1CA5C24CAB4B7E2F676A8F6195C6C7BA - AABA9DD7195C30D53FF63A6CB73A39038167F6346AFF20393D341039F12CD539 - BCC5FB9E5F932D99A459EDBB255B856E40D409835BC3348CC37E4CBD33DCBD28 - 2CC8E3CBAD30DCC785ACBD0400A990EBC3A160999791223BE4C45F3252CAF2B3 - 24120703D0195D022A961BA7D91041F855BA10D985185A8F43F73F541B875669 - 82E6D027E361A29BD91E08848D5D10134E529299B20ACE42BC7C48ACD6722D1B - B2BE1F2C10712164251A43212CAB9800C32FE0C2D1FCC2D15CCD1C30CD892CCD - D98CCD896CCDD47CFFCDE0FCCDDC9CC852A17090EC0939DB6A01632900D6C63C - 851E46BCC99D6C8A67C087452357261AA14AD39D930B82C13B954E996D68EA83 - 033CB05EECC5D4201EB72A4B5E699D19690589842C88B17BD840100370066740 - AC185D149E52CC983CD1A4010799A18E25FA30B1868A817809355CCD748BCD2F - 90072F1DD332DCC2D23ACD2DFCD2248CD328ACCD83CCD22B7DCD341DD424EC8C - F273CEA0D00F58D2418BD433CD62C5C22357F1FCAE9D4C39D659BBB0B4CB0F83 - 6E5F18A613B4BF2F679E4E794F90648EF956B5509B898193CBEE7629F7A7675E - 0C347937C666481722AD219FD2166E312658AD5C191D84EBACBC0F132CDC3075 - 9100CED67CD82F70FFD886BDD88ADDD88CFDD88E1DD9906DD88DDC5E46AD09C9 - 197BC2C321CE0117D01131D60914BDE5159A2CD535027E3604C4A06245CBCB7B - 49C19D70B6911171C1002DB020DA63FB7BB6A95CCA95DA402C352A519CD232E5 - 984053195D600D1D52C78B621E7011266112173CABC69A756E110384045838CA - BC25BD911306D1AF9110D3860DD3300DD432CDD2E52DDEE61DDEE75DDE8C3DDE - EB4DDEE81DDF2F8D02632658975D0910DD05BC02480433006E4CB678416A5143 - DA471C099C5C9819787639DB001BE387DA4DDDB916A615E9724C99A193385A18 - 37DB67EB48FDD2DB50F574CAB43C910238CCA32B01C4C1632C9EA2D1195C29D7 - BD51175F099602E8FFA779DDC1B42C1067C85CF90B0089DDE33E5ECD3F1EE442 - 3EE4428E07441EE4467EE43E9EE489CD0162B0A4B273DF94D063A80055020375 - 63A078FE04784F8D2C511DB4B9444FCF6916C411997356800D9C78B06D5D6278 - 99C26AC51FAA6050AB942F277F1D0E38090D01A353077F7076534EE2BD664EE8 - F847CAEDC1266AD204F195C2BAE830BAC1E4369EF9FC6752C2E390EDE3938DD8 - 3D6ED84DDED896FEE38CBDE9950EE48D0DA9042AE5FDA0248B6667BBDA6D5B2E - 116109CFA50DE6F78B47DDF010F6E12C4AA1536DAB5A710A313FB478072ABBFF - 9CCA984874DDA3351C6E0E5B67250ABDBC7CEEE77FEEC5AD74EBF65B3C907EE8 - 5CC22C8ACEE88B2EFF8B03802DE466E313FD4148E465446EE411A0E43E9EEE4C - 9ED8E97EE4EFFE02ECAEEE45DEE3F1EEE36200376466EA96B106C4E37E7441A7 - 162CBCDCD66D61E9E5B18EC4B924BAE1E3EF6132CA6E765CFEB8B1A4E1DFDC09 - 5CDA157BDAB99D93C9E6146AC018DFDBCDBE28A056506F9DAE97143A5E021731 - 021A35F17E5DA22119FD2CC45BF3367FF3FDA882294E3D53C5E3F4FEF3ED6EEF - 4ACEE4F7FEF3F2FEE345FF026240004CBA03F67DBEE5F4D42BA24ED920315696 - 686FDCAB2105D5096FE0613E10FE1D573BB490CF1919470B6447B32D59EDDFF8 - 7756A69C6FAE2BB0BAF6D68829F27A3E3DCA0454F864094949C51B10841E2D26 - 71F1F0D04110190DFF96177BF3C44BB6130152710548131DE2221401949FEE96 - 4FF97860F9F24EF947AFF99EDFF99BFFF9A20FFAA35FFA9C7FF9957FFA2F6000 - 8D805B903C290EBF43E756CFD639DB19FCC6A61614234AE09A1AE61D770DC7DA - 158C6864E6784928FEC15C85672735E7D948A6B53D8E0D165C760FE2542878EB - 165AFA6B5A42E196D8B221F55BD79BD22C347FF3EE59FED0C2F859E3F8A1C3DA - AB7561937FF4E84EFAF21FFFF42FFFA31FFF9A8FFFF06FFFF30F082F11828483 - 2F4D23193046008D8E8F909192939495969798999A92210C011F756E135A5E6E - 75631B017161AC716D1B6B6B1B1B7FB50D0D6D6D7F03A1A563015690140313A5 - 6E65A25E5ACBCA07FF1310630D141656160C14715D7F6B6370651307E107A46E - 1009037F6D710C5621EED50C6171015D6D0DB56D5D01610C16FEFE5602B673F7 - CE5A973310B4842305ED4F1C0AFC0086A05430DE3C7B7F60ADF9F0E18C478F1C - 39C69235ABE4AC912669FDC1A5EA21056CF3B47DF0062EDC843A670230001021 - 029E9E83800A15FA7328D0A246870AFA895450D2A34F813AF549B5E9A11B1958 - 4CDCC4B5ABD7AF6031596170B0CE282F65CCAD51D70F9EAB35673E90ACB532D7 - 065E6E7C017314C2429704CABC286356AE4E9D325E0EA08D368DA0356C0DD60C - 800321AFC28513CAC019B3765F3F6AFEE2050860EF563E5510F97D1618B0E2C1 - 840B17FF6999BAADFFBB4915E58DAE77EB1EDDDFC06BA59C05DCB4BE380F5929 - D7DD6000849ACE20E4B4C0B350A19E53AD4B0D8A9DEA54A14BB907FDAE747CD2 - ECE6C3BF1053002B8F2961E3CB9F4FFF91A733A148693EE390C2E7D0714416D7 - 5CB6D88557290304F0880571AC019B385A9493C007198D5186425E40238D05EF - 30E0E1451B9C91C061A340E886291336A08A87A079A81B3DB9C4881A8BFF0814 - 42357E21741943633884DC8F10D9B61524EFC0130636BB95D61B5DBE05579C69 - A78D06646AAC20D9007E6E8873D3073AF1141550337C09E6984285696604613E - 75669A62AE19159B623471C3053BD467E79D78521407288369B64617FE59139A - 870108281781E9BCFF32462F6EFC124C2771FCE18D388AEDE7D0350D24E00686 - 1AC601DA3FFD30709164245E160E5AE69CB14117AB78F8998B17F9D600ABFE85 - 5A634006E9185B43AAF42A6590D4DCC6C98DA1C913533D31C6D8DBB2CBC6D8C5 - 712D21F7D2B42F2147DA95A168090197D419C566996D0EC5A69B6782DB53B962 - 9E8B6652E86237C20A2C54015F9EF4D61BD68D61487A969F3A718823A801C275 - 2881B770D3CB04094803D94C88693141399BADBACE8D1464BAA962100CD04018 - B70AE48F3C6D70E38D28A64608C16614D24AA30547C2888B3E41BA2A288E64E9 - 3A4E863DFEE82B6DA1B64611B1F1C0E4EBB344174DF46848CF3325B5D52A4DCF - 3D586A59C707EB78FFB9EE0C58839935D6E45E3D66D7E8A6C935D85E8F5B369A - 5B93198118EFC66BEFDB7067D249176324845602A944F40FA86114FAC1000392 - 444BC175E735011C6B34B0C1A21034FC0C1CFCB11A915B7F68AAD0963AFDB777 - B1A4DD35E237A67A91591D906FD0460081F23DCFAFAAC96C6B185D38B723CEB3 - 396DBB4B930F194941D65469ADEDBD02FFE3F0D2BE5425922E678497B6DC0200 - 76516B420F261E664AAF2EB9D2574FF60CD4A3097DF7D1878DE60B2824B28313 - 71A7AFFE820138378A66798726A8FCF234F077E07311DE4B86708C5813397540 - 876770B5390A54EE626E401CEA6CB51A8F89AA0B91E9C6371263A2930D2071AA - D05BEFA8E5AA0E5AFFC3456D90DDAE7236BCE0052F3912A9C48D681634A6C164 - 692E8409D3ACC59B8CC4627936995AD5C6C6C31EFA906B0BF821108548C4221A - D1888398539DD6C744B831E00F6611CCD432C7C25789C67E8013492C6641B8CA - 08E618DF50CC31EA9080CEF48320FF0A8827D600872C69017E0118D407A9E140 - DD6CA31B8D2BD1A9209680C8B50A541D0C64202910C207F1A876D69252D258C7 - 229FE166851F3C5E0C2739496B61A42437CC964DB61547E7F5106D66DA1A1141 - 89441F829294A62C222A45393602ACE0024568A22CE915860F34CC0D09F843EA - 04C5408BFCE16F0308C916556230CB086630285A4BAB3407AAD050A00BA000C7 - 1BC7D00506F2F29AFF4103D119E0D00B4A39CC1490FB833E34B8B750C5C35547 - 6A40DD66D710E2995078C00AD6CF08188F2335AD78337489F19A568F8CA48454 - 59CA21977632C4B105116B072DE80C126AD0853A3488101D22431DDA5084F230 - A2166DE844311AA715C0609620A5CF8D02009852D4610DFDB2E67F44F387338C - 218B0353C90712E0456FDE4463EBA06333551A8F10D621315A38E93A5824485B - 0DCA8E1FA81BE84227A10BAAA856D8FC203A03642176F6285AEFCCEA8F54132C - 611109922EB2E73D8987CF6A8DE6922839090EA3D33C2438D4AD191DA25B8308 - 578ACE60AE0FCDEB46EFCA35BCFE30A11855685C358A3502CC8911214DEC57AC - 90AF3AF0A8019E92FF1F4FE5D1D297C6458B321D515E2074B70D44D6633B2D6A - 002A77A103E012B22B15243683F6B4A4520674E2280504CC91B287341257E6AC - 5F5547E8239D094FABF16C8DEE1A81469A1D8FAC65155A3F35925658AC157304 - 8DA874F54A5D882E60BAD2BD6E7517AA5DEB6277BBDFF5EE7691202718F060B8 - 8A4D2F45EE038152283050AE23AA8B46EB52C05D7624B598694D17528E3354F3 - 5F922DAA6AB2C146706468006D9886548B2AE096E94244A1D02361C82897D34D - 8E9E165167696FC62B9D29F2C33B5B9DB41AE9D5AFE2369B649DE16EEE3192E6 - 3A57936CED6478C14BE319DB58AFDDAD6E8EC51BDE1DCF806D1E8DA57A874C09 - 2B18B08D111A431BFF22A2525EB2D4A563F888306731D36EF257A8D48187933B - B81CDFBD263119E2568019ECBA6265E3979FB34C6CD3B2190CFE51751AB66A6F - 7FA7D53AE34E48E8252E3DC5BAB4D5F106165A1CA65A61BCA5AA5DF7D0884EB4 - A217CDE8463BFAD1908EB4A27F7C0378A18FC8987E84153EF19C0C9D61A84D66 - 60DF2A6BD9CBCA651622AA4CC9CA70D238DEA897E8ECF2713780E4039421014B - 5E2D993DE8220AD0E38E3485EDCD463721D3AD02CEBBE5F0557D6B673B278746 - ED78E4892569D66BD9B0C52E0628F3645C631CDFF8DBDE7EA88FB34BEE70F778 - 011168820E32B0C44C67DA2F0340CC4DD6E0A9A2AE76D4501E807D43826A9A5E - ECCA2865405FB61CFF56E5B83040BC30B0503936E640CA9A155C065195857D33 - 700AB056194EF621DDF9DB8E9FF0D9B699A7719BE6B293607B382F0EA833A6B8 - 93485720D12F6774CC1B3D7345A7610133AFF9A2757E7344BF5CE78A8E799C44 - 004B77BF3B53C540982E172C5F733E790C2FD537480E95EA7F8FC31428F597D3 - EB69F0694D69B4BB3DED3AAAD8E02E37FD1ABF4E6A1DBCC8D4542112321AA71D - 5641BCBA102F5291D2E2EA40F20C80DC200982D76E31CA07ADF267344FD2397F - 34D0612E699C377EF190AE79BA5F2964A3ABF78951BCF5C6984E5427E31BEAFA - B66FE0B6F99C92615D27402B38B55F38BC2ED01AA8D2F92FCD38AFFAE538BC65 - F5904CB0A1438E93FF7D4045C889336F39DE6C8F2B2DEFFF89F6B0E0E16BB49E - 7CF029971AD55A7EDD9F3BBEFA8EB7BEF6B37FE8ED637FFBE0E7BEF7C54FFEF1 - 875FFBE9263A622DAF58066CC0B1CF4030C3ED2D6AFA823EF420B9214DF578F5 - 56FBEBA8AB4756C1134265601370B0010AA66B82F470CAB180BF06619B052137 - 710690552871D76174667CEF94816405715D352C2C431A81E76283A76D9BD43C - 89677DDF477E2B787EDD577EDCD782310883E64783E2D751305005ECA75861B0 - 0617620A1FD0051CB36BB9657F51877F973519A56722AD26705A564F5E477CC7 - F70966310E65A06450554EB4C78010175FD8F060BB4741B6964BFA207CCA3667 - 1AD871BF835CCF06FF1003F108F8F26BCC458225F85C3AB4131590873FA7877C - D8877E88737908887D28887E58887A48888768888A18888B388815D05117A083 - 3B08523DF8832C477BF1F574472875494819FC1721FE472C527524C87577BDB2 - 0109704B5323399A43665C6876BD267123F21CE1804B7F62811B764873677774 - 172D6C986231F381C4C520BA308782067D84B76DD491888CD88C7BF88C82188D - CC088DD3288DCE8888D7588DDA988D798883F332894D544B9B9240018789F1F5 - 799B28751CA1849F787A4E0848A4C86C4E8334A3F14B48162165A40EAD43845C - B71C4CD385B1385AFA951887B31610748124248FC5F78B0CD9861F6801CFB40D - 98858CC361822B37FF7D00D0881AB9911CD99179E8011E19927A485E59B17EE0 - A83EB58418706445F4E721BE466AA117931E8147D0D17F59278AC5F24226448F - 4803418B535A37254EC1032CB0D68F5D472D0D1856CDC746595290F96086BAA8 - 9069D890BF683CB7252AAFB011C7489198F45C9CB48C22199662399664C9876C - 931527C944E2D85929B56B1FF492F916939C884756078A01879339093C3CF92C - 30D25266E1306A810BB7A03245597B47394955828B0E8338A70395B423850B49 - 950C591B1F532873C89515698703050048F091150092A0F999A2199A208906A3 - 799AA4899AAA199AA6599AABF99AA9199BA7D99AAFF988319015DF98966F9392 - 77331BFC28557079FF7F72191767A08496B10C40E86A00E64C3B438F4613236C - 7421110207BF07412F831A49B980B2462D4B032BB1F38378A30F7F8090885477 - E6698AC7279993C90FF2A00DCF87995D49685F0900068004B4299B20E9999E89 - 9FB0599BFDC99F00FA9FAF9906727201EFA19B70B396B7E61043E8962E698431 - 197503E35AAAE6302C87976F59773D5934C9E27AA9A80C98E367CF920FC7C155 - B7E78FDCA94FEC491A55854B42399EB9F898259486BEA89E6CC89DBAF09EF019 - 7D02553524600262900615609AADE901466AA46870A44ABAA44A3A9A46FA994F - 1A9B1E90A44C8A9F557AA5589AA54BCA0505DA6E084A4BB6D49B9EC18F0F0A93 - C3290BBDB101FA85FF0C9AC12D18DA3B896434C8922CBA9070A42054B02282F8 - 90416587A231D40A01808AE3984BF5489E5845A3E969A3C0F8233E29783B1A9F - 85379F1A90034D4000421AA0982AA0991A9AFBA9A99E1AA0041A64B9F9A576A2 - A078B30FE6285FC17984F9B701D7590F9E030770800E63B739A0E26BF4403474 - DA1BB9D052DEB00C6590132CA21BA5112579D7800CF8A7EDC994D3A4226017A3 - ED34A3C557A38A3A3C24D7A8748899165968D4C104931A036280A45A9AA554BA - A4E5AAA4E77AA4E93AAEE2CAAE53AAA5EBEA015C10031EB503A34AAAF3C19BFC - B28F44089709107503323851B262FE244ED3B09C471513749A0BCCA20B49D55E - 63B864AF428A4962FF1CD8A91ADBE942ADD006D1F44608360F302A67BB789E1F - 56AD93A95C8AE3A88FCAA32B476FC1E003DE2A02E0FA91E65AA52550A5F17AA5 - E57AB3EDCAA450AAA43C8BA53B6BB3471AB4430B922AD0362689AFF9FA01E3A8 - 400D4A666F09A1015B17039B9E2D414E9BE392AEB0ABCC720BDBB04D9B72139E - C50EFF62117A9A0E25DA3A198B94A27225A557060856A8D09A9019E86C268B5C - 5128822AFBA8DB9A31D504005F60064CD0021A10030430A4497AB38BEB01416B - A4417BB392FBAE8CEBB8963BB990BBA48F4BB498ABAE96DBB8930BBA97ABB9A3 - EB016930AF1EB5B44C1B1695088A41C8AFAEB8AA558B0BB9C0974A4325F164AB - 7C03234AB22CBF41FF65BFEA69D5341160652C73AA0F7C6A9862F5121FD21C7F - 19ACACF2AC222B955A95B7374A72399AAD5C69912615840C20055FF0053ED002 - 2B30B343FAB9968BAEA43BB9A18BBE9B3BB49BABBEECBBBE94FBAEE25AB9959B - B9F97BA42A50692C7069AB1B1FAD6B0AFE3584B0EB70C1194C5B640BB46BBBB4 - 11332BA5BBEDC9B0BE0B1C54F6A177B3311341409144B1F48871C96A956FEB3E - 68E15FF5988A720699C263BDD78B3C2CA6BD14699100941318E00366E0035B60 - B8E09A068E5B023EFCC33EDCC3920BC4445CC4462CC4420CC4486CC44ACCC43F - 9CC4471CC53EBC04FDCB6E9218C060E17E09117F09E62244D83291211225C1C0 - 0D4C8FC817C1BA8BFF76A5E12474711275937453D40EBA9B9349837146793C5D - 88709D167B208BC2BC35B2E8C9C22DBC3A2FBC95F0699152330018B0C852100E - 3ADC045CB0C4685002933CC98E6BC94F4CC9928BC9419CC9979CC99CBCC9433C - CA92FCC3987CB9981CCA9FBCC469A002AF745E589CC550241857B821E704900B - 380F8A6372C4B1120D8CBCB7CB64D764AB6807784EF24FCEB1298BB131C9C71A - 38B2BCFCFA8ACD4BC2B177C2758B869129C8D65A6D852C387EBB564CC8C81810 - BE3E20031A40024D900668A0004EDCCEEEFCCEF01CCFF23CCF5CA00222C06EB1 - FC15168074A5904BA0C675AE182B3634C650C2975202723B25C11761C1FF9472 - CB306FA8736100B6FF757D6A760CD21CED55C2D18B8AD77CA878ABCDDB2C34DD - BCB2C94829B1B1C8286D06E130072D80CE5C50C94E0CC5F13CC9F37CB9ED4CD3 - F3ACC9335D025CFA4AF69ACF5CE11716F23007F8CFD929607F07B664EC2C7887 - D046B5B56A9C11FE6412282119BF3A0E38711C10BC325A58D1491929162218D5 - 1CA87E7C862ABC8120DD67A331D2248DC8268D017E00D78BFC0507F0057E70CE - 31C00525A0007CFDC3ECFCD7440CD8ED0CD8EC0CC484EDD77B9DD8869DD8828D - D88D7DD890ADD88E5DCF4447057C07D4926001ED831819426FCAEB8A1ECC1B0D - 6BD08C2447CCC439AF50918267D588310E9C742CC89B8550CD60B2F621A425D6 - 5C320F1C3DBD89C4FF8BD40AD25EB7D6DB00C3C8E8D69482D23E80D21800BEE3 - 4BA953FAD88C8DD83E5CD8921DD9D47DD8D31DDDD06DDDDAEDD8DD1DD9D9CDD3 - 4DE0D3008CD99560057B921F9C84ACB008DA7F47C1657CD0C1684DC4EC0AFF84 - 6D233119AD1D549E950DBA50170E99D0B4DD85FE1007B46638ADA6DB65BD71D2 - AA86698D4F843CDC86ACADE06CD25F00D771BDC87A00BE07E0073280CE2A8006 - 7DB0CEDADDD77CCDDD7F6DE2279EE22B0ED92B5EE22DBED72D7EE28C3DE3364E - D82BDED3179005E67D09217064177285090671B5EDA028B61B4653C7C2DC647B - 139126876D5A3400FB87D59E85AB739A347AC353DA49230DF29709940A0ADED1 - D47B3B0F0EE1BA2CFFE1DEBCA3884C0A97E10617AEDC8B6C065FB0057ED00239 - 30022AA0CEDFBDE728CEE77EDEE780FEE7825E0290F8D33D8E1B61D0062DEACF - 41C28064EA3BBD7D34F330DF51B5524E8EDF211112935185FC0DC289640FFA28 - E05BC8550CC227D3D9DF647DCD679DA865BEB7D93BE1DBBB56DF541367E0E6C9 - 1DD7192E0572BE054C900324A0022AB004327EE3C45EECC67EECC89EECCADEE2 - 3D8DCF87CE099EC0275BC28A8E4EA6E8546D664C944D27559C93B21B91E9E02E - E595E1DA08182CCC2782B3B24B99E8703253EA09F14670503B01B0060B2E771E - E6DB65DE670BDDB76A2EEBE5E045F30E0107200518A007CA2D05CC3D071A7003 - 31A002C3BEEC101FFFF1123FF136DED330E004F7FAEC63D1007020D657A5BC47 - CD609E774FB461A295BEBB290BEE1CF1112EC54D6E54071B1006CAD717A22125 - 0C27EA528BDEB6849CFE4C60F51EAD63FEDBC08DBD684ED22C8B16FD93007010 - 028D35F0058FD271CDDCDE7AB8C15E020860EC57CFD759DFE25B7FE35B7FF560 - 6FE35F2FF6271EF65D5FF6CA9EF55C6002AF4405CFBE3B9B5652E4E819AF78C0 - 5F0CE95679F24F0D321299E92C3F93FE46EE32BF15A9D7EE5B4B70AAA5F3D2A9 - 19B5D305D1C9DB5399EF7BCBD62BCBBD81D90000606492E2056650F0C99DDC08 - DFF9857BB8E9FCF061EFF5647FECA7AF0067AFF5588FEC673FF6C4AEE33CFEF6 - 901006B50E9808E6FF1F756FED81D4C149A9F780746670419C2C0F3803D00DD9 - 1254F4D65545E2CC69AC8032A3F83CEF10A4C13029DCE0D5DBEADC5CF46DBD56 - 07D6C58D30166D001852E007B88ED2BAEE03E37BB826F0D27DC0FA0830FF66CF - FAF65FFFF47FFFFA0FF6F30F080A08820883868288878A898C8A85898F8B8B0A - 5C262B1745009A9B9C9D9E9FA0A1A2A3A4A00C1B105E5E6E097F710C61B1B2B3 - 610CB6B7B8B9B916B6B1B7BCB6C00CC216C014010D6B67CBCC03CECE0970106E - 5A5A106701B621DB00DBDE5656C5E2E2BFBAC156716765D565090D71710D6770 - 655E07F75E10637F01F0710100FF0504D8CF9FC18308131AA4C05060833F6B22 - AED940B1A2C58B16FFD70CA8E3E6DE817C03DA5060B06393853803BC489182A1 - A54B295FBE1C6022E3460C1568FA3482246967CF9F3E83027534488150A15C54 - 5CCA52AAA9D3A75045596893C08D970975D6C4A140AB2B2D7360C3F21A3BAC2C - 5906C792395BF6AC6D348EEC06741969C18AB710E0F28EDB6B76D7B093EA0E68 - 2933E65D803F63EAD4F3986FDFC17E90FF299C4C1921430AF002B4812811A367 - 8C1A3932D6F78E018B4C9A2C0480A3E58B143F2E639BF9C2A4C58D265C0AE9DE - CDBBB7EFDFC009F116FE5B3871DFC7811F525042298C2A53A24A9F0E8A9B5374 - 1FE092DEDACBEBD7B0E0FB921DFF975718641ADB0E18C39E7DB469EC0AC3AB75 - 0E6F5E707BC99DFDFF552CC0808E8DFDD1853CD2943141355A4CA00F3FFE44E6 - 6065104E7659669B4934D167186E105A47F86CC740062C1861D21E70B8F10506 - 7AB4E403062BCE465B0B39DC94131ABA25179C728644A29C8DC52157238EC6F1 - C645132BC02022754852875708D785D14002EB9401C71A018C048B77DF85A7CB - 7EE491074B3C1FA8D75E7BEF753458615D00D44517718461817DF7E5A79F7865 - 053006350A8EB1C11F1FD053861B6E4C20A81B0B3E26596411267AD084FF54D8 - 59869F8536C168856523820830EC50456A01AC5186192862009B8A6694CA0413 - 1AC49042097DE0E8AA0BAEEAD6AA72B0CE8AA3ADBFC11AEB6E955CB203934906 - DB5408B030E05408FFAA7D908A820394762596596A295639C100735E03618EB1 - DE98EDC1510704935AD36C005D6CB6411B71BC799F5E721253AD2D5D54A5851B - 758CB10C94135C05A81B7F2E589040900DA4E8C05B35D4286711411AE9461C7E - E4E108226400C31D59301942181B94E1DAA82A62208519F7309103092A7061D4 - AE28A7ACF2CA29DB30E452C2C61C0A5E14B4B14103FD70F5A628C83600872A6E - 4C19402DD076252D785DD20926B76324E0F4D3101828581D1F14A4590373BD09 - 679CEDD2C90B55074AE9343DF608A62FA01024B0C1BF87B64DB0A28C6A86F085 - 0A5FB4A1161D56CA400123E820C2052C44D74D1872D4F1851F29C6E631C83ECC - A1410E2670D16AABFFB52200EBE596675E88AD946BEE79E59863CE79E6A2CBEA - 7921BA22606BE8A49B9E3A022F3F27B8CCB40FDE406275C091C0191BA43B4A08 - AB55039248456379F4B4493310471B1F8CF9F4F3DE5A35F51F6EF6A2B35DDBAC - 8B5FD76315630BD8F3C2117DD91E993D413B541A8AE8DB89C6FD908575833680 - 34933A2CDFDE23F0FD370CA8013095E12B5A51C71667862DC0E8264B50C0E458 - C6C0063AD055B12B49ED6466052741C923F3CA4A1CAC209536B0E61E41A31243 - 8A67B4E36DC96B65595EF312D034E88D0D3E1F4940173868B1BBDC457BE1E0DE - 3818E0C149110A86E5C3E02AE07006AC59AD6D6C631F65260490F73D2A7E15D1 - 4802A691379CEDADFF0058EC9BC48A60310BD8010E0790428A38E6310C98EA71 - 2468C21254D73AD6B9B18D707CA31CE348C739DA918E2E23D2058E3441245981 - 01878112DECA879533B4A14A0C005637D0D28601408052FCB012096561C26905 - 03172A6CA10B75A79803C53000D5B1210E73989F6184E37B0998D4F9A8810F41 - B9D20BD5381F116F4690242A31424C44C6DCA09891F981AB8AAFC022DFF8A603 - 89F16007D1B10205DE700033F8C007645C49A97CD002DBC4C0649DBBA336EBC8 - CD6D7AB39BAD831D91B0C0943E524735F3A8C72031C8AF7AF5CE029BB042A74A - 543FC1D0CB901430CF246751C91392074C9B8CC65B0285B7098C01949FB061F6 - 70D8AEBA14C34970FF085735F041A86F41206A9E1CE2183E60C45BBE2D6E8E4A - 182F29A291120D1224A511A64A21664C3668220E6F3810A812F792D96CA13631 - E2C21AFBE0829E5ACEA7A1E3294F81DA53A1F6F4A83FBDDC5091EA029E5ACEA9 - 4C251D50A17AD4A62AF5A84B2DAA55939A941C5CA09CE67C0AB20270865404F1 - AC07A0D7075EF1C73864679D8C6145EFBAB34F5FF4B31C5E42C61904AABBBE8A - 4F1A5661C719E2B009851A766BECCACF29E3B0818806D10B521AC0199C3186E8 - C5B20CB91BC01A8CB83E8F4AC8607283DF4835C4304806337F59CC623133A589 - 10C4810E3F73A61F02C8A2DA9A01A724CB4D37A11A47A8F2D68DBFAD6370E538 - 5CA0C6D1A7080083FF738CC0C1B096825801C84E3DD15A3E7A0D604F1BD8C874 - 315848E2D5959277F58BB5E2F08779F0F5AFE2FBD6811204813584A1B036EC86 - 61192A8EFBA0A50B652D9B165421258EB6A10DEF4B4CA05C5986B49DE10F87B4 - A5672DD39026EE526122FDC31F367006D1E0434A6BE8421854CAE102AC96629C - 0223A860434633DE1646245B421FB25AD516BBF8C5308EB18C674CE31ABB7809 - 96B880049D3B0A740291BAE54B5081A36620B872571F6B6BD377C11BDE4BF6E2 - 300338EF5FEBF0ADC5ACC21DC66A6D7CB57C43ED8D432FE769EC3AECC92F387C - 402498F94717CA5BA0F50E51B33853F082FDC1C40169E889917A9484295C2276 - D6A18801E83087FDFFB645C12D5363A0EAD88A3EF685C63D4E052A362A516D4C - E9AA26D5D295CEF4A431BD04157895074EE07142C3815FB302F9D4A716DEF9EA - 90800C2B79C94DC68531BAB081CAA237BD54862156B49265C3764294A3144718 - 5488AFFD8A6DA3E8EA0E6634B386CA1679BFF4DADD9E123C67062FDBCEA2C590 - 48F734E10D1D79770D103487B598A94D01E01475686689F5009346A3EA062648 - 41534FA0E97ADBFBDE9556800A6ED002502B52D4DD20EF143D495D23A3BA7C57 - C9D70408E598672D993E77B51605BAD06C6F798BCAB9AB72FD58D1807C7279CB - 1F472CD726FE878D1419B2AD7E08CE0AF698357F20011C59EFAA13006736557B - 21A075E2B6236591FF3DBFFC97F7107266C53DE862EAD8DC0C58C323A1F94CDA - 7ECC99D4D4800914C8E217D31BDF34BE3AD6EFADDC1B64800AE606F8B9375087 - 7C193CE80B27DFC1E3FA27B37BE1CF557A383FC36B1E6263FCEE55969E35B051 - 971AFA3AE422C7CFC45FAE4E63C321C999015840B6020F9BED1586ABC06C023E - C00F39DF12A40F8EDF849BA718F209F9A27520FAB8597A9AD478F00B66800D4D - 4725852D1810725CB0411FE84D7B17D4FEF6B6CF3DEE77AFFBDEF3FEF7BE0F3E - F0876F7B1BA4E0064C6041A8456D8130FCE167059F79D3A6A1F654471BB0780B - 219BE46ED77E8E9740DFC2FBB7027B8009C0817AD83BAC75E4AB7E70288F7926 - F50886E7128634ABFF294D019950B96A0D17B447F666F8576D97B16C21453710 - A60C30576442C42F98257AA31731A7C1245310006FA0127E803802E4313E807A - 3E20031A90462A7602B3277CB97704C1D753B88782BDA78226988224486F2DD8 - 7B3138832FE80231E802CA950319C003FF664E71B006FD87566F07689AD12763 - 866A0952079AF5739372656B3312DC4777681100D93545E2D7497873266D9048 - EA771780274ACDD7057D223DF8403536677FB5544B2DC7668B710FE7A30F1FB0 - 0101C87897C74405688019224551034B70157969E3801D466E3C80741FA005A1 - D2121CF33130511B24106F36700290687B91780247407B952889B407899A6889 - 99B87B974889BB37FF8993F889A3A8899F488A9D0889A8D8752D1022CE750A10 - 70764107016BA5351640017F2048A99627E7D2066BA08B83A13605237711C70B - C4E62D1080777F620FE1D33B34D485D0B850F73586EB242EE8927869988D8B47 - 806B403666B30A10000763B006086679036387DD8667DA363F0A1844D0168E67 - 008882E637170003E564016B30011C382A192805E5474D230369F35683C4377C - 23F87B0749900A5990BA677C37B0022C1076B5435ED08756195435F0144FF1B0 - 5758F858F4A22709D60615563601D20FC41871CA5372C8A88C64A820559348EC - 178DDEF06BBC800CD4E81179E20ACBA68D3C994414470FFC1228FA923B1B558E - E6884B0D612ED916FF29CD430F0417646FA83B1FC06106204C55894557B952AB - 851A0CF0078FC41225E61227F6812A00069B789668898968B9966B89896AC996 - 7019977279966A797C10F92B1334063FF6581AC400CDD55ABC40728E345DE173 - 5DFF95263FC921F302010310490FE770DD271635F98B57B88783E40663D0066E - 22937F575880C47F04157484517987D2933DE90FCCF3344E7959E1A859D43680 - 04D36077485278A821679018ED8841C69636DA3295F228685AA463AD950560B4 - 3117181B8C8601EF1639AAA30673298ACFB9896FF996D1599D72F9962EF39011 - 3941DB15645A90151430935EA8097F845F25A20A43746087542E69928B0D9384 - F8C47DD122166120FF92D2107E1755060A382FAD4001E9C799F1E50D9F493FAA - 202857E60AD8689AA6999414011153044B41176D94774875D8787373213BA721 - 9C477E417615927706096395BFB9522CC5035C040030054662A43826764631A2 - 020AE002CE699D345AA3367AA327600360402499D28349726AF4A21519C9659D - F04736190DBAC33B58532E09861847281884D171F5279F73071EE4B511181735 - 4219A187F70A000A7200704AF3B4188B4965AD667301A3A03C7910F8E78B7A59 - 4F42268E1C9526F0C02895818E7796A15114264EE98E97C56A0310875833A244 - C75230C0031C244F09D04C3EC0121DB31207D06832B0028D287B338AA36B397B - 98BAA9D609063150FF24C8243340F69DBCD65C87255F39742D0DDA000DF05F87 - 79187AE97951DA265C517FB57A9260517F149718C9A8A54F697EBCA6355F6A1D - DB708B54480F27058782EA206AAAA692B115E482184027186F286D145A3006A3 - 10B0B93CE9A8A71A1A659DD7A11E5A2F1F50AE9154005599AEE8BAAEEADAAEEC - 8A45F4C803E449225ED068A2829C1BB8222D902A5C70A99BE89C007B0297AA06 - 044BB0027BB0015BB0086BB09A68B0098BB0070B89012BB110FBB00C6BB1D209 - 06267003C2193316990F6B65313179AAF1A43C02B126AEBA268851076AD70EAE - 30A5B62A9FE0710C253745FAB98C5938445422ACD933ACC80248D8E28DECD00A - 6BA286CD7AB4D8BAFF6CD29A2F8C214BBB538EED83A74B79671F709BD8D7A1ED - 54941236175794952A9595602BA2C2E437875A05DBF0834B171B19582A33912A - 2A900236A0B0131BB115DBB0764BB1189BB775ABB7030BB114FBB77B9BA34DE0 - 5554303B488256F7940DF0058D9C8017E3452E00D6066B16AB83C49FEF00B303 - 78AB8FA90B4598808002A16E9836AEC085DF701F8C5BACC3B6B2D47059678A8D - 8A77B40A8A106B66729E078E7000670591B909C1284AB9731151AEB759264606 - 59F502A250EB26EFEAAECA9BBCEBEA61FB13AA16F0071A4362F74A2ACEB4AF24 - A02A7D50B0DCEBB005DB01DD0BB0DE4BB0E02BBEE41BBE028BBE72FBBDE39BBE - E6AB06E5EBBEE14BFFB047B0A31C8BA8C182566520176160AA3E1B2753C89E93 - 6B6A505A185C91B99721B3B940B3BE64764766486ED277A3148D62BA01038737 - 9095366B70ADA509BB1EFC2F7AE5947CB85FD53AA1B99B668B52A707B3946B50 - B5D050266AC75E9317113863250C10B65829B6CDBBC35E4B6E7869055DF0482C - 729C8BC622FEB805731023296096E17B04F3FBC44E3CBEDD5BBEDC1BC54F7CC5 - 567CC55A3CBF7DA0B11C4B05F97B56B4980D12ECB3DCE0B8689178B743C06722 - A5083C42B86A3DCB935D1CA15FAB903B1FD0053059BADA038D7F347850C28CB2 - 745D74BA6CAFFBC1CD4A6760828CCBE87F728A606C92446FCCADA2F5BB93E51E - E2B38742D40E07C6FFAA88040CCCBBBCA29CBC5A042289A4A807202A34D512EC - 9656480C028D98024E0C041D40C5E45BCBF09BCBB50CBE54CCCBB97CCBBE1CBE - B6ACCBDF8BCB4FECCBBBCCBEDC9BCCBE7C04FB76013C78B867B5BFE84217FF69 - C6A77425353306651064517AC06F9CC0FB640EC730207C82ACF6A4C138B3990B - 35C1BEE6B8714071819CCE6626205693A6888CC899C12767B0A1EB64BB1B752E - DB18CE7293A7544B59EE01C37E662FE5C8159734CA101DCAE83A0225BA034EE0 - 5AE9A638FDC822CFB4AF4F206FBF4CCCC82CD2213DD2E71BCC247DD2254DCCE7 - ABD2BDCCBE28EDCB36D004F76BB85081B8AD46A1117CCD66ECB8C9C2C6DF6CAB - E1ACB9E31C0B9861FFCE0D60C1ACD418A55117A3D4C7BED656D812C8D5605D1B - FC18F99CD504A166AD6A93F404A1EF288E9B45A7758AC0DC9AA71171C94D4326 - 364B3E58B1519B353465110C06A0BC752DD1115D95862A41555081ACAC07ABEC - 315FB00518200339F00465790434A0CBB8BCCB8E0DBF8D1DD9BC2CD9903DD996 - 2DD28E4DD9992DD98D5DD99D9DCC36F0CCF23A1DFA3B255DBD15B5500CE0D0D3 - DF503365554FEDE0C6434DD493B49376F6070FA18B6F27A45DF6D4797158AAA1 - BACC784F0282D55A9DD50D3210F20073759C850BD79A1B6C73657DC0D14AB52E - 9CD0DAB21E30A7770A52CF354C27798DD7E2EDBCD0BC29AA1105AEA107B0D18F - 30E14C8EA3C471DBFF07CCCCD8235DDF986DDF1D7004F85DD9248DCC9FCDDF97 - 6DD226B86F194006CB77D367C50A9B25B95B6D253C3DAC7F741E810142EE00CE - B34DDBD0726DE6B2270FC1CDB0647E1BE09F4BE2DBEBA250E140010D30988384 - 15E3D220877CDC1FEC36F1CC194C988542378E58F3ACA83D6CD856B56ADD1E6E - A1189775BB020D71E381AE775DD7E99AE44CBEE44E8EE44E4E6E54106A0C7027 - 2772AF64542A2F12231210B71D40039B1DE6623EE6645EE6667EE667EECC3100 - 2212D914A5BD59AD9AB226694ABF6DE24F7D43766215C363E1B35D3C0D462E0F - 71671CBEB4E1433DED4CE2A6AB17CA93E2A6C65E8D09C2301EE95B0DE9D16A72 - 04078ED2C6AA0C5EFFA7D19AD6080DE4CDE06C82028FE7D226D45216E19DEACC - DB0414FD37A8410172602219F81204845B2A6003684EE63850E6BB9EEBBECEEB - 65AEE6051E15380DE7FFA5E9F8E7D0A664E7777EC63C749B0C9D33491BCE197E - B20F918E1F3011B85D72E052E85C88E8A6FB0DCD07AB4097418D29DDF82CE9C7 - 8D445CDD27D37AE3CBA0EDD4562161F2E9CFD0CF555B59D3008FE598DA5ED3E4 - 501EF04A2EF0003FF04A5E957FC3023BD01F2AFA1A58DE122C7162B05C9627F0 - E5165FCB608EF1999DF116CFF18E0DE6201FE621FFF1227FE623DFF117BFD929 - F0A941D0E6A3F0E671EEAA87897F727DCDE0BEDAA784C2927CE1704C0BE5BC79 - E51AF40983602557FF7609727EFD7BF3758E17B040850F9A854103682EAEEE54 - 2F309121CF0662C715A53BF632D67676DDEA2159411FBC54268E7268EA97441E - AABEF6CC6BA8857B6E8BBA31C8E9312B712A8F63022A20A31E8FF21CCFF1BB7E - F21A1FF27BAFF124DFEBBB0CF8252FF87CBFF1F9AD02961004074E0AC5DEAA4C - 2AF3C8FEC94EADF4758EAACDC7F308EC1569A10CEC2159FD3CF49BA1E258B101 - 49AFF4D9638CF0778443C451945EF555DF360C21CF55C687677351728A5D2EDC - 16CC80EF69DD4201CD264EF6EF079FFCCABFFCCCDFFC598429AE48014A772263 - 34F731E1032070D82AF0032700043420F838A0F8E2BFF8E30FF2DF4FFEE85FFE - 1D7FFE82CFFEEB9FFFF136F0F8912F0A302FB9327FEC715EC8A9FD9FE00E0821 - 2100008256160C896114718D148F90916193946171017F1F0363630367671F6B - 6B1B7F6D0D0375135A13751B615687B0B2B3B3822116967F6770655E07075A6E - 70670D018D9701C9CACBCCCDCECFD0D1D0718C6D6B1F6709106E5E5ADE5E1365 - 657509A01FD867039E9FE6A1A2679C631F7F5D7161890C8889FAF91606FF000D - 140038F05F418104131A0CA8D0800E111960ECB060A54D1D337E30F8C0C07123 - 0633BF7CC8D04022C69213345276A0B1B225CB972E63C29CD90187CC9B3473E2 - DCA973A60D132B2E382144B468D15F487FB949B0A6419B2E6DA24A9D1AB54B32 - 0AF96869DDBAD582FF57068B1C451A0BA9D2A5066BD27532276A83D35310544D - 80E30A1645AEB442580913608336375A7E791176E68FB1C3C8A4295ECC58DA25 - 645D22EBE235C1173070E3E0AC65D7EE9CBB77EAE6D5BB87A874BED35EFD315C - CDBAB56BD64D46E8C870616296356ECC98F1E191A36F1F5230F86991E3099823 - 2973265FCEBC79F3952A5F3A9FEE1C3AF5EBD157DA48B1224815A3E00124455A - 064ED3A754D337706AD5DEBEBB78E3CB42B4681259B2663169E2E4E95CDBB767 - A4B24A2B14D8259F5DB874B14602654C8054307514664C23873566E185183E46 - A135DAF412183013B801011C09F4E7D967A2A488CD1AF46085DA8BA57DF5DA8C - 34CE58806CB4F160FF01000CBC919B1EC275E49B6E5F30415C0C2AD8909C4BD8 - 353953744E52C76494CCE1201D0D3FAD80C550E111359E524CB1971E55EB5595 - 0C35A45961C8815DF1031623D4DC470125717491C9266BF9B7815BA604C80D2B - 6B14184B7C7AE112C0821058261804096C500F85896128E9A4D34C7849171BA0 - D2CB8321D6A1195B29869A16284D8D06238CA931C0100100B1FA8FAB06C00AEB - 6BB3AE7623442C141102030D9461867019F9C6916EBBCDA1410E49AA41031054 - 360945B3CC3D0BEDB429657981115C86F7E501E59D07D598E04A7555566CCAF7 - D5228CC8F9C82475DEC91F5B7B0258C79F75AC1107457779D515031428A88D83 - BF68E14519097CD0FFC6999426ACB0638C341060191F8258DE18A48A3ACA359F - 3465CC3DFBE0C34FAA0CC451E3C8240744C0AD11F1E044165DC0718014C109C9 - 11CC071429430E26A4801CB3D452CB3373CCFE1CE5CF42370906505850614597 - DB2EE56DB863AEC75E23A4E95B2E57FA542227BBFAC1936728F19AF2012F5E78 - 01C107F75A6DF52C86FE31001CDC041C4E1D036CD0C631152EACF7A489510356 - 1C70A9F2E0381483DDD606A278A6B18BA6359E1A7D01B4D16AAC94B36A79E598 - CB3AF9E5AF6E4EF98D3AD4568513712470C046C10AEB83195FF8606471292C1B - 7472B3A7040510CC3E3B7BEECBD2A0BBEFBDEB8E3BCFBFDFCE7B4AC303CFFBF2 - 40141FFCF329E170FF74504630FD65B762420DB555C66005DFD5B43CAE089C63 - 718D96D7268EC267031F3058F6D971F483202C6B3280C918F3463C010463688C - 77A47B0B20DFECD385F671E343102AC707F6C440C4B1C37F1D6B1C6ACE1500B4 - 94EC821894CD0560C0030654A10110F842CCF4B091126AC40745D2400CB86003 - E4C86E3944EB5DCF902743A0D1AE77459B4E0E9D23B4A3E5E00259D0D6979C96 - 3DED69EF5155FB1EF810343EFC58A2826979979ED637B60699ED0C0148CDFC64 - 9188BE304870C07043841A80A6B03C468068CC903D16E1C5B85826188C3A83FA - F694B88C919171A78A11E4D03280CCF9F17280FCA32039E747038C600410E1C1 - 77BA603A29F8410FFF4012964676D30215E66C670E68DEF036B949E36912779E - 0CE5F03C993C4E9A5276A034E52739494A55D2000C29B8C116AA67946D610F3D - 460C5799DA33278FB1498B6CE3877D247196287E6D147F680054166445086051 - 7E6A430405BCB8A9030C861C0673CF9BF086B0347A331A7E63A35FB6D18D3092 - 438E0CBC063642510C1775EC9DE2E3CBF9C6B01ACDD57346B5AA556B5C558002 - E06A078C904319BE1049497EE40B66785D0C5260031CA83268B8C3A1447737D1 - 894614A218BD282A71A8518A7A74A33C3B420A7EB883A579698861C2652E8FD8 - 1EBF2911418F8B29BE62DA44485CA20D1B409F7F90A94C6B50E68A59D497DAF8 - 85A97F09866006DBFF183ED0F5BFBC7DF3A988B98725DA30B66D54C61B222AC7 - 1CD3E209BBF9CD6379A4201FD531C8B206F2AC66FDE3C91E72813B8421045D08 - 214752373322B92E0724B8A4EF36894ABE96F2A2A7FCEB4307EBD7C00216A37D - E564075210831550E128D7334F11570AB55D06A0973185A94C376B1745D4E789 - 3855CB00764A8A9E32B332CE0C80FC0EE1154B388C6C8B1AC31FE2671ACF3EA2 - A90084AA008F61536B8C010E1028831B54914074220E1D6BB81BC724E8B83DAE - 6113EAD01C5A3B47DDB2766EBA94ABAE21457001165481011B80C0CB4C485E0C - 48C175C7CA590F3A004A87368FA3B973A8F27CE75EE139EFA37FB5EFF34069D1 - DF7D140AF2854207FF6C7083DA9C743C4454296575E994A74CA86AE1DBAC4C59 - EBA6BF45CE98A375476997F9D3D402F32B80D314C0069600323200A69E45179C - 20A5DB34C6891101B0D3077E5B876D3408AB7174C7271678373C32577CD33C1F - 74FB4880221BF9C8483E72AC92BCE4241BB9C94A7E329211998120EC201F1B98 - 407032425798B5CE58C551C1098090492840A1CCEFBD9D9A9B0705256852CD6D - 7EB3261D606636C379CD66CEF39BF3ACE735D319CF727ED69D5FD9581E10C296 - 9255F0828D1899F684616D128E344DA579619D6A3899CBFC2250572B4D87CDAB - 9CC16854FCD4C45A7C8065982BEE668BF556C6695A630009006E8D857BD5FD0D - 23149A388357DD79FF9A77F6C3B9EA08F600D04AECB4165BCA952B7221717401 - 455A600D6538C0AF84151C9899410A66A8240954B0B340A779AF77DEF39FBD2D - E834DBD9CE75C6339FD34DEE76971BC03668EC0EB2D0B4947E6BD1B9949AA3DF - 23E97E3FEE890DF8C3A82AB6610EB9B10C0350ADD5C072285E70AA0E1F50AD2D - 0A55E153DB94C5B95DB585C4729619D7A1C61008B9380EB8BF12B5C3ABCB0D6B - AA2EE12E75A463D84886B29367DE6499CF5CD9373FF28D3290011650A10B5748 - 801BBE3057837EE117DA36C10F68904934A359CF746EBAB8A7BEEEAA5B5DDD57 - BFDDB8FBCCE6A7A71B07F16E010CB610D9A7E17BA596BD442FC945617FD3945F - 37E5EA6879BACC31FF1C7C0C5DE0345FC6E606A49078B616B045DB7B6DDBDB62 - 5CE3927A71BBB2010790873CB8C3F586AD3921C7526893B9BF6E6D1CDA20F097 - BB3CBA99C379B28F2D7ACBE1BCF43547B6E90542659FDB4F0E5A28EF46BCFCE5 - 231D61787F3E3399751FF5DDC3D9EB6676BA9C9DCEFBA9F7DECFBA07F4EF7D3F - 6791DE60054C40A9D9CF7EF6EEEDA3ED6E97293E363F2A6426332A99CADF52DA - 90262B1035400083D019EE96F9499B9A12863F63C6113F8D3935828F0970FCE3 - 836BC555308AF2F4707979F46B2183169A206CC296730AB8800CD88046D6046C - 750701100620740018A007741524C0B1054C80333FD05064E600517766243882 - 4D5782C9878226B8FF7B27B88226A8822C58822C1883BD678222150337D00264 - 471E89766FD48776BBE408CB957D9216329C974C01F707A5D000E10718E3F768 - F9D22FE8173004935C13686A9BF54EF0177FF3477FCDC071153463C0250E65F0 - 78B3365CDD20460AE428B40556F0F41546C8559DB00E09E8804E66737698874D - 003A11910521900563700018182CBDE1653E401C79153B22C88222D888357866 - 22C87B9058838BD8888C688951E7888D98678E28892DA88999F867DB610239C0 - 04470726D3F783F8C63D68C2694448537012634CE8167C247E09407EE4C2701F - 900A4715262D9544DA274C2A760CF2E7855FB846966027D9007264B87FFCC70D - 035307FD138029F7FF63F832551B708008588704800246E68D49068E37278E47 - 268EE4F88DE8188E315700B321115910077CE0051708245D2605ADC304E9A533 - 21088AFCD88FFEF88F001989A1289001098A67D6013F600224D0023EF00BB7E4 - 83AA487D4AF58AFD9608751270A6F05CB6888BF9B27770F30B25B740DF379112 - 46785B488C88618CCA2084C998298DC77FE2E08C90E7066E508605D34E60658D - 202664DB888079F893409973E0B8731740063BE00471151C91D41BE6F50B5B60 - 2C316002C7E18FFBE888558989A0B88F57999558D9749538895CC9956706760A - A98307906010199140C81EDD338414A97D4F940CBE952807300125E63DB0C070 - 6BF09175392297A6FF4CEE51914BC554B8A59262510D2E590764D88CCEB89871 - 849398A7479A670D9ED793C1D68D98E98D9A898E9B59649BF9999C999998E999 - A2D999A5799A10D87359005E13803A0625243E602C24F0043F700435E000B799 - 9BB8D988B72982BAD98FBA199CBBD99BC3B99BBEC99BFC289CCA699CBC09053D - A0020B69060FA9961119190FD67E6F0987E8D2176300317509070DE0229DD570 - 7D674D045331A370308C538483797114E254ABA67817F636B3E698321993D864 - 186BE76BFA205405988D96B98DA4099A043A9A060A9AA439A0079A8E0B9AA0A2 - E94F5A7205DF7506B9E1078F645030C38137B35047E088C4099C0519A222EA8F - 1F8A9CA0789B4760FF0231D00258606FD4A98A65723097558DD909329BC777E1 - 3006E1998B21B3017C3930709061D7C02207A34D1E138C29E69E67D4628F6153 - 32166B30598632B97F9E220F07C331031853AE2577019A8005FAA5A709A6621A - A6644AA006101BA1C302F6F3077520421788A1BAF13A2420014A529CCB79A776 - 9AA778BAA77ADAA77CDA0329F0043A480693F5A28B16A3ACD88AD8992A8CBAA8 - 7F8329BF550E6D80978710327F207482210C42EA1FA5D0525FA5458D7A6AC358 - 98DFC49288B98C8A699F530A0155BA38599A79FC524139D5A5021A9A605A8E65 - 4AA6B8EAA0B71AA688740158700757D005141A33BDB111AC738FF9C874BF99A7 - C7F9ACCC499CD26AFFA27E4AADC209ADD38AAD0E80038C151474D05386FAA2AC - 088C5F1199036891D6C0225D40A91679A9D1060CE5317789C3530D560FEBE97E - 491A7F29E94D65848D63907F221793AB1A7270A0191F500C581A9942D52FD9F8 - 09B4EA939F8902121BB1043AB1167BB1129B9919AB991BABB1183BB1DDF8B104 - 201BD07707F9F0015A705E453724C0C11BE9650364769B49E000495003367BB3 - 385B03339BB3344BB337BBB33A9BB3426BB3335BB3439BB3407BB447CBAD4011 - 048A16AED49776FBC96F84F73139991A7CA10C14305414D000630018E6347788 - A34EA1420A453A09FC063259A3622BD685097398AEB606F813A5523AB0E43000 - 56481A6E3841FAC0FFB0DB5899013AA6829BAB835BB861EA8D28C30271B0031B - 50072F438F32F3115AF0053793333FD0013C7BB3B869B39BAB9C38DBB97EFAB9 - 9A7BA7425BADA37BB34AC0582D10046909B5AA98A86E59AEAFAA47DB84594CD4 - 0603E09D1022B6C775229CAA4CD6C776A18A6A6D0B9F6F2B9FAF3686AA3AA59E - A2191AA3B70A5BA97502A00FDB931B8BB1217BB1D99BBD1FABBD202BB2DFDBBD - D80BB2ACC28E2B00036410320940747390815E96501A000279F5039DABB4F67B - BFF89BBFFA8BBFDCBAA24EEBBA50CB4B1134BBE70A16BF566A5D300010101810 - 220FEA9338E8F04066BB6FDF23BBA21A09A44A2942384D32F65B513AB08F4722 - F280B039892AA9D1FF2FA352BDD6BBBDE1CBB115EBC22C7CBD30FCBD1E1BC333 - ECB17BA803E7CB0259D0066FA005D3568FD87600AF439B1D5ABAA79B9B9C7BBF - A03BB44DBCC450ACC452FCC44AAB04CF190355560A405815004C266C2984036C - AED678A47DEBB5DED9970E4C47EAC419F082695758C1B525AA84D9547CF362F3 - 09B01FBCAA1F47227244C2620C870C0BB82A1C6CE25BC8867CC8889CC8DDCB01 - 286048B3110454100774000152D0BE1988015F2030724AA7F5BBBF44EBC9A01C - CA463BB480BAA249936F4AA84C8DD6C5E9619DD719AA55BBB756AB0897B020E5 - 89C66033B6BEEB193BB64080597ED83798A8C64D6E5B7FF601453416B075ABC7 - 095022791BCB1174FF17218329DA38C808A8C816CBBDD8BCCDDCACBDEC18113B - D00574A005917BACBCE107F8882C0D15CAECDCCEEEFCB9CF4902191005F98638 - DFC7CA47647D624CC0F4D1080A823F82B33F1473311603C19C219256E14E59B8 - B6C384924BBA18AD168600BB98CB2C931F572278CB7EB3FB38282CC8D6AC0E28 - 9007E22BD2164BD2217DB18C2CD22A7DD2129BD228E0D230CDD227BDD28C5CD2 - 337DD3138B3246C9007F500652004916EA1B7E606DF08B3329D00348ABB435BB - D441CBD44C8DB34FFDB34D3DD551FDC94E4DD553ADB9579C0164B03D9C971660 - 73CFABCCCA52E3606D59C2FB1CC770C279BB6819F1BA40635BD0E770D0443A21 - 6B87AF17ACAF0F0DFF4E73C246EC33D1CB6BD155CA636FAC72E732BD1EFDD103 - D0CD236DC826FDD8136BD2D80CD917DB04A9C9023B4081724588E6655EF64849 - 2461023DD0C9417BB4559DD5EFECCEA36CD53500A824700141A0C5ADCCD6F130 - 5A7C32D6F82C158DA6CFFC7C2A4B755B67F0AE9A0AD705AD22BCAC279DAA54ED - 6792277978E0B44641D63EF5C998764B2275A35C594A5317860D8A6DBD22CDC8 - 319D077990D2E37DD32BFDDDE26DDE27CD01E90DD3EDBDDEEAEDD2E27DDEE58D - DE8CEC10DC15047440058118C40665065B7088A17DB9B8B9D44970D5079EE007 - DED40A8ED508EEE00BFEE012AEB3114EE1095E0338009D2CDA6054011539156B - 053BD0F79CDB5E2CFFA353CB9FB2BCB787D0321320D0E859DCA1B2CB6003987D - 7DA4A6D69E5CB892CEC071CAD82181CDBC0930D01A3DCB7CCB70ECD3DD014AD3 - 370DDE2FFDD2E97DDE4BFEDE2B1DD2F21DD2F50DDF50FEDD560EE5ECADE4226D - 48371011B080B2D3A611BE616D2A2B03790506F42BD59FCCDAA31CE76E5EDA58 - FDE6747ED5762EE770DED44A90E1587C0763E2E18C57B09AD11FA55515AD1BAE - 9665D7D5D8DB7A44016E63DBEAB453300EC111CCA98FD28AB09CAFA9967168C2 - 0898B28C740BC27B5C302897DDA9224F5C8AE408D8DEF53DDEB0CEDEB2BEE5B4 - 3EDFE3CD01E0FDE4B03EDF56DEE5E28DEBBAAED2AFFEEBAE4EDEC28EEB2F30B2 - 55460538550729FBFFA65D061222511212000634E0E0165EE1138EE00DBEEDD9 - EEED067EE10A7EE0FDBBBAB3AD0B204EE8CD5C38DF1719243E15AE2C809877E3 - BE0D63C5D4CB956EDC119C31A5B092DEE3DB79DDE93A5E46D3FB36CA0CC266D8 - CC75530F5868D86B8A0EACDE93BE9EEB14FFD2C04EECBFEEE413AFF1F32DEBBB - 5EDE138FEB1AEFE4F61DEB23EFF1BF0EEC2870482BD0738DF001F2A83A9D4D2C - 7E7033464D034A00EED82EE1E3FEE0506DE13B7FE7DACEE7192ECF800EEF9C97 - 0D20FE71A52E0F87FEEE5221B5583AC0F45EF599274F7BF207BD8B221633D70E - 3B774808BCF24E7801EFD067CD176EA3BCD4ADC777BB400C8FEA6235637318F1 - 0888EBC0EEF1B26EFFF77ABFF7B17EF77BCFF779FFF7767FEB82AFF77D8FF785 - 9F076240004D0011C2DA066730014407B9C2C23AE865D43D000544DBF3DFDEF3 - 9EFFF9A0DFF9E32EFAA2EFF945CF0441C0E15081EE844EE8CD1BE49EC022EC81 - DBB9CD3D674DE4568F855F314DC9D0054C880E94DEF5BC0C2F87AEDCB8BF856D - CB928B40553EBEF6F7C9AA412E1A8129CB5A8A09AB4EF7C266F7270FF27F7FF8 - 847FF8776FF281FFF71AEFF783AFFD814FF8DD8FEC2B2F025A72073B4007BEF2 - A6C2E207AC53332231E034CBF9A00F084982493584838583898A8B8C8685888C - 8F87893D2A2417416D9A5D6D7F67090970A2A3A3A109031F1B0D9B9AADAEAFB0 - B1B2B15D01711461FF0C160CBCBDBEBFC0BD616114017F1F671F1F6BCCCDCECE - CAD1CA6B1B7F6DB6B9BADABBBB0CC3C314E1E2E371011B63751065EB10EDEEEF - EE750963677F0114BEDCDBBA16FD0CC61F06081C48B0A0C1830539285CC870E1 - 0B0E0F1F369CE810224585122B4E8C6831E3468D142312687243C4053201EA68 - 31230583CB97307D6CF1A38184891E881E30D2298867129F8D80EE1CDAA8E720 - A1917A98B891E10E2B4FA14891AA5347D4BC33D4FE345835ABABD7595CBBC4B9 - 352C985960FA18946BF0A7ED8635D39E3D93966C9A2AB1B8B6F9EBE6ED9B5F0A - 63396D180047DDBA32F012533DB5C61EBE7DFAFA49F616A041C03108336B2EF8 - 220F45CF10F3741EFF3D113407D3A14F2F342D5A616BD5AE4F8F16FD9A7567D5 - B457AF9648C040C90B777804B852C68C1E3F7E5CFAC0B0DCCC812F7364D80483 - 0352D1EB44B16B5F84B4E803253F4CE4C072A50D27A851A5AA0785799956F35D - 387D9D3FBF96AD5BBDF89EFDA58F58B9005D1C938C5C7249230D350DE0958B64 - 0CEE574E1B1B7C30061CE91C865862F1C833C6070DDCC34B647A4D56CC1F6B9C - B1D9899B75A422472CAEE8E20B30BE28634430C6D8E28D33E6D8190A05307552 - 171B40F0854BC9C184C11766F8E0470B3990F0437535E824E54F544E69659558 - 5EA965965C6EE965964A1CB1D4165150D1C927EAA549CA551FBC47DF9B6FD642 - D67E740213461C10FFC645203406D6D5581B7332E88F361FF2528C656324908E - 61182A764A9B1E122AA9A00C5010A08928668A5044AD714ADA6C9F762AAAA72B - 8E4A1B8BA7A61A2AA8A6AE9A2A07248990010C745001C70466C4F49214CE7DC1 - 444D1250A7445047156B1477C652795D77C41EABEC4FE089D7D499A0A8291555 - 55B1875535ABC4271F9CE0BA62DF2DB864536730DDDCD945036F19B8679F670C - 688D2D79F163811593ED420C408A1A7658A3F1C0718A2A9182C80D83EA463800 - 669A363C508D10472CF1C414576CF1C518675C711E06F8B6020B6AADE1851E18 - 140913AF5FF8300708364930EC9730772973CC34CF5C65B4375C400754D6F66C - 0A668D25E86DB844FF6F621F36E7D2094E65C8D4B5CC9ECD44136F2ADDD2FBA1 - 152184802F2F7732DDAFBFEC00BC182A1D3E66B0BDFEE0B901A60EB73D008E70 - EB38A38D72C76D374474DF4D230A3ACC7AC7151BA894AB72CC31C76B924C3EA1 - C29389F8E478B1533A7BA5E4C93E4EF99692473B1E1D9FA4D7B37A55098C8A2A - 5B156D7A2B72D69B34BA9491484DD450478D8C32D55893BA2E585B51E9836B53 - 0876D88D667B862A718471F6C192DDD9C61A0BBBEDB6C6D0472FFDF4D47746C0 - 084C051107031F1C80C17126632005AF4A6A00C21326FCD083510FB49FA5FB56 - C25FA5FC52C26F7FFDF8CF7CFF4FF0E3A094064140D3E7D44415ABB4272BDD8A - CFE9C035AE72AD0EFF2D6A09007C1A5022A741CD5DCCE0562DF061057C85A132 - C79850852C742180896E0380CA065F5688300996A879CE7358F56648C31A422F - 0F622840DF8240053A4401572E21D9AE306006C469A04912585FE5B0C43E9B5D - CE66316BE2E4A0F5831868000B021BE0E74C71953F0D6D81708A4F00E865AE07 - 0A231CFBF284052F68A068FCC94316B8D33106A0A845FD0B60ED18DB1A525828 - 8335084F2F8CE1F320868717446062878451220D59A34316F2909044E40B0A09 - 3147466C9130A2642323F6C84932529192ECA4239B30821530210864A043190E - D01221EEEA0B4862021390688397BD4F4BFB6B5FFEE2B7CB5CE6727EBBBC5978 - C6632D5368B18070FFA0472ADAC2153032905EE52AE303BBA1B60D589319072A - 90D4A686A06B006830BE031B1E03968054A4F078688B2320CF3006CCC44B909A - A218263F79494646F29E929C67242B29498BE1139FFCFCE7439AD00459D16A00 - 103840920AB79C868ACF0CB39C0E0EA048D19A59B4A25D52420F62D08220A409 - 14201D203205E6CE6E7ED1995E116339C825CDD5E9EB3F1214D01AB539BBA751 - E32DECF41D094B283681D5432C2A840C3FF0A54E089988616C83E7890C190148 - 36B5A9F684EA53997ACFA74E55A057B5271EEEB955AADAD3AB55B5AA58AD0A56 - AA5A15054DD0C10A30F1870DC0E10B7A2059F89893B23934C90412A84194F8A7 - CBBEFAF5AF800DACFF60074BD8C026E10724584119D2D4CE44794E8B06A49A02 - 511AA706B6F48165515E05F5442037466D61A1B0A385C6E98E64A602A8854A6D - 3A3F48C1A42AB561586564274529DBAFE273B6B6CDAD256FABDBDAC656A0B4BD - E7484A9281206C2501B034524BC617CB1668E00936A8C1B080D957BE5617B07C - B5AE2EB3BB5DEC76D797F8C301625B3052920AC4B159146901BBC8CC6652162C - 9B1823192F7B2E6E288F99EDCA2636399B53D19290B455D9D01F808ACEC954AA - 32256AE700DEF9DA4C3575AB0FBEEA56271C010857F8AA1196AA54BB8A61AE5E - 98AA160E71562F9C61129BD8C2207E6A575180BD0C60219575F042AE8EA35C58 - 1E804978ED010EF0FF57D81EFBF8C74056820472C00437AC89610B6B67B5445A - 0A36A9023E937DAF2CC4781FD599B11780B18504D7B660CEC2652E741CE16801 - 6CDA0117AF8F90B9D72EE210A04036B86D61DDB08A9D4A67437258CE510D6B6F - 3F3C56AC4638CF56BDF33FA56AC83CA075042EE60115A2E0BD2239747C664899 - 7349F0841F4C17C898CEB4A675191E531E395E6C432F643F1D342987918C5736 - 0B6BBFDCD9665C134DEDB82399C7D0186C1478326A0BC89B9DD7E75EFBFAD7C0 - 0EB6B0874DEC5FCF200233B8DE0A66150532243488467289737C9038F53960D3 - D8CE3661C3A3812D84EE2AA0C6949297AC5EF32E835B4633F52B9AD94007A65A - 1B87DA0ABBDAE86AFF9C8A9051A46D8769CB969F7E7F08D74012B7405CBB6BCD - CCB9D8084FB8C2175EEC421254042DC00215E2308003808F702D89B419E6C0A4 - E9F052DB20DFB41252F08415789BA4E12EC8B8476D156D510DCAEA9EB29CEE41 - DFD5F9672C4C9B9A9E5E3DA15803AFA702B6B5500FB6353CCDB1E0BC6EEAB197 - FE54A63BBDE95067BAD2914DF5A93FFDD8569F01D6A97E75AE437DEA56F7FAD3 - C33EF63C10E0377738031C14BA9C92C1842510FD550ED237D1C20A00B0776F5F - DE1FB0F7BEEBD2EF7FDD7B6001FF1D0970740B2867F082417DDEC71E93A4EE71 - 6FCCA73C46B294E5DD586E338178AED39F6328C06BE0F7ADD39627A4C790C452 - 8770D72B8C75D507FF5AE97858BAEBADDA7AD9B79EEC5C8F3DB2552FE2AA47BD - EABA1F7BEE59DC379DD1610CDE23D2A3A5F085036CA105E7BB8912424E7D6C8F - 9CA3580037A6C21DEA901EF3DB077C32CC27DF86B0547E2C5636E34B25A80912 - D9C5DE5FF33C3C02CC21380E1D77450FB8E94FAFF5FE8BFDFF5DE77F4ED77F01 - 886C5AC77507388004B8800948800028760EB88008C88048C062117705575007 - 2C116D43C4049376133840787737827FC7772648827A77822A488228B88225C8 - 822698827787031240022DE00651C0789BA1642CD764A39340DF427EE25279E9 - 7765C4100E6A132F379560E1247FEFB06F34A75A2CD44116906BFB174302D880 - 4BA7850678755C28FF815E08860938815DC8805FF8856408865DB886FD474AA6 - 645C01B07652801CD19624D4561395A65DDA26782A587D80A5143980093A6810 - 29075AD5E27804240AF48020A52384AE607E96777957665F6AF30CEC5447F8A6 - 18C9B44701B02043D7206A615457888566588AA6788AA8988AAAB88AACD88AFE - 875637B0023010075700075AD0121CC82B52E08194F62432E88230188CC0388C - C2588CC4C8771A251E4C908304377083B87288D833EE1479E3E788E6215F73F2 - 6EDD9065F3A60CFDE5733C95479B780DF850601D7460F3D68CA38822AED88EEE - F88EF0188F04880704D0373010047750076EF005B858382EC17C07406D39F004 - 499404D3E78731E8FF6307A969E01103E3A1789A9228E9356AA6F083F0618DAF - 903A35875900B10C974815FE327F9BD8219EE847FDE041000191EBD83033B000 - 2DF9922E199330399332599334799336999338B9933AD9933CF9933EB9007820 - 06C485059CE3062D31570FA524B354693D608C50798C51399552898C55D40203 - 100527C27D47855ED1782DEBB588A483919A503A72C25292786596226F6B137F - 3F571503C089E6B242FFE60F1FE4092B2948042893A7E8927BF9925AC7978039 - 98813993A528987E698A89998A36599882F9978BF99262D0622F7606CFE64AFE - 78245E80014824014340582D18782E98827D159A55298CBA448344560728C27D - 03316E5FA926F3B0FF60267552424865E8B7914AB3526CB60609E00E6F090771 - 498EF72719E738226E96976D03930B109440D992CDF99C31199DCE599DCC699D - 41499D34A99D31190162E0865B4006573006D021572713692A030203E9322F78 - 9AEE4995F0B9823D30644C004F2BD783903796649991A886791F12077FE096A5 - 358E67763C82F2416BA38ECA8922D8299D0EDAA010FAA0128A9D5BE586C04106 - 75905C6E5738CC654404890307D977211AA27F37A2A49990225882279AA2A4A9 - 142BE0060EE39A8638913D832D28776E6E126593677ED09496F5A50D008A0E8B - 1230C359A09F381977A96B0BEA3CD7D99CDC499D4EDA934F1AA53949A53539A5 - D7B99D4EDAA456BAFFA5D349A55C0AA5D39906CD3912100703E22924177732CF - F105CE853E96169F72FA9E743A823FF0043718A32A799F14399B58F11EB6799B - 6759844983A0842192B4C64752F86F547897C9B9A40EE3A5560A9D602AA95F4A - A95D7AA95D4AA99C6AA951DAA962FAA99B3AAA934AAA32C93719C0025D400632 - 6624CBD1120DB524BDA804735AAB755A954A7109ACE93C29C783B1F9518F826E - FB893A63844698B516CC134E10A0887BB43DC579A0C6A0A090CAA0996AA51550 - ADD87AADD81AA5DABAADDE9AADDFDA9CDD1AAED54A8FB178012C602910601C6B - FA8F3EF00534D18B3DF08BC528002368AF7C87AFF61A8CFADAAFF7FAAFF90AB0 - FB8A8C43201E58C0FFAB85D858E456A3EBC526A5568DB7797EC6BA9B08860CBF - B90E70B906A865A0220210D32A485F4AAE223BB2245BB2267BB243D923177005 - 0CF007C5D18F0DE5039136131D27013F40AFB76AAB3AFB005759075AF9663CC8 - 725CB4214F16A8824A841BA92E24026A8A82B1B4D60579C1B1A41721D2FAB19B - B100D74AA6598BB55C7BAD5EDBB560FBB562CBB55A0BB6653BB6681BB66A9BB6 - 637BB66B4BB670BBB56DABB664BA0024E16264C0078243246F57443E10514934 - 7D033BB8FEBAAF862BB0877BB8011BB089EBAF8C2B00AAD9513F1B43096B4C90 - 153AC9F4A76E32ACD78896D204180172190B36218AB801504B977D64608064B5 - F024AE4EDAAD63EBFFBAB2CBB5B30BBBAF7BBBB58BBBB4BBBBB1CBBBBA6BBB5F - 9BBBC2EBBBC38B046E8805787206B7F812CB5744BF4202368BB33B3BBDA7C96D - 5B7007F05488497688E56640C9500D46138411BB5256560C9D909C534330466A - 92FD702714A4A4ACEB366FCBB6F35BBFF47BBFF69BBFF8BBBFFA6BBF78D00419 - 700163F01642C2B7E1935C2C63B320DAB88F5BB884ABB80CFCC00DDCB8F84A04 - 771A7157E858BFBA1EECC5B9A8A391861207E958106DB24141C5BE6BD606F01B - BF6EC3BF2EDCBF2F1CC3303CC3329CB6765B4A4CC0023B10076A4A38AF6A065B - F0B747F40429D003B4BA828ECB8249BCC488DBC48B3BB84A50B04CB1ABAFE59A - D0F87D56313ACCE4FFC1830A18AD0543030129E5B81769866BCB03C62CDC3658 - 5B015ECBC66BDCC670CCC66E2CC76F5CC7747CC7729CC778ACC7763CC77E1CC7 - 7B9CC77D0CC76F2CC87AFCC787ECC60BF09D10770701C00765C08F6EE7683EC0 - 7C662003EB19A714BCC99CDCC99EFCC9051B886F26A3DBBBB0D682B97EFA72DE - 22BE93773495A13007B10C1DC20F93622F45B73C559BC69B51C376DCB5730CC3 - 7F1CB6BFECB56980B6C38CB5C54CC3C77CC734FCC6E62A8B77400772C8811870 - 005E7063431CA74FECC04CBCCD4E2CC1E0ACAF166C456540C5196CCA90D5C11E - 5C7EEE97194A78BA648C3CA4B7C2BADC36897CCFF89CCFFABCCFFCDCCFFEFCCF - 007DCF8B7CAE2C40FF0709B581D1A68B1C37909AFCC90EFDD010BDAF43508318 - 5C7032EA95DF972DED21ACE6618D6C41B59BF1018072A42F75C64856CFF61CD0 - 2ABDD22CDDD22E0DD048409426710761B00375E03DE65938332B903160B3FF1A - D1401DD486DB695B607ADA5BCA3DC81E5A0CB131F7D1C8A019F4D00071902FAB - 25C28F8AD20EA3C71E20C75B9DC75BDDD5158006892CD6F90CD6665D015B4DD6 - 689DC8602DD6607DC86DCDD56B7DD66C7CD65F2DD7753DD7727DD779DDD761BD - 001170B730B0037FF0562F6132322BB3186057D0FB034420D4900DD9DC76B0A3 - A878182DB48BB8B98EC82E574D10F4F007CE9A4EBB3022F48CD559FDD26BDDCF - 6F8DD7F8BCDA65CDFFD6FAECDAFCBC04AC7DD7749DDA797CB727710567E00543 - 92D0CCB70572F7A1B41AD9C6EDD04460782D000127BD6B17ADC1344A401ADD65 - C2AAA3EFD5564F9D1998B1019D28DA112420CD6DDA0DA3D7B64DDEE65DDEE87D - DEE4ED01E9DDDEEAEDDEF0FDDEF28DDE1E8006EC3DDF68ED016920066260123B - C0006B3001524063E79924C32D018F6DAF42B0AF0BAEE00CFEE00E1EE102D0E0 - 130EE1152EE1149EE10230D124C004C27985CD286A14696E45CBCA28C5D9D24A - 0F2854A0446501967274E21D43E5EDD7768DDBEE4DE37B2DDF38BEE3E69DD77C - 8DDF330EE47AEDE336BED71E40006B259E7470D3FD98993EF0E46FCA9EC73DE5 - 9CAC043860020094FF97176DB958CC5E8D686A28BE197F7A0F27B96601A76031 - EE3CECBDE66CCEE6F6DDE6701EE772BEE6F93DE76D6EDF62FDE671EED676DEE7 - 7EFEE7807EE76B8E063340942B1004571007DD036D4324054F8EC90499E015BE - E01A4EE9937EE996EEE0969EE917DEE9955EE188559F2B49CA57FC390D5B52E0 - BBCA278E5327B20C6DC041BAC3660A83E669DE36747EEBF7FDD56C5EE7409EEB - 73EDEBF41DECBC7EEBF39DEBC6AEEBC8FEDEC75EE7BB4EECC96EDB317D0317B8 - 0351B0BC98F9E41A2703E7E399C54DE5DE6EB8FF73BDE1BDA012899FA1A0E209 - 4459612EE66D32D5F862295C56EB8214E8F45EEFF67EEFF89EEFFA5EDF683099 - 817807543000CB9BFF1C075C57D1370409FEE99B8EE90CAFE99ECEF00BEFF002 - 30D993ABE53A08DD1B4C210524965A2179A6B3EE27B206DDFDE212E24EB92CEF - 06B1EF2ABFF22CDFF22CBF002A4012E84A0510B0120E75F3527000F16A0243D0 - ED92FEED869BF00F9DDC9750F1A33E88DB1BDD896840B459E2264E1F201FD280 - 22EBD93D7028EF301E500259BFF5F6ADF55E8F065EBFF5613FF6622FF625F0F5 - 649FF6653FF667BFF66EAFF670FFF6721FF75ADFF5737FF7FA6DBCD983816F35 - 871BFA3DCCF705DA4E699FE9F00B7FF8109FF888BFF8973E04786AF4D32A6E22 - 2EB416F9F450CFEAAD690DA278F5F3EEF6EC4DF69F2FF7A11FFA745FF670AEF5 - 6C1EF6A4EFF9AC8FFFFAADBFE6A0BFF5A32FFBB4AFE7AE1FFBAABFE67A9F686D - F006ADEAAA1AB72403D9F386AFF8C6CFF8C80FF1C96D72906FF1BD7AD9A61E96 - A8D04D4513F59AF1BDB36EF59C8FF55EDFF6630FF6737FF6DE0FFE69EFFD590F - F6E6FFFD6C5FFE2500F6E8BFFEE12FFE6FFFFE674FFE77DFFE709FFE72BFDF38 - 0C08645D036E5F18187E8888665F5F3E2D244F434A4202959796999742989D9A - 9F9EA1A09902124F1A5803AAABACADAEAFB0B167B3AD6363090970BABBBCBDBC - B8036B0D6DC4C5C6C7C70D1B6B67B1AE671F1FCDCED4D5D6D7D8B0251EDBDDDC - DFDEE1E0E3E2E5E4E7E6E9E8DC25EAEEECEFF1EBF215624D2B1759716B135289 - 7A3E0E613023C550FF8B1C4F7E0858288408C385A344617A288AA22587A0880C - 9140E2C2986C20B3CD9A762B97AF93BD12046BD005994B64CA98859C49B3A6CD - 55F0DAE9DCA93327CF9F3B7DB6130AB4A8D1A34089225D6A5429539D0AD2DC63 - 42264E17088E30E81198A8A09939087F1091688953D94D684199E5146AAD26B7 - 434CE42813E5A6DD91B406D8C26512651D5D093E7ED8C0B24BCB9788634EA3B6 - 785563BB9023AF0AD70E4DCF1296E171B35C19B367CEE5867ADEDC4D3468D33C - 2D671E7D79B56870AA75828E1D5BF3E7A4A55BA7060ADADE0D265400C41970C0 - DF568152186138F84482C288D0C94A8F9E51420E264124DBCCCBAA24CA5D63CE - 10EE12A07C80C388FF5D2AD6CEBE7DB6A7F0E3CB9F4FBFBEFDFA69C4FCE69185 - 0221337E249208063E980120130839E750276BB1C5D659103E286183694DC8D6 - 0F2668B0857B35E1D5CC5E70F40558786BFCD1451C148411471CE7A5F7D27A1C - C628E364A7C966E34FA0D9E6136CB97516946738DE98DB6CA1F104CE513BB206 - 0F9147EEE6A393A9E9D7020B6184B1070452084420065214F485063990608204 - 435037DD9911B9750911449840021375CC28125EABEC95CB9D2B918762952CB6 - E8224CCB3C26E7A09095A080A188B673E8A13B2D9A28543C395A94A394425AE9 - A59622CA68A49A72BAE94F923EAA68A79B621AEAA7A4768AC40D2D904181050D - B86186565A1E2205FF0820842981040B3AE8EBAFC0062BECB00DFD704A2A84DE - 5452606B9C48C18A1444DB277A7F160363B2D8DA5469A340853AAAA9A266EA6D - AA98723B6EA99D7E1BAEB9DDA6CBA9BAA8B20B2F1A52DE1186707548A1C7715A - E29A6B826556486184035B48B0C0976C745D1D1F655B8D87AAD812DE1F7130C0 - 4095613C3B6DB5C904EAF0C721912B32B8248F6C72C9289FAC72CA2CAF7CF212 - FAAD1004030074518621030AE4EFBFCD0D3116B140072DF40F12685817C8CED0 - C9CA070D0410C6C5D16ACC22B51C5F8BF4D5B12880C6A29C695D6EAAF08AACE8 - D68F6E5B36A4F38E3AF6A55D934B36BA6A9B1CB7D9E8B2CD76CC30EC90451751 - 14B765403BCB90EBFF13098D75968307276EF0E2BF0A40044717C489F535B308 - B367D41A974775B5564FEEB92A0A842EFAE8A4976EFAE9A8A7AEFAEAACB7EEFA - EBB0B38E061731A0B2030014D4F1853F3AEFCC3399870B2DFCF044FC503B1C9F - 3306CD1A6D049022E62B6ACEB1319D278FF42CB12F1ABAA6A593BABDF6A8738F - 72F7A68BFFFDEBE65F4AFEE8DE83CFBEE8E92BC0451322E43D45006F6861C671 - BE8320380891F0195A1007AC8311904207DC44F132842CEBC1A2720DB85CD4A2 - E7A7E9B5A17A0ECCD6484487000E9AAE83AD0321E944383A1192307BAF3B61E8 - 54A80016A2F0851F64DFFC6E70012A848001C4A155FF7616C0E00DEF87C26213 - 47E074B40CB20282FFCECBD804A3B7B93F61D08884A2050CA748C52A5A11755B - BBA2EA66D7041AF2C00914F880160EB14310CC4106609284E180C84661190F15 - 512003141D7306CB3D6F89D2B3E0053D36C76441CC831D0C24205B4848411AB2 - 90883CA42209793A419630918C1C212417F9C8455A7292923421264F78493074 - 31032CB0D81AB4F0851DCA40067368810C22219636BAF257C5AB5D1D54D24724 - DE515A1BD3E313FBE81E0F8D21759A5CA1072BB9C94C42B29191142627597749 - 625E5293941C66323149CC472EA18B176041161870860994F1946794014202F6 - CA720A81682B7043C3E6084109E2328F16DC252F2543A75BC061930878663E0B - B94F43E6F39FFE04FFA8402709507EFE9383FDC4A7400B1AC88532B485FD74E8 - 411B4A51832ED4A20145C035479081203821046D38E50ECF388733B2F267E66C - 63F14880857542D1964AC4E5D4F4B84799CC534623D10B1CEAE0064329F398C5 - 7464249F19D462FEF490472D2A5185BA54A53A95A830BB070CAAC000299CD177 - E09C831FCE08B094AA940824D8C21D78D9CE5B66AE82D393E74DEFF2213840C0 - 0D5A50C11214D00789DAF5AE19C5AB5E2F4A51896274AF800D2844034BD8C222 - 607E2BC0020F0C74D5C0A1720EFB5A654286E05536B6A9050D7C691D9B66560A - 36D1456A5DEB4CE8948BB76AE100311083A1F27A578CFEB5A28A4CA85D13D9DA - BE1A96B5B01DEC43FF6D7BDB81F25601F6C0C7160EF085C6FAEFB125C5C01CD2 - D8CACA12EF141728A211CB1AD3B37E363DA1152D48723A06B7BAC10B07388006 - 622057DDF6F6BCE84DAF7AD7CB5E892256033E68841EE6E02F703E560FA70C0B - 659D2BB4956AA00CB5DC6C12A1C7449A6657BBD8A045774D1BDE032C97044DE0 - C212F06ADE88EE75B0AFB5707BCF5BE1C27678C3B3B5470E348001E22AF794C8 - 2DA98AC549821FF037686C225A0E36C4CECDBAD3BA06E62382B793D3D2C2B5C1 - E17D3079278C001714F9C8F9347292FFA9E4231BF9C94866B240A1DC64805259 - CA576EF295ADECE42E6F39CA5AF63298A73C66282F39CB588EF299BB2C3F15DC - 40034CF8C2017C405B5254DAB9A4F31567E15E1C34633121C0C218301ED15A35 - 1DEF98267859F0774F0B64071F444C5CA82B88274DE94A5B3AB02E58829BE11C - 5E82E499A42A46048B79C567620DE1092D0074043B9BCB781AFAD02151B07719 - 0DE44000003B} - ExplicitWidth = 386 - end - end - object edtPassword: TEdit - Left = 96 - Top = 132 - Width = 278 - Height = 21 - PasswordChar = '*' - TabOrder = 2 - end - object bAceptar: TButton - Left = 208 - Top = 203 - Width = 75 - Height = 25 - Caption = '&Aceptar' - Default = True - TabOrder = 3 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 296 - Top = 203 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Salir' - ModalResult = 2 - TabOrder = 4 - end - object edtUser: TEdit - Left = 96 - Top = 104 - Width = 278 - Height = 21 - TabOrder = 1 - end - object Button1: TButton - Left = 16 - Top = 203 - Width = 129 - Height = 25 - Caption = 'C&onfigurar conexi'#243'n...' - TabOrder = 5 - OnClick = ToolButton4Click - end - object Timer1: TTimer - Enabled = False - Interval = 5000 - OnTimer = Timer1Timer - Left = 344 - Top = 64 - end - object JvAppRegistryStorage1: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - StorageOptions.BooleanAsString = False - Root = 'Software\%APPL_NAME%' - SubStorages = <> - Left = 14 - Top = 168 - end - object JvFormStorage1: TJvFormStorage - AppStorage = JvAppRegistryStorage1 - AppStoragePath = '\' - Options = [] - StoredProps.Strings = ( - 'edtUser.Text' - 'edtPassword.Text') - StoredValues = < - item - Name = 'Ruta' - Value = '' - end> - Left = 48 - Top = 168 - end -end diff --git a/Source/Modulos/Usuarios/Data/uLoginForm.pas b/Source/Modulos/Usuarios/Data/uLoginForm.pas deleted file mode 100644 index 2e183b43..00000000 --- a/Source/Modulos/Usuarios/Data/uLoginForm.pas +++ /dev/null @@ -1,101 +0,0 @@ -unit uLoginForm; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, ComCtrls, cxGraphics, cxControls, - cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, - cxImageComboBox, ImgList, PngImageList, pngimage, ToolWin, JvExControls, - JvComponent, JvGradient, JvGIF, JvComponentBase, JvFormPlacement, - JvAppStorage, JvAppRegistryStorage; - -type - TfLoginForm = class(TForm) - Panel1: TPanel; - Label3: TLabel; - Label4: TLabel; - edtPassword: TEdit; - bAceptar: TButton; - bCancelar: TButton; - Label1: TLabel; - edtUser: TEdit; - JvGradient1: TJvGradient; - Button1: TButton; - Timer1: TTimer; - JvAppRegistryStorage1: TJvAppRegistryStorage; - JvFormStorage1: TJvFormStorage; - Image1: TImage; - procedure bAceptarClick(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure ToolButton4Click(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure Timer1Timer(Sender: TObject); - private - FIntentos: Integer; - end; - -var - fLoginForm: TfLoginForm; - -implementation - -uses - uDataModuleUsuarios, uDataModuleConexion, uDataModuleBase; - -{$R *.dfm} - -{ -********************************* TfLoginForm ********************************** -} -procedure TfLoginForm.bAceptarClick(Sender: TObject); -var - bOk : Boolean; -begin -{ ShowHourglassCursor; - try - bOK := dmUsuarios.Login(edtUser.Text, edtPassword.Text); - finally - HideHourglassCursor; - end; - - if bOk then - ModalResult := mrOK - else begin - Application.MessageBox('Usuario no válido. Compruebe si ha escrito correctamente' - + #13 + #10 + 'el usuario y la contraseña.', 'Atención', MB_OK); - Dec(FIntentos); - if (FIntentos <= 0) then - ModalResult := mrCancel; - end;} -end; - -procedure TfLoginForm.FormCreate(Sender: TObject); -begin - FIntentos := 3; -end; - -procedure TfLoginForm.ToolButton4Click(Sender: TObject); -begin - Timer1.Enabled := False; - dmConexion.ConfigurarConexion; - Timer1.Enabled := True; -end; - -procedure TfLoginForm.FormShow(Sender: TObject); -begin - Self.Caption := Self.Caption + ' - ' + dmBase.DarVersion; - JvFormStorage1.RestoreFormPlacement; - // Hacer login automática si hay usuario/password y no hay más de una base - // de datos como opción para conectarse. - if ((Length(edtUser.Text) > 0) and (Length(edtPassword.Text) > 0)) then - Timer1.Enabled := True; -end; - -procedure TfLoginForm.Timer1Timer(Sender: TObject); -begin - Timer1.Enabled := False; - bAceptar.Click; -end; - -end. diff --git a/Source/Modulos/Usuarios/Data/uUCROConn.dcu b/Source/Modulos/Usuarios/Data/uUCROConn.dcu deleted file mode 100644 index f021b756..00000000 Binary files a/Source/Modulos/Usuarios/Data/uUCROConn.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Data/uUCROConn.pas b/Source/Modulos/Usuarios/Data/uUCROConn.pas deleted file mode 100644 index bd27a10d..00000000 --- a/Source/Modulos/Usuarios/Data/uUCROConn.pas +++ /dev/null @@ -1,196 +0,0 @@ -{----------------------------------------------------------------------------- - Unit Name: UCMidasConn - Author : Luiz Benevenuto - Date : 31/07/2005 - Purpose : Midas Suporte ( DataSnap ) - E-mail : luiz@siffra.com - URL : www.siffra.com - UC : www.usercontrol.com.br - Forum : http://www.usercontrol.com.br/modules.php?name=Forums - - registered in UCMidasConnReg.pas ------------------------------------------------------------------------------} - -unit uUCROConn; - -interface - -//{$I 'UserControl.inc'} - -uses - Classes, - DB, - DBClient, - SysUtils, - UCDataConnector, - uRORemoteService, - uDADataStreamer, - uDABin2DataStreamer, - uDARemoteDataAdapter; - -type - TUCROConn = class(TUCDataConnector) - private - FRemoteService: TRORemoteService; - FDataAdapter : TDARemoteDataAdapter; - FDataStreamer : TDABin2DataStreamer; - procedure SetRemoteService(const Value: TRORemoteService); - protected - procedure Notification(AComponent: TComponent; Operation: TOperation); override; - public - function GetDBObjectName: String; override; - function GetTransObjectName: String; override; - function UCFindDataConnection: Boolean; override; - function UCFindTable(const Tablename: String): Boolean; override; - function UCGetSQLDataset(FSQL: String): TDataset; override; - procedure UCExecSQL(FSQL: String); override; - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - published - property RemoteService : TRORemoteService read FRemoteService write SetRemoteService; - end; - -const - // Select para as tabelas de sistema !!! Para outro tipo de banco implemente aqui !!!!! - - // Para banco novo !!! - // Não esquecer de colocar em TBancoDados, o tipo de banco !!!!!! - // Não esquecer de colocar no 'case' de UCFindTable - - SQL_Firebird = - 'SELECT ' + - ' UPPER(RDB$RELATIONS.RDB$RELATION_NAME) RDB$RELATION_NAME ' + - 'FROM ' + - ' RDB$RELATIONS ' + - 'WHERE ' + - ' RDB$RELATIONS.RDB$FLAGS = 1 AND UPPER(RDB$RELATIONS.RDB$RELATION_NAME) = ' + - ' UPPER(''%s'')'; - - SQL_MSSQL = ''; - - SQL_Oracle = ''; - - SQL_PostgreSQL = - 'SELECT ' + - ' UPPER(PG_CLASS.RELNAME) ' + - 'FROM ' + - ' PG_CLASS ' + - 'WHERE ' + - ' PG_CLASS.RELKIND = ''r'' AND ' + - ' UPPER(PG_CLASS.RELNAME) LIKE UPPER(''%s'')'; - - SQL_MySQL = ''; - - SQL_Paradox = ''; - -implementation - -uses - FactuGES_Intf, uROTypes, uDAClasses, uDADataTable; - -{ TUCROConn } - -constructor TUCROConn.Create(AOwner: TComponent); -begin - inherited; - FDataStreamer := TDABin2DataStreamer.Create(nil); - FDataAdapter := TDARemoteDataAdapter.Create(nil); - FDataAdapter.DataStreamer := FDataStreamer; - FDataAdapter.SetupDefaultRequest; -end; - -destructor TUCROConn.Destroy; -begin - FreeAndNil(FDataAdapter); - FreeAndNil(FDataStreamer); - inherited; -end; - -function TUCROConn.GetDBObjectName: String; -begin - if Assigned(FRemoteService) then - begin - if Owner = FRemoteService.Owner then - Result := FRemoteService.Name - else - Result := FRemoteService.Owner.Name + '.' + FRemoteService.Name; - end - else - Result := ''; -end; - -function TUCROConn.GetTransObjectName: String; -begin - Result := ''; -end; - -procedure TUCROConn.Notification(AComponent: TComponent; Operation: TOperation); -begin - if (Operation = opRemove) and (AComponent = FRemoteService) then - begin - FreeAndNil(FDataAdapter); - FRemoteService := nil; - end; - inherited Notification(AComponent, Operation); -end; - -procedure TUCROConn.SetRemoteService(const Value: TRORemoteService); -begin - FRemoteService := Value; - if Assigned(FRemoteService) then - begin - with FDataAdapter do - begin - RemoteService := FRemoteService; - GetSchemaCall.RemoteService := FRemoteService; - GetDataCall.RemoteService := FRemoteService; - UpdateDataCall.RemoteService := FRemoteService; - GetScriptsCall.RemoteService := FRemoteService; - end; - end; -end; - -procedure TUCROConn.UCExecSQL(FSQL: String); -begin - (FRemoteService as IsrvUsuarios).SQLExecuteCommand(FSQL); -end; - -function TUCROConn.UCFindDataConnection: Boolean; -begin - Result := False; - if Assigned(FRemoteService) then - begin - FRemoteService.CheckCanConnect; - Result := True; - end; -end; - -function TUCROConn.UCFindTable(const Tablename: String): Boolean; -var - ASchema : TDASchema; -begin - ASchema := FDataAdapter.ReadSchema; - try - Result := Assigned(ASchema.FindDataset(TableName)); - finally - FreeAndNil(ASchema); - end; -end; - -function TUCROConn.UCGetSQLDataset(FSQL: String): TDataset; -var - AStream : Binary; - ADataTable : TDADataTable; -begin - Result := NIL; - AStream := (FRemoteService as IsrvUsuarios).SQLGetData(FSQL, True, -1); - if Assigned(AStream) then - begin - ADataTable := TDADataTable.Create(NIL); - ADataTable.LoadFromStream(AStream); - Result := ADataTable.Dataset; - end; -end; - -end. - diff --git a/Source/Modulos/Usuarios/Data/uUsuario.dcu b/Source/Modulos/Usuarios/Data/uUsuario.dcu deleted file mode 100644 index 3c857138..00000000 Binary files a/Source/Modulos/Usuarios/Data/uUsuario.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Data/uUsuario.dfm b/Source/Modulos/Usuarios/Data/uUsuario.dfm deleted file mode 100644 index 93fcc6e1..00000000 --- a/Source/Modulos/Usuarios/Data/uUsuario.dfm +++ /dev/null @@ -1,123 +0,0 @@ -object fUsuario: TfUsuario - Left = 523 - Top = 415 - BorderStyle = bsDialog - Caption = 'Datos del usuario' - ClientHeight = 309 - ClientWidth = 308 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - PixelsPerInch = 96 - TextHeight = 13 - object Button1: TButton - Left = 138 - Top = 273 - Width = 75 - Height = 25 - Action = actAceptar - TabOrder = 1 - end - object Button2: TButton - Left = 226 - Top = 273 - Width = 75 - Height = 25 - Action = actCancelar - TabOrder = 2 - end - object TabControl1: TPageControl - Left = 8 - Top = 8 - Width = 293 - Height = 257 - ActivePage = pagUsuario - TabOrder = 0 - object pagUsuario: TTabSheet - Caption = 'Usuario' - object GroupBox1: TGroupBox - Left = 6 - Top = 5 - Width = 274 - Height = 99 - Caption = 'GroupBox1' - TabOrder = 0 - DesignSize = ( - 274 - 99) - object Label4: TLabel - Left = 34 - Top = 28 - Width = 39 - Height = 13 - Caption = 'Usuario:' - Transparent = False - end - object Label5: TLabel - Left = 16 - Top = 60 - Width = 57 - Height = 13 - Caption = 'Contrase'#241'a:' - Transparent = False - end - object edtUser: TEdit - Left = 88 - Top = 24 - Width = 169 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 0 - end - object edtPassword: TEdit - Left = 88 - Top = 56 - Width = 169 - Height = 21 - Anchors = [akLeft, akTop, akRight] - PasswordChar = '*' - TabOrder = 1 - end - end - object GroupBox2: TGroupBox - Left = 7 - Top = 111 - Width = 273 - Height = 110 - Caption = 'Permisos y seguridad' - TabOrder = 1 - object Label1: TLabel - Left = 47 - Top = 36 - Width = 26 - Height = 13 - Caption = 'Perfil:' - Transparent = False - end - object cbPerfil: TComboBox - Left = 88 - Top = 28 - Width = 169 - Height = 21 - ItemHeight = 13 - TabOrder = 0 - end - end - end - end - object ActionList: TActionList - Left = 8 - Top = 272 - object actAceptar: TAction - Caption = '&Aceptar' - end - object actCancelar: TAction - Caption = '&Cancelar' - end - end -end diff --git a/Source/Modulos/Usuarios/Data/uUsuario.pas b/Source/Modulos/Usuarios/Data/uUsuario.pas deleted file mode 100644 index 90e722c2..00000000 --- a/Source/Modulos/Usuarios/Data/uUsuario.pas +++ /dev/null @@ -1,39 +0,0 @@ -unit uUsuario; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ComCtrls, ActnList; - -type - TfUsuario = class(TForm) - Button1: TButton; - Button2: TButton; - TabControl1: TPageControl; - pagUsuario: TTabSheet; - GroupBox1: TGroupBox; - Label4: TLabel; - Label5: TLabel; - edtUser: TEdit; - edtPassword: TEdit; - GroupBox2: TGroupBox; - Label1: TLabel; - cbPerfil: TComboBox; - ActionList: TActionList; - actAceptar: TAction; - actCancelar: TAction; - private - { Private declarations } - public - { Public declarations } - end; - -var - fUsuario: TfUsuario; - -implementation - -{$R *.dfm} - -end. diff --git a/Source/Modulos/Usuarios/Data/uUsuarios.dcu b/Source/Modulos/Usuarios/Data/uUsuarios.dcu deleted file mode 100644 index 2c94a8f6..00000000 Binary files a/Source/Modulos/Usuarios/Data/uUsuarios.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Data/uUsuarios.dfm b/Source/Modulos/Usuarios/Data/uUsuarios.dfm deleted file mode 100644 index 0c3eb30f..00000000 --- a/Source/Modulos/Usuarios/Data/uUsuarios.dfm +++ /dev/null @@ -1,118 +0,0 @@ -object fUsuarios: TfUsuarios - Left = 490 - Top = 417 - BorderStyle = bsDialog - Caption = 'Administraci'#243'n de usuarios' - ClientHeight = 401 - ClientWidth = 550 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object Grid: TDBGrid - Left = 8 - Top = 40 - Width = 425 - Height = 313 - DataSource = DADataSource - TabOrder = 0 - TitleFont.Charset = DEFAULT_CHARSET - TitleFont.Color = clWindowText - TitleFont.Height = -11 - TitleFont.Name = 'MS Sans Serif' - TitleFont.Style = [] - end - object JvNavPanelHeader1: TJvNavPanelHeader - Left = 0 - Top = 0 - Width = 550 - Align = alTop - Caption = 'Panel de control' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindow - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - ColorFrom = 8684164 - ColorTo = 8684164 - ImageIndex = 0 - StyleManager = dmBase.StyleManager - ParentStyleManager = False - end - object Button1: TButton - Left = 448 - Top = 40 - Width = 91 - Height = 25 - Action = actNuevo - TabOrder = 2 - end - object Button2: TButton - Left = 448 - Top = 136 - Width = 91 - Height = 25 - Action = actModificar - TabOrder = 3 - end - object Button3: TButton - Left = 448 - Top = 176 - Width = 91 - Height = 25 - Action = actEliminar - TabOrder = 4 - end - object Button4: TButton - Left = 448 - Top = 368 - Width = 91 - Height = 25 - Action = actCerrar - TabOrder = 5 - end - object Button5: TButton - Left = 448 - Top = 96 - Width = 91 - Height = 25 - Action = actCambiarPassword - TabOrder = 6 - end - object DADataSource: TDADataSource - Left = 368 - Top = 40 - end - object ActionList: TActionList - Left = 8 - Top = 360 - object actCerrar: TAction - Caption = '&Cerrar' - OnExecute = actCerrarExecute - end - object actNuevo: TAction - Caption = 'Nuevo usuario' - OnUpdate = actNuevoUpdate - end - object actCambiarPassword: TAction - Caption = 'Cambiar contrase'#241'a' - OnUpdate = actCambiarPasswordUpdate - end - object actModificar: TAction - Caption = 'Modificar usuario' - OnUpdate = actModificarUpdate - end - object actEliminar: TAction - Caption = 'Eliminar usuario' - OnUpdate = actEliminarUpdate - end - end -end diff --git a/Source/Modulos/Usuarios/Data/uUsuarios.pas b/Source/Modulos/Usuarios/Data/uUsuarios.pas deleted file mode 100644 index 6fb22fd6..00000000 --- a/Source/Modulos/Usuarios/Data/uUsuarios.pas +++ /dev/null @@ -1,89 +0,0 @@ -unit uUsuarios; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, DB, uDADataTable, dbcgrids, uDataModuleUsuarios, StdCtrls, - DBCtrls, uDataModuleBase, JvExControls, JvComponent, JvNavigationPane, - Grids, DBGrids, ActnList, uDAInterfaces; - -type - TfUsuarios = class(TForm) - DADataSource: TDADataSource; - Grid: TDBGrid; - JvNavPanelHeader1: TJvNavPanelHeader; - Button1: TButton; - Button2: TButton; - Button3: TButton; - Button4: TButton; - Button5: TButton; - ActionList: TActionList; - actCerrar: TAction; - actNuevo: TAction; - actCambiarPassword: TAction; - actModificar: TAction; - actEliminar: TAction; - procedure actCerrarExecute(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actCambiarPasswordUpdate(Sender: TObject); - procedure actNuevoUpdate(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -procedure AdministrarUsuarios; - -implementation - -{$R *.dfm} - - -procedure AdministrarUsuarios; -var - fUsuarios: TfUsuarios; -begin - fUsuarios := TfUsuarios.Create(NIL); - try - fUsuarios.ShowModal; - finally - fUsuarios.Free; - end; -end; - -procedure TfUsuarios.actCerrarExecute(Sender: TObject); -begin - Close; -end; - -procedure TfUsuarios.FormCreate(Sender: TObject); -begin -{ DADataSource.DataTable := dmUsuarios.tbl_Usuarios; - DADataSource.DataTable.Active := True;} -end; - -procedure TfUsuarios.actEliminarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty); -end; - -procedure TfUsuarios.actModificarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty); -end; - -procedure TfUsuarios.actCambiarPasswordUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty); -end; - -procedure TfUsuarios.actNuevoUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := Assigned(DADataSource.DataTable); -end; - -end. diff --git a/Source/Modulos/Usuarios/Model/CadPerfil_U.dcu b/Source/Modulos/Usuarios/Model/CadPerfil_U.dcu deleted file mode 100644 index 5ffe32e9..00000000 Binary files a/Source/Modulos/Usuarios/Model/CadPerfil_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/CadUser_U.dcu b/Source/Modulos/Usuarios/Model/CadUser_U.dcu deleted file mode 100644 index 82d054c6..00000000 Binary files a/Source/Modulos/Usuarios/Model/CadUser_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/Data/uIDataModuleUsuarios.pas b/Source/Modulos/Usuarios/Model/Data/uIDataModuleUsuarios.pas deleted file mode 100644 index 18615995..00000000 --- a/Source/Modulos/Usuarios/Model/Data/uIDataModuleUsuarios.pas +++ /dev/null @@ -1,18 +0,0 @@ -unit uIDataModuleUsuarios; - -interface - -uses - UCBase, UCDataConnector; - -type - IDataModuleUsuarios = interface - ['{F2D2E969-5E87-42DE-A550-E839C4607C72}'] - procedure InicializarCamposUserControl (AUserControl : TUserControl); - function GetDataConnector : TUCDataConnector; - property DataConnector : TUCDataConnector read GetDataConnector; - end; - -implementation - -end. diff --git a/Source/Modulos/Usuarios/Model/EnvMsgForm_U.dcu b/Source/Modulos/Usuarios/Model/EnvMsgForm_U.dcu deleted file mode 100644 index f70c1dd3..00000000 Binary files a/Source/Modulos/Usuarios/Model/EnvMsgForm_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/IncPerfil_U.dcu b/Source/Modulos/Usuarios/Model/IncPerfil_U.dcu deleted file mode 100644 index 1ec4739d..00000000 Binary files a/Source/Modulos/Usuarios/Model/IncPerfil_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/IncUser_U.dcu b/Source/Modulos/Usuarios/Model/IncUser_U.dcu deleted file mode 100644 index 828ec7e5..00000000 Binary files a/Source/Modulos/Usuarios/Model/IncUser_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/LoginWindow_U.dcu b/Source/Modulos/Usuarios/Model/LoginWindow_U.dcu deleted file mode 100644 index 89b9ab5e..00000000 Binary files a/Source/Modulos/Usuarios/Model/LoginWindow_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/MsgRecForm_U.dcu b/Source/Modulos/Usuarios/Model/MsgRecForm_U.dcu deleted file mode 100644 index 86babad6..00000000 Binary files a/Source/Modulos/Usuarios/Model/MsgRecForm_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/MsgsForm_U.dcu b/Source/Modulos/Usuarios/Model/MsgsForm_U.dcu deleted file mode 100644 index 4055138a..00000000 Binary files a/Source/Modulos/Usuarios/Model/MsgsForm_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/SenhaForm_U.dcu b/Source/Modulos/Usuarios/Model/SenhaForm_U.dcu deleted file mode 100644 index a99f5a1a..00000000 Binary files a/Source/Modulos/Usuarios/Model/SenhaForm_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/TrocaSenha_U.dcu b/Source/Modulos/Usuarios/Model/TrocaSenha_U.dcu deleted file mode 100644 index e1474abc..00000000 Binary files a/Source/Modulos/Usuarios/Model/TrocaSenha_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCBase.dcu b/Source/Modulos/Usuarios/Model/UCBase.dcu deleted file mode 100644 index a2b7be04..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCBase.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCConsts.dcu b/Source/Modulos/Usuarios/Model/UCConsts.dcu deleted file mode 100644 index fb205b30..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCConsts.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCDataConnector.dcu b/Source/Modulos/Usuarios/Model/UCDataConnector.dcu deleted file mode 100644 index 33cc0ce7..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCDataConnector.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCDataInfo.dcu b/Source/Modulos/Usuarios/Model/UCDataInfo.dcu deleted file mode 100644 index 108622e2..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCDataInfo.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCEMailForm_U.dcu b/Source/Modulos/Usuarios/Model/UCEMailForm_U.dcu deleted file mode 100644 index 1cc809e3..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCEMailForm_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCHist_Form.dcu b/Source/Modulos/Usuarios/Model/UCHist_Form.dcu deleted file mode 100644 index 8993bb4e..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCHist_Form.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCMail.dcu b/Source/Modulos/Usuarios/Model/UCMail.dcu deleted file mode 100644 index 8bdff188..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCMail.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCMessages.dcu b/Source/Modulos/Usuarios/Model/UCMessages.dcu deleted file mode 100644 index 3ff914f6..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCMessages.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UCSettings.dcu b/Source/Modulos/Usuarios/Model/UCSettings.dcu deleted file mode 100644 index d7afbd71..00000000 Binary files a/Source/Modulos/Usuarios/Model/UCSettings.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UserPermis_U.dcu b/Source/Modulos/Usuarios/Model/UserPermis_U.dcu deleted file mode 100644 index ce8d461f..00000000 Binary files a/Source/Modulos/Usuarios/Model/UserPermis_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/UsersLogged_U.dcu b/Source/Modulos/Usuarios/Model/UsersLogged_U.dcu deleted file mode 100644 index 7d7c2bdb..00000000 Binary files a/Source/Modulos/Usuarios/Model/UsersLogged_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/Usuarios_model.dcu b/Source/Modulos/Usuarios/Model/Usuarios_model.dcu deleted file mode 100644 index b2fa009c..00000000 Binary files a/Source/Modulos/Usuarios/Model/Usuarios_model.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/Usuarios_model.dpk b/Source/Modulos/Usuarios/Model/Usuarios_model.dpk deleted file mode 100644 index 25ab94d7..00000000 --- a/Source/Modulos/Usuarios/Model/Usuarios_model.dpk +++ /dev/null @@ -1,46 +0,0 @@ -package Usuarios_model; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - dsnap, - dbrtl, - vcldb, - vcl, - adortl, - Base, - pckUCDataConnector, - dclIndyCore, - VclSmp, - pckMD5, - pckUserControl_RT; - -contains - uIDataModuleUsuarios in 'Data\uIDataModuleUsuarios.pas', - schUsuariosClient_Intf in 'schUsuariosClient_Intf.pas', - schUsuariosServer_Intf in 'schUsuariosServer_Intf.pas'; - -end. diff --git a/Source/Modulos/Usuarios/Model/Usuarios_model.dproj b/Source/Modulos/Usuarios/Model/Usuarios_model.dproj deleted file mode 100644 index a6e505ef..00000000 --- a/Source/Modulos/Usuarios/Model/Usuarios_model.dproj +++ /dev/null @@ -1,550 +0,0 @@ - - - - {73acd39c-b2f0-49b7-9acf-10945bbac8c1} - Usuarios_model.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Usuarios_model.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Release\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - RELEASE - - - 7.0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Usuarios_model.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Usuarios/Model/Usuarios_model.rc b/Source/Modulos/Usuarios/Model/Usuarios_model.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Usuarios/Model/Usuarios_model.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Usuarios/Model/Usuarios_model.res b/Source/Modulos/Usuarios/Model/Usuarios_model.res deleted file mode 100644 index 1641339f..00000000 Binary files a/Source/Modulos/Usuarios/Model/Usuarios_model.res and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/ViewLog_U.dcu b/Source/Modulos/Usuarios/Model/ViewLog_U.dcu deleted file mode 100644 index 08467f86..00000000 Binary files a/Source/Modulos/Usuarios/Model/ViewLog_U.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/md5.dcu b/Source/Modulos/Usuarios/Model/md5.dcu deleted file mode 100644 index afba95cd..00000000 Binary files a/Source/Modulos/Usuarios/Model/md5.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/schUsuariosClient_Intf.dcu b/Source/Modulos/Usuarios/Model/schUsuariosClient_Intf.dcu deleted file mode 100644 index 0776146d..00000000 Binary files a/Source/Modulos/Usuarios/Model/schUsuariosClient_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/schUsuariosClient_Intf.pas b/Source/Modulos/Usuarios/Model/schUsuariosClient_Intf.pas deleted file mode 100644 index 02e9c47d..00000000 --- a/Source/Modulos/Usuarios/Model/schUsuariosClient_Intf.pas +++ /dev/null @@ -1,1464 +0,0 @@ -unit schUsuariosClient_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; - -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_USUARIOS = '{BCEAD2C9-F685-4AD0-BFD5-FAA3694FB6B8}'; - RID_USUARIOS_EVENTOS = '{FCCBD5C6-0BBB-44C1-B19A-983FEE8F93D5}'; - RID_USUARIOS_LOGON = '{31C71D37-D969-4C21-AD16-ECD67F1BD5B0}'; - RID_PERMISOS = '{90F13FF0-B34A-4AA9-8EC5-F8427722C146}'; - RID_PERMISOSEX = '{30F060F4-D38F-41D2-8888-EE5E91BBAA0B}'; - - { Data table names } - nme_USUARIOS = 'USUARIOS'; - nme_USUARIOS_EVENTOS = 'USUARIOS_EVENTOS'; - nme_USUARIOS_LOGON = 'USUARIOS_LOGON'; - nme_PERMISOS = 'PERMISOS'; - nme_PERMISOSEX = 'PERMISOSEX'; - - { USUARIOS fields } - fld_USUARIOSID = 'ID'; - fld_USUARIOSUSERNAME = 'USERNAME'; - fld_USUARIOSLOGIN = 'LOGIN'; - fld_USUARIOSPASS = 'PASS'; - fld_USUARIOSPASSEXPIRED = 'PASSEXPIRED'; - fld_USUARIOSBLOQUEADO = 'BLOQUEADO'; - fld_USUARIOSEMAIL = 'EMAIL'; - fld_USUARIOSUSERDAYSSUN = 'USERDAYSSUN'; - fld_USUARIOSPRIVILEGED = 'PRIVILEGED'; - fld_USUARIOSTIPO = 'TIPO'; - fld_USUARIOSID_PERFIL = 'ID_PERFIL'; - fld_USUARIOSCHECKSUM = 'CHECKSUM'; - - { USUARIOS field indexes } - idx_USUARIOSID = 0; - idx_USUARIOSUSERNAME = 1; - idx_USUARIOSLOGIN = 2; - idx_USUARIOSPASS = 3; - idx_USUARIOSPASSEXPIRED = 4; - idx_USUARIOSBLOQUEADO = 5; - idx_USUARIOSEMAIL = 6; - idx_USUARIOSUSERDAYSSUN = 7; - idx_USUARIOSPRIVILEGED = 8; - idx_USUARIOSTIPO = 9; - idx_USUARIOSID_PERFIL = 10; - idx_USUARIOSCHECKSUM = 11; - - { USUARIOS_EVENTOS fields } - fld_USUARIOS_EVENTOSAPLICACION = 'APLICACION'; - fld_USUARIOS_EVENTOSID_USUARIO = 'ID_USUARIO'; - fld_USUARIOS_EVENTOSFECHA = 'FECHA'; - fld_USUARIOS_EVENTOSHORA = 'HORA'; - fld_USUARIOS_EVENTOSFORM = 'FORM'; - fld_USUARIOS_EVENTOSTITULO_FORM = 'TITULO_FORM'; - fld_USUARIOS_EVENTOSEVENTO = 'EVENTO'; - fld_USUARIOS_EVENTOSNOTAS = 'NOTAS'; - fld_USUARIOS_EVENTOSTNAME = 'TNAME'; - - { USUARIOS_EVENTOS field indexes } - idx_USUARIOS_EVENTOSAPLICACION = 0; - idx_USUARIOS_EVENTOSID_USUARIO = 1; - idx_USUARIOS_EVENTOSFECHA = 2; - idx_USUARIOS_EVENTOSHORA = 3; - idx_USUARIOS_EVENTOSFORM = 4; - idx_USUARIOS_EVENTOSTITULO_FORM = 5; - idx_USUARIOS_EVENTOSEVENTO = 6; - idx_USUARIOS_EVENTOSNOTAS = 7; - idx_USUARIOS_EVENTOSTNAME = 8; - - { USUARIOS_LOGON fields } - fld_USUARIOS_LOGONLOGONID = 'LOGONID'; - fld_USUARIOS_LOGONID_USUARIO = 'ID_USUARIO'; - fld_USUARIOS_LOGONAPLICACION = 'APLICACION'; - fld_USUARIOS_LOGONEQUIPO = 'EQUIPO'; - fld_USUARIOS_LOGONDATA = 'DATA'; - - { USUARIOS_LOGON field indexes } - idx_USUARIOS_LOGONLOGONID = 0; - idx_USUARIOS_LOGONID_USUARIO = 1; - idx_USUARIOS_LOGONAPLICACION = 2; - idx_USUARIOS_LOGONEQUIPO = 3; - idx_USUARIOS_LOGONDATA = 4; - - { PERMISOS fields } - fld_PERMISOSID_USUARIO = 'ID_USUARIO'; - fld_PERMISOSMODULO = 'MODULO'; - fld_PERMISOSNOMBRECOMP = 'NOMBRECOMP'; - fld_PERMISOSCHECKSUM = 'CHECKSUM'; - - { PERMISOS field indexes } - idx_PERMISOSID_USUARIO = 0; - idx_PERMISOSMODULO = 1; - idx_PERMISOSNOMBRECOMP = 2; - idx_PERMISOSCHECKSUM = 3; - - { PERMISOSEX fields } - fld_PERMISOSEXID_USUARIO = 'ID_USUARIO'; - fld_PERMISOSEXMODULO = 'MODULO'; - fld_PERMISOSEXNOMBRECOMP = 'NOMBRECOMP'; - fld_PERMISOSEXNOMBREFORM = 'NOMBREFORM'; - fld_PERMISOSEXCHECKSUM = 'CHECKSUM'; - - { PERMISOSEX field indexes } - idx_PERMISOSEXID_USUARIO = 0; - idx_PERMISOSEXMODULO = 1; - idx_PERMISOSEXNOMBRECOMP = 2; - idx_PERMISOSEXNOMBREFORM = 3; - idx_PERMISOSEXCHECKSUM = 4; - -type - { IUSUARIOS } - IUSUARIOS = interface(IDAStronglyTypedDataTable) - ['{98E5DC96-C6C8-48DD-9A93-727F34455103}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetUSERNAMEValue: String; - procedure SetUSERNAMEValue(const aValue: String); - function GetUSERNAMEIsNull: Boolean; - procedure SetUSERNAMEIsNull(const aValue: Boolean); - function GetLOGINValue: String; - procedure SetLOGINValue(const aValue: String); - function GetLOGINIsNull: Boolean; - procedure SetLOGINIsNull(const aValue: Boolean); - function GetPASSValue: String; - procedure SetPASSValue(const aValue: String); - function GetPASSIsNull: Boolean; - procedure SetPASSIsNull(const aValue: Boolean); - function GetPASSEXPIREDValue: DateTime; - procedure SetPASSEXPIREDValue(const aValue: DateTime); - function GetPASSEXPIREDIsNull: Boolean; - procedure SetPASSEXPIREDIsNull(const aValue: Boolean); - function GetBLOQUEADOValue: SmallInt; - procedure SetBLOQUEADOValue(const aValue: SmallInt); - function GetBLOQUEADOIsNull: Boolean; - procedure SetBLOQUEADOIsNull(const aValue: Boolean); - function GetEMAILValue: String; - procedure SetEMAILValue(const aValue: String); - function GetEMAILIsNull: Boolean; - procedure SetEMAILIsNull(const aValue: Boolean); - function GetUSERDAYSSUNValue: Integer; - procedure SetUSERDAYSSUNValue(const aValue: Integer); - function GetUSERDAYSSUNIsNull: Boolean; - procedure SetUSERDAYSSUNIsNull(const aValue: Boolean); - function GetPRIVILEGEDValue: Integer; - procedure SetPRIVILEGEDValue(const aValue: Integer); - function GetPRIVILEGEDIsNull: Boolean; - procedure SetPRIVILEGEDIsNull(const aValue: Boolean); - function GetTIPOValue: String; - procedure SetTIPOValue(const aValue: String); - function GetTIPOIsNull: Boolean; - procedure SetTIPOIsNull(const aValue: Boolean); - function GetID_PERFILValue: Integer; - procedure SetID_PERFILValue(const aValue: Integer); - function GetID_PERFILIsNull: Boolean; - procedure SetID_PERFILIsNull(const aValue: Boolean); - function GetCHECKSUMValue: String; - procedure SetCHECKSUMValue(const aValue: String); - function GetCHECKSUMIsNull: Boolean; - procedure SetCHECKSUMIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property USERNAME: String read GetUSERNAMEValue write SetUSERNAMEValue; - property USERNAMEIsNull: Boolean read GetUSERNAMEIsNull write SetUSERNAMEIsNull; - property LOGIN: String read GetLOGINValue write SetLOGINValue; - property LOGINIsNull: Boolean read GetLOGINIsNull write SetLOGINIsNull; - property PASS: String read GetPASSValue write SetPASSValue; - property PASSIsNull: Boolean read GetPASSIsNull write SetPASSIsNull; - property PASSEXPIRED: DateTime read GetPASSEXPIREDValue write SetPASSEXPIREDValue; - property PASSEXPIREDIsNull: Boolean read GetPASSEXPIREDIsNull write SetPASSEXPIREDIsNull; - property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; - property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; - property EMAIL: String read GetEMAILValue write SetEMAILValue; - property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull; - property USERDAYSSUN: Integer read GetUSERDAYSSUNValue write SetUSERDAYSSUNValue; - property USERDAYSSUNIsNull: Boolean read GetUSERDAYSSUNIsNull write SetUSERDAYSSUNIsNull; - property PRIVILEGED: Integer read GetPRIVILEGEDValue write SetPRIVILEGEDValue; - property PRIVILEGEDIsNull: Boolean read GetPRIVILEGEDIsNull write SetPRIVILEGEDIsNull; - property TIPO: String read GetTIPOValue write SetTIPOValue; - property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; - property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue; - property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull; - property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - end; - - { TUSUARIOSDataTableRules } - TUSUARIOSDataTableRules = class(TDADataTableRules, IUSUARIOS) - 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; - function GetUSERNAMEValue: String; virtual; - procedure SetUSERNAMEValue(const aValue: String); virtual; - function GetUSERNAMEIsNull: Boolean; virtual; - procedure SetUSERNAMEIsNull(const aValue: Boolean); virtual; - function GetLOGINValue: String; virtual; - procedure SetLOGINValue(const aValue: String); virtual; - function GetLOGINIsNull: Boolean; virtual; - procedure SetLOGINIsNull(const aValue: Boolean); virtual; - function GetPASSValue: String; virtual; - procedure SetPASSValue(const aValue: String); virtual; - function GetPASSIsNull: Boolean; virtual; - procedure SetPASSIsNull(const aValue: Boolean); virtual; - function GetPASSEXPIREDValue: DateTime; virtual; - procedure SetPASSEXPIREDValue(const aValue: DateTime); virtual; - function GetPASSEXPIREDIsNull: Boolean; virtual; - procedure SetPASSEXPIREDIsNull(const aValue: Boolean); virtual; - function GetBLOQUEADOValue: SmallInt; virtual; - procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; - function GetBLOQUEADOIsNull: Boolean; virtual; - procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual; - function GetEMAILValue: String; virtual; - procedure SetEMAILValue(const aValue: String); virtual; - function GetEMAILIsNull: Boolean; virtual; - procedure SetEMAILIsNull(const aValue: Boolean); virtual; - function GetUSERDAYSSUNValue: Integer; virtual; - procedure SetUSERDAYSSUNValue(const aValue: Integer); virtual; - function GetUSERDAYSSUNIsNull: Boolean; virtual; - procedure SetUSERDAYSSUNIsNull(const aValue: Boolean); virtual; - function GetPRIVILEGEDValue: Integer; virtual; - procedure SetPRIVILEGEDValue(const aValue: Integer); virtual; - function GetPRIVILEGEDIsNull: Boolean; virtual; - procedure SetPRIVILEGEDIsNull(const aValue: Boolean); virtual; - function GetTIPOValue: String; virtual; - procedure SetTIPOValue(const aValue: String); virtual; - function GetTIPOIsNull: Boolean; virtual; - procedure SetTIPOIsNull(const aValue: Boolean); virtual; - function GetID_PERFILValue: Integer; virtual; - procedure SetID_PERFILValue(const aValue: Integer); virtual; - function GetID_PERFILIsNull: Boolean; virtual; - procedure SetID_PERFILIsNull(const aValue: Boolean); virtual; - function GetCHECKSUMValue: String; virtual; - procedure SetCHECKSUMValue(const aValue: String); virtual; - function GetCHECKSUMIsNull: Boolean; virtual; - procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property USERNAME: String read GetUSERNAMEValue write SetUSERNAMEValue; - property USERNAMEIsNull: Boolean read GetUSERNAMEIsNull write SetUSERNAMEIsNull; - property LOGIN: String read GetLOGINValue write SetLOGINValue; - property LOGINIsNull: Boolean read GetLOGINIsNull write SetLOGINIsNull; - property PASS: String read GetPASSValue write SetPASSValue; - property PASSIsNull: Boolean read GetPASSIsNull write SetPASSIsNull; - property PASSEXPIRED: DateTime read GetPASSEXPIREDValue write SetPASSEXPIREDValue; - property PASSEXPIREDIsNull: Boolean read GetPASSEXPIREDIsNull write SetPASSEXPIREDIsNull; - property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; - property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; - property EMAIL: String read GetEMAILValue write SetEMAILValue; - property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull; - property USERDAYSSUN: Integer read GetUSERDAYSSUNValue write SetUSERDAYSSUNValue; - property USERDAYSSUNIsNull: Boolean read GetUSERDAYSSUNIsNull write SetUSERDAYSSUNIsNull; - property PRIVILEGED: Integer read GetPRIVILEGEDValue write SetPRIVILEGEDValue; - property PRIVILEGEDIsNull: Boolean read GetPRIVILEGEDIsNull write SetPRIVILEGEDIsNull; - property TIPO: String read GetTIPOValue write SetTIPOValue; - property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; - property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue; - property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull; - property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IUSUARIOS_EVENTOS } - IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable) - ['{AFFBC554-995C-4D6C-A88B-3A786E4905CD}'] - { Property getters and setters } - function GetAPLICACIONValue: String; - procedure SetAPLICACIONValue(const aValue: String); - function GetAPLICACIONIsNull: Boolean; - procedure SetAPLICACIONIsNull(const aValue: Boolean); - function GetID_USUARIOValue: Integer; - procedure SetID_USUARIOValue(const aValue: Integer); - function GetID_USUARIOIsNull: Boolean; - procedure SetID_USUARIOIsNull(const aValue: Boolean); - function GetFECHAValue: String; - procedure SetFECHAValue(const aValue: String); - function GetFECHAIsNull: Boolean; - procedure SetFECHAIsNull(const aValue: Boolean); - function GetHORAValue: String; - procedure SetHORAValue(const aValue: String); - function GetHORAIsNull: Boolean; - procedure SetHORAIsNull(const aValue: Boolean); - function GetFORMValue: String; - procedure SetFORMValue(const aValue: String); - function GetFORMIsNull: Boolean; - procedure SetFORMIsNull(const aValue: Boolean); - function GetTITULO_FORMValue: String; - procedure SetTITULO_FORMValue(const aValue: String); - function GetTITULO_FORMIsNull: Boolean; - procedure SetTITULO_FORMIsNull(const aValue: Boolean); - function GetEVENTOValue: String; - procedure SetEVENTOValue(const aValue: String); - function GetEVENTOIsNull: Boolean; - procedure SetEVENTOIsNull(const aValue: Boolean); - function GetNOTASValue: IROStrings; - function GetNOTASIsNull: Boolean; - procedure SetNOTASIsNull(const aValue: Boolean); - function GetTNAMEValue: String; - procedure SetTNAMEValue(const aValue: String); - function GetTNAMEIsNull: Boolean; - procedure SetTNAMEIsNull(const aValue: Boolean); - - - { Properties } - property APLICACION: String read GetAPLICACIONValue write SetAPLICACIONValue; - property APLICACIONIsNull: Boolean read GetAPLICACIONIsNull write SetAPLICACIONIsNull; - property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property FECHA: String read GetFECHAValue write SetFECHAValue; - property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; - property HORA: String read GetHORAValue write SetHORAValue; - property HORAIsNull: Boolean read GetHORAIsNull write SetHORAIsNull; - property FORM: String read GetFORMValue write SetFORMValue; - property FORMIsNull: Boolean read GetFORMIsNull write SetFORMIsNull; - property TITULO_FORM: String read GetTITULO_FORMValue write SetTITULO_FORMValue; - property TITULO_FORMIsNull: Boolean read GetTITULO_FORMIsNull write SetTITULO_FORMIsNull; - property EVENTO: String read GetEVENTOValue write SetEVENTOValue; - property EVENTOIsNull: Boolean read GetEVENTOIsNull write SetEVENTOIsNull; - property NOTAS: IROStrings read GetNOTASValue; - property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; - property TNAME: String read GetTNAMEValue write SetTNAMEValue; - property TNAMEIsNull: Boolean read GetTNAMEIsNull write SetTNAMEIsNull; - end; - - { TUSUARIOS_EVENTOSDataTableRules } - TUSUARIOS_EVENTOSDataTableRules = class(TDADataTableRules, IUSUARIOS_EVENTOS) - private - f_NOTAS: IROStrings; - procedure NOTAS_OnChange(Sender: TObject); - protected - { Property getters and setters } - function GetAPLICACIONValue: String; virtual; - procedure SetAPLICACIONValue(const aValue: String); virtual; - function GetAPLICACIONIsNull: Boolean; virtual; - procedure SetAPLICACIONIsNull(const aValue: Boolean); virtual; - function GetID_USUARIOValue: Integer; virtual; - procedure SetID_USUARIOValue(const aValue: Integer); virtual; - function GetID_USUARIOIsNull: Boolean; virtual; - procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual; - function GetFECHAValue: String; virtual; - procedure SetFECHAValue(const aValue: String); virtual; - function GetFECHAIsNull: Boolean; virtual; - procedure SetFECHAIsNull(const aValue: Boolean); virtual; - function GetHORAValue: String; virtual; - procedure SetHORAValue(const aValue: String); virtual; - function GetHORAIsNull: Boolean; virtual; - procedure SetHORAIsNull(const aValue: Boolean); virtual; - function GetFORMValue: String; virtual; - procedure SetFORMValue(const aValue: String); virtual; - function GetFORMIsNull: Boolean; virtual; - procedure SetFORMIsNull(const aValue: Boolean); virtual; - function GetTITULO_FORMValue: String; virtual; - procedure SetTITULO_FORMValue(const aValue: String); virtual; - function GetTITULO_FORMIsNull: Boolean; virtual; - procedure SetTITULO_FORMIsNull(const aValue: Boolean); virtual; - function GetEVENTOValue: String; virtual; - procedure SetEVENTOValue(const aValue: String); virtual; - function GetEVENTOIsNull: Boolean; virtual; - procedure SetEVENTOIsNull(const aValue: Boolean); virtual; - function GetNOTASValue: IROStrings; virtual; - function GetNOTASIsNull: Boolean; virtual; - procedure SetNOTASIsNull(const aValue: Boolean); virtual; - function GetTNAMEValue: String; virtual; - procedure SetTNAMEValue(const aValue: String); virtual; - function GetTNAMEIsNull: Boolean; virtual; - procedure SetTNAMEIsNull(const aValue: Boolean); virtual; - - { Properties } - property APLICACION: String read GetAPLICACIONValue write SetAPLICACIONValue; - property APLICACIONIsNull: Boolean read GetAPLICACIONIsNull write SetAPLICACIONIsNull; - property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property FECHA: String read GetFECHAValue write SetFECHAValue; - property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; - property HORA: String read GetHORAValue write SetHORAValue; - property HORAIsNull: Boolean read GetHORAIsNull write SetHORAIsNull; - property FORM: String read GetFORMValue write SetFORMValue; - property FORMIsNull: Boolean read GetFORMIsNull write SetFORMIsNull; - property TITULO_FORM: String read GetTITULO_FORMValue write SetTITULO_FORMValue; - property TITULO_FORMIsNull: Boolean read GetTITULO_FORMIsNull write SetTITULO_FORMIsNull; - property EVENTO: String read GetEVENTOValue write SetEVENTOValue; - property EVENTOIsNull: Boolean read GetEVENTOIsNull write SetEVENTOIsNull; - property NOTAS: IROStrings read GetNOTASValue; - property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; - property TNAME: String read GetTNAMEValue write SetTNAMEValue; - property TNAMEIsNull: Boolean read GetTNAMEIsNull write SetTNAMEIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IUSUARIOS_LOGON } - IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable) - ['{721BFDBE-77B1-4E34-8E49-D2782E2939A1}'] - { Property getters and setters } - function GetLOGONIDValue: String; - procedure SetLOGONIDValue(const aValue: String); - function GetLOGONIDIsNull: Boolean; - procedure SetLOGONIDIsNull(const aValue: Boolean); - function GetID_USUARIOValue: Integer; - procedure SetID_USUARIOValue(const aValue: Integer); - function GetID_USUARIOIsNull: Boolean; - procedure SetID_USUARIOIsNull(const aValue: Boolean); - function GetAPLICACIONValue: String; - procedure SetAPLICACIONValue(const aValue: String); - function GetAPLICACIONIsNull: Boolean; - procedure SetAPLICACIONIsNull(const aValue: Boolean); - function GetEQUIPOValue: String; - procedure SetEQUIPOValue(const aValue: String); - function GetEQUIPOIsNull: Boolean; - procedure SetEQUIPOIsNull(const aValue: Boolean); - function GetDATAValue: String; - procedure SetDATAValue(const aValue: String); - function GetDATAIsNull: Boolean; - procedure SetDATAIsNull(const aValue: Boolean); - - - { Properties } - property LOGONID: String read GetLOGONIDValue write SetLOGONIDValue; - property LOGONIDIsNull: Boolean read GetLOGONIDIsNull write SetLOGONIDIsNull; - property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property APLICACION: String read GetAPLICACIONValue write SetAPLICACIONValue; - property APLICACIONIsNull: Boolean read GetAPLICACIONIsNull write SetAPLICACIONIsNull; - property EQUIPO: String read GetEQUIPOValue write SetEQUIPOValue; - property EQUIPOIsNull: Boolean read GetEQUIPOIsNull write SetEQUIPOIsNull; - property DATA: String read GetDATAValue write SetDATAValue; - property DATAIsNull: Boolean read GetDATAIsNull write SetDATAIsNull; - end; - - { TUSUARIOS_LOGONDataTableRules } - TUSUARIOS_LOGONDataTableRules = class(TDADataTableRules, IUSUARIOS_LOGON) - private - protected - { Property getters and setters } - function GetLOGONIDValue: String; virtual; - procedure SetLOGONIDValue(const aValue: String); virtual; - function GetLOGONIDIsNull: Boolean; virtual; - procedure SetLOGONIDIsNull(const aValue: Boolean); virtual; - function GetID_USUARIOValue: Integer; virtual; - procedure SetID_USUARIOValue(const aValue: Integer); virtual; - function GetID_USUARIOIsNull: Boolean; virtual; - procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual; - function GetAPLICACIONValue: String; virtual; - procedure SetAPLICACIONValue(const aValue: String); virtual; - function GetAPLICACIONIsNull: Boolean; virtual; - procedure SetAPLICACIONIsNull(const aValue: Boolean); virtual; - function GetEQUIPOValue: String; virtual; - procedure SetEQUIPOValue(const aValue: String); virtual; - function GetEQUIPOIsNull: Boolean; virtual; - procedure SetEQUIPOIsNull(const aValue: Boolean); virtual; - function GetDATAValue: String; virtual; - procedure SetDATAValue(const aValue: String); virtual; - function GetDATAIsNull: Boolean; virtual; - procedure SetDATAIsNull(const aValue: Boolean); virtual; - - { Properties } - property LOGONID: String read GetLOGONIDValue write SetLOGONIDValue; - property LOGONIDIsNull: Boolean read GetLOGONIDIsNull write SetLOGONIDIsNull; - property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property APLICACION: String read GetAPLICACIONValue write SetAPLICACIONValue; - property APLICACIONIsNull: Boolean read GetAPLICACIONIsNull write SetAPLICACIONIsNull; - property EQUIPO: String read GetEQUIPOValue write SetEQUIPOValue; - property EQUIPOIsNull: Boolean read GetEQUIPOIsNull write SetEQUIPOIsNull; - property DATA: String read GetDATAValue write SetDATAValue; - property DATAIsNull: Boolean read GetDATAIsNull write SetDATAIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IPERMISOS } - IPERMISOS = interface(IDAStronglyTypedDataTable) - ['{E369AE58-C4F5-476F-8D81-1C0440F6A362}'] - { Property getters and setters } - function GetID_USUARIOValue: Integer; - procedure SetID_USUARIOValue(const aValue: Integer); - function GetID_USUARIOIsNull: Boolean; - procedure SetID_USUARIOIsNull(const aValue: Boolean); - function GetMODULOValue: String; - procedure SetMODULOValue(const aValue: String); - function GetMODULOIsNull: Boolean; - procedure SetMODULOIsNull(const aValue: Boolean); - function GetNOMBRECOMPValue: String; - procedure SetNOMBRECOMPValue(const aValue: String); - function GetNOMBRECOMPIsNull: Boolean; - procedure SetNOMBRECOMPIsNull(const aValue: Boolean); - function GetCHECKSUMValue: String; - procedure SetCHECKSUMValue(const aValue: String); - function GetCHECKSUMIsNull: Boolean; - procedure SetCHECKSUMIsNull(const aValue: Boolean); - - - { Properties } - property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property MODULO: String read GetMODULOValue write SetMODULOValue; - property MODULOIsNull: Boolean read GetMODULOIsNull write SetMODULOIsNull; - property NOMBRECOMP: String read GetNOMBRECOMPValue write SetNOMBRECOMPValue; - property NOMBRECOMPIsNull: Boolean read GetNOMBRECOMPIsNull write SetNOMBRECOMPIsNull; - property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - end; - - { TPERMISOSDataTableRules } - TPERMISOSDataTableRules = class(TDADataTableRules, IPERMISOS) - private - protected - { Property getters and setters } - function GetID_USUARIOValue: Integer; virtual; - procedure SetID_USUARIOValue(const aValue: Integer); virtual; - function GetID_USUARIOIsNull: Boolean; virtual; - procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual; - function GetMODULOValue: String; virtual; - procedure SetMODULOValue(const aValue: String); virtual; - function GetMODULOIsNull: Boolean; virtual; - procedure SetMODULOIsNull(const aValue: Boolean); virtual; - function GetNOMBRECOMPValue: String; virtual; - procedure SetNOMBRECOMPValue(const aValue: String); virtual; - function GetNOMBRECOMPIsNull: Boolean; virtual; - procedure SetNOMBRECOMPIsNull(const aValue: Boolean); virtual; - function GetCHECKSUMValue: String; virtual; - procedure SetCHECKSUMValue(const aValue: String); virtual; - function GetCHECKSUMIsNull: Boolean; virtual; - procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property MODULO: String read GetMODULOValue write SetMODULOValue; - property MODULOIsNull: Boolean read GetMODULOIsNull write SetMODULOIsNull; - property NOMBRECOMP: String read GetNOMBRECOMPValue write SetNOMBRECOMPValue; - property NOMBRECOMPIsNull: Boolean read GetNOMBRECOMPIsNull write SetNOMBRECOMPIsNull; - property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IPERMISOSEX } - IPERMISOSEX = interface(IDAStronglyTypedDataTable) - ['{956C4144-986B-4043-8DA5-81667770CD85}'] - { Property getters and setters } - function GetID_USUARIOValue: Integer; - procedure SetID_USUARIOValue(const aValue: Integer); - function GetID_USUARIOIsNull: Boolean; - procedure SetID_USUARIOIsNull(const aValue: Boolean); - function GetMODULOValue: String; - procedure SetMODULOValue(const aValue: String); - function GetMODULOIsNull: Boolean; - procedure SetMODULOIsNull(const aValue: Boolean); - function GetNOMBRECOMPValue: String; - procedure SetNOMBRECOMPValue(const aValue: String); - function GetNOMBRECOMPIsNull: Boolean; - procedure SetNOMBRECOMPIsNull(const aValue: Boolean); - function GetNOMBREFORMValue: String; - procedure SetNOMBREFORMValue(const aValue: String); - function GetNOMBREFORMIsNull: Boolean; - procedure SetNOMBREFORMIsNull(const aValue: Boolean); - function GetCHECKSUMValue: String; - procedure SetCHECKSUMValue(const aValue: String); - function GetCHECKSUMIsNull: Boolean; - procedure SetCHECKSUMIsNull(const aValue: Boolean); - - - { Properties } - property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property MODULO: String read GetMODULOValue write SetMODULOValue; - property MODULOIsNull: Boolean read GetMODULOIsNull write SetMODULOIsNull; - property NOMBRECOMP: String read GetNOMBRECOMPValue write SetNOMBRECOMPValue; - property NOMBRECOMPIsNull: Boolean read GetNOMBRECOMPIsNull write SetNOMBRECOMPIsNull; - property NOMBREFORM: String read GetNOMBREFORMValue write SetNOMBREFORMValue; - property NOMBREFORMIsNull: Boolean read GetNOMBREFORMIsNull write SetNOMBREFORMIsNull; - property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - end; - - { TPERMISOSEXDataTableRules } - TPERMISOSEXDataTableRules = class(TDADataTableRules, IPERMISOSEX) - private - protected - { Property getters and setters } - function GetID_USUARIOValue: Integer; virtual; - procedure SetID_USUARIOValue(const aValue: Integer); virtual; - function GetID_USUARIOIsNull: Boolean; virtual; - procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual; - function GetMODULOValue: String; virtual; - procedure SetMODULOValue(const aValue: String); virtual; - function GetMODULOIsNull: Boolean; virtual; - procedure SetMODULOIsNull(const aValue: Boolean); virtual; - function GetNOMBRECOMPValue: String; virtual; - procedure SetNOMBRECOMPValue(const aValue: String); virtual; - function GetNOMBRECOMPIsNull: Boolean; virtual; - procedure SetNOMBRECOMPIsNull(const aValue: Boolean); virtual; - function GetNOMBREFORMValue: String; virtual; - procedure SetNOMBREFORMValue(const aValue: String); virtual; - function GetNOMBREFORMIsNull: Boolean; virtual; - procedure SetNOMBREFORMIsNull(const aValue: Boolean); virtual; - function GetCHECKSUMValue: String; virtual; - procedure SetCHECKSUMValue(const aValue: String); virtual; - function GetCHECKSUMIsNull: Boolean; virtual; - procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property MODULO: String read GetMODULOValue write SetMODULOValue; - property MODULOIsNull: Boolean read GetMODULOIsNull write SetMODULOIsNull; - property NOMBRECOMP: String read GetNOMBRECOMPValue write SetNOMBRECOMPValue; - property NOMBRECOMPIsNull: Boolean read GetNOMBRECOMPIsNull write SetNOMBRECOMPIsNull; - property NOMBREFORM: String read GetNOMBREFORMValue write SetNOMBREFORMValue; - property NOMBREFORMIsNull: Boolean read GetNOMBREFORMIsNull write SetNOMBREFORMIsNull; - property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants, uROBinaryHelpers; - -{ TUSUARIOSDataTableRules } -constructor TUSUARIOSDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TUSUARIOSDataTableRules.Destroy; -begin - inherited; -end; - -function TUSUARIOSDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_USUARIOSID].AsInteger; -end; - -procedure TUSUARIOSDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_USUARIOSID].AsInteger := aValue; -end; - -function TUSUARIOSDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSID].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSID].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetUSERNAMEValue: String; -begin - result := DataTable.Fields[idx_USUARIOSUSERNAME].AsString; -end; - -procedure TUSUARIOSDataTableRules.SetUSERNAMEValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOSUSERNAME].AsString := aValue; -end; - -function TUSUARIOSDataTableRules.GetUSERNAMEIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSUSERNAME].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetUSERNAMEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSUSERNAME].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetLOGINValue: String; -begin - result := DataTable.Fields[idx_USUARIOSLOGIN].AsString; -end; - -procedure TUSUARIOSDataTableRules.SetLOGINValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOSLOGIN].AsString := aValue; -end; - -function TUSUARIOSDataTableRules.GetLOGINIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSLOGIN].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetLOGINIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSLOGIN].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetPASSValue: String; -begin - result := DataTable.Fields[idx_USUARIOSPASS].AsString; -end; - -procedure TUSUARIOSDataTableRules.SetPASSValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOSPASS].AsString := aValue; -end; - -function TUSUARIOSDataTableRules.GetPASSIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSPASS].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetPASSIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSPASS].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetPASSEXPIREDValue: DateTime; -begin - result := DataTable.Fields[idx_USUARIOSPASSEXPIRED].AsDateTime; -end; - -procedure TUSUARIOSDataTableRules.SetPASSEXPIREDValue(const aValue: DateTime); -begin - DataTable.Fields[idx_USUARIOSPASSEXPIRED].AsDateTime := aValue; -end; - -function TUSUARIOSDataTableRules.GetPASSEXPIREDIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSPASSEXPIRED].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetPASSEXPIREDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSPASSEXPIRED].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetBLOQUEADOValue: SmallInt; -begin - result := DataTable.Fields[idx_USUARIOSBLOQUEADO].AsSmallInt; -end; - -procedure TUSUARIOSDataTableRules.SetBLOQUEADOValue(const aValue: SmallInt); -begin - DataTable.Fields[idx_USUARIOSBLOQUEADO].AsSmallInt := aValue; -end; - -function TUSUARIOSDataTableRules.GetBLOQUEADOIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSBLOQUEADO].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetBLOQUEADOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSBLOQUEADO].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetEMAILValue: String; -begin - result := DataTable.Fields[idx_USUARIOSEMAIL].AsString; -end; - -procedure TUSUARIOSDataTableRules.SetEMAILValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOSEMAIL].AsString := aValue; -end; - -function TUSUARIOSDataTableRules.GetEMAILIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSEMAIL].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetEMAILIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSEMAIL].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetUSERDAYSSUNValue: Integer; -begin - result := DataTable.Fields[idx_USUARIOSUSERDAYSSUN].AsInteger; -end; - -procedure TUSUARIOSDataTableRules.SetUSERDAYSSUNValue(const aValue: Integer); -begin - DataTable.Fields[idx_USUARIOSUSERDAYSSUN].AsInteger := aValue; -end; - -function TUSUARIOSDataTableRules.GetUSERDAYSSUNIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSUSERDAYSSUN].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetUSERDAYSSUNIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSUSERDAYSSUN].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetPRIVILEGEDValue: Integer; -begin - result := DataTable.Fields[idx_USUARIOSPRIVILEGED].AsInteger; -end; - -procedure TUSUARIOSDataTableRules.SetPRIVILEGEDValue(const aValue: Integer); -begin - DataTable.Fields[idx_USUARIOSPRIVILEGED].AsInteger := aValue; -end; - -function TUSUARIOSDataTableRules.GetPRIVILEGEDIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSPRIVILEGED].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetPRIVILEGEDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSPRIVILEGED].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetTIPOValue: String; -begin - result := DataTable.Fields[idx_USUARIOSTIPO].AsString; -end; - -procedure TUSUARIOSDataTableRules.SetTIPOValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOSTIPO].AsString := aValue; -end; - -function TUSUARIOSDataTableRules.GetTIPOIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSTIPO].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetTIPOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSTIPO].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetID_PERFILValue: Integer; -begin - result := DataTable.Fields[idx_USUARIOSID_PERFIL].AsInteger; -end; - -procedure TUSUARIOSDataTableRules.SetID_PERFILValue(const aValue: Integer); -begin - DataTable.Fields[idx_USUARIOSID_PERFIL].AsInteger := aValue; -end; - -function TUSUARIOSDataTableRules.GetID_PERFILIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSID_PERFIL].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetID_PERFILIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSID_PERFIL].AsVariant := Null; -end; - -function TUSUARIOSDataTableRules.GetCHECKSUMValue: String; -begin - result := DataTable.Fields[idx_USUARIOSCHECKSUM].AsString; -end; - -procedure TUSUARIOSDataTableRules.SetCHECKSUMValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOSCHECKSUM].AsString := aValue; -end; - -function TUSUARIOSDataTableRules.GetCHECKSUMIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOSCHECKSUM].IsNull; -end; - -procedure TUSUARIOSDataTableRules.SetCHECKSUMIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOSCHECKSUM].AsVariant := Null; -end; - - -{ TUSUARIOS_EVENTOSDataTableRules } -constructor TUSUARIOS_EVENTOSDataTableRules.Create(aDataTable: TDADataTable); -var - StrList: TStringList; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := NOTAS_OnChange; - f_NOTAS := NewROStrings(StrList,True); -end; - -destructor TUSUARIOS_EVENTOSDataTableRules.Destroy; -begin - inherited; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.NOTAS_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_USUARIOS_EVENTOSNOTAS].AsVariant := TStringList(Sender).Text; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetAPLICACIONValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSAPLICACION].AsString; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetAPLICACIONValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_EVENTOSAPLICACION].AsString := aValue; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetAPLICACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSAPLICACION].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetAPLICACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSAPLICACION].AsVariant := Null; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetID_USUARIOValue: Integer; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSID_USUARIO].AsInteger; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetID_USUARIOValue(const aValue: Integer); -begin - DataTable.Fields[idx_USUARIOS_EVENTOSID_USUARIO].AsInteger := aValue; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetID_USUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSID_USUARIO].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetID_USUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSID_USUARIO].AsVariant := Null; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetFECHAValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSFECHA].AsString; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetFECHAValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_EVENTOSFECHA].AsString := aValue; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetFECHAIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSFECHA].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetFECHAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSFECHA].AsVariant := Null; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetHORAValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSHORA].AsString; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetHORAValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_EVENTOSHORA].AsString := aValue; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetHORAIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSHORA].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetHORAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSHORA].AsVariant := Null; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetFORMValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSFORM].AsString; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetFORMValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_EVENTOSFORM].AsString := aValue; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetFORMIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSFORM].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetFORMIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSFORM].AsVariant := Null; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetTITULO_FORMValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSTITULO_FORM].AsString; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetTITULO_FORMValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_EVENTOSTITULO_FORM].AsString := aValue; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetTITULO_FORMIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSTITULO_FORM].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetTITULO_FORMIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSTITULO_FORM].AsVariant := Null; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetEVENTOValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSEVENTO].AsString; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetEVENTOValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_EVENTOSEVENTO].AsString := aValue; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetEVENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSEVENTO].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetEVENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSEVENTO].AsVariant := Null; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetNOTASValue: IROStrings; -begin - result := f_NOTAS; - result.Text := DataTable.Fields[idx_USUARIOS_EVENTOSNOTAS].AsString; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetNOTASIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSNOTAS].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetNOTASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSNOTAS].AsVariant := Null; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetTNAMEValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSTNAME].AsString; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetTNAMEValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_EVENTOSTNAME].AsString := aValue; -end; - -function TUSUARIOS_EVENTOSDataTableRules.GetTNAMEIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_EVENTOSTNAME].IsNull; -end; - -procedure TUSUARIOS_EVENTOSDataTableRules.SetTNAMEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_EVENTOSTNAME].AsVariant := Null; -end; - - -{ TUSUARIOS_LOGONDataTableRules } -constructor TUSUARIOS_LOGONDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TUSUARIOS_LOGONDataTableRules.Destroy; -begin - inherited; -end; - -function TUSUARIOS_LOGONDataTableRules.GetLOGONIDValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONLOGONID].AsString; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetLOGONIDValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_LOGONLOGONID].AsString := aValue; -end; - -function TUSUARIOS_LOGONDataTableRules.GetLOGONIDIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONLOGONID].IsNull; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetLOGONIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_LOGONLOGONID].AsVariant := Null; -end; - -function TUSUARIOS_LOGONDataTableRules.GetID_USUARIOValue: Integer; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONID_USUARIO].AsInteger; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetID_USUARIOValue(const aValue: Integer); -begin - DataTable.Fields[idx_USUARIOS_LOGONID_USUARIO].AsInteger := aValue; -end; - -function TUSUARIOS_LOGONDataTableRules.GetID_USUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONID_USUARIO].IsNull; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetID_USUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_LOGONID_USUARIO].AsVariant := Null; -end; - -function TUSUARIOS_LOGONDataTableRules.GetAPLICACIONValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONAPLICACION].AsString; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetAPLICACIONValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_LOGONAPLICACION].AsString := aValue; -end; - -function TUSUARIOS_LOGONDataTableRules.GetAPLICACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONAPLICACION].IsNull; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetAPLICACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_LOGONAPLICACION].AsVariant := Null; -end; - -function TUSUARIOS_LOGONDataTableRules.GetEQUIPOValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONEQUIPO].AsString; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetEQUIPOValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_LOGONEQUIPO].AsString := aValue; -end; - -function TUSUARIOS_LOGONDataTableRules.GetEQUIPOIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONEQUIPO].IsNull; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetEQUIPOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_LOGONEQUIPO].AsVariant := Null; -end; - -function TUSUARIOS_LOGONDataTableRules.GetDATAValue: String; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONDATA].AsString; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetDATAValue(const aValue: String); -begin - DataTable.Fields[idx_USUARIOS_LOGONDATA].AsString := aValue; -end; - -function TUSUARIOS_LOGONDataTableRules.GetDATAIsNull: boolean; -begin - result := DataTable.Fields[idx_USUARIOS_LOGONDATA].IsNull; -end; - -procedure TUSUARIOS_LOGONDataTableRules.SetDATAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_USUARIOS_LOGONDATA].AsVariant := Null; -end; - - -{ TPERMISOSDataTableRules } -constructor TPERMISOSDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TPERMISOSDataTableRules.Destroy; -begin - inherited; -end; - -function TPERMISOSDataTableRules.GetID_USUARIOValue: Integer; -begin - result := DataTable.Fields[idx_PERMISOSID_USUARIO].AsInteger; -end; - -procedure TPERMISOSDataTableRules.SetID_USUARIOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PERMISOSID_USUARIO].AsInteger := aValue; -end; - -function TPERMISOSDataTableRules.GetID_USUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSID_USUARIO].IsNull; -end; - -procedure TPERMISOSDataTableRules.SetID_USUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSID_USUARIO].AsVariant := Null; -end; - -function TPERMISOSDataTableRules.GetMODULOValue: String; -begin - result := DataTable.Fields[idx_PERMISOSMODULO].AsString; -end; - -procedure TPERMISOSDataTableRules.SetMODULOValue(const aValue: String); -begin - DataTable.Fields[idx_PERMISOSMODULO].AsString := aValue; -end; - -function TPERMISOSDataTableRules.GetMODULOIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSMODULO].IsNull; -end; - -procedure TPERMISOSDataTableRules.SetMODULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSMODULO].AsVariant := Null; -end; - -function TPERMISOSDataTableRules.GetNOMBRECOMPValue: String; -begin - result := DataTable.Fields[idx_PERMISOSNOMBRECOMP].AsString; -end; - -procedure TPERMISOSDataTableRules.SetNOMBRECOMPValue(const aValue: String); -begin - DataTable.Fields[idx_PERMISOSNOMBRECOMP].AsString := aValue; -end; - -function TPERMISOSDataTableRules.GetNOMBRECOMPIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSNOMBRECOMP].IsNull; -end; - -procedure TPERMISOSDataTableRules.SetNOMBRECOMPIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSNOMBRECOMP].AsVariant := Null; -end; - -function TPERMISOSDataTableRules.GetCHECKSUMValue: String; -begin - result := DataTable.Fields[idx_PERMISOSCHECKSUM].AsString; -end; - -procedure TPERMISOSDataTableRules.SetCHECKSUMValue(const aValue: String); -begin - DataTable.Fields[idx_PERMISOSCHECKSUM].AsString := aValue; -end; - -function TPERMISOSDataTableRules.GetCHECKSUMIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSCHECKSUM].IsNull; -end; - -procedure TPERMISOSDataTableRules.SetCHECKSUMIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSCHECKSUM].AsVariant := Null; -end; - - -{ TPERMISOSEXDataTableRules } -constructor TPERMISOSEXDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TPERMISOSEXDataTableRules.Destroy; -begin - inherited; -end; - -function TPERMISOSEXDataTableRules.GetID_USUARIOValue: Integer; -begin - result := DataTable.Fields[idx_PERMISOSEXID_USUARIO].AsInteger; -end; - -procedure TPERMISOSEXDataTableRules.SetID_USUARIOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PERMISOSEXID_USUARIO].AsInteger := aValue; -end; - -function TPERMISOSEXDataTableRules.GetID_USUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSEXID_USUARIO].IsNull; -end; - -procedure TPERMISOSEXDataTableRules.SetID_USUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSEXID_USUARIO].AsVariant := Null; -end; - -function TPERMISOSEXDataTableRules.GetMODULOValue: String; -begin - result := DataTable.Fields[idx_PERMISOSEXMODULO].AsString; -end; - -procedure TPERMISOSEXDataTableRules.SetMODULOValue(const aValue: String); -begin - DataTable.Fields[idx_PERMISOSEXMODULO].AsString := aValue; -end; - -function TPERMISOSEXDataTableRules.GetMODULOIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSEXMODULO].IsNull; -end; - -procedure TPERMISOSEXDataTableRules.SetMODULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSEXMODULO].AsVariant := Null; -end; - -function TPERMISOSEXDataTableRules.GetNOMBRECOMPValue: String; -begin - result := DataTable.Fields[idx_PERMISOSEXNOMBRECOMP].AsString; -end; - -procedure TPERMISOSEXDataTableRules.SetNOMBRECOMPValue(const aValue: String); -begin - DataTable.Fields[idx_PERMISOSEXNOMBRECOMP].AsString := aValue; -end; - -function TPERMISOSEXDataTableRules.GetNOMBRECOMPIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSEXNOMBRECOMP].IsNull; -end; - -procedure TPERMISOSEXDataTableRules.SetNOMBRECOMPIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSEXNOMBRECOMP].AsVariant := Null; -end; - -function TPERMISOSEXDataTableRules.GetNOMBREFORMValue: String; -begin - result := DataTable.Fields[idx_PERMISOSEXNOMBREFORM].AsString; -end; - -procedure TPERMISOSEXDataTableRules.SetNOMBREFORMValue(const aValue: String); -begin - DataTable.Fields[idx_PERMISOSEXNOMBREFORM].AsString := aValue; -end; - -function TPERMISOSEXDataTableRules.GetNOMBREFORMIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSEXNOMBREFORM].IsNull; -end; - -procedure TPERMISOSEXDataTableRules.SetNOMBREFORMIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSEXNOMBREFORM].AsVariant := Null; -end; - -function TPERMISOSEXDataTableRules.GetCHECKSUMValue: String; -begin - result := DataTable.Fields[idx_PERMISOSEXCHECKSUM].AsString; -end; - -procedure TPERMISOSEXDataTableRules.SetCHECKSUMValue(const aValue: String); -begin - DataTable.Fields[idx_PERMISOSEXCHECKSUM].AsString := aValue; -end; - -function TPERMISOSEXDataTableRules.GetCHECKSUMIsNull: boolean; -begin - result := DataTable.Fields[idx_PERMISOSEXCHECKSUM].IsNull; -end; - -procedure TPERMISOSEXDataTableRules.SetCHECKSUMIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PERMISOSEXCHECKSUM].AsVariant := Null; -end; - - -initialization - RegisterDataTableRules(RID_USUARIOS, TUSUARIOSDataTableRules); - RegisterDataTableRules(RID_USUARIOS_EVENTOS, TUSUARIOS_EVENTOSDataTableRules); - RegisterDataTableRules(RID_USUARIOS_LOGON, TUSUARIOS_LOGONDataTableRules); - RegisterDataTableRules(RID_PERMISOS, TPERMISOSDataTableRules); - RegisterDataTableRules(RID_PERMISOSEX, TPERMISOSEXDataTableRules); - -end. diff --git a/Source/Modulos/Usuarios/Model/schUsuariosServer_Intf.dcu b/Source/Modulos/Usuarios/Model/schUsuariosServer_Intf.dcu deleted file mode 100644 index ea264ae1..00000000 Binary files a/Source/Modulos/Usuarios/Model/schUsuariosServer_Intf.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Model/schUsuariosServer_Intf.pas b/Source/Modulos/Usuarios/Model/schUsuariosServer_Intf.pas deleted file mode 100644 index 36ac6e3c..00000000 --- a/Source/Modulos/Usuarios/Model/schUsuariosServer_Intf.pas +++ /dev/null @@ -1,1715 +0,0 @@ -unit schUsuariosServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schUsuariosClient_Intf; - -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_USUARIOSDelta = '{46E1A07E-12D3-4FEB-B692-A849C5467B93}'; - RID_USUARIOS_EVENTOSDelta = '{53E03F8A-166F-4A18-85B9-BBBEB2D60052}'; - RID_USUARIOS_LOGONDelta = '{0EC1E706-6226-449C-885B-6C6AC5187088}'; - RID_PERMISOSDelta = '{A8CCC0BF-DEB4-439F-B7C4-3A25F5210A5E}'; - RID_PERMISOSEXDelta = '{78ACF719-CCD6-47F3-AA01-D580F121F7A8}'; - -type - { IUSUARIOSDelta } - IUSUARIOSDelta = interface(IUSUARIOS) - ['{46E1A07E-12D3-4FEB-B692-A849C5467B93}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldUSERNAMEValue : String; - function GetOldLOGINValue : String; - function GetOldPASSValue : String; - function GetOldPASSEXPIREDValue : DateTime; - function GetOldBLOQUEADOValue : SmallInt; - function GetOldEMAILValue : String; - function GetOldUSERDAYSSUNValue : Integer; - function GetOldPRIVILEGEDValue : Integer; - function GetOldTIPOValue : String; - function GetOldID_PERFILValue : Integer; - function GetOldCHECKSUMValue : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldUSERNAME : String read GetOldUSERNAMEValue; - property OldLOGIN : String read GetOldLOGINValue; - property OldPASS : String read GetOldPASSValue; - property OldPASSEXPIRED : DateTime read GetOldPASSEXPIREDValue; - property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; - property OldEMAIL : String read GetOldEMAILValue; - property OldUSERDAYSSUN : Integer read GetOldUSERDAYSSUNValue; - property OldPRIVILEGED : Integer read GetOldPRIVILEGEDValue; - property OldTIPO : String read GetOldTIPOValue; - property OldID_PERFIL : Integer read GetOldID_PERFILValue; - property OldCHECKSUM : String read GetOldCHECKSUMValue; - end; - - { TUSUARIOSBusinessProcessorRules } - TUSUARIOSBusinessProcessorRules = class(TDABusinessProcessorRules, IUSUARIOS, IUSUARIOSDelta) - 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; - function GetUSERNAMEValue: String; virtual; - function GetUSERNAMEIsNull: Boolean; virtual; - function GetOldUSERNAMEValue: String; virtual; - function GetOldUSERNAMEIsNull: Boolean; virtual; - procedure SetUSERNAMEValue(const aValue: String); virtual; - procedure SetUSERNAMEIsNull(const aValue: Boolean); virtual; - function GetLOGINValue: String; virtual; - function GetLOGINIsNull: Boolean; virtual; - function GetOldLOGINValue: String; virtual; - function GetOldLOGINIsNull: Boolean; virtual; - procedure SetLOGINValue(const aValue: String); virtual; - procedure SetLOGINIsNull(const aValue: Boolean); virtual; - function GetPASSValue: String; virtual; - function GetPASSIsNull: Boolean; virtual; - function GetOldPASSValue: String; virtual; - function GetOldPASSIsNull: Boolean; virtual; - procedure SetPASSValue(const aValue: String); virtual; - procedure SetPASSIsNull(const aValue: Boolean); virtual; - function GetPASSEXPIREDValue: DateTime; virtual; - function GetPASSEXPIREDIsNull: Boolean; virtual; - function GetOldPASSEXPIREDValue: DateTime; virtual; - function GetOldPASSEXPIREDIsNull: Boolean; virtual; - procedure SetPASSEXPIREDValue(const aValue: DateTime); virtual; - procedure SetPASSEXPIREDIsNull(const aValue: Boolean); virtual; - function GetBLOQUEADOValue: SmallInt; virtual; - function GetBLOQUEADOIsNull: Boolean; virtual; - function GetOldBLOQUEADOValue: SmallInt; virtual; - function GetOldBLOQUEADOIsNull: Boolean; virtual; - procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; - procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual; - function GetEMAILValue: String; virtual; - function GetEMAILIsNull: Boolean; virtual; - function GetOldEMAILValue: String; virtual; - function GetOldEMAILIsNull: Boolean; virtual; - procedure SetEMAILValue(const aValue: String); virtual; - procedure SetEMAILIsNull(const aValue: Boolean); virtual; - function GetUSERDAYSSUNValue: Integer; virtual; - function GetUSERDAYSSUNIsNull: Boolean; virtual; - function GetOldUSERDAYSSUNValue: Integer; virtual; - function GetOldUSERDAYSSUNIsNull: Boolean; virtual; - procedure SetUSERDAYSSUNValue(const aValue: Integer); virtual; - procedure SetUSERDAYSSUNIsNull(const aValue: Boolean); virtual; - function GetPRIVILEGEDValue: Integer; virtual; - function GetPRIVILEGEDIsNull: Boolean; virtual; - function GetOldPRIVILEGEDValue: Integer; virtual; - function GetOldPRIVILEGEDIsNull: Boolean; virtual; - procedure SetPRIVILEGEDValue(const aValue: Integer); virtual; - procedure SetPRIVILEGEDIsNull(const aValue: Boolean); virtual; - function GetTIPOValue: String; virtual; - function GetTIPOIsNull: Boolean; virtual; - function GetOldTIPOValue: String; virtual; - function GetOldTIPOIsNull: Boolean; virtual; - procedure SetTIPOValue(const aValue: String); virtual; - procedure SetTIPOIsNull(const aValue: Boolean); virtual; - function GetID_PERFILValue: Integer; virtual; - function GetID_PERFILIsNull: Boolean; virtual; - function GetOldID_PERFILValue: Integer; virtual; - function GetOldID_PERFILIsNull: Boolean; virtual; - procedure SetID_PERFILValue(const aValue: Integer); virtual; - procedure SetID_PERFILIsNull(const aValue: Boolean); virtual; - function GetCHECKSUMValue: String; virtual; - function GetCHECKSUMIsNull: Boolean; virtual; - function GetOldCHECKSUMValue: String; virtual; - function GetOldCHECKSUMIsNull: Boolean; virtual; - procedure SetCHECKSUMValue(const aValue: String); virtual; - procedure SetCHECKSUMIsNull(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; - property USERNAME : String read GetUSERNAMEValue write SetUSERNAMEValue; - property USERNAMEIsNull : Boolean read GetUSERNAMEIsNull write SetUSERNAMEIsNull; - property OldUSERNAME : String read GetOldUSERNAMEValue; - property OldUSERNAMEIsNull : Boolean read GetOldUSERNAMEIsNull; - property LOGIN : String read GetLOGINValue write SetLOGINValue; - property LOGINIsNull : Boolean read GetLOGINIsNull write SetLOGINIsNull; - property OldLOGIN : String read GetOldLOGINValue; - property OldLOGINIsNull : Boolean read GetOldLOGINIsNull; - property PASS : String read GetPASSValue write SetPASSValue; - property PASSIsNull : Boolean read GetPASSIsNull write SetPASSIsNull; - property OldPASS : String read GetOldPASSValue; - property OldPASSIsNull : Boolean read GetOldPASSIsNull; - property PASSEXPIRED : DateTime read GetPASSEXPIREDValue write SetPASSEXPIREDValue; - property PASSEXPIREDIsNull : Boolean read GetPASSEXPIREDIsNull write SetPASSEXPIREDIsNull; - property OldPASSEXPIRED : DateTime read GetOldPASSEXPIREDValue; - property OldPASSEXPIREDIsNull : Boolean read GetOldPASSEXPIREDIsNull; - property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; - property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; - property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; - property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull; - property EMAIL : String read GetEMAILValue write SetEMAILValue; - property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull; - property OldEMAIL : String read GetOldEMAILValue; - property OldEMAILIsNull : Boolean read GetOldEMAILIsNull; - property USERDAYSSUN : Integer read GetUSERDAYSSUNValue write SetUSERDAYSSUNValue; - property USERDAYSSUNIsNull : Boolean read GetUSERDAYSSUNIsNull write SetUSERDAYSSUNIsNull; - property OldUSERDAYSSUN : Integer read GetOldUSERDAYSSUNValue; - property OldUSERDAYSSUNIsNull : Boolean read GetOldUSERDAYSSUNIsNull; - property PRIVILEGED : Integer read GetPRIVILEGEDValue write SetPRIVILEGEDValue; - property PRIVILEGEDIsNull : Boolean read GetPRIVILEGEDIsNull write SetPRIVILEGEDIsNull; - property OldPRIVILEGED : Integer read GetOldPRIVILEGEDValue; - property OldPRIVILEGEDIsNull : Boolean read GetOldPRIVILEGEDIsNull; - property TIPO : String read GetTIPOValue write SetTIPOValue; - property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; - property OldTIPO : String read GetOldTIPOValue; - property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; - property ID_PERFIL : Integer read GetID_PERFILValue write SetID_PERFILValue; - property ID_PERFILIsNull : Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull; - property OldID_PERFIL : Integer read GetOldID_PERFILValue; - property OldID_PERFILIsNull : Boolean read GetOldID_PERFILIsNull; - property CHECKSUM : String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull : Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - property OldCHECKSUM : String read GetOldCHECKSUMValue; - property OldCHECKSUMIsNull : Boolean read GetOldCHECKSUMIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IUSUARIOS_EVENTOSDelta } - IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS) - ['{53E03F8A-166F-4A18-85B9-BBBEB2D60052}'] - { Property getters and setters } - function GetOldAPLICACIONValue : String; - function GetOldID_USUARIOValue : Integer; - function GetOldFECHAValue : String; - function GetOldHORAValue : String; - function GetOldFORMValue : String; - function GetOldTITULO_FORMValue : String; - function GetOldEVENTOValue : String; - function GetOldNOTASValue : IROStrings; - function GetOldTNAMEValue : String; - - { Properties } - property OldAPLICACION : String read GetOldAPLICACIONValue; - property OldID_USUARIO : Integer read GetOldID_USUARIOValue; - property OldFECHA : String read GetOldFECHAValue; - property OldHORA : String read GetOldHORAValue; - property OldFORM : String read GetOldFORMValue; - property OldTITULO_FORM : String read GetOldTITULO_FORMValue; - property OldEVENTO : String read GetOldEVENTOValue; - property OldNOTAS : IROStrings read GetOldNOTASValue; - property OldTNAME : String read GetOldTNAMEValue; - end; - - { TUSUARIOS_EVENTOSBusinessProcessorRules } - TUSUARIOS_EVENTOSBusinessProcessorRules = class(TDABusinessProcessorRules, IUSUARIOS_EVENTOS, IUSUARIOS_EVENTOSDelta) - private - f_NOTAS: IROStrings; - procedure NOTAS_OnChange(Sender: TObject); - protected - { Property getters and setters } - function GetAPLICACIONValue: String; virtual; - function GetAPLICACIONIsNull: Boolean; virtual; - function GetOldAPLICACIONValue: String; virtual; - function GetOldAPLICACIONIsNull: Boolean; virtual; - procedure SetAPLICACIONValue(const aValue: String); virtual; - procedure SetAPLICACIONIsNull(const aValue: Boolean); virtual; - function GetID_USUARIOValue: Integer; virtual; - function GetID_USUARIOIsNull: Boolean; virtual; - function GetOldID_USUARIOValue: Integer; virtual; - function GetOldID_USUARIOIsNull: Boolean; virtual; - procedure SetID_USUARIOValue(const aValue: Integer); virtual; - procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual; - function GetFECHAValue: String; virtual; - function GetFECHAIsNull: Boolean; virtual; - function GetOldFECHAValue: String; virtual; - function GetOldFECHAIsNull: Boolean; virtual; - procedure SetFECHAValue(const aValue: String); virtual; - procedure SetFECHAIsNull(const aValue: Boolean); virtual; - function GetHORAValue: String; virtual; - function GetHORAIsNull: Boolean; virtual; - function GetOldHORAValue: String; virtual; - function GetOldHORAIsNull: Boolean; virtual; - procedure SetHORAValue(const aValue: String); virtual; - procedure SetHORAIsNull(const aValue: Boolean); virtual; - function GetFORMValue: String; virtual; - function GetFORMIsNull: Boolean; virtual; - function GetOldFORMValue: String; virtual; - function GetOldFORMIsNull: Boolean; virtual; - procedure SetFORMValue(const aValue: String); virtual; - procedure SetFORMIsNull(const aValue: Boolean); virtual; - function GetTITULO_FORMValue: String; virtual; - function GetTITULO_FORMIsNull: Boolean; virtual; - function GetOldTITULO_FORMValue: String; virtual; - function GetOldTITULO_FORMIsNull: Boolean; virtual; - procedure SetTITULO_FORMValue(const aValue: String); virtual; - procedure SetTITULO_FORMIsNull(const aValue: Boolean); virtual; - function GetEVENTOValue: String; virtual; - function GetEVENTOIsNull: Boolean; virtual; - function GetOldEVENTOValue: String; virtual; - function GetOldEVENTOIsNull: Boolean; virtual; - procedure SetEVENTOValue(const aValue: String); virtual; - procedure SetEVENTOIsNull(const aValue: Boolean); virtual; - function GetNOTASValue: IROStrings; virtual; - function GetNOTASIsNull: Boolean; virtual; - function GetOldNOTASValue: IROStrings; virtual; - function GetOldNOTASIsNull: Boolean; virtual; - procedure SetNOTASIsNull(const aValue: Boolean); virtual; - function GetTNAMEValue: String; virtual; - function GetTNAMEIsNull: Boolean; virtual; - function GetOldTNAMEValue: String; virtual; - function GetOldTNAMEIsNull: Boolean; virtual; - procedure SetTNAMEValue(const aValue: String); virtual; - procedure SetTNAMEIsNull(const aValue: Boolean); virtual; - - { Properties } - property APLICACION : String read GetAPLICACIONValue write SetAPLICACIONValue; - property APLICACIONIsNull : Boolean read GetAPLICACIONIsNull write SetAPLICACIONIsNull; - property OldAPLICACION : String read GetOldAPLICACIONValue; - property OldAPLICACIONIsNull : Boolean read GetOldAPLICACIONIsNull; - property ID_USUARIO : Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull : Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property OldID_USUARIO : Integer read GetOldID_USUARIOValue; - property OldID_USUARIOIsNull : Boolean read GetOldID_USUARIOIsNull; - property FECHA : String read GetFECHAValue write SetFECHAValue; - property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull; - property OldFECHA : String read GetOldFECHAValue; - property OldFECHAIsNull : Boolean read GetOldFECHAIsNull; - property HORA : String read GetHORAValue write SetHORAValue; - property HORAIsNull : Boolean read GetHORAIsNull write SetHORAIsNull; - property OldHORA : String read GetOldHORAValue; - property OldHORAIsNull : Boolean read GetOldHORAIsNull; - property FORM : String read GetFORMValue write SetFORMValue; - property FORMIsNull : Boolean read GetFORMIsNull write SetFORMIsNull; - property OldFORM : String read GetOldFORMValue; - property OldFORMIsNull : Boolean read GetOldFORMIsNull; - property TITULO_FORM : String read GetTITULO_FORMValue write SetTITULO_FORMValue; - property TITULO_FORMIsNull : Boolean read GetTITULO_FORMIsNull write SetTITULO_FORMIsNull; - property OldTITULO_FORM : String read GetOldTITULO_FORMValue; - property OldTITULO_FORMIsNull : Boolean read GetOldTITULO_FORMIsNull; - property EVENTO : String read GetEVENTOValue write SetEVENTOValue; - property EVENTOIsNull : Boolean read GetEVENTOIsNull write SetEVENTOIsNull; - property OldEVENTO : String read GetOldEVENTOValue; - property OldEVENTOIsNull : Boolean read GetOldEVENTOIsNull; - property NOTAS : IROStrings read GetNOTASValue; - property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; - property OldNOTAS : IROStrings read GetOldNOTASValue; - property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; - property TNAME : String read GetTNAMEValue write SetTNAMEValue; - property TNAMEIsNull : Boolean read GetTNAMEIsNull write SetTNAMEIsNull; - property OldTNAME : String read GetOldTNAMEValue; - property OldTNAMEIsNull : Boolean read GetOldTNAMEIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IUSUARIOS_LOGONDelta } - IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON) - ['{0EC1E706-6226-449C-885B-6C6AC5187088}'] - { Property getters and setters } - function GetOldLOGONIDValue : String; - function GetOldID_USUARIOValue : Integer; - function GetOldAPLICACIONValue : String; - function GetOldEQUIPOValue : String; - function GetOldDATAValue : String; - - { Properties } - property OldLOGONID : String read GetOldLOGONIDValue; - property OldID_USUARIO : Integer read GetOldID_USUARIOValue; - property OldAPLICACION : String read GetOldAPLICACIONValue; - property OldEQUIPO : String read GetOldEQUIPOValue; - property OldDATA : String read GetOldDATAValue; - end; - - { TUSUARIOS_LOGONBusinessProcessorRules } - TUSUARIOS_LOGONBusinessProcessorRules = class(TDABusinessProcessorRules, IUSUARIOS_LOGON, IUSUARIOS_LOGONDelta) - private - protected - { Property getters and setters } - function GetLOGONIDValue: String; virtual; - function GetLOGONIDIsNull: Boolean; virtual; - function GetOldLOGONIDValue: String; virtual; - function GetOldLOGONIDIsNull: Boolean; virtual; - procedure SetLOGONIDValue(const aValue: String); virtual; - procedure SetLOGONIDIsNull(const aValue: Boolean); virtual; - function GetID_USUARIOValue: Integer; virtual; - function GetID_USUARIOIsNull: Boolean; virtual; - function GetOldID_USUARIOValue: Integer; virtual; - function GetOldID_USUARIOIsNull: Boolean; virtual; - procedure SetID_USUARIOValue(const aValue: Integer); virtual; - procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual; - function GetAPLICACIONValue: String; virtual; - function GetAPLICACIONIsNull: Boolean; virtual; - function GetOldAPLICACIONValue: String; virtual; - function GetOldAPLICACIONIsNull: Boolean; virtual; - procedure SetAPLICACIONValue(const aValue: String); virtual; - procedure SetAPLICACIONIsNull(const aValue: Boolean); virtual; - function GetEQUIPOValue: String; virtual; - function GetEQUIPOIsNull: Boolean; virtual; - function GetOldEQUIPOValue: String; virtual; - function GetOldEQUIPOIsNull: Boolean; virtual; - procedure SetEQUIPOValue(const aValue: String); virtual; - procedure SetEQUIPOIsNull(const aValue: Boolean); virtual; - function GetDATAValue: String; virtual; - function GetDATAIsNull: Boolean; virtual; - function GetOldDATAValue: String; virtual; - function GetOldDATAIsNull: Boolean; virtual; - procedure SetDATAValue(const aValue: String); virtual; - procedure SetDATAIsNull(const aValue: Boolean); virtual; - - { Properties } - property LOGONID : String read GetLOGONIDValue write SetLOGONIDValue; - property LOGONIDIsNull : Boolean read GetLOGONIDIsNull write SetLOGONIDIsNull; - property OldLOGONID : String read GetOldLOGONIDValue; - property OldLOGONIDIsNull : Boolean read GetOldLOGONIDIsNull; - property ID_USUARIO : Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull : Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property OldID_USUARIO : Integer read GetOldID_USUARIOValue; - property OldID_USUARIOIsNull : Boolean read GetOldID_USUARIOIsNull; - property APLICACION : String read GetAPLICACIONValue write SetAPLICACIONValue; - property APLICACIONIsNull : Boolean read GetAPLICACIONIsNull write SetAPLICACIONIsNull; - property OldAPLICACION : String read GetOldAPLICACIONValue; - property OldAPLICACIONIsNull : Boolean read GetOldAPLICACIONIsNull; - property EQUIPO : String read GetEQUIPOValue write SetEQUIPOValue; - property EQUIPOIsNull : Boolean read GetEQUIPOIsNull write SetEQUIPOIsNull; - property OldEQUIPO : String read GetOldEQUIPOValue; - property OldEQUIPOIsNull : Boolean read GetOldEQUIPOIsNull; - property DATA : String read GetDATAValue write SetDATAValue; - property DATAIsNull : Boolean read GetDATAIsNull write SetDATAIsNull; - property OldDATA : String read GetOldDATAValue; - property OldDATAIsNull : Boolean read GetOldDATAIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IPERMISOSDelta } - IPERMISOSDelta = interface(IPERMISOS) - ['{A8CCC0BF-DEB4-439F-B7C4-3A25F5210A5E}'] - { Property getters and setters } - function GetOldID_USUARIOValue : Integer; - function GetOldMODULOValue : String; - function GetOldNOMBRECOMPValue : String; - function GetOldCHECKSUMValue : String; - - { Properties } - property OldID_USUARIO : Integer read GetOldID_USUARIOValue; - property OldMODULO : String read GetOldMODULOValue; - property OldNOMBRECOMP : String read GetOldNOMBRECOMPValue; - property OldCHECKSUM : String read GetOldCHECKSUMValue; - end; - - { TPERMISOSBusinessProcessorRules } - TPERMISOSBusinessProcessorRules = class(TDABusinessProcessorRules, IPERMISOS, IPERMISOSDelta) - private - protected - { Property getters and setters } - function GetID_USUARIOValue: Integer; virtual; - function GetID_USUARIOIsNull: Boolean; virtual; - function GetOldID_USUARIOValue: Integer; virtual; - function GetOldID_USUARIOIsNull: Boolean; virtual; - procedure SetID_USUARIOValue(const aValue: Integer); virtual; - procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual; - function GetMODULOValue: String; virtual; - function GetMODULOIsNull: Boolean; virtual; - function GetOldMODULOValue: String; virtual; - function GetOldMODULOIsNull: Boolean; virtual; - procedure SetMODULOValue(const aValue: String); virtual; - procedure SetMODULOIsNull(const aValue: Boolean); virtual; - function GetNOMBRECOMPValue: String; virtual; - function GetNOMBRECOMPIsNull: Boolean; virtual; - function GetOldNOMBRECOMPValue: String; virtual; - function GetOldNOMBRECOMPIsNull: Boolean; virtual; - procedure SetNOMBRECOMPValue(const aValue: String); virtual; - procedure SetNOMBRECOMPIsNull(const aValue: Boolean); virtual; - function GetCHECKSUMValue: String; virtual; - function GetCHECKSUMIsNull: Boolean; virtual; - function GetOldCHECKSUMValue: String; virtual; - function GetOldCHECKSUMIsNull: Boolean; virtual; - procedure SetCHECKSUMValue(const aValue: String); virtual; - procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID_USUARIO : Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull : Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property OldID_USUARIO : Integer read GetOldID_USUARIOValue; - property OldID_USUARIOIsNull : Boolean read GetOldID_USUARIOIsNull; - property MODULO : String read GetMODULOValue write SetMODULOValue; - property MODULOIsNull : Boolean read GetMODULOIsNull write SetMODULOIsNull; - property OldMODULO : String read GetOldMODULOValue; - property OldMODULOIsNull : Boolean read GetOldMODULOIsNull; - property NOMBRECOMP : String read GetNOMBRECOMPValue write SetNOMBRECOMPValue; - property NOMBRECOMPIsNull : Boolean read GetNOMBRECOMPIsNull write SetNOMBRECOMPIsNull; - property OldNOMBRECOMP : String read GetOldNOMBRECOMPValue; - property OldNOMBRECOMPIsNull : Boolean read GetOldNOMBRECOMPIsNull; - property CHECKSUM : String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull : Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - property OldCHECKSUM : String read GetOldCHECKSUMValue; - property OldCHECKSUMIsNull : Boolean read GetOldCHECKSUMIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IPERMISOSEXDelta } - IPERMISOSEXDelta = interface(IPERMISOSEX) - ['{78ACF719-CCD6-47F3-AA01-D580F121F7A8}'] - { Property getters and setters } - function GetOldID_USUARIOValue : Integer; - function GetOldMODULOValue : String; - function GetOldNOMBRECOMPValue : String; - function GetOldNOMBREFORMValue : String; - function GetOldCHECKSUMValue : String; - - { Properties } - property OldID_USUARIO : Integer read GetOldID_USUARIOValue; - property OldMODULO : String read GetOldMODULOValue; - property OldNOMBRECOMP : String read GetOldNOMBRECOMPValue; - property OldNOMBREFORM : String read GetOldNOMBREFORMValue; - property OldCHECKSUM : String read GetOldCHECKSUMValue; - end; - - { TPERMISOSEXBusinessProcessorRules } - TPERMISOSEXBusinessProcessorRules = class(TDABusinessProcessorRules, IPERMISOSEX, IPERMISOSEXDelta) - private - protected - { Property getters and setters } - function GetID_USUARIOValue: Integer; virtual; - function GetID_USUARIOIsNull: Boolean; virtual; - function GetOldID_USUARIOValue: Integer; virtual; - function GetOldID_USUARIOIsNull: Boolean; virtual; - procedure SetID_USUARIOValue(const aValue: Integer); virtual; - procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual; - function GetMODULOValue: String; virtual; - function GetMODULOIsNull: Boolean; virtual; - function GetOldMODULOValue: String; virtual; - function GetOldMODULOIsNull: Boolean; virtual; - procedure SetMODULOValue(const aValue: String); virtual; - procedure SetMODULOIsNull(const aValue: Boolean); virtual; - function GetNOMBRECOMPValue: String; virtual; - function GetNOMBRECOMPIsNull: Boolean; virtual; - function GetOldNOMBRECOMPValue: String; virtual; - function GetOldNOMBRECOMPIsNull: Boolean; virtual; - procedure SetNOMBRECOMPValue(const aValue: String); virtual; - procedure SetNOMBRECOMPIsNull(const aValue: Boolean); virtual; - function GetNOMBREFORMValue: String; virtual; - function GetNOMBREFORMIsNull: Boolean; virtual; - function GetOldNOMBREFORMValue: String; virtual; - function GetOldNOMBREFORMIsNull: Boolean; virtual; - procedure SetNOMBREFORMValue(const aValue: String); virtual; - procedure SetNOMBREFORMIsNull(const aValue: Boolean); virtual; - function GetCHECKSUMValue: String; virtual; - function GetCHECKSUMIsNull: Boolean; virtual; - function GetOldCHECKSUMValue: String; virtual; - function GetOldCHECKSUMIsNull: Boolean; virtual; - procedure SetCHECKSUMValue(const aValue: String); virtual; - procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID_USUARIO : Integer read GetID_USUARIOValue write SetID_USUARIOValue; - property ID_USUARIOIsNull : Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull; - property OldID_USUARIO : Integer read GetOldID_USUARIOValue; - property OldID_USUARIOIsNull : Boolean read GetOldID_USUARIOIsNull; - property MODULO : String read GetMODULOValue write SetMODULOValue; - property MODULOIsNull : Boolean read GetMODULOIsNull write SetMODULOIsNull; - property OldMODULO : String read GetOldMODULOValue; - property OldMODULOIsNull : Boolean read GetOldMODULOIsNull; - property NOMBRECOMP : String read GetNOMBRECOMPValue write SetNOMBRECOMPValue; - property NOMBRECOMPIsNull : Boolean read GetNOMBRECOMPIsNull write SetNOMBRECOMPIsNull; - property OldNOMBRECOMP : String read GetOldNOMBRECOMPValue; - property OldNOMBRECOMPIsNull : Boolean read GetOldNOMBRECOMPIsNull; - property NOMBREFORM : String read GetNOMBREFORMValue write SetNOMBREFORMValue; - property NOMBREFORMIsNull : Boolean read GetNOMBREFORMIsNull write SetNOMBREFORMIsNull; - property OldNOMBREFORM : String read GetOldNOMBREFORMValue; - property OldNOMBREFORMIsNull : Boolean read GetOldNOMBREFORMIsNull; - property CHECKSUM : String read GetCHECKSUMValue write SetCHECKSUMValue; - property CHECKSUMIsNull : Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; - property OldCHECKSUM : String read GetOldCHECKSUMValue; - property OldCHECKSUMIsNull : Boolean read GetOldCHECKSUMIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers, uDAInterfaces; - -{ TUSUARIOSBusinessProcessorRules } -constructor TUSUARIOSBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TUSUARIOSBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TUSUARIOSBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID]; -end; - -function TUSUARIOSBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetUSERNAMEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSUSERNAME]; -end; - -function TUSUARIOSBusinessProcessorRules.GetUSERNAMEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSUSERNAME]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldUSERNAMEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSUSERNAME]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldUSERNAMEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSUSERNAME]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetUSERNAMEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSUSERNAME] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetUSERNAMEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSUSERNAME] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetLOGINValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSLOGIN]; -end; - -function TUSUARIOSBusinessProcessorRules.GetLOGINIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSLOGIN]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldLOGINValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSLOGIN]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldLOGINIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSLOGIN]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetLOGINValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSLOGIN] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetLOGINIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSLOGIN] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetPASSValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPASS]; -end; - -function TUSUARIOSBusinessProcessorRules.GetPASSIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPASS]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldPASSValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSPASS]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldPASSIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSPASS]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetPASSValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPASS] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetPASSIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPASS] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetPASSEXPIREDValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPASSEXPIRED]; -end; - -function TUSUARIOSBusinessProcessorRules.GetPASSEXPIREDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPASSEXPIRED]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldPASSEXPIREDValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSPASSEXPIRED]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldPASSEXPIREDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSPASSEXPIRED]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetPASSEXPIREDValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPASSEXPIRED] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetPASSEXPIREDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPASSEXPIRED] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetBLOQUEADOValue: SmallInt; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSBLOQUEADO]; -end; - -function TUSUARIOSBusinessProcessorRules.GetBLOQUEADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSBLOQUEADO]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldBLOQUEADOValue: SmallInt; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSBLOQUEADO]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldBLOQUEADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSBLOQUEADO]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetBLOQUEADOValue(const aValue: SmallInt); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSBLOQUEADO] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetBLOQUEADOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSBLOQUEADO] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetEMAILValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSEMAIL]; -end; - -function TUSUARIOSBusinessProcessorRules.GetEMAILIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSEMAIL]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldEMAILValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSEMAIL]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldEMAILIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSEMAIL]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetEMAILValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSEMAIL] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSEMAIL] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetUSERDAYSSUNValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSUSERDAYSSUN]; -end; - -function TUSUARIOSBusinessProcessorRules.GetUSERDAYSSUNIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSUSERDAYSSUN]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldUSERDAYSSUNValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSUSERDAYSSUN]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldUSERDAYSSUNIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSUSERDAYSSUN]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetUSERDAYSSUNValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSUSERDAYSSUN] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetUSERDAYSSUNIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSUSERDAYSSUN] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetPRIVILEGEDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPRIVILEGED]; -end; - -function TUSUARIOSBusinessProcessorRules.GetPRIVILEGEDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPRIVILEGED]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldPRIVILEGEDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSPRIVILEGED]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldPRIVILEGEDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSPRIVILEGED]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetPRIVILEGEDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPRIVILEGED] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetPRIVILEGEDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSPRIVILEGED] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetTIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSTIPO]; -end; - -function TUSUARIOSBusinessProcessorRules.GetTIPOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSTIPO]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldTIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSTIPO]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldTIPOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSTIPO]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetTIPOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSTIPO] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSTIPO] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetID_PERFILValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_PERFIL]; -end; - -function TUSUARIOSBusinessProcessorRules.GetID_PERFILIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_PERFIL]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldID_PERFILValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_PERFIL]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldID_PERFILIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_PERFIL]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetID_PERFILValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_PERFIL] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetID_PERFILIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_PERFIL] := Null; -end; - -function TUSUARIOSBusinessProcessorRules.GetCHECKSUMValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSCHECKSUM]; -end; - -function TUSUARIOSBusinessProcessorRules.GetCHECKSUMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSCHECKSUM]); -end; - -function TUSUARIOSBusinessProcessorRules.GetOldCHECKSUMValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSCHECKSUM]; -end; - -function TUSUARIOSBusinessProcessorRules.GetOldCHECKSUMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSCHECKSUM]); -end; - -procedure TUSUARIOSBusinessProcessorRules.SetCHECKSUMValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSCHECKSUM] := aValue; -end; - -procedure TUSUARIOSBusinessProcessorRules.SetCHECKSUMIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSCHECKSUM] := Null; -end; - - -{ TUSUARIOS_EVENTOSBusinessProcessorRules } -constructor TUSUARIOS_EVENTOSBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -var - StrList: TStringList; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := NOTAS_OnChange; - f_NOTAS := NewROStrings(StrList,True); -end; - -destructor TUSUARIOS_EVENTOSBusinessProcessorRules.Destroy; -begin - inherited; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSNOTAS] := TStringList(Sender).Text; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetAPLICACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSAPLICACION]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetAPLICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSAPLICACION]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldAPLICACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSAPLICACION]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldAPLICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSAPLICACION]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetAPLICACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSAPLICACION] := aValue; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetAPLICACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSAPLICACION] := Null; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetID_USUARIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSID_USUARIO]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetID_USUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSID_USUARIO]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldID_USUARIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSID_USUARIO]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldID_USUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSID_USUARIO]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetID_USUARIOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSID_USUARIO] := aValue; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetID_USUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSID_USUARIO] := Null; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetFECHAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSFECHA]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetFECHAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSFECHA]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldFECHAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSFECHA]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldFECHAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSFECHA]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetFECHAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSFECHA] := aValue; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSFECHA] := Null; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetHORAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSHORA]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetHORAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSHORA]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldHORAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSHORA]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldHORAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSHORA]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetHORAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSHORA] := aValue; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetHORAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSHORA] := Null; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetFORMValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSFORM]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetFORMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSFORM]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldFORMValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSFORM]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldFORMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSFORM]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetFORMValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSFORM] := aValue; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetFORMIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSFORM] := Null; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetTITULO_FORMValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSTITULO_FORM]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetTITULO_FORMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSTITULO_FORM]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldTITULO_FORMValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSTITULO_FORM]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldTITULO_FORMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSTITULO_FORM]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetTITULO_FORMValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSTITULO_FORM] := aValue; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetTITULO_FORMIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSTITULO_FORM] := Null; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetEVENTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSEVENTO]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetEVENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSEVENTO]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldEVENTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSEVENTO]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldEVENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSEVENTO]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetEVENTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSEVENTO] := aValue; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetEVENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSEVENTO] := Null; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetNOTASValue: IROStrings; -begin - result := f_NOTAS; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSNOTAS]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetNOTASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSNOTAS]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldNOTASValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSNOTAS]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldNOTASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSNOTAS]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSNOTAS] := Null; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetTNAMEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSTNAME]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetTNAMEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSTNAME]); -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldTNAMEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSTNAME]; -end; - -function TUSUARIOS_EVENTOSBusinessProcessorRules.GetOldTNAMEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_EVENTOSTNAME]); -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetTNAMEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSTNAME] := aValue; -end; - -procedure TUSUARIOS_EVENTOSBusinessProcessorRules.SetTNAMEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_EVENTOSTNAME] := Null; -end; - - -{ TUSUARIOS_LOGONBusinessProcessorRules } -constructor TUSUARIOS_LOGONBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TUSUARIOS_LOGONBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetLOGONIDValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONLOGONID]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetLOGONIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONLOGONID]); -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldLOGONIDValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONLOGONID]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldLOGONIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONLOGONID]); -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetLOGONIDValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONLOGONID] := aValue; -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetLOGONIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONLOGONID] := Null; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetID_USUARIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONID_USUARIO]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetID_USUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONID_USUARIO]); -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldID_USUARIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONID_USUARIO]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldID_USUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONID_USUARIO]); -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetID_USUARIOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONID_USUARIO] := aValue; -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetID_USUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONID_USUARIO] := Null; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetAPLICACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONAPLICACION]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetAPLICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONAPLICACION]); -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldAPLICACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONAPLICACION]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldAPLICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONAPLICACION]); -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetAPLICACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONAPLICACION] := aValue; -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetAPLICACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONAPLICACION] := Null; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetEQUIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONEQUIPO]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetEQUIPOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONEQUIPO]); -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldEQUIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONEQUIPO]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldEQUIPOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONEQUIPO]); -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetEQUIPOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONEQUIPO] := aValue; -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetEQUIPOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONEQUIPO] := Null; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetDATAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONDATA]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetDATAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONDATA]); -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldDATAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONDATA]; -end; - -function TUSUARIOS_LOGONBusinessProcessorRules.GetOldDATAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOS_LOGONDATA]); -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetDATAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONDATA] := aValue; -end; - -procedure TUSUARIOS_LOGONBusinessProcessorRules.SetDATAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOS_LOGONDATA] := Null; -end; - - -{ TPERMISOSBusinessProcessorRules } -constructor TPERMISOSBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TPERMISOSBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TPERMISOSBusinessProcessorRules.GetID_USUARIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSID_USUARIO]; -end; - -function TPERMISOSBusinessProcessorRules.GetID_USUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSID_USUARIO]); -end; - -function TPERMISOSBusinessProcessorRules.GetOldID_USUARIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSID_USUARIO]; -end; - -function TPERMISOSBusinessProcessorRules.GetOldID_USUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSID_USUARIO]); -end; - -procedure TPERMISOSBusinessProcessorRules.SetID_USUARIOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSID_USUARIO] := aValue; -end; - -procedure TPERMISOSBusinessProcessorRules.SetID_USUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSID_USUARIO] := Null; -end; - -function TPERMISOSBusinessProcessorRules.GetMODULOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSMODULO]; -end; - -function TPERMISOSBusinessProcessorRules.GetMODULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSMODULO]); -end; - -function TPERMISOSBusinessProcessorRules.GetOldMODULOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSMODULO]; -end; - -function TPERMISOSBusinessProcessorRules.GetOldMODULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSMODULO]); -end; - -procedure TPERMISOSBusinessProcessorRules.SetMODULOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSMODULO] := aValue; -end; - -procedure TPERMISOSBusinessProcessorRules.SetMODULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSMODULO] := Null; -end; - -function TPERMISOSBusinessProcessorRules.GetNOMBRECOMPValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSNOMBRECOMP]; -end; - -function TPERMISOSBusinessProcessorRules.GetNOMBRECOMPIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSNOMBRECOMP]); -end; - -function TPERMISOSBusinessProcessorRules.GetOldNOMBRECOMPValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSNOMBRECOMP]; -end; - -function TPERMISOSBusinessProcessorRules.GetOldNOMBRECOMPIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSNOMBRECOMP]); -end; - -procedure TPERMISOSBusinessProcessorRules.SetNOMBRECOMPValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSNOMBRECOMP] := aValue; -end; - -procedure TPERMISOSBusinessProcessorRules.SetNOMBRECOMPIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSNOMBRECOMP] := Null; -end; - -function TPERMISOSBusinessProcessorRules.GetCHECKSUMValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSCHECKSUM]; -end; - -function TPERMISOSBusinessProcessorRules.GetCHECKSUMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSCHECKSUM]); -end; - -function TPERMISOSBusinessProcessorRules.GetOldCHECKSUMValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSCHECKSUM]; -end; - -function TPERMISOSBusinessProcessorRules.GetOldCHECKSUMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSCHECKSUM]); -end; - -procedure TPERMISOSBusinessProcessorRules.SetCHECKSUMValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSCHECKSUM] := aValue; -end; - -procedure TPERMISOSBusinessProcessorRules.SetCHECKSUMIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSCHECKSUM] := Null; -end; - - -{ TPERMISOSEXBusinessProcessorRules } -constructor TPERMISOSEXBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TPERMISOSEXBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TPERMISOSEXBusinessProcessorRules.GetID_USUARIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXID_USUARIO]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetID_USUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXID_USUARIO]); -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldID_USUARIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXID_USUARIO]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldID_USUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXID_USUARIO]); -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetID_USUARIOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXID_USUARIO] := aValue; -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetID_USUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXID_USUARIO] := Null; -end; - -function TPERMISOSEXBusinessProcessorRules.GetMODULOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXMODULO]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetMODULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXMODULO]); -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldMODULOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXMODULO]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldMODULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXMODULO]); -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetMODULOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXMODULO] := aValue; -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetMODULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXMODULO] := Null; -end; - -function TPERMISOSEXBusinessProcessorRules.GetNOMBRECOMPValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXNOMBRECOMP]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetNOMBRECOMPIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXNOMBRECOMP]); -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldNOMBRECOMPValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXNOMBRECOMP]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldNOMBRECOMPIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXNOMBRECOMP]); -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetNOMBRECOMPValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXNOMBRECOMP] := aValue; -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetNOMBRECOMPIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXNOMBRECOMP] := Null; -end; - -function TPERMISOSEXBusinessProcessorRules.GetNOMBREFORMValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXNOMBREFORM]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetNOMBREFORMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXNOMBREFORM]); -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldNOMBREFORMValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXNOMBREFORM]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldNOMBREFORMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXNOMBREFORM]); -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetNOMBREFORMValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXNOMBREFORM] := aValue; -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetNOMBREFORMIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXNOMBREFORM] := Null; -end; - -function TPERMISOSEXBusinessProcessorRules.GetCHECKSUMValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXCHECKSUM]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetCHECKSUMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXCHECKSUM]); -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldCHECKSUMValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXCHECKSUM]; -end; - -function TPERMISOSEXBusinessProcessorRules.GetOldCHECKSUMIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PERMISOSEXCHECKSUM]); -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetCHECKSUMValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXCHECKSUM] := aValue; -end; - -procedure TPERMISOSEXBusinessProcessorRules.SetCHECKSUMIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PERMISOSEXCHECKSUM] := Null; -end; - - -initialization - RegisterBusinessProcessorRules(RID_USUARIOSDelta, TUSUARIOSBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_USUARIOS_EVENTOSDelta, TUSUARIOS_EVENTOSBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_USUARIOS_LOGONDelta, TUSUARIOS_LOGONBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_PERMISOSDelta, TPERMISOSBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_PERMISOSEXDelta, TPERMISOSEXBusinessProcessorRules); - -end. diff --git a/Source/Modulos/Usuarios/Model/uIDataModuleUsuarios.dcu b/Source/Modulos/Usuarios/Model/uIDataModuleUsuarios.dcu deleted file mode 100644 index e3110eed..00000000 Binary files a/Source/Modulos/Usuarios/Model/uIDataModuleUsuarios.dcu and /dev/null differ diff --git a/Source/Modulos/Usuarios/Servidor/srvUsuarios_Impl.dfm b/Source/Modulos/Usuarios/Servidor/srvUsuarios_Impl.dfm deleted file mode 100644 index f515805d..00000000 --- a/Source/Modulos/Usuarios/Servidor/srvUsuarios_Impl.dfm +++ /dev/null @@ -1,419 +0,0 @@ -object srvUsuarios: TsrvUsuarios - OldCreateOrder = True - OnCreate = DataAbstractServiceCreate - SessionManager = dmServer.SessionManager - ServiceSchema = schUsuarios - ServiceDataStreamer = Bin2DataStreamer - AllowExecuteSQL = True - AllowWhereSQL = True - ExportedDataTables = <> - BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection - Height = 300 - Width = 300 - object Diagrams: TDADiagrams - Left = 150 - Top = 88 - DiagramData = ''#13#10''#13#10 - end - object DataDictionary: TDADataDictionary - Fields = <> - Left = 150 - Top = 24 - end - object schUsuarios: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'USUARIOS' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'USERNAME' - TableField = 'USERNAME' - end - item - DatasetField = 'LOGIN' - TableField = 'LOGIN' - end - item - DatasetField = 'PASS' - TableField = 'PASS' - end - item - DatasetField = 'PASSEXPIRED' - TableField = 'PASSEXPIRED' - end - item - DatasetField = 'BLOQUEADO' - TableField = 'BLOQUEADO' - end - item - DatasetField = 'EMAIL' - TableField = 'EMAIL' - end - item - DatasetField = 'USERDAYSSUN' - TableField = 'USERDAYSSUN' - end - item - DatasetField = 'PRIVILEGED' - TableField = 'PRIVILEGED' - end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end - item - DatasetField = 'ID_PERFIL' - TableField = 'ID_PERFIL' - end - item - DatasetField = 'CHECKSUM' - TableField = 'CHECKSUM' - end> - end> - Name = 'USUARIOS' - Fields = < - item - Name = 'ID' - DataType = datInteger - Required = True - InPrimaryKey = True - end - item - Name = 'USERNAME' - DataType = datString - Size = 30 - end - item - Name = 'LOGIN' - DataType = datString - Size = 30 - end - item - Name = 'PASS' - DataType = datString - Size = 250 - end - item - Name = 'PASSEXPIRED' - DataType = datDateTime - end - item - Name = 'BLOQUEADO' - DataType = datSmallInt - end - item - Name = 'EMAIL' - DataType = datString - Size = 150 - end - item - Name = 'USERDAYSSUN' - DataType = datInteger - end - item - Name = 'PRIVILEGED' - DataType = datInteger - end - item - Name = 'TIPO' - DataType = datString - Size = 1 - end - item - Name = 'ID_PERFIL' - DataType = datInteger - end - item - Name = 'CHECKSUM' - DataType = datString - Size = 250 - end> - end - item - Params = <> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'USUARIOS_EVENTOS' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'APLICACION' - TableField = 'APLICACION' - end - item - DatasetField = 'ID_USUARIO' - TableField = 'ID_USUARIO' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'HORA' - TableField = 'HORA' - end - item - DatasetField = 'FORM' - TableField = 'FORM' - end - item - DatasetField = 'TITULO_FORM' - TableField = 'TITULO_FORM' - end - item - DatasetField = 'EVENTO' - TableField = 'EVENTO' - end - item - DatasetField = 'NOTAS' - TableField = 'NOTAS' - end - item - DatasetField = 'TNAME' - TableField = 'TNAME' - end> - end> - Name = 'USUARIOS_EVENTOS' - Fields = < - item - Name = 'APLICACION' - DataType = datString - Size = 250 - end - item - Name = 'ID_USUARIO' - DataType = datInteger - end - item - Name = 'FECHA' - DataType = datString - Size = 10 - end - item - Name = 'HORA' - DataType = datString - Size = 8 - end - item - Name = 'FORM' - DataType = datString - Size = 250 - end - item - Name = 'TITULO_FORM' - DataType = datString - Size = 100 - end - item - Name = 'EVENTO' - DataType = datString - Size = 50 - end - item - Name = 'NOTAS' - DataType = datMemo - end - item - Name = 'TNAME' - DataType = datString - Size = 20 - end> - end - item - Params = <> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'USUARIOS_LOGON' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'LOGONID' - TableField = 'LOGONID' - end - item - DatasetField = 'ID_USUARIO' - TableField = 'ID_USUARIO' - end - item - DatasetField = 'APLICACION' - TableField = 'APLICACION' - end - item - DatasetField = 'EQUIPO' - TableField = 'EQUIPO' - end - item - DatasetField = 'DATA' - TableField = 'DATA' - end> - end> - Name = 'USUARIOS_LOGON' - Fields = < - item - Name = 'LOGONID' - DataType = datString - Size = 38 - Required = True - InPrimaryKey = True - end - item - Name = 'ID_USUARIO' - DataType = datInteger - end - item - Name = 'APLICACION' - DataType = datString - Size = 50 - end - item - Name = 'EQUIPO' - DataType = datString - Size = 50 - end - item - Name = 'DATA' - DataType = datString - Size = 14 - end> - end - item - Params = <> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'PERMISOS' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID_USUARIO' - TableField = 'ID_USUARIO' - end - item - DatasetField = 'MODULO' - TableField = 'MODULO' - end - item - DatasetField = 'NOMBRECOMP' - TableField = 'NOMBRECOMP' - end - item - DatasetField = 'CHECKSUM' - TableField = 'CHECKSUM' - end> - end> - Name = 'PERMISOS' - Fields = < - item - Name = 'ID_USUARIO' - DataType = datInteger - end - item - Name = 'MODULO' - DataType = datString - Size = 50 - end - item - Name = 'NOMBRECOMP' - DataType = datString - Size = 50 - end - item - Name = 'CHECKSUM' - DataType = datString - Size = 250 - end> - end - item - Params = <> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'PERMISOSEX' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID_USUARIO' - TableField = 'ID_USUARIO' - end - item - DatasetField = 'MODULO' - TableField = 'MODULO' - end - item - DatasetField = 'NOMBRECOMP' - TableField = 'NOMBRECOMP' - end - item - DatasetField = 'NOMBREFORM' - TableField = 'NOMBREFORM' - end - item - DatasetField = 'CHECKSUM' - TableField = 'CHECKSUM' - end> - end> - Name = 'PERMISOSEX' - Fields = < - item - Name = 'ID_USUARIO' - DataType = datInteger - end - item - Name = 'MODULO' - DataType = datString - Size = 50 - end - item - Name = 'NOMBRECOMP' - DataType = datString - Size = 50 - end - item - Name = 'NOMBREFORM' - DataType = datString - Size = 50 - end - item - Name = 'CHECKSUM' - DataType = datString - Size = 250 - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = <> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 48 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 88 - end -end diff --git a/Source/Modulos/Usuarios/Servidor/srvUsuarios_Impl.pas b/Source/Modulos/Usuarios/Servidor/srvUsuarios_Impl.pas deleted file mode 100644 index 4007ec6c..00000000 --- a/Source/Modulos/Usuarios/Servidor/srvUsuarios_Impl.pas +++ /dev/null @@ -1,65 +0,0 @@ -unit srvUsuarios_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -{$I Remobjects.inc} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, - {Ancestor Implementation:} DataAbstractService_Impl, - {Used RODLs:} DataAbstract4_Intf, - {Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses; - -type - { TsrvUsuarios } - TsrvUsuarios = class(TDataAbstractService, IsrvUsuarios) - Diagrams: TDADiagrams; - Bin2DataStreamer: TDABin2DataStreamer; - schUsuarios: TDASchema; - DataDictionary: TDADataDictionary; - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); - procedure DataAbstractServiceCreate(Sender: TObject); - private - protected - { IsrvUsuarios methods } - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, uDataModuleServer; - -procedure Create_srvUsuarios(out anInstance : IUnknown); -begin - anInstance := TsrvUsuarios.Create(nil); -end; - -{ srvUsuarios } -procedure TsrvUsuarios.DataAbstractServiceBeforeAcquireConnection( - aSender: TObject; var aConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -procedure TsrvUsuarios.DataAbstractServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; -end; - -initialization - TROClassFactory.Create('srvUsuarios', Create_srvUsuarios, TsrvUsuarios_Invoker); - -finalization - -end. diff --git a/Source/Modulos/Usuarios/Usuarios_Group.groupproj b/Source/Modulos/Usuarios/Usuarios_Group.groupproj deleted file mode 100644 index ec3e1ef9..00000000 --- a/Source/Modulos/Usuarios/Usuarios_Group.groupproj +++ /dev/null @@ -1,84 +0,0 @@ - - - {033276d8-059f-49be-9cc2-3276e536a74d} - - - - - - - - - - - - Default.Personality - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Source/Servicios/srvConfiguracion_Impl.dfm b/Source/Servicios/srvConfiguracion_Impl.dfm deleted file mode 100644 index 95fac36b..00000000 --- a/Source/Servicios/srvConfiguracion_Impl.dfm +++ /dev/null @@ -1,57 +0,0 @@ -object srvConfiguracion: TsrvConfiguracion - OldCreateOrder = True - OnCreate = DARemoteServiceCreate - SessionManager = dmServer.SessionManager - ConnectionName = 'IBX' - ServiceSchema = schConfiguracion - ServiceDataStreamer = Bin2DataStreamer - ExportedDataTables = <> - BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection - Height = 160 - Width = 300 - object schConfiguracion: TDASchema - ConnectionManager = dmServer.ConnectionManager - Datasets = < - item - Params = < - item - Name = 'CODIGO' - DataType = datString - Size = 50 - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'CONFIGURACION' - SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'VALOR' - TableField = 'VALOR' - end> - end> - Name = 'darValor' - Fields = < - item - Name = 'VALOR' - DataType = datString - Size = 100 - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = <> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 40 - Top = 16 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 40 - Top = 80 - end -end diff --git a/Source/Servicios/srvConfiguracion_Impl.pas b/Source/Servicios/srvConfiguracion_Impl.pas deleted file mode 100644 index 9f64d02c..00000000 --- a/Source/Servicios/srvConfiguracion_Impl.pas +++ /dev/null @@ -1,80 +0,0 @@ -unit srvConfiguracion_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DataAbstractService_Impl, - {Used RODLs:} DataAbstract4_Intf, - {Generated:} FactuGES_Intf, uDAClasses, uDAScriptingProvider, - uDABusinessProcessor, uDADataTable, uDABINAdapter, uDADataStreamer, - uDABin2DataStreamer; - - -type - { TsrvConfiguracion } - TsrvConfiguracion = class(TDataAbstractService, IsrvConfiguracion) - schConfiguracion: TDASchema; - Bin2DataStreamer: TDABin2DataStreamer; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); - protected - { IsrvConfiguracion methods } - function DarValor(const CODIGO: String): String; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, uDAInterfaces, uDataModuleServer, Variants, - uROClasses; - -procedure Create_srvConfiguracion(out anInstance : IUnknown); -begin - anInstance := TsrvConfiguracion.Create(NIL); -end; - -{ srvConfiguracion } -procedure TsrvConfiguracion.DARemoteServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; -end; - -function TsrvConfiguracion.DarValor(const CODIGO: String): String; -var - ADataSet : IDADataset; -begin - try - ADataSet := schConfiguracion.NewDataset(Connection, 'darValor', ['CODIGO'], [CODIGO]); - ADataSet.Open; - if ADataSet.Dataset.RecordCount > 0 then - Result := ADataSet.Dataset.Fields[0].AsVariant - else - RaiseError('Falta variable de configuracion: ' + CODIGO); - finally - ADataSet.Close; - end; -end; - -procedure TsrvConfiguracion.DataAbstractServiceBeforeAcquireConnection( - aSender: TObject; var aConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -initialization - TROClassFactory.Create('srvConfiguracion', Create_srvConfiguracion, TsrvConfiguracion_Invoker); - -finalization - -end. diff --git a/Source/Servicios/srvLogin_Impl.dfm b/Source/Servicios/srvLogin_Impl.dfm deleted file mode 100644 index dfe6364f..00000000 --- a/Source/Servicios/srvLogin_Impl.dfm +++ /dev/null @@ -1,149 +0,0 @@ -object srvLogin: TsrvLogin - OldCreateOrder = True - OnCreate = DataAbstractServiceCreate - ConnectionName = 'IBX' - ServiceSchema = schLogin - ServiceDataStreamer = Bin2DataStreamer - ExportedDataTables = <> - BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection - Height = 300 - Width = 300 - object schLogin: TDASchema - ConnectionManager = dmServer.ConnectionManager - Datasets = < - item - Params = < - item - Name = 'ID_USUARIO' - DataType = datInteger - Value = '1' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'EMPRESAS_USUARIOS' - SQL = - 'SELECT '#10' ID_EMPRESA'#10' FROM'#10' EMPRESAS_USUARIOS'#10' WHERE ID_U' + - 'SUARIO = :ID_USUARIO' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end> - end> - Name = 'EmpresasUsuario' - Fields = < - item - Name = 'ID_EMPRESA' - DataType = datInteger - InPrimaryKey = True - end> - end - item - Params = < - item - Name = 'ID_USUARIO' - DataType = datInteger - Value = '1' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - SQL = - 'SELECT '#10' PERFILES.PERFIL'#10' FROM'#10' PERFILES, PERFILES_USUARI' + - 'OS'#10' WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO'#10' AND PERF' + - 'ILES.ID = PERFILES_USUARIOS.ID_PERFIL' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'PERFIL' - TableField = 'PERFIL' - end> - end> - Name = 'PerfilesUsuario' - Fields = < - item - Name = 'PERFIL' - DataType = datString - Size = 15 - end> - end - item - Params = < - item - Name = 'USUARIO' - DataType = datString - Value = '' - ParamType = daptInput - end - item - Name = 'PASS' - DataType = datString - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'USUARIOS' - SQL = - 'SELECT'#10' ID'#10' FROM'#10' USUARIOS'#10' WHERE USUARIO = :USUARIO AND' + - #10' PASS = :PASS AND'#10' ACTIVO = 1' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end> - end> - Name = 'UsuarioPermitido' - Fields = < - item - Name = 'ID' - DataType = datInteger - InPrimaryKey = True - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'PASSWORD' - DataType = datString - Value = '' - ParamType = daptInput - end - item - Name = 'USERID' - DataType = datString - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'USUARIOS' - SQL = - 'UPDATE'#10' USUARIOS'#10' SET'#10' PASS = :PASSWORD'#10' WHERE'#10' ID = ' + - ':USERID' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'SetUserPassword' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 40 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 40 - Top = 88 - end -end diff --git a/Source/Servicios/srvLogin_Impl.pas b/Source/Servicios/srvLogin_Impl.pas deleted file mode 100644 index a73d90f9..00000000 --- a/Source/Servicios/srvLogin_Impl.pas +++ /dev/null @@ -1,146 +0,0 @@ -unit srvLogin_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, - {Ancestor Implementation:} DataAbstractService_Impl, - {Used RODLs:} DataAbstract4_Intf, - {Generated:} FactuGES_Intf, uDAClasses, uDAInterfaces, uDAEngine, - uDADataTable, uDABINAdapter, uROClient, uDADataStreamer, uDABin2DataStreamer; - -const - PERFIL_ADMINISTRADORES = 'Administradores'; - -type - { TsrvLogin } - TsrvLogin = class(TDataAbstractService, IsrvLogin) - Bin2DataStreamer: TDABin2DataStreamer; - schLogin: TDASchema; - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); - procedure DataAbstractServiceCreate(Sender: TObject); - private - protected - function Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean; - procedure Logout; - function Ping: Boolean; - end; - -implementation - -{$R *.dfm} - -uses - {Generated:} FactuGES_Invk, uDataModuleServer, - Dialogs, IB, Variants, uSesionesUtils; - -procedure Create_srvLogin(out anInstance : IUnknown); -begin - anInstance := TsrvLogin.Create(NIL); -end; - -{ srvLogin } -{ TsrvLogin } - -procedure TsrvLogin.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -procedure TsrvLogin.DataAbstractServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; -end; - -function TsrvLogin.Login(const User, Password: String; out LoginInfo: TRdxLoginInfo): Boolean; -var - dsUser, - dsPerfiles, - dsEmpresas : IDADataset; - InternalLoginInfo : TRdxLoginInfo; -begin - LoginInfo := NIL; - Result := False; - - dsUser := schLogin.NewDataset(Connection, 'UsuarioPermitido', ['Usuario', 'Pass'], [User, Password]); - - if (dsUser.RecordCount = 1) then - begin - try - LoginInfo := TRdxLoginInfo.Create(); - with LoginInfo do - begin - UserID := dsUser.FieldValues[0]; - Usuario := User; - SessionID := GUIDToString(Session.SessionID); - Perfiles := StringArray.Create(); - Empresas := TRdxEmpresasArray.Create; - end; - - // Asigna los perfiles del usuario - LoginInfo.Perfiles.Clear; - dsPerfiles := schLogin.NewDataset(Connection, 'PerfilesUsuario', ['ID_USUARIO'], [LoginInfo.UserID]); - while not dsPerfiles.EOF do - begin - LoginInfo.Perfiles.Add(VarToStr(dsPerfiles.FieldValues[0])); - dsPerfiles.Next; - end; - - // Asigna las empresas del usuario - LoginInfo.Empresas.Clear; - dsEmpresas := schLogin.NewDataset(Connection, 'EmpresasUsuario', ['ID_USUARIO'], [LoginInfo.UserID]); - while not dsEmpresas.EOF do - begin - LoginInfo.Empresas.Add(dsEmpresas.FieldValues[0]); - dsEmpresas.Next; - end; - - // Guardamos una copia de LoginInfo en el servidor para usarlo - // en otros servicios - InternalLoginInfo := TRdxLoginInfo.Create; - InternalLoginInfo.Assign(LoginInfo); - SesionesHelper.SaveSessionObject(Session, SESION_LOGININFO, InternalLoginInfo); - - Result := True; - except - on e : exception do - begin - FreeAndNIL(LoginInfo); - ShowMessage(e.Message); - raise - end; - end; - end - else begin -// Invalid login. The temporary session is not to be kept. - DestroySession; - end; -end; - -procedure TsrvLogin.Logout; -begin - DestroySession; -end; - -function TsrvLogin.Ping: Boolean; -begin - Result := True; -end; - -initialization - TROClassFactory.Create('srvLogin', Create_srvLogin, TsrvLogin_Invoker); - -finalization - -end. diff --git a/Source/Servidor/DARemoteService_Impl.dcu b/Source/Servidor/DARemoteService_Impl.dcu deleted file mode 100644 index d3db01f1..00000000 Binary files a/Source/Servidor/DARemoteService_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/DataAbstract3_Intf.dcu b/Source/Servidor/DataAbstract3_Intf.dcu deleted file mode 100644 index 559fde0e..00000000 Binary files a/Source/Servidor/DataAbstract3_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/DataAbstract4_Intf.dcu b/Source/Servidor/DataAbstract4_Intf.dcu deleted file mode 100644 index 07deb634..00000000 Binary files a/Source/Servidor/DataAbstract4_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/DataAbstract4_Invk.dcu b/Source/Servidor/DataAbstract4_Invk.dcu deleted file mode 100644 index 1e262a92..00000000 Binary files a/Source/Servidor/DataAbstract4_Invk.dcu and /dev/null differ diff --git a/Source/Servidor/DataAbstractService_Impl.dcu b/Source/Servidor/DataAbstractService_Impl.dcu deleted file mode 100644 index 8cc55b59..00000000 Binary files a/Source/Servidor/DataAbstractService_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/FactuGES_Intf.dcu b/Source/Servidor/FactuGES_Intf.dcu deleted file mode 100644 index 4cfd8a47..00000000 Binary files a/Source/Servidor/FactuGES_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/FactuGES_Invk.dcu b/Source/Servidor/FactuGES_Invk.dcu deleted file mode 100644 index 94c9ac8f..00000000 Binary files a/Source/Servidor/FactuGES_Invk.dcu and /dev/null differ diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj deleted file mode 100644 index c93c9b79..00000000 --- a/Source/Servidor/FactuGES_Server.dproj +++ /dev/null @@ -1,610 +0,0 @@ - - - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Relase\Servidor - ..\Lib;..\Base - ..\Lib;..\Base - ..\Lib;..\Base - ..\Lib;..\Base - RELEASE - .\ - .\ - .\ - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - ..\Lib;..\Base - ..\Lib;..\Base - ..\Lib;..\Base - ..\Lib;..\Base - DEBUG; - .\ - .\ - .\ - - - Delphi.Personality - - - FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0lunes, 17 de septiembre de 2007 12:28 - CodeGear WebSnap Components - CodeGear SOAP Components - Microsoft Office XP Sample Automation Server Wrapper Components - Microsoft Office 2000 Sample Automation Server Wrapper Components - CodeGear C++Builder Office 2000 Servers Package - CodeGear C++Builder Office XP Servers Package - FactuGES_Server.dpr - - - - - MainSource - - - - - - - - -
srvContactos
- - - - - - - -
srvFamilias
- - - - -
srvFormasPago
- - - - - -
srvTiposIVA
- - -
srvUsuarios
- - - - -
srvConfiguracion
- - - -
frConexionBD
- - -
frConfGeneral
- - -
fConfiguracion
- - -
FrameConfiguracion
- - - -
fAcercaDe
- - -
dmServer
- - -
fServerForm
- - - - - - - - - - - - - diff --git a/Source/Servidor/FactuGES_Server.identcache b/Source/Servidor/FactuGES_Server.identcache deleted file mode 100644 index 1d7f8985..00000000 Binary files a/Source/Servidor/FactuGES_Server.identcache and /dev/null differ diff --git a/Source/Servidor/IdStack.dcu b/Source/Servidor/IdStack.dcu deleted file mode 100644 index d63abae4..00000000 Binary files a/Source/Servidor/IdStack.dcu and /dev/null differ diff --git a/Source/Servidor/IdThread.dcu b/Source/Servidor/IdThread.dcu deleted file mode 100644 index e6d1b1af..00000000 Binary files a/Source/Servidor/IdThread.dcu and /dev/null differ diff --git a/Source/Servidor/RegExpr.dcu b/Source/Servidor/RegExpr.dcu deleted file mode 100644 index dd38ab7c..00000000 Binary files a/Source/Servidor/RegExpr.dcu and /dev/null differ diff --git a/Source/Servidor/schContactosClient_Intf.dcu b/Source/Servidor/schContactosClient_Intf.dcu deleted file mode 100644 index 6e8dba28..00000000 Binary files a/Source/Servidor/schContactosClient_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schContactosServer_Intf.dcu b/Source/Servidor/schContactosServer_Intf.dcu deleted file mode 100644 index cc0cfce5..00000000 Binary files a/Source/Servidor/schContactosServer_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schEmpresasClient_Intf.dcu b/Source/Servidor/schEmpresasClient_Intf.dcu deleted file mode 100644 index d7ced906..00000000 Binary files a/Source/Servidor/schEmpresasClient_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schEmpresasServer_Intf.dcu b/Source/Servidor/schEmpresasServer_Intf.dcu deleted file mode 100644 index c8a55fb4..00000000 Binary files a/Source/Servidor/schEmpresasServer_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schFamiliasClient_Intf.dcu b/Source/Servidor/schFamiliasClient_Intf.dcu deleted file mode 100644 index 82b978fe..00000000 Binary files a/Source/Servidor/schFamiliasClient_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schFamiliasServer_Intf.dcu b/Source/Servidor/schFamiliasServer_Intf.dcu deleted file mode 100644 index 60876641..00000000 Binary files a/Source/Servidor/schFamiliasServer_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schFormasPagoClient_Intf.dcu b/Source/Servidor/schFormasPagoClient_Intf.dcu deleted file mode 100644 index 9fcab2a6..00000000 Binary files a/Source/Servidor/schFormasPagoClient_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schFormasPagoServer_Intf.dcu b/Source/Servidor/schFormasPagoServer_Intf.dcu deleted file mode 100644 index 5d990b90..00000000 Binary files a/Source/Servidor/schFormasPagoServer_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schTiposIVAClient_Intf.dcu b/Source/Servidor/schTiposIVAClient_Intf.dcu deleted file mode 100644 index a3bf7626..00000000 Binary files a/Source/Servidor/schTiposIVAClient_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/schTiposIVAServer_Intf.dcu b/Source/Servidor/schTiposIVAServer_Intf.dcu deleted file mode 100644 index 349361c0..00000000 Binary files a/Source/Servidor/schTiposIVAServer_Intf.dcu and /dev/null differ diff --git a/Source/Servidor/srvConfiguracion_Impl.dcu b/Source/Servidor/srvConfiguracion_Impl.dcu deleted file mode 100644 index dc6191cc..00000000 Binary files a/Source/Servidor/srvConfiguracion_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/srvContactos_Impl.dcu b/Source/Servidor/srvContactos_Impl.dcu deleted file mode 100644 index ed3a724c..00000000 Binary files a/Source/Servidor/srvContactos_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/srvEmpresas_Impl.dcu b/Source/Servidor/srvEmpresas_Impl.dcu deleted file mode 100644 index 4614ee6d..00000000 Binary files a/Source/Servidor/srvEmpresas_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/srvFamilias_Impl.dcu b/Source/Servidor/srvFamilias_Impl.dcu deleted file mode 100644 index b79e173b..00000000 Binary files a/Source/Servidor/srvFamilias_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/srvFormasPago_Impl.dcu b/Source/Servidor/srvFormasPago_Impl.dcu deleted file mode 100644 index ca54a8a6..00000000 Binary files a/Source/Servidor/srvFormasPago_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/srvLogin_Impl.dcu b/Source/Servidor/srvLogin_Impl.dcu deleted file mode 100644 index ed04f478..00000000 Binary files a/Source/Servidor/srvLogin_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/srvTiposIVA_Impl.dcu b/Source/Servidor/srvTiposIVA_Impl.dcu deleted file mode 100644 index e3149705..00000000 Binary files a/Source/Servidor/srvTiposIVA_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/srvUsuarios_Impl.dcu b/Source/Servidor/srvUsuarios_Impl.dcu deleted file mode 100644 index f067c828..00000000 Binary files a/Source/Servidor/srvUsuarios_Impl.dcu and /dev/null differ diff --git a/Source/Servidor/uAcercaDe.dcu b/Source/Servidor/uAcercaDe.dcu deleted file mode 100644 index 20d8309a..00000000 Binary files a/Source/Servidor/uAcercaDe.dcu and /dev/null differ diff --git a/Source/Servidor/uBizClientesServer.dcu b/Source/Servidor/uBizClientesServer.dcu deleted file mode 100644 index c0636f6e..00000000 Binary files a/Source/Servidor/uBizClientesServer.dcu and /dev/null differ diff --git a/Source/Servidor/uBizContactosServer.dcu b/Source/Servidor/uBizContactosServer.dcu deleted file mode 100644 index 4bd29afd..00000000 Binary files a/Source/Servidor/uBizContactosServer.dcu and /dev/null differ diff --git a/Source/Servidor/uBizEmpleadosServer.dcu b/Source/Servidor/uBizEmpleadosServer.dcu deleted file mode 100644 index 714af660..00000000 Binary files a/Source/Servidor/uBizEmpleadosServer.dcu and /dev/null differ diff --git a/Source/Servidor/uBizProveedoresServer.dcu b/Source/Servidor/uBizProveedoresServer.dcu deleted file mode 100644 index 128b5e7d..00000000 Binary files a/Source/Servidor/uBizProveedoresServer.dcu and /dev/null differ diff --git a/Source/Servidor/uBusinessUtils.dcu b/Source/Servidor/uBusinessUtils.dcu deleted file mode 100644 index 7215771c..00000000 Binary files a/Source/Servidor/uBusinessUtils.dcu and /dev/null differ diff --git a/Source/Servidor/uConexionBD.dcu b/Source/Servidor/uConexionBD.dcu deleted file mode 100644 index 9f0a3c4a..00000000 Binary files a/Source/Servidor/uConexionBD.dcu and /dev/null differ diff --git a/Source/Servidor/uConfGeneral.dcu b/Source/Servidor/uConfGeneral.dcu deleted file mode 100644 index baa91040..00000000 Binary files a/Source/Servidor/uConfGeneral.dcu and /dev/null differ diff --git a/Source/Servidor/uConfiguracion.dcu b/Source/Servidor/uConfiguracion.dcu deleted file mode 100644 index 708243b5..00000000 Binary files a/Source/Servidor/uConfiguracion.dcu and /dev/null differ diff --git a/Source/Servidor/uDAADODriver.dcu b/Source/Servidor/uDAADODriver.dcu deleted file mode 100644 index 3b5bf966..00000000 Binary files a/Source/Servidor/uDAADODriver.dcu and /dev/null differ diff --git a/Source/Servidor/uDAADOInterfaces.dcu b/Source/Servidor/uDAADOInterfaces.dcu deleted file mode 100644 index 94f12522..00000000 Binary files a/Source/Servidor/uDAADOInterfaces.dcu and /dev/null differ diff --git a/Source/Servidor/uDABINAdapter.dcu b/Source/Servidor/uDABINAdapter.dcu deleted file mode 100644 index 17e21f22..00000000 Binary files a/Source/Servidor/uDABINAdapter.dcu and /dev/null differ diff --git a/Source/Servidor/uDABin2DataStreamer.dcu b/Source/Servidor/uDABin2DataStreamer.dcu deleted file mode 100644 index 05b49c85..00000000 Binary files a/Source/Servidor/uDABin2DataStreamer.dcu and /dev/null differ diff --git a/Source/Servidor/uDABusinessProcessor.dcu b/Source/Servidor/uDABusinessProcessor.dcu deleted file mode 100644 index 41242e7c..00000000 Binary files a/Source/Servidor/uDABusinessProcessor.dcu and /dev/null differ diff --git a/Source/Servidor/uDACache.dcu b/Source/Servidor/uDACache.dcu deleted file mode 100644 index a04e338e..00000000 Binary files a/Source/Servidor/uDACache.dcu and /dev/null differ diff --git a/Source/Servidor/uDAClasses.dcu b/Source/Servidor/uDAClasses.dcu deleted file mode 100644 index 86ccd251..00000000 Binary files a/Source/Servidor/uDAClasses.dcu and /dev/null differ diff --git a/Source/Servidor/uDADataStreamer.dcu b/Source/Servidor/uDADataStreamer.dcu deleted file mode 100644 index 5bdb9c96..00000000 Binary files a/Source/Servidor/uDADataStreamer.dcu and /dev/null differ diff --git a/Source/Servidor/uDADataTable.dcu b/Source/Servidor/uDADataTable.dcu deleted file mode 100644 index ba74738c..00000000 Binary files a/Source/Servidor/uDADataTable.dcu and /dev/null differ diff --git a/Source/Servidor/uDADataTableReferenceCollection.dcu b/Source/Servidor/uDADataTableReferenceCollection.dcu deleted file mode 100644 index f3bd8282..00000000 Binary files a/Source/Servidor/uDADataTableReferenceCollection.dcu and /dev/null differ diff --git a/Source/Servidor/uDADatasetWrapper.dcu b/Source/Servidor/uDADatasetWrapper.dcu deleted file mode 100644 index b51e2f24..00000000 Binary files a/Source/Servidor/uDADatasetWrapper.dcu and /dev/null differ diff --git a/Source/Servidor/uDADelta.dcu b/Source/Servidor/uDADelta.dcu deleted file mode 100644 index 85de0bee..00000000 Binary files a/Source/Servidor/uDADelta.dcu and /dev/null differ diff --git a/Source/Servidor/uDADriverManager.dcu b/Source/Servidor/uDADriverManager.dcu deleted file mode 100644 index c2a6cef2..00000000 Binary files a/Source/Servidor/uDADriverManager.dcu and /dev/null differ diff --git a/Source/Servidor/uDAEngine.dcu b/Source/Servidor/uDAEngine.dcu deleted file mode 100644 index 2565f369..00000000 Binary files a/Source/Servidor/uDAEngine.dcu and /dev/null differ diff --git a/Source/Servidor/uDAExceptions.dcu b/Source/Servidor/uDAExceptions.dcu deleted file mode 100644 index a4d86205..00000000 Binary files a/Source/Servidor/uDAExceptions.dcu and /dev/null differ diff --git a/Source/Servidor/uDAExpressionEvaluator.dcu b/Source/Servidor/uDAExpressionEvaluator.dcu deleted file mode 100644 index af7b414b..00000000 Binary files a/Source/Servidor/uDAExpressionEvaluator.dcu and /dev/null differ diff --git a/Source/Servidor/uDAHelpers.dcu b/Source/Servidor/uDAHelpers.dcu deleted file mode 100644 index d02c5d6c..00000000 Binary files a/Source/Servidor/uDAHelpers.dcu and /dev/null differ diff --git a/Source/Servidor/uDAIBInterfaces.dcu b/Source/Servidor/uDAIBInterfaces.dcu deleted file mode 100644 index 9549f03e..00000000 Binary files a/Source/Servidor/uDAIBInterfaces.dcu and /dev/null differ diff --git a/Source/Servidor/uDAIBXDriver.dcu b/Source/Servidor/uDAIBXDriver.dcu deleted file mode 100644 index 851f5f96..00000000 Binary files a/Source/Servidor/uDAIBXDriver.dcu and /dev/null differ diff --git a/Source/Servidor/uDAInterfaces.dcu b/Source/Servidor/uDAInterfaces.dcu deleted file mode 100644 index 85d35702..00000000 Binary files a/Source/Servidor/uDAInterfaces.dcu and /dev/null differ diff --git a/Source/Servidor/uDAInterfacesEx.dcu b/Source/Servidor/uDAInterfacesEx.dcu deleted file mode 100644 index 62fddca7..00000000 Binary files a/Source/Servidor/uDAInterfacesEx.dcu and /dev/null differ diff --git a/Source/Servidor/uDAMacroProcessors.dcu b/Source/Servidor/uDAMacroProcessors.dcu deleted file mode 100644 index 26be06ea..00000000 Binary files a/Source/Servidor/uDAMacroProcessors.dcu and /dev/null differ diff --git a/Source/Servidor/uDAMacros.dcu b/Source/Servidor/uDAMacros.dcu deleted file mode 100644 index 768133e6..00000000 Binary files a/Source/Servidor/uDAMacros.dcu and /dev/null differ diff --git a/Source/Servidor/uDAMemDataTable.dcu b/Source/Servidor/uDAMemDataTable.dcu deleted file mode 100644 index c551ad8d..00000000 Binary files a/Source/Servidor/uDAMemDataTable.dcu and /dev/null differ diff --git a/Source/Servidor/uDAMemDataset.dcu b/Source/Servidor/uDAMemDataset.dcu deleted file mode 100644 index c98cb04b..00000000 Binary files a/Source/Servidor/uDAMemDataset.dcu and /dev/null differ diff --git a/Source/Servidor/uDAOracleInterfaces.dcu b/Source/Servidor/uDAOracleInterfaces.dcu deleted file mode 100644 index 8379f634..00000000 Binary files a/Source/Servidor/uDAOracleInterfaces.dcu and /dev/null differ diff --git a/Source/Servidor/uDAPostgresInterfaces.dcu b/Source/Servidor/uDAPostgresInterfaces.dcu deleted file mode 100644 index 7a04cd8a..00000000 Binary files a/Source/Servidor/uDAPostgresInterfaces.dcu and /dev/null differ diff --git a/Source/Servidor/uDARegExpr.dcu b/Source/Servidor/uDARegExpr.dcu deleted file mode 100644 index c433d9c5..00000000 Binary files a/Source/Servidor/uDARegExpr.dcu and /dev/null differ diff --git a/Source/Servidor/uDARes.dcu b/Source/Servidor/uDARes.dcu deleted file mode 100644 index d688d9a6..00000000 Binary files a/Source/Servidor/uDARes.dcu and /dev/null differ diff --git a/Source/Servidor/uDASQL92Interfaces.dcu b/Source/Servidor/uDASQL92Interfaces.dcu deleted file mode 100644 index 5d9734e2..00000000 Binary files a/Source/Servidor/uDASQL92Interfaces.dcu and /dev/null differ diff --git a/Source/Servidor/uDASQL92QueryBuilder.dcu b/Source/Servidor/uDASQL92QueryBuilder.dcu deleted file mode 100644 index 8c581dd6..00000000 Binary files a/Source/Servidor/uDASQL92QueryBuilder.dcu and /dev/null differ diff --git a/Source/Servidor/uDAScriptingProvider.dcu b/Source/Servidor/uDAScriptingProvider.dcu deleted file mode 100644 index e3a796e7..00000000 Binary files a/Source/Servidor/uDAScriptingProvider.dcu and /dev/null differ diff --git a/Source/Servidor/uDASupportClasses.dcu b/Source/Servidor/uDASupportClasses.dcu deleted file mode 100644 index b5c58553..00000000 Binary files a/Source/Servidor/uDASupportClasses.dcu and /dev/null differ diff --git a/Source/Servidor/uDAUtils.dcu b/Source/Servidor/uDAUtils.dcu deleted file mode 100644 index 64d35496..00000000 Binary files a/Source/Servidor/uDAUtils.dcu and /dev/null differ diff --git a/Source/Servidor/uDAWhere.dcu b/Source/Servidor/uDAWhere.dcu deleted file mode 100644 index d035ab61..00000000 Binary files a/Source/Servidor/uDAWhere.dcu and /dev/null differ diff --git a/Source/Servidor/uDAXMLUtils.dcu b/Source/Servidor/uDAXMLUtils.dcu deleted file mode 100644 index 74ccd10f..00000000 Binary files a/Source/Servidor/uDAXMLUtils.dcu and /dev/null differ diff --git a/Source/Servidor/uDataModuleServer.dcu b/Source/Servidor/uDataModuleServer.dcu deleted file mode 100644 index cc3568d5..00000000 Binary files a/Source/Servidor/uDataModuleServer.dcu and /dev/null differ diff --git a/Source/Servidor/uDatabaseUtils.dcu b/Source/Servidor/uDatabaseUtils.dcu deleted file mode 100644 index d5c18231..00000000 Binary files a/Source/Servidor/uDatabaseUtils.dcu and /dev/null differ diff --git a/Source/Servidor/uFrameConfiguracion.dcu b/Source/Servidor/uFrameConfiguracion.dcu deleted file mode 100644 index 55a56871..00000000 Binary files a/Source/Servidor/uFrameConfiguracion.dcu and /dev/null differ diff --git a/Source/Servidor/uROBinMessage.dcu b/Source/Servidor/uROBinMessage.dcu deleted file mode 100644 index 6dda7f94..00000000 Binary files a/Source/Servidor/uROBinMessage.dcu and /dev/null differ diff --git a/Source/Servidor/uROBinaryHelpers.dcu b/Source/Servidor/uROBinaryHelpers.dcu deleted file mode 100644 index 783fc23d..00000000 Binary files a/Source/Servidor/uROBinaryHelpers.dcu and /dev/null differ diff --git a/Source/Servidor/uROCipher.dcu b/Source/Servidor/uROCipher.dcu deleted file mode 100644 index 389f995f..00000000 Binary files a/Source/Servidor/uROCipher.dcu and /dev/null differ diff --git a/Source/Servidor/uROCiphers.dcu b/Source/Servidor/uROCiphers.dcu deleted file mode 100644 index 722a5427..00000000 Binary files a/Source/Servidor/uROCiphers.dcu and /dev/null differ diff --git a/Source/Servidor/uROClasses.dcu b/Source/Servidor/uROClasses.dcu deleted file mode 100644 index 887c7b9f..00000000 Binary files a/Source/Servidor/uROClasses.dcu and /dev/null differ diff --git a/Source/Servidor/uROClient.dcu b/Source/Servidor/uROClient.dcu deleted file mode 100644 index f0fcd5c0..00000000 Binary files a/Source/Servidor/uROClient.dcu and /dev/null differ diff --git a/Source/Servidor/uROClientIntf.dcu b/Source/Servidor/uROClientIntf.dcu deleted file mode 100644 index 93ae440b..00000000 Binary files a/Source/Servidor/uROClientIntf.dcu and /dev/null differ diff --git a/Source/Servidor/uROComInit.dcu b/Source/Servidor/uROComInit.dcu deleted file mode 100644 index 63ef7e58..00000000 Binary files a/Source/Servidor/uROComInit.dcu and /dev/null differ diff --git a/Source/Servidor/uROCompression.dcu b/Source/Servidor/uROCompression.dcu deleted file mode 100644 index 54e2d03a..00000000 Binary files a/Source/Servidor/uROCompression.dcu and /dev/null differ diff --git a/Source/Servidor/uRODECConst.dcu b/Source/Servidor/uRODECConst.dcu deleted file mode 100644 index ac26daa9..00000000 Binary files a/Source/Servidor/uRODECConst.dcu and /dev/null differ diff --git a/Source/Servidor/uRODECUtil.dcu b/Source/Servidor/uRODECUtil.dcu deleted file mode 100644 index 9ed2f0b5..00000000 Binary files a/Source/Servidor/uRODECUtil.dcu and /dev/null differ diff --git a/Source/Servidor/uRODL.dcu b/Source/Servidor/uRODL.dcu deleted file mode 100644 index a025fd0a..00000000 Binary files a/Source/Servidor/uRODL.dcu and /dev/null differ diff --git a/Source/Servidor/uRODLToXML.dcu b/Source/Servidor/uRODLToXML.dcu deleted file mode 100644 index b7b2fd28..00000000 Binary files a/Source/Servidor/uRODLToXML.dcu and /dev/null differ diff --git a/Source/Servidor/uRODynamicRequest.dcu b/Source/Servidor/uRODynamicRequest.dcu deleted file mode 100644 index 881ac615..00000000 Binary files a/Source/Servidor/uRODynamicRequest.dcu and /dev/null differ diff --git a/Source/Servidor/uROEncryption.dcu b/Source/Servidor/uROEncryption.dcu deleted file mode 100644 index 98dd24f8..00000000 Binary files a/Source/Servidor/uROEncryption.dcu and /dev/null differ diff --git a/Source/Servidor/uROEventRepository.dcu b/Source/Servidor/uROEventRepository.dcu deleted file mode 100644 index 1be14002..00000000 Binary files a/Source/Servidor/uROEventRepository.dcu and /dev/null differ diff --git a/Source/Servidor/uROHTTPDispatch.dcu b/Source/Servidor/uROHTTPDispatch.dcu deleted file mode 100644 index 2165e9b5..00000000 Binary files a/Source/Servidor/uROHTTPDispatch.dcu and /dev/null differ diff --git a/Source/Servidor/uROHTTPTools.dcu b/Source/Servidor/uROHTTPTools.dcu deleted file mode 100644 index f459404b..00000000 Binary files a/Source/Servidor/uROHTTPTools.dcu and /dev/null differ diff --git a/Source/Servidor/uROHash.dcu b/Source/Servidor/uROHash.dcu deleted file mode 100644 index 82f436cc..00000000 Binary files a/Source/Servidor/uROHash.dcu and /dev/null differ diff --git a/Source/Servidor/uROHtmlServerInfo.dcu b/Source/Servidor/uROHtmlServerInfo.dcu deleted file mode 100644 index 3971c8c8..00000000 Binary files a/Source/Servidor/uROHtmlServerInfo.dcu and /dev/null differ diff --git a/Source/Servidor/uROIndyHTTPServer.dcu b/Source/Servidor/uROIndyHTTPServer.dcu deleted file mode 100644 index fefdcbe3..00000000 Binary files a/Source/Servidor/uROIndyHTTPServer.dcu and /dev/null differ diff --git a/Source/Servidor/uROIndyTCPServer.dcu b/Source/Servidor/uROIndyTCPServer.dcu deleted file mode 100644 index 24ba939e..00000000 Binary files a/Source/Servidor/uROIndyTCPServer.dcu and /dev/null differ diff --git a/Source/Servidor/uROMSXML2_TLB.dcu b/Source/Servidor/uROMSXML2_TLB.dcu deleted file mode 100644 index 0cb31946..00000000 Binary files a/Source/Servidor/uROMSXML2_TLB.dcu and /dev/null differ diff --git a/Source/Servidor/uROMSXMLImpl.dcu b/Source/Servidor/uROMSXMLImpl.dcu deleted file mode 100644 index f3dfebcb..00000000 Binary files a/Source/Servidor/uROMSXMLImpl.dcu and /dev/null differ diff --git a/Source/Servidor/uROPoweredByRemObjectsButton.dcu b/Source/Servidor/uROPoweredByRemObjectsButton.dcu deleted file mode 100644 index d48cd085..00000000 Binary files a/Source/Servidor/uROPoweredByRemObjectsButton.dcu and /dev/null differ diff --git a/Source/Servidor/uRORemoteDataModule.dcu b/Source/Servidor/uRORemoteDataModule.dcu deleted file mode 100644 index dae244d8..00000000 Binary files a/Source/Servidor/uRORemoteDataModule.dcu and /dev/null differ diff --git a/Source/Servidor/uRORemoteService.dcu b/Source/Servidor/uRORemoteService.dcu deleted file mode 100644 index 5dbd88b9..00000000 Binary files a/Source/Servidor/uRORemoteService.dcu and /dev/null differ diff --git a/Source/Servidor/uRORes.dcu b/Source/Servidor/uRORes.dcu deleted file mode 100644 index e9283358..00000000 Binary files a/Source/Servidor/uRORes.dcu and /dev/null differ diff --git a/Source/Servidor/uROSerializer.dcu b/Source/Servidor/uROSerializer.dcu deleted file mode 100644 index cf3960bb..00000000 Binary files a/Source/Servidor/uROSerializer.dcu and /dev/null differ diff --git a/Source/Servidor/uROServer.dcu b/Source/Servidor/uROServer.dcu deleted file mode 100644 index 131179cd..00000000 Binary files a/Source/Servidor/uROServer.dcu and /dev/null differ diff --git a/Source/Servidor/uROServerIntf.dcu b/Source/Servidor/uROServerIntf.dcu deleted file mode 100644 index f496143f..00000000 Binary files a/Source/Servidor/uROServerIntf.dcu and /dev/null differ diff --git a/Source/Servidor/uROSessions.dcu b/Source/Servidor/uROSessions.dcu deleted file mode 100644 index dd8dbdc5..00000000 Binary files a/Source/Servidor/uROSessions.dcu and /dev/null differ diff --git a/Source/Servidor/uROStreamSerializer.dcu b/Source/Servidor/uROStreamSerializer.dcu deleted file mode 100644 index 6358e864..00000000 Binary files a/Source/Servidor/uROStreamSerializer.dcu and /dev/null differ diff --git a/Source/Servidor/uROTypes.dcu b/Source/Servidor/uROTypes.dcu deleted file mode 100644 index 0d42d829..00000000 Binary files a/Source/Servidor/uROTypes.dcu and /dev/null differ diff --git a/Source/Servidor/uROXMLIntf.dcu b/Source/Servidor/uROXMLIntf.dcu deleted file mode 100644 index 7cff06b1..00000000 Binary files a/Source/Servidor/uROXMLIntf.dcu and /dev/null differ diff --git a/Source/Servidor/uROZLib.dcu b/Source/Servidor/uROZLib.dcu deleted file mode 100644 index bebfb944..00000000 Binary files a/Source/Servidor/uROZLib.dcu and /dev/null differ diff --git a/Source/Servidor/uReferenciasUtils.dcu b/Source/Servidor/uReferenciasUtils.dcu deleted file mode 100644 index 980903f3..00000000 Binary files a/Source/Servidor/uReferenciasUtils.dcu and /dev/null differ diff --git a/Source/Servidor/uRestriccionesUsuarioUtils.dcu b/Source/Servidor/uRestriccionesUsuarioUtils.dcu deleted file mode 100644 index 97dce557..00000000 Binary files a/Source/Servidor/uRestriccionesUsuarioUtils.dcu and /dev/null differ diff --git a/Source/Servidor/uSchemaUtilsServer.dcu b/Source/Servidor/uSchemaUtilsServer.dcu deleted file mode 100644 index 9dcadca8..00000000 Binary files a/Source/Servidor/uSchemaUtilsServer.dcu and /dev/null differ diff --git a/Source/Servidor/uServerAppUtils.dcu b/Source/Servidor/uServerAppUtils.dcu deleted file mode 100644 index 66312130..00000000 Binary files a/Source/Servidor/uServerAppUtils.dcu and /dev/null differ diff --git a/Source/Servidor/uServerMainForm.dcu b/Source/Servidor/uServerMainForm.dcu deleted file mode 100644 index aaa583f0..00000000 Binary files a/Source/Servidor/uServerMainForm.dcu and /dev/null differ diff --git a/Source/Servidor/uSesionesUtils.dcu b/Source/Servidor/uSesionesUtils.dcu deleted file mode 100644 index 950b49b6..00000000 Binary files a/Source/Servidor/uSesionesUtils.dcu and /dev/null differ diff --git a/Source/Servidor/uUsersManager.dcu b/Source/Servidor/uUsersManager.dcu deleted file mode 100644 index 54fe6092..00000000 Binary files a/Source/Servidor/uUsersManager.dcu and /dev/null differ diff --git a/Source/Servidor/uroCipher1.dcu b/Source/Servidor/uroCipher1.dcu deleted file mode 100644 index 6f7abb2c..00000000 Binary files a/Source/Servidor/uroCipher1.dcu and /dev/null differ