diff --git a/Source/Modulos/Contabilidad balances/Balances_Group.groupproj b/Source/Modulos/Contabilidad balances/Balances_Group.groupproj deleted file mode 100644 index 50152f32..00000000 --- a/Source/Modulos/Contabilidad balances/Balances_Group.groupproj +++ /dev/null @@ -1,124 +0,0 @@ - - - {3df776bd-a3f8-4f3a-9129-45fdb4a2ee63} - - - - - - - - - - - - - - - - Default.Personality - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Source/Modulos/Contabilidad balances/Controller/Balances_controller.dpk b/Source/Modulos/Contabilidad balances/Controller/Balances_controller.dpk deleted file mode 100644 index b6c6d5e7..00000000 --- a/Source/Modulos/Contabilidad balances/Controller/Balances_controller.dpk +++ /dev/null @@ -1,42 +0,0 @@ -package Balances_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - Balances_model, - Balances_data; - -contains - uBalancesController in 'uBalancesController.pas', - uIEditorBalance in 'View\uIEditorBalance.pas', - uIEditorBalances in 'View\uIEditorBalances.pas'; - -end. diff --git a/Source/Modulos/Contabilidad balances/Controller/Balances_controller.dproj b/Source/Modulos/Contabilidad balances/Controller/Balances_controller.dproj deleted file mode 100644 index 78111cf5..00000000 --- a/Source/Modulos/Contabilidad balances/Controller/Balances_controller.dproj +++ /dev/null @@ -1,545 +0,0 @@ - - - - {7f80f8aa-6912-4714-986d-aed73035472b} - Balances_controller.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Balances_controller.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Balances_controller.dpk - - - - - MainSource - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad balances/Controller/Balances_controller.identcache b/Source/Modulos/Contabilidad balances/Controller/Balances_controller.identcache deleted file mode 100644 index a9a351aa..00000000 Binary files a/Source/Modulos/Contabilidad balances/Controller/Balances_controller.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Controller/Balances_controller.rc b/Source/Modulos/Contabilidad balances/Controller/Balances_controller.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad balances/Controller/Balances_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/Contabilidad balances/Controller/Balances_controller.res b/Source/Modulos/Contabilidad balances/Controller/Balances_controller.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad balances/Controller/Balances_controller.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Controller/View/uIEditorBalance.pas b/Source/Modulos/Contabilidad balances/Controller/View/uIEditorBalance.pas deleted file mode 100644 index 04cf0a13..00000000 --- a/Source/Modulos/Contabilidad balances/Controller/View/uIEditorBalance.pas +++ /dev/null @@ -1,22 +0,0 @@ -unit uIEditorBalance; - -interface - -uses - uBizBalances; - -type - IEditorBalance = interface - ['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}'] - function GetBalance: IBizBalance; - procedure SetBalance(const Value: IBizBalance); - property Balance: IBizBalance read GetBalance write SetBalance; - - function ShowModal : Integer; - procedure Release; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad balances/Controller/View/uIEditorBalances.pas b/Source/Modulos/Contabilidad balances/Controller/View/uIEditorBalances.pas deleted file mode 100644 index b6eca8df..00000000 --- a/Source/Modulos/Contabilidad balances/Controller/View/uIEditorBalances.pas +++ /dev/null @@ -1,21 +0,0 @@ -unit uIEditorBalances; - -interface - -uses - uBizBalances; - -type - IEditorBalances = interface - ['{47A77BA9-3845-469B-A790-81F3C6E0F134}'] - function GetBalances: IBizBalance; - procedure SetBalances(const Value: IBizBalance); - property Balances: IBizBalance read GetBalances write SetBalances; - function ShowModal : Integer; - procedure Release; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad balances/Controller/uBalancesController.pas b/Source/Modulos/Contabilidad balances/Controller/uBalancesController.pas deleted file mode 100644 index df1be2a8..00000000 --- a/Source/Modulos/Contabilidad balances/Controller/uBalancesController.pas +++ /dev/null @@ -1,273 +0,0 @@ -unit uBalancesController; - -interface - - -uses - Classes, SysUtils, uDADataTable, uControllerBase, - uBizBalances, uIDataModuleBalances; -type - IBalancesController = interface(IObservador) - ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] - function BuscarTodos: IBizBalance; - function Buscar(ID: Integer): IBizBalance; - procedure VerTodos(ABalances: IBizBalance); - procedure Ver(ABalance: IBizBalance); - procedure Anadir(ABalance : IBizBalance); - function Eliminar(ABalance : IBizBalance): Boolean; - function Guardar(ABalance : IBizBalance): Boolean; - procedure DescartarCambios(ABalance : IBizBalance); - function Localizar(ABalances: IBizBalance; ADescripcion:String): Boolean; - function DarListaBalances: TStringList; - end; - - TBalancesController = class(TObservador, IBalancesController) - protected - FDataModule : IDataModuleBalances; - - procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; - function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; - - function ValidarBalance(ABalance: IBizBalance): Boolean; - procedure AsignarDataModule; - - public - constructor Create; override; - destructor Destroy; override; - - function Eliminar(ABalance : IBizBalance): Boolean; - function Guardar(ABalance : IBizBalance): Boolean; virtual; - procedure DescartarCambios(ABalance : IBizBalance); virtual; - procedure Anadir(ABalance : IBizBalance); - function BuscarTodos: IBizBalance; - function Buscar(ID: Integer): IBizBalance; - procedure VerTodos(ABalances: IBizBalance); - procedure Ver(ABalance: IBizBalance); - function Localizar(ABalances: IBizBalance; ADescripcion:String): Boolean; - function DarListaBalances: TStringList; - end; - -implementation - -uses - cxControls, DB, uEditorRegistryUtils, schBalancesClient_Intf, - uIEditorBalances, uIEditorBalance, uDataModuleBalances, - uDAInterfaces, uDataTableUtils, uDialogUtils, - uDateUtils, uROTypes, DateUtils, Controls, Windows; - -{ TBalancesController } - -procedure TBalancesController.Anadir(ABalance: IBizBalance); -begin - ABalance.Insert; -end; - -procedure TBalancesController.AsignarDataModule; -begin - FDataModule := TDataModuleBalances.Create(Nil); -end; - -function TBalancesController.Buscar(ID: Integer): IBizBalance; -var - Condicion: TDAWhereExpression; -begin - ShowHourglassCursor; - try - Result := BuscarTodos; - - with Result.DataTable.DynamicWhere do - begin - // (ID = :ID) - Condicion := NewBinaryExpression(NewField('', fld_BalancesID), NewConstant(ID, datInteger), dboEqual); - - if IsEmpty then - Expression := Condicion - else - Expression := NewBinaryExpression(Expression, Condicion, dboAnd); - end; - - finally - HideHourglassCursor; - end; -end; - -function TBalancesController.BuscarTodos: IBizBalance; -begin - Result := FDataModule.GetItems; -end; - -constructor TBalancesController.Create; -begin - inherited; - AsignarDataModule; -end; - -function TBalancesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; -begin - Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); -end; - -function TBalancesController.DarListaBalances: TStringList; -var - ABalances: IBizBalance; -begin - ABalances := BuscarTodos; - ABalances.DataTable.Active := True; - Result := TStringList.Create; - try - with Result do - begin - ABalances.DataTable.First; - while not ABalances.DataTable.EOF do - begin - Add(ABalances.REF_BALANCE); - ABalances.DataTable.Next; - end; - end; - finally - ABalances := NIL; - end; -end; - -procedure TBalancesController.DescartarCambios(ABalance: IBizBalance); -begin - if not Assigned(ABalance) then - raise Exception.Create ('Balance no asignado'); - - ShowHourglassCursor; - try - if (ABalance.State in dsEditModes) then - ABalance.Cancel; - - ABalance.DataTable.CancelUpdates; - finally - HideHourglassCursor; - end; -end; - -destructor TBalancesController.Destroy; -begin - FDataModule:= NIL; - inherited; -end; - -function TBalancesController.ValidarBalance(ABalance: IBizBalance): Boolean; -begin - Result := False; - - if not Assigned(ABalance) then - raise Exception.Create ('Balance no asignado'); - - if (ABalance.DataTable.State in dsEditModes) then - ABalance.DataTable.Post; - - if Length(ABalance.REF_BALANCE) = 0 then - raise Exception.Create('Debe indicar un nombre para este Balance.'); - - Result := True; -end; - -procedure TBalancesController.Ver(ABalance: IBizBalance); -var - AEditor : IEditorBalance; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorBalance', IEditorBalance, AEditor); - if Assigned(AEditor) then - with AEditor do - begin - Balance := ABalance; - ShowModal; - Release; - end; - finally - AEditor := NIL; - HideHourglassCursor; - end; -end; - -procedure TBalancesController.VerTodos(ABalances: IBizBalance); -var - AEditor : IEditorBalances; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorBalances', IEditorBalances, AEditor); - if Assigned(AEditor) then - with AEditor do - begin - Balances := ABalances; - ShowModal; - Release; - end; - finally - AEditor := NIL; - HideHourglassCursor; - end; -end; - -function TBalancesController.Eliminar(ABalance: IBizBalance): Boolean; -begin - Result := False; - - if not Assigned(ABalance) then - raise Exception.Create ('Balance no asignado'); - - ShowHourglassCursor; - try - if (ABalance.State in dsEditModes) then - ABalance.Cancel; - - ABalance.Delete; - ABalance.DataTable.ApplyUpdates; - HideHourglassCursor; - Result := True; - finally - HideHourglassCursor; - end; -end; - -procedure TBalancesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); -begin - inherited; -// -end; - -function TBalancesController.Guardar(ABalance: IBizBalance): Boolean; -begin - Result := False; - - if ValidarBalance(ABalance) then - begin - ShowHourglassCursor; - try - ABalance.DataTable.ApplyUpdates; - Result := True; - finally - HideHourglassCursor; - end; - end; -end; - -function TBalancesController.Localizar(ABalances: IBizBalance; ADescripcion: String): Boolean; -begin - Result := True; - ShowHourglassCursor; - try - with ABalances.DataTable do - begin - DisableControls; - First; - if not Locate(fld_BalancesREF_BALANCE, ADescripcion, []) then - Result := False; - EnableControls; - end; - finally - HideHourglassCursor; - end; -end; - -end. diff --git a/Source/Modulos/Contabilidad balances/Data/Balances_data.dpk b/Source/Modulos/Contabilidad balances/Data/Balances_data.dpk deleted file mode 100644 index a9b5c27a..00000000 --- a/Source/Modulos/Contabilidad balances/Data/Balances_data.dpk +++ /dev/null @@ -1,43 +0,0 @@ -package Balances_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} -{$IMPLICITBUILD ON} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - dbrtl, - vcldb, - dsnap, - adortl, - Balances_model; - -contains - uDataModuleBalances in 'uDataModuleBalances.pas' {DataModuleBalances}; - -end. diff --git a/Source/Modulos/Contabilidad balances/Data/Balances_data.dproj b/Source/Modulos/Contabilidad balances/Data/Balances_data.dproj deleted file mode 100644 index 39c9ffcb..00000000 --- a/Source/Modulos/Contabilidad balances/Data/Balances_data.dproj +++ /dev/null @@ -1,548 +0,0 @@ - - - - {c8118762-09b6-432f-ba26-058fa36c39d9} - Balances_data.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Balances_data.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Balances_data.dpk - - - - - MainSource - - - - - - - - - - - - -
DataModuleBalances
- - - - diff --git a/Source/Modulos/Contabilidad balances/Data/Balances_data.identcache b/Source/Modulos/Contabilidad balances/Data/Balances_data.identcache deleted file mode 100644 index b2720b53..00000000 Binary files a/Source/Modulos/Contabilidad balances/Data/Balances_data.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Data/Balances_data.rc b/Source/Modulos/Contabilidad balances/Data/Balances_data.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad balances/Data/Balances_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/Contabilidad balances/Data/Balances_data.res b/Source/Modulos/Contabilidad balances/Data/Balances_data.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad balances/Data/Balances_data.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Data/uDataModuleBalances.dfm b/Source/Modulos/Contabilidad balances/Data/uDataModuleBalances.dfm deleted file mode 100644 index d6395cdf..00000000 --- a/Source/Modulos/Contabilidad balances/Data/uDataModuleBalances.dfm +++ /dev/null @@ -1,110 +0,0 @@ -inherited DataModuleBalances: TDataModuleBalances - OnCreate = DAClientDataModuleCreate - Height = 177 - Width = 332 - object RORemoteService: TRORemoteService - Message = dmConexion.ROMessage - Channel = dmConexion.ROChannel - ServiceName = 'srvBalances' - Left = 48 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 104 - end - object rda_Balances: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 176 - Top = 24 - end - object tbl_Balances: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_BALANCES_ID' - Required = True - ServerAutoRefresh = True - DictionaryEntry = 'Ejercicios_ID' - InPrimaryKey = True - end - item - Name = 'REF_BALANCE' - DataType = datString - Size = 255 - DisplayLabel = 'Balances_REF_BALANCE' - DictionaryEntry = 'Balances_REF_BALANCE' - end - item - Name = 'NATURALEZA' - DataType = datString - Size = 255 - DisplayLabel = 'Balances_NATURALEZA' - DictionaryEntry = 'Balances_NATURALEZA' - end - item - Name = 'NIVEL1' - DataType = datString - Size = 15 - DisplayLabel = 'Balances_NIVEL1' - DictionaryEntry = 'Balances_NIVEL1' - end - item - Name = 'DESCRIPCION1' - DataType = datString - Size = 255 - DisplayLabel = 'Balances_DESCRIPCION1' - DictionaryEntry = 'Balances_DESCRIPCION1' - end - item - Name = 'NIVEL2' - DataType = datString - Size = 15 - DisplayLabel = 'Balances_NIVEL2' - DictionaryEntry = 'Balances_NIVEL2' - end - item - Name = 'DESCRIPCION2' - DataType = datString - Size = 255 - DisplayLabel = 'Balances_DESCRIPCION2' - DictionaryEntry = 'Balances_DESCRIPCION2' - end - item - Name = 'NIVEL3' - DataType = datString - Size = 15 - DisplayLabel = 'Balances_NIVEL3' - DictionaryEntry = 'Balances_NIVEL3' - end - item - Name = 'DESCRIPCION3' - DataType = datString - Size = 255 - DisplayLabel = 'Balances_DESCRIPCION3' - DictionaryEntry = 'Balances_DESCRIPCION3' - end> - Params = <> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = rda_Balances - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Balances' - IndexDefs = <> - Left = 264 - Top = 80 - end - object ds_Balances: TDADataSource - DataSet = tbl_Balances.Dataset - DataTable = tbl_Balances - Left = 264 - Top = 24 - end -end diff --git a/Source/Modulos/Contabilidad balances/Data/uDataModuleBalances.pas b/Source/Modulos/Contabilidad balances/Data/uDataModuleBalances.pas deleted file mode 100644 index 3be79aff..00000000 --- a/Source/Modulos/Contabilidad balances/Data/uDataModuleBalances.pas +++ /dev/null @@ -1,54 +0,0 @@ -unit uDataModuleBalances; - -interface - -uses - SysUtils, Classes, DB, uDADataTable, uDABINAdapter, - uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, - uRORemoteService, uROClient, uROBinMessage, - uDADesigntimeCall, uControllerBase, - uBizBalances, uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest, - uDABin2DataStreamer, uDAMemDataTable, uIDataModuleBalances, uDataModuleBase; -type - TDataModuleBalances = class(TDataModuleBase, IDataModuleBalances) - RORemoteService: TRORemoteService; - Bin2DataStreamer: TDABin2DataStreamer; - rda_Balances: TDARemoteDataAdapter; - tbl_Balances: TDAMemDataTable; - ds_Balances: TDADataSource; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetItems: IBizBalance; - end; - -implementation - -{$R *.DFM} - -uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, - schBalancesClient_Intf; - -{ TdmAlmacens } - -procedure TDataModuleBalances.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmConexion.Channel; - RORemoteService.Message := dmConexion.Message; -end; - -function TDataModuleBalances.GetItems: IBizBalance; -var - AContabilidadBalance : TDAMemDataTable; -begin - ShowHourglassCursor; - try - AContabilidadBalance := CloneDataTable(tbl_Balances); - AContabilidadBalance.BusinessRulesID := BIZ_CLIENT_Balance; - Result := (AContabilidadBalance as IBizBalance); - finally - HideHourglassCursor; - end; -end; - -end. diff --git a/Source/Modulos/Contabilidad balances/Model/Balances_model.dpk b/Source/Modulos/Contabilidad balances/Model/Balances_model.dpk deleted file mode 100644 index ac96d7fe..00000000 --- a/Source/Modulos/Contabilidad balances/Model/Balances_model.dpk +++ /dev/null @@ -1,46 +0,0 @@ -package Balances_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, - vcl, - Base, - GUIBase, - ApplicationBase, - dbrtl, - RemObjects_Core_D11, - DataAbstract_Core_D11, - vcldb, - dsnap, - adortl; - -contains - uBizBalances in 'uBizBalances.pas', - uIDataModuleBalances in 'Data\uIDataModuleBalances.pas', - schBalancesServer_Intf in 'schBalancesServer_Intf.pas', - schBalancesClient_Intf in 'schBalancesClient_Intf.pas'; - -end. diff --git a/Source/Modulos/Contabilidad balances/Model/Balances_model.dproj b/Source/Modulos/Contabilidad balances/Model/Balances_model.dproj deleted file mode 100644 index b396de6e..00000000 --- a/Source/Modulos/Contabilidad balances/Model/Balances_model.dproj +++ /dev/null @@ -1,549 +0,0 @@ - - - - {73acd39c-b2f0-49b7-9acf-10945bbac8c1} - Balances_model.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Balances_model.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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.0Balances_model.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad balances/Model/Balances_model.identcache b/Source/Modulos/Contabilidad balances/Model/Balances_model.identcache deleted file mode 100644 index 37724302..00000000 Binary files a/Source/Modulos/Contabilidad balances/Model/Balances_model.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Model/Balances_model.rc b/Source/Modulos/Contabilidad balances/Model/Balances_model.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad balances/Model/Balances_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/Contabilidad balances/Model/Balances_model.res b/Source/Modulos/Contabilidad balances/Model/Balances_model.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad balances/Model/Balances_model.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Model/Data/uIDataModuleBalances.pas b/Source/Modulos/Contabilidad balances/Model/Data/uIDataModuleBalances.pas deleted file mode 100644 index e63cf7e1..00000000 --- a/Source/Modulos/Contabilidad balances/Model/Data/uIDataModuleBalances.pas +++ /dev/null @@ -1,16 +0,0 @@ -unit uIDataModuleBalances; - -interface - -uses - uBizBalances; - -type - IDataModuleBalances = interface(IInterface) - ['{CC6A63E1-2AF2-40E5-B6DC-46CC1549AA56}'] - function GetItems: IBizBalance; - end; - -implementation - -end. diff --git a/Source/Modulos/Contabilidad balances/Model/schBalancesClient_Intf.pas b/Source/Modulos/Contabilidad balances/Model/schBalancesClient_Intf.pas deleted file mode 100644 index e1ad6696..00000000 --- a/Source/Modulos/Contabilidad balances/Model/schBalancesClient_Intf.pas +++ /dev/null @@ -1,379 +0,0 @@ -unit schBalancesClient_Intf; - -interface - -uses - Classes, DB, schBase_Intf, 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_Balances = '{99F0A123-F6B9-45A8-AC24-DD0A2C8855F1}'; - - { Data table names } - nme_Balances = 'Balances'; - - { Balances fields } - fld_BalancesID = 'ID'; - fld_BalancesREF_BALANCE = 'REF_BALANCE'; - fld_BalancesNATURALEZA = 'NATURALEZA'; - fld_BalancesNIVEL1 = 'NIVEL1'; - fld_BalancesDESCRIPCION1 = 'DESCRIPCION1'; - fld_BalancesNIVEL2 = 'NIVEL2'; - fld_BalancesDESCRIPCION2 = 'DESCRIPCION2'; - fld_BalancesNIVEL3 = 'NIVEL3'; - fld_BalancesDESCRIPCION3 = 'DESCRIPCION3'; - - { Balances field indexes } - idx_BalancesID = 0; - idx_BalancesREF_BALANCE = 1; - idx_BalancesNATURALEZA = 2; - idx_BalancesNIVEL1 = 3; - idx_BalancesDESCRIPCION1 = 4; - idx_BalancesNIVEL2 = 5; - idx_BalancesDESCRIPCION2 = 6; - idx_BalancesNIVEL3 = 7; - idx_BalancesDESCRIPCION3 = 8; - -type - { IBalances } - IBalances = interface(IDAStronglyTypedDataTable) - ['{3B9C8F08-A9DB-48FF-94B0-491F9887D89D}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetREF_BALANCEValue: String; - procedure SetREF_BALANCEValue(const aValue: String); - function GetREF_BALANCEIsNull: Boolean; - procedure SetREF_BALANCEIsNull(const aValue: Boolean); - function GetNATURALEZAValue: String; - procedure SetNATURALEZAValue(const aValue: String); - function GetNATURALEZAIsNull: Boolean; - procedure SetNATURALEZAIsNull(const aValue: Boolean); - function GetNIVEL1Value: String; - procedure SetNIVEL1Value(const aValue: String); - function GetNIVEL1IsNull: Boolean; - procedure SetNIVEL1IsNull(const aValue: Boolean); - function GetDESCRIPCION1Value: String; - procedure SetDESCRIPCION1Value(const aValue: String); - function GetDESCRIPCION1IsNull: Boolean; - procedure SetDESCRIPCION1IsNull(const aValue: Boolean); - function GetNIVEL2Value: String; - procedure SetNIVEL2Value(const aValue: String); - function GetNIVEL2IsNull: Boolean; - procedure SetNIVEL2IsNull(const aValue: Boolean); - function GetDESCRIPCION2Value: String; - procedure SetDESCRIPCION2Value(const aValue: String); - function GetDESCRIPCION2IsNull: Boolean; - procedure SetDESCRIPCION2IsNull(const aValue: Boolean); - function GetNIVEL3Value: String; - procedure SetNIVEL3Value(const aValue: String); - function GetNIVEL3IsNull: Boolean; - procedure SetNIVEL3IsNull(const aValue: Boolean); - function GetDESCRIPCION3Value: String; - procedure SetDESCRIPCION3Value(const aValue: String); - function GetDESCRIPCION3IsNull: Boolean; - procedure SetDESCRIPCION3IsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property REF_BALANCE: String read GetREF_BALANCEValue write SetREF_BALANCEValue; - property REF_BALANCEIsNull: Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull; - property NATURALEZA: String read GetNATURALEZAValue write SetNATURALEZAValue; - property NATURALEZAIsNull: Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull; - property NIVEL1: String read GetNIVEL1Value write SetNIVEL1Value; - property NIVEL1IsNull: Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull; - property DESCRIPCION1: String read GetDESCRIPCION1Value write SetDESCRIPCION1Value; - property DESCRIPCION1IsNull: Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull; - property NIVEL2: String read GetNIVEL2Value write SetNIVEL2Value; - property NIVEL2IsNull: Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull; - property DESCRIPCION2: String read GetDESCRIPCION2Value write SetDESCRIPCION2Value; - property DESCRIPCION2IsNull: Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull; - property NIVEL3: String read GetNIVEL3Value write SetNIVEL3Value; - property NIVEL3IsNull: Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull; - property DESCRIPCION3: String read GetDESCRIPCION3Value write SetDESCRIPCION3Value; - property DESCRIPCION3IsNull: Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull; - end; - - { TBalancesDataTableRules } - TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances) - 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 GetREF_BALANCEValue: String; virtual; - procedure SetREF_BALANCEValue(const aValue: String); virtual; - function GetREF_BALANCEIsNull: Boolean; virtual; - procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual; - function GetNATURALEZAValue: String; virtual; - procedure SetNATURALEZAValue(const aValue: String); virtual; - function GetNATURALEZAIsNull: Boolean; virtual; - procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual; - function GetNIVEL1Value: String; virtual; - procedure SetNIVEL1Value(const aValue: String); virtual; - function GetNIVEL1IsNull: Boolean; virtual; - procedure SetNIVEL1IsNull(const aValue: Boolean); virtual; - function GetDESCRIPCION1Value: String; virtual; - procedure SetDESCRIPCION1Value(const aValue: String); virtual; - function GetDESCRIPCION1IsNull: Boolean; virtual; - procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual; - function GetNIVEL2Value: String; virtual; - procedure SetNIVEL2Value(const aValue: String); virtual; - function GetNIVEL2IsNull: Boolean; virtual; - procedure SetNIVEL2IsNull(const aValue: Boolean); virtual; - function GetDESCRIPCION2Value: String; virtual; - procedure SetDESCRIPCION2Value(const aValue: String); virtual; - function GetDESCRIPCION2IsNull: Boolean; virtual; - procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual; - function GetNIVEL3Value: String; virtual; - procedure SetNIVEL3Value(const aValue: String); virtual; - function GetNIVEL3IsNull: Boolean; virtual; - procedure SetNIVEL3IsNull(const aValue: Boolean); virtual; - function GetDESCRIPCION3Value: String; virtual; - procedure SetDESCRIPCION3Value(const aValue: String); virtual; - function GetDESCRIPCION3IsNull: Boolean; virtual; - procedure SetDESCRIPCION3IsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property REF_BALANCE: String read GetREF_BALANCEValue write SetREF_BALANCEValue; - property REF_BALANCEIsNull: Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull; - property NATURALEZA: String read GetNATURALEZAValue write SetNATURALEZAValue; - property NATURALEZAIsNull: Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull; - property NIVEL1: String read GetNIVEL1Value write SetNIVEL1Value; - property NIVEL1IsNull: Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull; - property DESCRIPCION1: String read GetDESCRIPCION1Value write SetDESCRIPCION1Value; - property DESCRIPCION1IsNull: Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull; - property NIVEL2: String read GetNIVEL2Value write SetNIVEL2Value; - property NIVEL2IsNull: Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull; - property DESCRIPCION2: String read GetDESCRIPCION2Value write SetDESCRIPCION2Value; - property DESCRIPCION2IsNull: Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull; - property NIVEL3: String read GetNIVEL3Value write SetNIVEL3Value; - property NIVEL3IsNull: Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull; - property DESCRIPCION3: String read GetDESCRIPCION3Value write SetDESCRIPCION3Value; - property DESCRIPCION3IsNull: Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants, uROBinaryHelpers; - -{ TBalancesDataTableRules } -constructor TBalancesDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TBalancesDataTableRules.Destroy; -begin - inherited; -end; - -function TBalancesDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_BalancesID].AsInteger; -end; - -procedure TBalancesDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_BalancesID].AsInteger := aValue; -end; - -function TBalancesDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesID].IsNull; -end; - -procedure TBalancesDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesID].AsVariant := Null; -end; - -function TBalancesDataTableRules.GetREF_BALANCEValue: String; -begin - result := DataTable.Fields[idx_BalancesREF_BALANCE].AsString; -end; - -procedure TBalancesDataTableRules.SetREF_BALANCEValue(const aValue: String); -begin - DataTable.Fields[idx_BalancesREF_BALANCE].AsString := aValue; -end; - -function TBalancesDataTableRules.GetREF_BALANCEIsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesREF_BALANCE].IsNull; -end; - -procedure TBalancesDataTableRules.SetREF_BALANCEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesREF_BALANCE].AsVariant := Null; -end; - -function TBalancesDataTableRules.GetNATURALEZAValue: String; -begin - result := DataTable.Fields[idx_BalancesNATURALEZA].AsString; -end; - -procedure TBalancesDataTableRules.SetNATURALEZAValue(const aValue: String); -begin - DataTable.Fields[idx_BalancesNATURALEZA].AsString := aValue; -end; - -function TBalancesDataTableRules.GetNATURALEZAIsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesNATURALEZA].IsNull; -end; - -procedure TBalancesDataTableRules.SetNATURALEZAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesNATURALEZA].AsVariant := Null; -end; - -function TBalancesDataTableRules.GetNIVEL1Value: String; -begin - result := DataTable.Fields[idx_BalancesNIVEL1].AsString; -end; - -procedure TBalancesDataTableRules.SetNIVEL1Value(const aValue: String); -begin - DataTable.Fields[idx_BalancesNIVEL1].AsString := aValue; -end; - -function TBalancesDataTableRules.GetNIVEL1IsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesNIVEL1].IsNull; -end; - -procedure TBalancesDataTableRules.SetNIVEL1IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesNIVEL1].AsVariant := Null; -end; - -function TBalancesDataTableRules.GetDESCRIPCION1Value: String; -begin - result := DataTable.Fields[idx_BalancesDESCRIPCION1].AsString; -end; - -procedure TBalancesDataTableRules.SetDESCRIPCION1Value(const aValue: String); -begin - DataTable.Fields[idx_BalancesDESCRIPCION1].AsString := aValue; -end; - -function TBalancesDataTableRules.GetDESCRIPCION1IsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesDESCRIPCION1].IsNull; -end; - -procedure TBalancesDataTableRules.SetDESCRIPCION1IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesDESCRIPCION1].AsVariant := Null; -end; - -function TBalancesDataTableRules.GetNIVEL2Value: String; -begin - result := DataTable.Fields[idx_BalancesNIVEL2].AsString; -end; - -procedure TBalancesDataTableRules.SetNIVEL2Value(const aValue: String); -begin - DataTable.Fields[idx_BalancesNIVEL2].AsString := aValue; -end; - -function TBalancesDataTableRules.GetNIVEL2IsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesNIVEL2].IsNull; -end; - -procedure TBalancesDataTableRules.SetNIVEL2IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesNIVEL2].AsVariant := Null; -end; - -function TBalancesDataTableRules.GetDESCRIPCION2Value: String; -begin - result := DataTable.Fields[idx_BalancesDESCRIPCION2].AsString; -end; - -procedure TBalancesDataTableRules.SetDESCRIPCION2Value(const aValue: String); -begin - DataTable.Fields[idx_BalancesDESCRIPCION2].AsString := aValue; -end; - -function TBalancesDataTableRules.GetDESCRIPCION2IsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesDESCRIPCION2].IsNull; -end; - -procedure TBalancesDataTableRules.SetDESCRIPCION2IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesDESCRIPCION2].AsVariant := Null; -end; - -function TBalancesDataTableRules.GetNIVEL3Value: String; -begin - result := DataTable.Fields[idx_BalancesNIVEL3].AsString; -end; - -procedure TBalancesDataTableRules.SetNIVEL3Value(const aValue: String); -begin - DataTable.Fields[idx_BalancesNIVEL3].AsString := aValue; -end; - -function TBalancesDataTableRules.GetNIVEL3IsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesNIVEL3].IsNull; -end; - -procedure TBalancesDataTableRules.SetNIVEL3IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesNIVEL3].AsVariant := Null; -end; - -function TBalancesDataTableRules.GetDESCRIPCION3Value: String; -begin - result := DataTable.Fields[idx_BalancesDESCRIPCION3].AsString; -end; - -procedure TBalancesDataTableRules.SetDESCRIPCION3Value(const aValue: String); -begin - DataTable.Fields[idx_BalancesDESCRIPCION3].AsString := aValue; -end; - -function TBalancesDataTableRules.GetDESCRIPCION3IsNull: boolean; -begin - result := DataTable.Fields[idx_BalancesDESCRIPCION3].IsNull; -end; - -procedure TBalancesDataTableRules.SetDESCRIPCION3IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_BalancesDESCRIPCION3].AsVariant := Null; -end; - - -initialization - RegisterDataTableRules(RID_Balances, TBalancesDataTableRules); - -end. diff --git a/Source/Modulos/Contabilidad balances/Model/schBalancesServer_Intf.pas b/Source/Modulos/Contabilidad balances/Model/schBalancesServer_Intf.pas deleted file mode 100644 index 309ad2bb..00000000 --- a/Source/Modulos/Contabilidad balances/Model/schBalancesServer_Intf.pas +++ /dev/null @@ -1,444 +0,0 @@ -unit schBalancesServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schBalancesClient_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_BalancesDelta = '{161732E2-9E24-4D8A-A46A-FEB274D4C524}'; - -type - { IBalancesDelta } - IBalancesDelta = interface(IBalances) - ['{161732E2-9E24-4D8A-A46A-FEB274D4C524}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldREF_BALANCEValue : String; - function GetOldNATURALEZAValue : String; - function GetOldNIVEL1Value : String; - function GetOldDESCRIPCION1Value : String; - function GetOldNIVEL2Value : String; - function GetOldDESCRIPCION2Value : String; - function GetOldNIVEL3Value : String; - function GetOldDESCRIPCION3Value : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldREF_BALANCE : String read GetOldREF_BALANCEValue; - property OldNATURALEZA : String read GetOldNATURALEZAValue; - property OldNIVEL1 : String read GetOldNIVEL1Value; - property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value; - property OldNIVEL2 : String read GetOldNIVEL2Value; - property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value; - property OldNIVEL3 : String read GetOldNIVEL3Value; - property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value; - end; - - { TBalancesBusinessProcessorRules } - TBalancesBusinessProcessorRules = class(TDABusinessProcessorRules, IBalances, IBalancesDelta) - 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 GetREF_BALANCEValue: String; virtual; - function GetREF_BALANCEIsNull: Boolean; virtual; - function GetOldREF_BALANCEValue: String; virtual; - function GetOldREF_BALANCEIsNull: Boolean; virtual; - procedure SetREF_BALANCEValue(const aValue: String); virtual; - procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual; - function GetNATURALEZAValue: String; virtual; - function GetNATURALEZAIsNull: Boolean; virtual; - function GetOldNATURALEZAValue: String; virtual; - function GetOldNATURALEZAIsNull: Boolean; virtual; - procedure SetNATURALEZAValue(const aValue: String); virtual; - procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual; - function GetNIVEL1Value: String; virtual; - function GetNIVEL1IsNull: Boolean; virtual; - function GetOldNIVEL1Value: String; virtual; - function GetOldNIVEL1IsNull: Boolean; virtual; - procedure SetNIVEL1Value(const aValue: String); virtual; - procedure SetNIVEL1IsNull(const aValue: Boolean); virtual; - function GetDESCRIPCION1Value: String; virtual; - function GetDESCRIPCION1IsNull: Boolean; virtual; - function GetOldDESCRIPCION1Value: String; virtual; - function GetOldDESCRIPCION1IsNull: Boolean; virtual; - procedure SetDESCRIPCION1Value(const aValue: String); virtual; - procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual; - function GetNIVEL2Value: String; virtual; - function GetNIVEL2IsNull: Boolean; virtual; - function GetOldNIVEL2Value: String; virtual; - function GetOldNIVEL2IsNull: Boolean; virtual; - procedure SetNIVEL2Value(const aValue: String); virtual; - procedure SetNIVEL2IsNull(const aValue: Boolean); virtual; - function GetDESCRIPCION2Value: String; virtual; - function GetDESCRIPCION2IsNull: Boolean; virtual; - function GetOldDESCRIPCION2Value: String; virtual; - function GetOldDESCRIPCION2IsNull: Boolean; virtual; - procedure SetDESCRIPCION2Value(const aValue: String); virtual; - procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual; - function GetNIVEL3Value: String; virtual; - function GetNIVEL3IsNull: Boolean; virtual; - function GetOldNIVEL3Value: String; virtual; - function GetOldNIVEL3IsNull: Boolean; virtual; - procedure SetNIVEL3Value(const aValue: String); virtual; - procedure SetNIVEL3IsNull(const aValue: Boolean); virtual; - function GetDESCRIPCION3Value: String; virtual; - function GetDESCRIPCION3IsNull: Boolean; virtual; - function GetOldDESCRIPCION3Value: String; virtual; - function GetOldDESCRIPCION3IsNull: Boolean; virtual; - procedure SetDESCRIPCION3Value(const aValue: String); virtual; - procedure SetDESCRIPCION3IsNull(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 REF_BALANCE : String read GetREF_BALANCEValue write SetREF_BALANCEValue; - property REF_BALANCEIsNull : Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull; - property OldREF_BALANCE : String read GetOldREF_BALANCEValue; - property OldREF_BALANCEIsNull : Boolean read GetOldREF_BALANCEIsNull; - property NATURALEZA : String read GetNATURALEZAValue write SetNATURALEZAValue; - property NATURALEZAIsNull : Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull; - property OldNATURALEZA : String read GetOldNATURALEZAValue; - property OldNATURALEZAIsNull : Boolean read GetOldNATURALEZAIsNull; - property NIVEL1 : String read GetNIVEL1Value write SetNIVEL1Value; - property NIVEL1IsNull : Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull; - property OldNIVEL1 : String read GetOldNIVEL1Value; - property OldNIVEL1IsNull : Boolean read GetOldNIVEL1IsNull; - property DESCRIPCION1 : String read GetDESCRIPCION1Value write SetDESCRIPCION1Value; - property DESCRIPCION1IsNull : Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull; - property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value; - property OldDESCRIPCION1IsNull : Boolean read GetOldDESCRIPCION1IsNull; - property NIVEL2 : String read GetNIVEL2Value write SetNIVEL2Value; - property NIVEL2IsNull : Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull; - property OldNIVEL2 : String read GetOldNIVEL2Value; - property OldNIVEL2IsNull : Boolean read GetOldNIVEL2IsNull; - property DESCRIPCION2 : String read GetDESCRIPCION2Value write SetDESCRIPCION2Value; - property DESCRIPCION2IsNull : Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull; - property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value; - property OldDESCRIPCION2IsNull : Boolean read GetOldDESCRIPCION2IsNull; - property NIVEL3 : String read GetNIVEL3Value write SetNIVEL3Value; - property NIVEL3IsNull : Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull; - property OldNIVEL3 : String read GetOldNIVEL3Value; - property OldNIVEL3IsNull : Boolean read GetOldNIVEL3IsNull; - property DESCRIPCION3 : String read GetDESCRIPCION3Value write SetDESCRIPCION3Value; - property DESCRIPCION3IsNull : Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull; - property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value; - property OldDESCRIPCION3IsNull : Boolean read GetOldDESCRIPCION3IsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers, uDAInterfaces; - -{ TBalancesBusinessProcessorRules } -constructor TBalancesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TBalancesBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TBalancesBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]; -end; - -function TBalancesBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]); -end; - -function TBalancesBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]; -end; - -function TBalancesBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]); -end; - -procedure TBalancesBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := Null; -end; - -function TBalancesBusinessProcessorRules.GetREF_BALANCEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]; -end; - -function TBalancesBusinessProcessorRules.GetREF_BALANCEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]); -end; - -function TBalancesBusinessProcessorRules.GetOldREF_BALANCEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]; -end; - -function TBalancesBusinessProcessorRules.GetOldREF_BALANCEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]); -end; - -procedure TBalancesBusinessProcessorRules.SetREF_BALANCEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetREF_BALANCEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := Null; -end; - -function TBalancesBusinessProcessorRules.GetNATURALEZAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]; -end; - -function TBalancesBusinessProcessorRules.GetNATURALEZAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]); -end; - -function TBalancesBusinessProcessorRules.GetOldNATURALEZAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]; -end; - -function TBalancesBusinessProcessorRules.GetOldNATURALEZAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]); -end; - -procedure TBalancesBusinessProcessorRules.SetNATURALEZAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetNATURALEZAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := Null; -end; - -function TBalancesBusinessProcessorRules.GetNIVEL1Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]; -end; - -function TBalancesBusinessProcessorRules.GetNIVEL1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]); -end; - -function TBalancesBusinessProcessorRules.GetOldNIVEL1Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]; -end; - -function TBalancesBusinessProcessorRules.GetOldNIVEL1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]); -end; - -procedure TBalancesBusinessProcessorRules.SetNIVEL1Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetNIVEL1IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := Null; -end; - -function TBalancesBusinessProcessorRules.GetDESCRIPCION1Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]; -end; - -function TBalancesBusinessProcessorRules.GetDESCRIPCION1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]); -end; - -function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]; -end; - -function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]); -end; - -procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := Null; -end; - -function TBalancesBusinessProcessorRules.GetNIVEL2Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]; -end; - -function TBalancesBusinessProcessorRules.GetNIVEL2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]); -end; - -function TBalancesBusinessProcessorRules.GetOldNIVEL2Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]; -end; - -function TBalancesBusinessProcessorRules.GetOldNIVEL2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]); -end; - -procedure TBalancesBusinessProcessorRules.SetNIVEL2Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetNIVEL2IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := Null; -end; - -function TBalancesBusinessProcessorRules.GetDESCRIPCION2Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]; -end; - -function TBalancesBusinessProcessorRules.GetDESCRIPCION2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]); -end; - -function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]; -end; - -function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]); -end; - -procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := Null; -end; - -function TBalancesBusinessProcessorRules.GetNIVEL3Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]; -end; - -function TBalancesBusinessProcessorRules.GetNIVEL3IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]); -end; - -function TBalancesBusinessProcessorRules.GetOldNIVEL3Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]; -end; - -function TBalancesBusinessProcessorRules.GetOldNIVEL3IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]); -end; - -procedure TBalancesBusinessProcessorRules.SetNIVEL3Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetNIVEL3IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := Null; -end; - -function TBalancesBusinessProcessorRules.GetDESCRIPCION3Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]; -end; - -function TBalancesBusinessProcessorRules.GetDESCRIPCION3IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]); -end; - -function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]; -end; - -function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]); -end; - -procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := aValue; -end; - -procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := Null; -end; - - -initialization - RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules); - -end. diff --git a/Source/Modulos/Contabilidad balances/Model/uBizBalances.pas b/Source/Modulos/Contabilidad balances/Model/uBizBalances.pas deleted file mode 100644 index 1ad28acd..00000000 --- a/Source/Modulos/Contabilidad balances/Model/uBizBalances.pas +++ /dev/null @@ -1,54 +0,0 @@ -unit uBizBalances; - -interface - -uses - uDAInterfaces, uDADataTable, schBalancesClient_Intf; - -const - BIZ_CLIENT_Balance = 'Client.Balance'; - -type - IBizBalance = interface(IBalances) - ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}'] - function EsNuevo : Boolean; - end; - - TBizBalance = class(TBalancesDataTableRules, IBizBalance) - protected - procedure OnNewRecord(Sender: TDADataTable); override; - public - procedure IniciarValoresBalanceNueva; - function EsNuevo : Boolean; - end; - -implementation - -{ TBizBalance } - -uses - SysUtils, uDataTableUtils; - -function TBizBalance.EsNuevo: Boolean; -begin - Result := (ID < 0); -end; - -procedure TBizBalance.IniciarValoresBalanceNueva; -begin - // -end; - -procedure TBizBalance.OnNewRecord(Sender: TDADataTable); -begin - inherited; - IniciarValoresBalanceNueva; -end; - -initialization - RegisterDataTableRules(BIZ_CLIENT_Balance, TBizBalance); - -finalization - -end. - diff --git a/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.dpk b/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.dpk deleted file mode 100644 index 6e99fb3e..00000000 --- a/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.dpk +++ /dev/null @@ -1,46 +0,0 @@ -package Balances_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - Balances_model, - Balances_controller, - Balances_view; - -contains - uPluginBalances in 'uPluginBalances.pas'; - -end. diff --git a/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.dproj b/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.dproj deleted file mode 100644 index 9b4c8f1b..00000000 --- a/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.dproj +++ /dev/null @@ -1,549 +0,0 @@ - - - - {82e36812-58c4-491b-b463-6b951e95da51} - Balances_plugin.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Balances_plugin.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Balances_plugin.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.identcache b/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.identcache deleted file mode 100644 index 610f884b..00000000 Binary files a/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.rc b/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad balances/Plugin/Balances_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/Contabilidad balances/Plugin/Balances_plugin.res b/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad balances/Plugin/Balances_plugin.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Plugin/uPluginBalances.dfm b/Source/Modulos/Contabilidad balances/Plugin/uPluginBalances.dfm deleted file mode 100644 index c21fa30b..00000000 --- a/Source/Modulos/Contabilidad balances/Plugin/uPluginBalances.dfm +++ /dev/null @@ -1,81 +0,0 @@ -object PluginBalances: TPluginBalances - OldCreateOrder = True - DefaultAction = actBalances - Description = 'Ejercicios' - ModuleMenu = MainMenu - ModuleName = 'Balances' - SmallImages = SmallImages - LargeImages = SmallImages - Author = 'Rodax Software' - Version = '1.0.0' - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = <> - Left = 232 - Top = 16 - end - object ModuleActionList: TActionList - Images = SmallImages - Left = 40 - Top = 72 - object actBalances: TAction - Category = 'Balances' - Caption = 'Balances' - ImageIndex = 0 - OnExecute = actBalancesExecute - end - end - object MainMenu: TMainMenu - Images = LargeImages - Left = 40 - Top = 16 - object Ventas1: TMenuItem - Caption = 'Empresa' - object N1: TMenuItem - Tag = 18990 - Caption = '-' - end - object Balances1: TMenuItem - Tag = 19001 - Action = actBalances - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6 - B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77 - EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5 - E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D - 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D - C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6 - 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141 - 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15 - F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334 - 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524 - 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256 - 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4 - 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F - E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = <> - Left = 232 - Top = 80 - end -end diff --git a/Source/Modulos/Contabilidad balances/Plugin/uPluginBalances.pas b/Source/Modulos/Contabilidad balances/Plugin/uPluginBalances.pas deleted file mode 100644 index d10e6af4..00000000 --- a/Source/Modulos/Contabilidad balances/Plugin/uPluginBalances.pas +++ /dev/null @@ -1,74 +0,0 @@ -unit uPluginBalances; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCBalances = interface(IInterface) - ['{255E8D6B-282A-48CC-9807-E49C7D31FD2D}'] - end; - - TPluginBalances = class(TModuleController, IMCBalances) - actBalances: TAction; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - Ventas1: TMenuItem; - Balances1: TMenuItem; - N1: TMenuItem; - procedure actBalancesExecute(Sender: TObject); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, SysUtils, - uBalancesController, uBizBalances, uBalancesViewRegister; - -function GetModule : TModuleController; -begin - Result := TPluginBalances.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -procedure TPluginBalances.actBalancesExecute(Sender: TObject); -var - ABalancesController : IBalancesController; - ABalances : IBizBalance; -begin - ABalancesController := TBalancesController.Create; - ABalances := (ABalancesController.BuscarTodos as IBizBalance); - ABalancesController.VerTodos(ABalances); -end; - -constructor TPluginBalances.Create(AOwner: TComponent); -begin - inherited; - uBalancesViewRegister.RegisterViews; -end; - -destructor TPluginBalances.Destroy; -begin - uBalancesViewRegister.UnregisterViews; - inherited; -end; - -initialization - RegisterModuleClass(TPluginBalances); - -finalization - UnRegisterModuleClass(TPluginBalances); - -end. diff --git a/Source/Modulos/Contabilidad balances/Servidor/srvBalances_Impl.dfm b/Source/Modulos/Contabilidad balances/Servidor/srvBalances_Impl.dfm deleted file mode 100644 index ef3404d3..00000000 --- a/Source/Modulos/Contabilidad balances/Servidor/srvBalances_Impl.dfm +++ /dev/null @@ -1,194 +0,0 @@ -object srvBalances: TsrvBalances - OldCreateOrder = True - OnCreate = DARemoteServiceCreate - SessionManager = dmServer.SessionManager - ServiceSchema = schBalances - ServiceDataStreamer = Bin2DataStreamer - ExportedDataTables = <> - BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection - Height = 181 - Width = 282 - object Diagrams: TDADiagrams - Left = 150 - Top = 90 - DiagramData = - ''#13#10' '#13#10' '#13#10' '#13#10''#13#10 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'Ejercicios_ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_BALANCES_ID' - Required = True - DisplayLabel = 'ID' - ServerAutoRefresh = True - end - item - Name = 'Balances_REF_BALANCE' - DataType = datString - Size = 255 - end - item - Name = 'Balances_NATURALEZA' - DataType = datString - Size = 255 - end - item - Name = 'Balances_NIVEL1' - DataType = datString - Size = 15 - end - item - Name = 'Balances_DESCRIPCION1' - DataType = datString - Size = 255 - end - item - Name = 'Balances_NIVEL2' - DataType = datString - Size = 15 - end - item - Name = 'Balances_DESCRIPCION2' - DataType = datString - Size = 255 - end - item - Name = 'Balances_NIVEL3' - DataType = datString - Size = 15 - end - item - Name = 'Balances_DESCRIPCION3' - DataType = datString - Size = 255 - end> - Left = 150 - Top = 24 - end - object schBalances: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'IBX' - TargetTable = 'CONT_BALANCES' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'REF_BALANCE' - TableField = 'REF_BALANCE' - end - item - DatasetField = 'NATURALEZA' - TableField = 'NATURALEZA' - end - item - DatasetField = 'NIVEL1' - TableField = 'NIVEL1' - end - item - DatasetField = 'DESCRIPCION1' - TableField = 'DESCRIPCION1' - end - item - DatasetField = 'NIVEL2' - TableField = 'NIVEL2' - end - item - DatasetField = 'DESCRIPCION2' - TableField = 'DESCRIPCION2' - end - item - DatasetField = 'NIVEL3' - TableField = 'NIVEL3' - end - item - DatasetField = 'DESCRIPCION3' - TableField = 'DESCRIPCION3' - end> - end> - Name = 'Balances' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_BALANCES_ID' - ServerAutoRefresh = True - DictionaryEntry = 'Ejercicios_ID' - InPrimaryKey = True - end - item - Name = 'REF_BALANCE' - DataType = datString - Size = 255 - DictionaryEntry = 'Balances_REF_BALANCE' - end - item - Name = 'NATURALEZA' - DataType = datString - Size = 255 - DictionaryEntry = 'Balances_NATURALEZA' - end - item - Name = 'NIVEL1' - DataType = datString - Size = 15 - DictionaryEntry = 'Balances_NIVEL1' - end - item - Name = 'DESCRIPCION1' - DataType = datString - Size = 255 - DictionaryEntry = 'Balances_DESCRIPCION1' - end - item - Name = 'NIVEL2' - DataType = datString - Size = 15 - DictionaryEntry = 'Balances_NIVEL2' - end - item - Name = 'DESCRIPCION2' - DataType = datString - Size = 255 - DictionaryEntry = 'Balances_DESCRIPCION2' - end - item - Name = 'NIVEL3' - DataType = datString - Size = 15 - DictionaryEntry = 'Balances_NIVEL3' - end - item - Name = 'DESCRIPCION3' - DataType = datString - Size = 255 - DictionaryEntry = 'Balances_DESCRIPCION3' - 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/Contabilidad balances/Servidor/srvBalances_Impl.pas b/Source/Modulos/Contabilidad balances/Servidor/srvBalances_Impl.pas deleted file mode 100644 index 8552c9b7..00000000 --- a/Source/Modulos/Contabilidad balances/Servidor/srvBalances_Impl.pas +++ /dev/null @@ -1,64 +0,0 @@ -unit srvBalances_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, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer, - uDABin2DataStreamer; - -type - { TsrvBalances } - TsrvBalances = class(TDataAbstractService, IsrvBalances) - Diagrams: TDADiagrams; - Bin2DataStreamer: TDABin2DataStreamer; - schBalances: TDASchema; - DataDictionary: TDADataDictionary; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); - private - protected - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, uDataModuleServer, - uDatabaseUtils; - -procedure Create_srvBalances(out anInstance : IUnknown); -begin - anInstance := TsrvBalances.Create(NIL); -end; - -{ srvBalances } -procedure TsrvBalances.DARemoteServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; -end; - -procedure TsrvBalances.DataAbstractServiceBeforeAcquireConnection( - aSender: TObject; var aConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -initialization - TROClassFactory.Create('srvBalances', Create_srvBalances, TsrvBalances_Invoker); - -finalization - -end. diff --git a/Source/Modulos/Contabilidad balances/Views/Balances_view.dpk b/Source/Modulos/Contabilidad balances/Views/Balances_view.dpk deleted file mode 100644 index 0e02ea07..00000000 --- a/Source/Modulos/Contabilidad balances/Views/Balances_view.dpk +++ /dev/null @@ -1,43 +0,0 @@ -package Balances_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - JvCmpD11R, - Balances_model, - Balances_controller; - -contains - uEditorBalances in 'uEditorBalances.pas' {fEditorBalances: TfEditorFormasPago}, - uBalancesViewRegister in 'uBalancesViewRegister.pas', - uEditorBalance in 'uEditorBalance.pas' {fEditorBalance}; - -end. diff --git a/Source/Modulos/Contabilidad balances/Views/Balances_view.dproj b/Source/Modulos/Contabilidad balances/Views/Balances_view.dproj deleted file mode 100644 index fdea0b91..00000000 --- a/Source/Modulos/Contabilidad balances/Views/Balances_view.dproj +++ /dev/null @@ -1,551 +0,0 @@ - - - - {e3d36a6f-7004-4c89-9f3d-f2d77e386d1b} - Balances_view.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Balances_view.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Balances_view.dpk - - - - - MainSource - - - - - - - - - - -
fEditorBalance
- - -
fEditorBalances
- TfEditorFormasPago - - - - - diff --git a/Source/Modulos/Contabilidad balances/Views/Balances_view.identcache b/Source/Modulos/Contabilidad balances/Views/Balances_view.identcache deleted file mode 100644 index bb9cd89c..00000000 Binary files a/Source/Modulos/Contabilidad balances/Views/Balances_view.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Views/Balances_view.rc b/Source/Modulos/Contabilidad balances/Views/Balances_view.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad balances/Views/Balances_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/Contabilidad balances/Views/Balances_view.res b/Source/Modulos/Contabilidad balances/Views/Balances_view.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad balances/Views/Balances_view.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad balances/Views/uBalancesViewRegister.pas b/Source/Modulos/Contabilidad balances/Views/uBalancesViewRegister.pas deleted file mode 100644 index 7a990703..00000000 --- a/Source/Modulos/Contabilidad balances/Views/uBalancesViewRegister.pas +++ /dev/null @@ -1,25 +0,0 @@ -unit uBalancesViewRegister; - -interface - -procedure RegisterViews; -procedure UnregisterViews; - -implementation - -uses - uEditorRegistryUtils, uEditorBalance, uEditorBalances; - -procedure RegisterViews; -begin - EditorRegistry.RegisterClass(TfEditorBalances, 'EditorBalances'); - EditorRegistry.RegisterClass(TfEditorBalance, 'EditorBalance'); -end; - -procedure UnregisterViews; -begin - EditorRegistry.UnRegisterClass(TfEditorBalances); - EditorRegistry.UnRegisterClass(TfEditorBalance); -end; - -end. diff --git a/Source/Modulos/Contabilidad balances/Views/uEditorBalance.dfm b/Source/Modulos/Contabilidad balances/Views/uEditorBalance.dfm deleted file mode 100644 index 9149448f..00000000 --- a/Source/Modulos/Contabilidad balances/Views/uEditorBalance.dfm +++ /dev/null @@ -1,248 +0,0 @@ -object fEditorBalance: TfEditorBalance - Left = 453 - Top = 234 - ActiveControl = eReferencia - BorderIcons = [biSystemMenu] - BorderStyle = bsSingle - Caption = 'Balance' - ClientHeight = 352 - ClientWidth = 404 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object Label1: TLabel - Left = 16 - Top = 17 - Width = 104 - Height = 13 - Caption = 'Datos del balance' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - end - object Bevel1: TBevel - Left = 173 - Top = 17 - Width = 212 - Height = 10 - Shape = bsBottomLine - end - object Label2: TLabel - Left = 62 - Top = 43 - Width = 55 - Height = 13 - Alignment = taRightJustify - Caption = 'Referencia:' - end - object Label3: TLabel - Left = 63 - Top = 71 - Width = 54 - Height = 13 - Alignment = taRightJustify - Caption = 'Naturaleza:' - end - object Bevel4: TBevel - Left = 8 - Top = 290 - Width = 388 - Height = 10 - Shape = bsBottomLine - end - object JvEnterAsTab1: TJvEnterAsTab - Left = 137 - Top = 306 - Width = 28 - Height = 28 - end - object Label4: TLabel - Left = 84 - Top = 98 - Width = 33 - Height = 13 - Alignment = taRightJustify - Caption = 'Nivel1:' - end - object Label5: TLabel - Left = 52 - Top = 125 - Width = 65 - Height = 13 - Alignment = taRightJustify - Caption = 'Descripci'#243'n1:' - end - object Label6: TLabel - Left = 84 - Top = 152 - Width = 33 - Height = 13 - Alignment = taRightJustify - Caption = 'Nivel2:' - end - object Label7: TLabel - Left = 52 - Top = 179 - Width = 65 - Height = 13 - Alignment = taRightJustify - Caption = 'Descripci'#243'n2:' - end - object Label8: TLabel - Left = 84 - Top = 206 - Width = 33 - Height = 13 - Alignment = taRightJustify - Caption = 'Nivel3:' - end - object Label9: TLabel - Left = 52 - Top = 233 - Width = 65 - Height = 13 - Alignment = taRightJustify - Caption = 'Descripci'#243'n3:' - end - object bAceptar: TButton - Left = 234 - Top = 314 - Width = 75 - Height = 23 - Action = actAceptar - TabOrder = 2 - end - object bCancelar: TButton - Left = 319 - Top = 314 - Width = 75 - Height = 23 - Action = actCancelar - Cancel = True - TabOrder = 3 - end - object eReferencia: TDBEdit - Left = 123 - Top = 40 - Width = 118 - Height = 21 - Color = clInfoBk - DataField = 'REF_BALANCE' - DataSource = dsBalances - TabOrder = 0 - end - object eNaturaleza: TDBEdit - Left = 123 - Top = 68 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'NATURALEZA' - DataSource = dsBalances - TabOrder = 1 - end - object eNivel1: TDBEdit - Left = 123 - Top = 95 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'NIVEL1' - DataSource = dsBalances - TabOrder = 4 - end - object eDescripcion1: TDBEdit - Left = 123 - Top = 122 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'DESCRIPCION1' - DataSource = dsBalances - TabOrder = 5 - end - object eNivel2: TDBEdit - Left = 123 - Top = 149 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'NIVEL2' - DataSource = dsBalances - TabOrder = 6 - end - object eDescripcion2: TDBEdit - Left = 123 - Top = 176 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'DESCRIPCION2' - DataSource = dsBalances - TabOrder = 7 - end - object eNivel3: TDBEdit - Left = 123 - Top = 203 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'NIVEL3' - DataSource = dsBalances - TabOrder = 8 - end - object eDescripcion3: TDBEdit - Left = 123 - Top = 230 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'DESCRIPCION3' - DataSource = dsBalances - TabOrder = 9 - end - object ActionList1: TActionList - Left = 88 - Top = 300 - object actAnadir: TAction - Caption = '&A'#241'adir' - OnExecute = actAnadirExecute - OnUpdate = actAnadirUpdate - end - object actEliminar: TAction - Caption = '&Eliminar' - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - object actAceptar: TAction - Caption = '&Guardar' - OnExecute = actAceptarExecute - end - object actCancelar: TAction - Caption = '&Cancelar' - OnExecute = actCancelarExecute - end - object actCerrar: TAction - Caption = 'actCerrar' - OnExecute = actCerrarExecute - end - object actModificar: TAction - Caption = '&Modificar' - end - end - object dsBalances: TDADataSource - Left = 48 - Top = 300 - end -end diff --git a/Source/Modulos/Contabilidad balances/Views/uEditorBalance.pas b/Source/Modulos/Contabilidad balances/Views/uEditorBalance.pas deleted file mode 100644 index c719e9e4..00000000 --- a/Source/Modulos/Contabilidad balances/Views/uEditorBalance.pas +++ /dev/null @@ -1,190 +0,0 @@ -{ -=============================================================================== - Copyright (©) 2006. 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: 22-05-2006 - Versión actual: 1.0.0 - Fecha versión actual: 22-05-2006 -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} - -unit uEditorBalance; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, - uBizBalances, uBalancesController, - uDADataTable, uIEditorBalance, ActnList, ExtCtrls, JvExControls, - JvComponent, JvEnterTab, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, cxDBData, cxSpinEdit, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, - cxGridCustomView, cxGrid, uDAInterfaces; - -type - TfEditorBalance = class(TForm, IEditorBalance) - ActionList1: TActionList; - actAnadir: TAction; - actEliminar: TAction; - actAceptar: TAction; - actCancelar: TAction; - bAceptar: TButton; - bCancelar: TButton; - actCerrar: TAction; - actModificar: TAction; - eReferencia: TDBEdit; - eNaturaleza: TDBEdit; - dsBalances: TDADataSource; - Label1: TLabel; - Bevel1: TBevel; - Label2: TLabel; - Label3: TLabel; - Bevel4: TBevel; - JvEnterAsTab1: TJvEnterAsTab; - eNivel1: TDBEdit; - eDescripcion1: TDBEdit; - eNivel2: TDBEdit; - eDescripcion2: TDBEdit; - eNivel3: TDBEdit; - eDescripcion3: TDBEdit; - Label4: TLabel; - Label5: TLabel; - Label6: TLabel; - Label7: TLabel; - Label8: TLabel; - Label9: TLabel; - procedure FormShow(Sender: TObject); - - procedure actAnadirExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actAceptarExecute(Sender: TObject); - procedure actCancelarExecute(Sender: TObject); - procedure actCerrarExecute(Sender: TObject); - procedure actAnadirUpdate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - protected - FBalance: IBizBalance; - FController : IBalancesController; - function GetBalance: IBizBalance; - procedure SetBalance(const Value: IBizBalance); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - property Balance: IBizBalance read GetBalance write SetBalance; - end; - - -implementation -{$R *.dfm} - -{ TfEditorBalances } - -uses - Dialogs, uDialogUtils, uDataModuleBalances; - -function TfEditorBalance.GetBalance: IBizBalance; -begin - Result := FBalance; -end; - -procedure TfEditorBalance.SetBalance(const Value: IBizBalance); -begin - FBalance := Value; - if Assigned(FBalance) then - begin - dsBalances.DataTable := FBalance.DataTable; - dsBalances.DataTable.Open; - end - else begin - dsBalances.DataTable := NIL; - end; -end; - -procedure TfEditorBalance.actAnadirExecute(Sender: TObject); -begin -// FPlazos.Append; -end; - -procedure TfEditorBalance.actEliminarExecute(Sender: TObject); -begin -// FPlazos.Delete; -end; - -procedure TfEditorBalance.actEliminarUpdate(Sender: TObject); -begin -{ - (Sender as TAction).Enabled := Assigned(FPlazos) and - FPlazos.DataTable.Active and - (FPlazos.DataTable.RecordCount > 0); -} -end; - -constructor TfEditorBalance.Create(AOwner: TComponent); -begin - inherited; - FController := TBalancesController.Create; -end; - -destructor TfEditorBalance.Destroy; -begin - FBalance := NIL; - FController := NIL; - inherited; -end; - -procedure TfEditorBalance.actAceptarExecute(Sender: TObject); -begin -{ - if (ListaBalances.ActiveView.DataController.RecordCount = 0) then - if (ShowConfirmMessage('Forma de pago sin plazos', 'No ha indicado plazos de pago para esta forma de pago por lo tanto no se podrán generarar los recibos correspondientes.' + #10#13 + '¿Desea continuar guardando la forma de pago?') = IDNO) then - Exit; -} - if FController.Guardar(FBalance) then - actCerrar.Execute; -end; - -procedure TfEditorBalance.actCancelarExecute(Sender: TObject); -begin - FController.DescartarCambios(FBalance); - actCerrar.Execute; -end; - -procedure TfEditorBalance.actCerrarExecute(Sender: TObject); -begin - Close; -end; - -procedure TfEditorBalance.actAnadirUpdate(Sender: TObject); -begin -{ - (Sender as TAction).Enabled := Assigned(FPlazos) and - FPlazos.DataTable.Active; -} -end; - -procedure TfEditorBalance.FormShow(Sender: TObject); -begin - if not FBalance.DataTable.Active then - FBalance.DataTable.Active := True; - - if FBalance.EsNuevo then - Self.Caption := 'Nueva forma de pago' - else - Self.Caption := 'Modificar forma de pago'; -end; - -end. diff --git a/Source/Modulos/Contabilidad balances/Views/uEditorBalances.dfm b/Source/Modulos/Contabilidad balances/Views/uEditorBalances.dfm deleted file mode 100644 index ed080d89..00000000 --- a/Source/Modulos/Contabilidad balances/Views/uEditorBalances.dfm +++ /dev/null @@ -1,177 +0,0 @@ -object fEditorBalances: TfEditorBalances - Left = 453 - Top = 234 - BorderIcons = [biSystemMenu] - BorderStyle = bsSingle - Caption = 'Lista de balances' - ClientHeight = 406 - ClientWidth = 959 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object bAceptar: TButton - Left = 236 - Top = 373 - Width = 75 - Height = 23 - Action = actAceptar - Default = True - TabOrder = 1 - end - object bCancelar: TButton - Left = 321 - Top = 373 - Width = 75 - Height = 23 - Action = actCancelar - Cancel = True - TabOrder = 2 - end - object PageControl1: TPageControl - Left = 0 - Top = 0 - Width = 959 - Height = 406 - ActivePage = TabSheet1 - Align = alClient - TabOrder = 0 - ExplicitWidth = 573 - object TabSheet1: TTabSheet - Caption = 'Balances' - ExplicitWidth = 565 - object Label1: TLabel - Left = 6 - Top = 12 - Width = 138 - Height = 13 - Caption = 'Lista de balances disponibles' - end - object bEliminar: TButton - Left = 853 - Top = 90 - Width = 95 - Height = 23 - Action = actEliminar - TabOrder = 0 - end - object bAnadir: TButton - Left = 853 - Top = 31 - Width = 95 - Height = 23 - Action = actAnadir - TabOrder = 1 - end - object Button1: TButton - Left = 853 - Top = 61 - Width = 95 - Height = 23 - Action = actModificar - TabOrder = 2 - end - object ListaBalances: TDBGrid - Left = 3 - Top = 31 - Width = 844 - Height = 289 - DataSource = dsBalances - Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit] - TabOrder = 3 - TitleFont.Charset = DEFAULT_CHARSET - TitleFont.Color = clWindowText - TitleFont.Height = -11 - TitleFont.Name = 'MS Sans Serif' - TitleFont.Style = [] - Columns = < - item - Expanded = False - FieldName = 'REF_BALANCE' - Title.Caption = 'Referencia' - Width = 110 - Visible = True - end - item - Expanded = False - FieldName = 'NATURALEZA' - Title.Caption = 'Descripci'#243'n' - Width = 154 - Visible = True - end - item - Expanded = False - FieldName = 'NIVEL1' - Visible = True - end - item - Expanded = False - FieldName = 'DESCRIPCION1' - Visible = True - end - item - Expanded = False - FieldName = 'NIVEL2' - Visible = True - end - item - Expanded = False - FieldName = 'DESCRIPCION2' - Visible = True - end - item - Expanded = False - FieldName = 'NIVEL3' - Visible = True - end - item - Expanded = False - FieldName = 'DESCRIPCION3' - Visible = True - end> - end - end - end - object ActionList1: TActionList - Left = 144 - Top = 16 - object actAnadir: TAction - Caption = '&A'#241'adir...' - OnExecute = actAnadirExecute - OnUpdate = actAnadirUpdate - end - object actEliminar: TAction - Caption = '&Eliminar' - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - object actAceptar: TAction - Caption = 'A&ceptar' - OnExecute = actAceptarExecute - end - object actCancelar: TAction - Caption = '&Cancelar' - OnExecute = actCancelarExecute - end - object actCerrar: TAction - Caption = 'actCerrar' - OnExecute = actCerrarExecute - end - object actModificar: TAction - Caption = '&Modificar...' - OnExecute = actModificarExecute - OnUpdate = actModificarUpdate - end - end - object dsBalances: TDADataSource - Left = 168 - Top = 16 - end -end diff --git a/Source/Modulos/Contabilidad balances/Views/uEditorBalances.pas b/Source/Modulos/Contabilidad balances/Views/uEditorBalances.pas deleted file mode 100644 index 7c8cf6ea..00000000 --- a/Source/Modulos/Contabilidad balances/Views/uEditorBalances.pas +++ /dev/null @@ -1,184 +0,0 @@ -{ -=============================================================================== - Copyright (©) 2006. 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: 22-05-2006 - Versión actual: 1.0.0 - Fecha versión actual: 22-05-2006 -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} - -unit uEditorBalances; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - uIEditorBalances, uBizBalances, uBalancesController, DB, uDADataTable, - ActnList, Grids, DBGrids, StdCtrls, ComCtrls, uDAInterfaces, Mask, DBCtrls; - -type - TfEditorBalances = class(TForm, IEditorBalances) - ActionList1: TActionList; - actAnadir: TAction; - actEliminar: TAction; - bEliminar: TButton; - actAceptar: TAction; - actCancelar: TAction; - bAceptar: TButton; - bCancelar: TButton; - actCerrar: TAction; - PageControl1: TPageControl; - TabSheet1: TTabSheet; - Label1: TLabel; - bAnadir: TButton; - actModificar: TAction; - Button1: TButton; - dsBalances: TDADataSource; - ListaBalances: TDBGrid; - procedure FormShow(Sender: TObject); - - procedure actAnadirExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actAceptarExecute(Sender: TObject); - procedure actCancelarExecute(Sender: TObject); - procedure actCerrarExecute(Sender: TObject); - procedure actAnadirUpdate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actModificarExecute(Sender: TObject); - procedure ListaBalancesDblClick(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - protected - FBalances: IBizBalance; - FController: IBalancesController; - function GetBalances: IBizBalance; - procedure SetBalances(const Value: IBizBalance); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - property Balances: IBizBalance read GetBalances write SetBalances; - end; - - -implementation -{$R *.dfm} - -{ TfEditorBalances } - -uses - uDialogUtils; - -function TfEditorBalances.GetBalances: IBizBalance; -begin - Result := FBalances; -end; - -procedure TfEditorBalances.ListaBalancesDblClick(Sender: TObject); -begin -// ListaBalances.SelectedIndex -end; - -procedure TfEditorBalances.SetBalances(const Value: IBizBalance); -begin - FBalances := Value; - dsBalances.DataTable := (FBalances as IBizBalance).DataTable; - dsBalances.DataTable.Open; -end; - -procedure TfEditorBalances.actAnadirExecute(Sender: TObject); -begin - FController.Anadir(Balances); - FController.Ver(Balances); -end; - -procedure TfEditorBalances.actEliminarExecute(Sender: TObject); -begin - if (ShowConfirmMessage('Borrar forma de pago', '¿Está seguro que desea borrar esta forma de pago?') = IDYES) then - FController.Eliminar(FBalances) -end; - -procedure TfEditorBalances.actEliminarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := Assigned(FBalances) and - FBalances.DataTable.Active and - (FBalances.DataTable.RecordCount > 0); -end; - -procedure TfEditorBalances.actModificarExecute(Sender: TObject); -begin - FController.Ver(Balances); -end; - -procedure TfEditorBalances.actModificarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := Assigned(FBalances) and - FBalances.DataTable.Active and - (FBalances.DataTable.RecordCount > 0); -end; - -constructor TfEditorBalances.Create(AOwner: TComponent); -begin - inherited; - FController := TBalancesController.Create; -end; - -destructor TfEditorBalances.Destroy; -begin - FBalances := NIL; - FController := NIL; - inherited; -end; - -procedure TfEditorBalances.actAceptarExecute(Sender: TObject); -begin - try - Balances.DataTable.ApplyUpdates; - except - on E : Exception do begin - Balances.DataTable.CancelUpdates; - ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E); - Exit; - end; - end; - actCerrar.Execute; -end; - -procedure TfEditorBalances.actCancelarExecute(Sender: TObject); -begin - Balances.DataTable.CancelUpdates; - actCerrar.Execute; -end; - -procedure TfEditorBalances.actCerrarExecute(Sender: TObject); -begin - Close; -end; - -procedure TfEditorBalances.actAnadirUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := Assigned(FBalances) and - FBalances.DataTable.Active; -end; - -procedure TfEditorBalances.FormShow(Sender: TObject); -begin - if not FBalances.DataTable.Active then - FBalances.DataTable.Active := true; - -// ListaBalances.SetFocus; -end; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.dpk b/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.dpk deleted file mode 100644 index 46d86c71..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.dpk +++ /dev/null @@ -1,42 +0,0 @@ -package CuentasEspeciales_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - CuentasEspeciales_model, - CuentasEspeciales_data; - -contains - uCuentasEspecialesController in 'uCuentasEspecialesController.pas', - uIEditorCuentaEspecial in 'View\uIEditorCuentaEspecial.pas', - uIEditorCuentasEspeciales in 'View\uIEditorCuentasEspeciales.pas'; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.dproj b/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.dproj deleted file mode 100644 index 43084e54..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.dproj +++ /dev/null @@ -1,545 +0,0 @@ - - - - {7f80f8aa-6912-4714-986d-aed73035472b} - CuentasEspeciales_controller.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\CuentasEspeciales_controller.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0CuentasEspeciales_controller.dpk - - - - - MainSource - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.identcache b/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.identcache deleted file mode 100644 index c7bfbd6f..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.rc b/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_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/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.res b/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Controller/CuentasEspeciales_controller.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Controller/View/uIEditorCuentaEspecial.pas b/Source/Modulos/Contabilidad cuentas especiales/Controller/View/uIEditorCuentaEspecial.pas deleted file mode 100644 index 25899be4..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Controller/View/uIEditorCuentaEspecial.pas +++ /dev/null @@ -1,22 +0,0 @@ -unit uIEditorCuentaEspecial; - -interface - -uses - uBizCuentasEspeciales; - -type - IEditorCuentaEspecial = interface - ['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}'] - function GetCuentaEspecial: IBizCuentaEspecial; - procedure SetCuentaEspecial(const Value: IBizCuentaEspecial); - property CuentaEspecial: IBizCuentaEspecial read GetCuentaEspecial write SetCuentaEspecial; - - function ShowModal : Integer; - procedure Release; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Controller/View/uIEditorCuentasEspeciales.pas b/Source/Modulos/Contabilidad cuentas especiales/Controller/View/uIEditorCuentasEspeciales.pas deleted file mode 100644 index d02623d0..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Controller/View/uIEditorCuentasEspeciales.pas +++ /dev/null @@ -1,21 +0,0 @@ -unit uIEditorCuentasEspeciales; - -interface - -uses - uBizCuentasEspeciales; - -type - IEditorCuentasEspeciales = interface - ['{47A77BA9-3845-469B-A790-81F3C6E0F134}'] - function GetCuentasEspeciales: IBizCuentaEspecial; - procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial); - property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales; - function ShowModal : Integer; - procedure Release; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Controller/uCuentasEspecialesController.pas b/Source/Modulos/Contabilidad cuentas especiales/Controller/uCuentasEspecialesController.pas deleted file mode 100644 index 39d4adec..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Controller/uCuentasEspecialesController.pas +++ /dev/null @@ -1,273 +0,0 @@ -unit uCuentasEspecialesController; - -interface - - -uses - Classes, SysUtils, uDADataTable, uControllerBase, - uBizCuentasEspeciales, uIDataModuleCuentasEspeciales; -type - ICuentasEspecialesController = interface(IObservador) - ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] - function BuscarTodos: IBizCuentaEspecial; - function Buscar(ID: Integer): IBizCuentaEspecial; - procedure VerTodos(ACuentasEspeciales: IBizCuentaEspecial); - procedure Ver(ACuentaEspecial: IBizCuentaEspecial); - procedure Anadir(ACuentaEspecial : IBizCuentaEspecial); - function Eliminar(ACuentaEspecial : IBizCuentaEspecial): Boolean; - function Guardar(ACuentaEspecial : IBizCuentaEspecial): Boolean; - procedure DescartarCambios(ACuentaEspecial : IBizCuentaEspecial); - function Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion:String): Boolean; - function DarListaCuentasEspeciales: TStringList; - end; - - TCuentasEspecialesController = class(TObservador, ICuentasEspecialesController) - protected - FDataModule : IDataModuleCuentasEspeciales; - - procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; - function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; - - function ValidarCuentaEspecial(ACuentaEspecial: IBizCuentaEspecial): Boolean; - procedure AsignarDataModule; - - public - constructor Create; override; - destructor Destroy; override; - - function Eliminar(ACuentaEspecial : IBizCuentaEspecial): Boolean; - function Guardar(ACuentaEspecial : IBizCuentaEspecial): Boolean; virtual; - procedure DescartarCambios(ACuentaEspecial : IBizCuentaEspecial); virtual; - procedure Anadir(ACuentaEspecial : IBizCuentaEspecial); - function BuscarTodos: IBizCuentaEspecial; - function Buscar(ID: Integer): IBizCuentaEspecial; - procedure VerTodos(ACuentasEspeciales: IBizCuentaEspecial); - procedure Ver(ACuentaEspecial: IBizCuentaEspecial); - function Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion:String): Boolean; - function DarListaCuentasEspeciales: TStringList; - end; - -implementation - -uses - cxControls, DB, uEditorRegistryUtils, schCuentasEspecialesClient_Intf, - uIEditorCuentasEspeciales, uIEditorCuentaEspecial, uDataModuleCuentasEspeciales, - uDAInterfaces, uDataTableUtils, uDialogUtils, - uDateUtils, uROTypes, DateUtils, Controls, Windows; - -{ TCuentasEspecialesController } - -procedure TCuentasEspecialesController.Anadir(ACuentaEspecial: IBizCuentaEspecial); -begin - ACuentaEspecial.Insert; -end; - -procedure TCuentasEspecialesController.AsignarDataModule; -begin - FDataModule := TDataModuleCuentasEspeciales.Create(Nil); -end; - -function TCuentasEspecialesController.Buscar(ID: Integer): IBizCuentaEspecial; -var - Condicion: TDAWhereExpression; -begin - ShowHourglassCursor; - try - Result := BuscarTodos; - - with Result.DataTable.DynamicWhere do - begin - // (ID = :ID) - Condicion := NewBinaryExpression(NewField('', fld_CuentasEspecialesID), NewConstant(ID, datInteger), dboEqual); - - if IsEmpty then - Expression := Condicion - else - Expression := NewBinaryExpression(Expression, Condicion, dboAnd); - end; - - finally - HideHourglassCursor; - end; -end; - -function TCuentasEspecialesController.BuscarTodos: IBizCuentaEspecial; -begin - Result := FDataModule.GetItems; -end; - -constructor TCuentasEspecialesController.Create; -begin - inherited; - AsignarDataModule; -end; - -function TCuentasEspecialesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; -begin - Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); -end; - -function TCuentasEspecialesController.DarListaCuentasEspeciales: TStringList; -var - ACuentasEspeciales: IBizCuentaEspecial; -begin - ACuentasEspeciales := BuscarTodos; - ACuentasEspeciales.DataTable.Active := True; - Result := TStringList.Create; - try - with Result do - begin - ACuentasEspeciales.DataTable.First; - while not ACuentasEspeciales.DataTable.EOF do - begin - Add(ACuentasEspeciales.DESCRIPCION); - ACuentasEspeciales.DataTable.Next; - end; - end; - finally - ACuentasEspeciales := NIL; - end; -end; - -procedure TCuentasEspecialesController.DescartarCambios(ACuentaEspecial: IBizCuentaEspecial); -begin - if not Assigned(ACuentaEspecial) then - raise Exception.Create ('CuentaEspecial no asignado'); - - ShowHourglassCursor; - try - if (ACuentaEspecial.State in dsEditModes) then - ACuentaEspecial.Cancel; - - ACuentaEspecial.DataTable.CancelUpdates; - finally - HideHourglassCursor; - end; -end; - -destructor TCuentasEspecialesController.Destroy; -begin - FDataModule:= NIL; - inherited; -end; - -function TCuentasEspecialesController.ValidarCuentaEspecial(ACuentaEspecial: IBizCuentaEspecial): Boolean; -begin - Result := False; - - if not Assigned(ACuentaEspecial) then - raise Exception.Create ('CuentaEspecial no asignado'); - - if (ACuentaEspecial.DataTable.State in dsEditModes) then - ACuentaEspecial.DataTable.Post; - - if Length(ACuentaEspecial.DESCRIPCION) = 0 then - raise Exception.Create('Debe indicar un nombre para este CuentaEspecial.'); - - Result := True; -end; - -procedure TCuentasEspecialesController.Ver(ACuentaEspecial: IBizCuentaEspecial); -var - AEditor : IEditorCuentaEspecial; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorCuentaEspecial', IEditorCuentaEspecial, AEditor); - if Assigned(AEditor) then - with AEditor do - begin - CuentaEspecial := ACuentaEspecial; - ShowModal; - Release; - end; - finally - AEditor := NIL; - HideHourglassCursor; - end; -end; - -procedure TCuentasEspecialesController.VerTodos(ACuentasEspeciales: IBizCuentaEspecial); -var - AEditor : IEditorCuentasEspeciales; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorCuentasEspeciales', IEditorCuentasEspeciales, AEditor); - if Assigned(AEditor) then - with AEditor do - begin - CuentasEspeciales := ACuentasEspeciales; - ShowModal; - Release; - end; - finally - AEditor := NIL; - HideHourglassCursor; - end; -end; - -function TCuentasEspecialesController.Eliminar(ACuentaEspecial: IBizCuentaEspecial): Boolean; -begin - Result := False; - - if not Assigned(ACuentaEspecial) then - raise Exception.Create ('CuentaEspecial no asignado'); - - ShowHourglassCursor; - try - if (ACuentaEspecial.State in dsEditModes) then - ACuentaEspecial.Cancel; - - ACuentaEspecial.Delete; - ACuentaEspecial.DataTable.ApplyUpdates; - HideHourglassCursor; - Result := True; - finally - HideHourglassCursor; - end; -end; - -procedure TCuentasEspecialesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); -begin - inherited; -// -end; - -function TCuentasEspecialesController.Guardar(ACuentaEspecial: IBizCuentaEspecial): Boolean; -begin - Result := False; - - if ValidarCuentaEspecial(ACuentaEspecial) then - begin - ShowHourglassCursor; - try - ACuentaEspecial.DataTable.ApplyUpdates; - Result := True; - finally - HideHourglassCursor; - end; - end; -end; - -function TCuentasEspecialesController.Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion: String): Boolean; -begin - Result := True; - ShowHourglassCursor; - try - with ACuentasEspeciales.DataTable do - begin - DisableControls; - First; - if not Locate(fld_CuentasEspecialesDESCRIPCION, ADescripcion, []) then - Result := False; - EnableControls; - end; - finally - HideHourglassCursor; - end; -end; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/CuentasEspeciales_Group.groupproj b/Source/Modulos/Contabilidad cuentas especiales/CuentasEspeciales_Group.groupproj deleted file mode 100644 index 2f3bffad..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/CuentasEspeciales_Group.groupproj +++ /dev/null @@ -1,124 +0,0 @@ - - - {3df776bd-a3f8-4f3a-9129-45fdb4a2ee63} - - - - - - - - - - - - - - - - Default.Personality - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dpk b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dpk deleted file mode 100644 index f1ac6326..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dpk +++ /dev/null @@ -1,43 +0,0 @@ -package CuentasEspeciales_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} -{$IMPLICITBUILD ON} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - dbrtl, - vcldb, - dsnap, - adortl, - CuentasEspeciales_model; - -contains - uDataModuleCuentasEspeciales in 'uDataModuleCuentasEspeciales.pas' {DataModuleCuentasEspeciales}; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dproj b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dproj deleted file mode 100644 index 48de96eb..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.dproj +++ /dev/null @@ -1,548 +0,0 @@ - - - - {c8118762-09b6-432f-ba26-058fa36c39d9} - CuentasEspeciales_data.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\CuentasEspeciales_data.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0CuentasEspeciales_data.dpk - - - - - MainSource - - - - - - - - - - - - -
DataModuleCuentasEspeciales
- - - - diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.identcache b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.identcache deleted file mode 100644 index cb02de0a..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.rc b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_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/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res b/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res deleted file mode 100644 index 1641339f..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Data/CuentasEspeciales_data.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.dfm b/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.dfm deleted file mode 100644 index b9bcb532..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.dfm +++ /dev/null @@ -1,68 +0,0 @@ -inherited DataModuleCuentasEspeciales: TDataModuleCuentasEspeciales - OnCreate = DAClientDataModuleCreate - Height = 177 - Width = 332 - object RORemoteService: TRORemoteService - Message = dmConexion.ROMessage - Channel = dmConexion.ROChannel - ServiceName = 'srvCuentasEspeciales' - Left = 48 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 104 - end - object rda_CuentasEspeciales: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 176 - Top = 24 - end - object tbl_CuentasEspeciales: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID' - Required = True - ServerAutoRefresh = True - DictionaryEntry = 'CuentasEspeciales_ID' - InPrimaryKey = True - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 6 - DisplayLabel = 'CuentasEspeciales_REFERENCIA' - DictionaryEntry = 'CuentasEspeciales_REFERENCIA' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DisplayLabel = 'CuentasEspeciales_DESCRIPCION' - DictionaryEntry = 'CuentasEspeciales_DESCRIPCION' - end> - Params = <> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = rda_CuentasEspeciales - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'CuentasEspeciales' - IndexDefs = <> - Left = 256 - Top = 112 - end - object ds_CuentasEspeciales: TDADataSource - DataSet = tbl_CuentasEspeciales.Dataset - DataTable = tbl_CuentasEspeciales - Left = 256 - Top = 56 - end -end diff --git a/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.pas b/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.pas deleted file mode 100644 index 2d0bfea5..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Data/uDataModuleCuentasEspeciales.pas +++ /dev/null @@ -1,54 +0,0 @@ -unit uDataModuleCuentasEspeciales; - -interface - -uses - SysUtils, Classes, DB, uDADataTable, uDABINAdapter, - uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, - uRORemoteService, uROClient, uROBinMessage, - uDADesigntimeCall, uControllerBase, - uBizCuentasEspeciales, uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest, - uDABin2DataStreamer, uDAMemDataTable, uIDataModuleCuentasEspeciales, uDataModuleBase; -type - TDataModuleCuentasEspeciales = class(TDataModuleBase, IDataModuleCuentasEspeciales) - RORemoteService: TRORemoteService; - Bin2DataStreamer: TDABin2DataStreamer; - rda_CuentasEspeciales: TDARemoteDataAdapter; - tbl_CuentasEspeciales: TDAMemDataTable; - ds_CuentasEspeciales: TDADataSource; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetItems: IBizCuentaEspecial; - end; - -implementation - -{$R *.DFM} - -uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, - schCuentasEspecialesClient_Intf; - -{ TdmCuentasEspeciales } - -procedure TDataModuleCuentasEspeciales.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmConexion.Channel; - RORemoteService.Message := dmConexion.Message; -end; - -function TDataModuleCuentasEspeciales.GetItems: IBizCuentaEspecial; -var - AContabilidadCuentaEspecial : TDAMemDataTable; -begin - ShowHourglassCursor; - try - AContabilidadCuentaEspecial := CloneDataTable(tbl_CuentasEspeciales); - AContabilidadCuentaEspecial.BusinessRulesID := BIZ_CLIENT_CuentaEspecial; - Result := (AContabilidadCuentaEspecial as IBizCuentaEspecial); - finally - HideHourglassCursor; - end; -end; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.dpk b/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.dpk deleted file mode 100644 index ee71fc44..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.dpk +++ /dev/null @@ -1,46 +0,0 @@ -package CuentasEspeciales_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, - vcl, - Base, - GUIBase, - ApplicationBase, - dbrtl, - RemObjects_Core_D11, - DataAbstract_Core_D11, - vcldb, - dsnap, - adortl; - -contains - uBizCuentasEspeciales in 'uBizCuentasEspeciales.pas', - uIDataModuleCuentasEspeciales in 'Data\uIDataModuleCuentasEspeciales.pas', - schCuentasEspecialesClient_Intf in 'schCuentasEspecialesClient_Intf.pas', - schCuentasEspecialesServer_Intf in 'schCuentasEspecialesServer_Intf.pas'; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.dproj b/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.dproj deleted file mode 100644 index a25364ae..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.dproj +++ /dev/null @@ -1,549 +0,0 @@ - - - - {73acd39c-b2f0-49b7-9acf-10945bbac8c1} - CuentasEspeciales_model.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\CuentasEspeciales_model.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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.0CuentasEspeciales_model.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.identcache b/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.identcache deleted file mode 100644 index 8e544d8b..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.rc b/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_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/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.res b/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Model/CuentasEspeciales_model.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/Data/uIDataModuleCuentasEspeciales.pas b/Source/Modulos/Contabilidad cuentas especiales/Model/Data/uIDataModuleCuentasEspeciales.pas deleted file mode 100644 index 2c5b336f..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Model/Data/uIDataModuleCuentasEspeciales.pas +++ /dev/null @@ -1,16 +0,0 @@ -unit uIDataModuleCuentasEspeciales; - -interface - -uses - uBizCuentasEspeciales; - -type - IDataModuleCuentasEspeciales = interface(IInterface) - ['{CC6A63E1-2AF2-40E5-B6DC-46CC1549AA56}'] - function GetItems: IBizCuentaEspecial; - end; - -implementation - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesClient_Intf.pas b/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesClient_Intf.pas deleted file mode 100644 index 931dbdf9..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesClient_Intf.pas +++ /dev/null @@ -1,169 +0,0 @@ -unit schCuentasEspecialesClient_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_CuentasEspeciales = '{22FC91FB-D212-4C2B-82BE-953585281D71}'; - - { Data table names } - nme_CuentasEspeciales = 'CuentasEspeciales'; - - { CuentasEspeciales fields } - fld_CuentasEspecialesID = 'ID'; - fld_CuentasEspecialesREFERENCIA = 'REFERENCIA'; - fld_CuentasEspecialesDESCRIPCION = 'DESCRIPCION'; - - { CuentasEspeciales field indexes } - idx_CuentasEspecialesID = 0; - idx_CuentasEspecialesREFERENCIA = 1; - idx_CuentasEspecialesDESCRIPCION = 2; - -type - { ICuentasEspeciales } - ICuentasEspeciales = interface(IDAStronglyTypedDataTable) - ['{858B16C5-86E3-4646-906C-BC48D5DF496F}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetDESCRIPCIONValue: String; - procedure SetDESCRIPCIONValue(const aValue: String); - function GetDESCRIPCIONIsNull: Boolean; - procedure SetDESCRIPCIONIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - end; - - { TCuentasEspecialesDataTableRules } - TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales) - 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 GetREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetDESCRIPCIONIsNull: Boolean; virtual; - procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants, uROBinaryHelpers; - -{ TCuentasEspecialesDataTableRules } -constructor TCuentasEspecialesDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TCuentasEspecialesDataTableRules.Destroy; -begin - inherited; -end; - -function TCuentasEspecialesDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_CuentasEspecialesID].AsInteger; -end; - -procedure TCuentasEspecialesDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_CuentasEspecialesID].AsInteger := aValue; -end; - -function TCuentasEspecialesDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_CuentasEspecialesID].IsNull; -end; - -procedure TCuentasEspecialesDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_CuentasEspecialesID].AsVariant := Null; -end; - -function TCuentasEspecialesDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsString; -end; - -procedure TCuentasEspecialesDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsString := aValue; -end; - -function TCuentasEspecialesDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_CuentasEspecialesREFERENCIA].IsNull; -end; - -procedure TCuentasEspecialesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsVariant := Null; -end; - -function TCuentasEspecialesDataTableRules.GetDESCRIPCIONValue: String; -begin - result := DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsString; -end; - -procedure TCuentasEspecialesDataTableRules.SetDESCRIPCIONValue(const aValue: String); -begin - DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsString := aValue; -end; - -function TCuentasEspecialesDataTableRules.GetDESCRIPCIONIsNull: boolean; -begin - result := DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].IsNull; -end; - -procedure TCuentasEspecialesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsVariant := Null; -end; - - -initialization - RegisterDataTableRules(RID_CuentasEspeciales, TCuentasEspecialesDataTableRules); - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesServer_Intf.pas b/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesServer_Intf.pas deleted file mode 100644 index 56ce2ecf..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Model/schCuentasEspecialesServer_Intf.pas +++ /dev/null @@ -1,186 +0,0 @@ -unit schCuentasEspecialesServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schCuentasEspecialesClient_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_CuentasEspecialesDelta = '{E8A1B283-B033-4779-A21D-C22AA74FEEEF}'; - -type - { ICuentasEspecialesDelta } - ICuentasEspecialesDelta = interface(ICuentasEspeciales) - ['{E8A1B283-B033-4779-A21D-C22AA74FEEEF}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldREFERENCIAValue : String; - function GetOldDESCRIPCIONValue : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - end; - - { TCuentasEspecialesBusinessProcessorRules } - TCuentasEspecialesBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentasEspeciales, ICuentasEspecialesDelta) - 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 GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetDESCRIPCIONValue: String; virtual; - function GetDESCRIPCIONIsNull: Boolean; virtual; - function GetOldDESCRIPCIONValue: String; virtual; - function GetOldDESCRIPCIONIsNull: Boolean; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - procedure SetDESCRIPCIONIsNull(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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; - property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers, uDAInterfaces; - -{ TCuentasEspecialesBusinessProcessorRules } -constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TCuentasEspecialesBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]); -end; - -function TCuentasEspecialesBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]); -end; - -procedure TCuentasEspecialesBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := aValue; -end; - -procedure TCuentasEspecialesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := Null; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]); -end; - -function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]); -end; - -procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := aValue; -end; - -procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := Null; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]); -end; - -function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]; -end; - -function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]); -end; - -procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := aValue; -end; - -procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := Null; -end; - - -initialization - RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules); - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Model/uBizCuentasEspeciales.pas b/Source/Modulos/Contabilidad cuentas especiales/Model/uBizCuentasEspeciales.pas deleted file mode 100644 index 1d68093f..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Model/uBizCuentasEspeciales.pas +++ /dev/null @@ -1,54 +0,0 @@ -unit uBizCuentasEspeciales; - -interface - -uses - uDAInterfaces, uDADataTable, schCuentasEspecialesClient_Intf; - -const - BIZ_CLIENT_CuentaEspecial = 'Client.CuentaEspecial'; - -type - IBizCuentaEspecial = interface(ICuentasEspeciales) - ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}'] - function EsNuevo : Boolean; - end; - - TBizCuentaEspecial = class(TCuentasEspecialesDataTableRules, IBizCuentaEspecial) - protected - procedure OnNewRecord(Sender: TDADataTable); override; - public - procedure IniciarValoresCuentaEspecialNueva; - function EsNuevo : Boolean; - end; - -implementation - -{ TBizCuentaEspecial } - -uses - SysUtils, uDataTableUtils; - -function TBizCuentaEspecial.EsNuevo: Boolean; -begin - Result := (ID < 0); -end; - -procedure TBizCuentaEspecial.IniciarValoresCuentaEspecialNueva; -begin - // -end; - -procedure TBizCuentaEspecial.OnNewRecord(Sender: TDADataTable); -begin - inherited; - IniciarValoresCuentaEspecialNueva; -end; - -initialization - RegisterDataTableRules(BIZ_CLIENT_CuentaEspecial, TBizCuentaEspecial); - -finalization - -end. - diff --git a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.dpk b/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.dpk deleted file mode 100644 index acdd07a5..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.dpk +++ /dev/null @@ -1,46 +0,0 @@ -package CuentasEspeciales_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - CuentasEspeciales_view, - CuentasEspeciales_controller, - CuentasEspeciales_model; - -contains - uPluginCuentasEspeciales in 'uPluginCuentasEspeciales.pas' {PluginCuentasEspeciales}; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.dproj b/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.dproj deleted file mode 100644 index f74b2ca2..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.dproj +++ /dev/null @@ -1,551 +0,0 @@ - - - - {82e36812-58c4-491b-b463-6b951e95da51} - CuentasEspeciales_plugin.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\CuentasEspeciales_plugin.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0CuentasEspeciales_plugin.dpk - - - - - MainSource - - - - - - - - - - - - -
PluginCuentasEspeciales
- - - - - - - diff --git a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.identcache b/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.identcache deleted file mode 100644 index 3cf9cc56..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.rc b/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_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/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.res b/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Plugin/CuentasEspeciales_plugin.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Plugin/uPluginCuentasEspeciales.dfm b/Source/Modulos/Contabilidad cuentas especiales/Plugin/uPluginCuentasEspeciales.dfm deleted file mode 100644 index ec8d7981..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Plugin/uPluginCuentasEspeciales.dfm +++ /dev/null @@ -1,81 +0,0 @@ -object PluginCuentasEspeciales: TPluginCuentasEspeciales - OldCreateOrder = True - DefaultAction = actCuentasEspeciales - Description = 'Cuentas especiales' - ModuleMenu = MainMenu - ModuleName = 'Cuentas especiales' - SmallImages = SmallImages - LargeImages = SmallImages - Author = 'Rodax Software' - Version = '1.0.0' - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = <> - Left = 232 - Top = 16 - end - object ModuleActionList: TActionList - Images = SmallImages - Left = 40 - Top = 72 - object actCuentasEspeciales: TAction - Category = 'Cuentas especiales' - Caption = 'Cuentas especiales' - ImageIndex = 0 - OnExecute = actCuentasEspecialesExecute - end - end - object MainMenu: TMainMenu - Images = LargeImages - Left = 40 - Top = 16 - object Ventas1: TMenuItem - Caption = 'Empresa' - object N1: TMenuItem - Tag = 18990 - Caption = '-' - end - object CuentasEspeciales1: TMenuItem - Tag = 19001 - Action = actCuentasEspeciales - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6 - B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77 - EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5 - E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D - 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D - C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6 - 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141 - 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15 - F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334 - 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524 - 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256 - 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4 - 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F - E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = <> - Left = 232 - Top = 80 - end -end diff --git a/Source/Modulos/Contabilidad cuentas especiales/Plugin/uPluginCuentasEspeciales.pas b/Source/Modulos/Contabilidad cuentas especiales/Plugin/uPluginCuentasEspeciales.pas deleted file mode 100644 index 6a500ee7..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Plugin/uPluginCuentasEspeciales.pas +++ /dev/null @@ -1,74 +0,0 @@ -unit uPluginCuentasEspeciales; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCCuentasEspeciales = interface(IInterface) - ['{255E8D6B-282A-48CC-9807-E49C7D31FD2D}'] - end; - - TPluginCuentasEspeciales = class(TModuleController, IMCCuentasEspeciales) - actCuentasEspeciales: TAction; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - Ventas1: TMenuItem; - CuentasEspeciales1: TMenuItem; - N1: TMenuItem; - procedure actCuentasEspecialesExecute(Sender: TObject); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, SysUtils, - uCuentasEspecialesController, uBizCuentasEspeciales, uCuentasEspecialesViewRegister; - -function GetModule : TModuleController; -begin - Result := TPluginCuentasEspeciales.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -procedure TPluginCuentasEspeciales.actCuentasEspecialesExecute(Sender: TObject); -var - ACuentasEspecialesController : ICuentasEspecialesController; - ACuentasEspeciales : IBizCuentaEspecial; -begin - ACuentasEspecialesController := TCuentasEspecialesController.Create; - ACuentasEspeciales := (ACuentasEspecialesController.BuscarTodos as IBizCuentaEspecial); - ACuentasEspecialesController.VerTodos(ACuentasEspeciales); -end; - -constructor TPluginCuentasEspeciales.Create(AOwner: TComponent); -begin - inherited; - uCuentasEspecialesViewRegister.RegisterViews; -end; - -destructor TPluginCuentasEspeciales.Destroy; -begin - uCuentasEspecialesViewRegister.UnregisterViews; - inherited; -end; - -initialization - RegisterModuleClass(TPluginCuentasEspeciales); - -finalization - UnRegisterModuleClass(TPluginCuentasEspeciales); - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.dfm b/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.dfm deleted file mode 100644 index 98f5e4aa..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.dfm +++ /dev/null @@ -1,104 +0,0 @@ -object srvCuentasEspeciales: TsrvCuentasEspeciales - OldCreateOrder = True - OnCreate = DARemoteServiceCreate - SessionManager = dmServer.SessionManager - ServiceSchema = schCuentasEspeciales - ServiceDataStreamer = Bin2DataStreamer - ExportedDataTables = <> - BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection - Height = 181 - Width = 282 - object Diagrams: TDADiagrams - Left = 150 - Top = 90 - DiagramData = - ''#13#10' '#13#10' '#13#10' '#13#10''#13#10 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'CuentasEspeciales_ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID' - Required = True - DisplayLabel = 'ID' - ServerAutoRefresh = True - end - item - Name = 'CuentasEspeciales_REFERENCIA' - DataType = datString - Size = 6 - end - item - Name = 'CuentasEspeciales_DESCRIPCION' - DataType = datString - Size = 255 - end> - Left = 150 - Top = 24 - end - object schCuentasEspeciales: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'IBX' - TargetTable = 'CONT_CUENTAS_ESPECIALES' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end> - end> - Name = 'CuentasEspeciales' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID' - ServerAutoRefresh = True - DictionaryEntry = 'CuentasEspeciales_ID' - InPrimaryKey = True - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 6 - DictionaryEntry = 'CuentasEspeciales_REFERENCIA' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'CuentasEspeciales_DESCRIPCION' - 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/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.pas b/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.pas deleted file mode 100644 index fb96a63a..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Servidor/srvCuentasEspeciales_Impl.pas +++ /dev/null @@ -1,64 +0,0 @@ -unit srvCuentasEspeciales_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, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer, - uDABin2DataStreamer; - -type - { TsrvCuentasEspeciales } - TsrvCuentasEspeciales = class(TDataAbstractService, IsrvCuentasEspeciales) - Diagrams: TDADiagrams; - Bin2DataStreamer: TDABin2DataStreamer; - schCuentasEspeciales: TDASchema; - DataDictionary: TDADataDictionary; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); - private - protected - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, uDataModuleServer, - uDatabaseUtils; - -procedure Create_srvCuentasEspeciales(out anInstance : IUnknown); -begin - anInstance := TsrvCuentasEspeciales.Create(NIL); -end; - -{ srvCuentasEspeciales } -procedure TsrvCuentasEspeciales.DARemoteServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; -end; - -procedure TsrvCuentasEspeciales.DataAbstractServiceBeforeAcquireConnection( - aSender: TObject; var aConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -initialization - TROClassFactory.Create('srvCuentasEspeciales', Create_srvCuentasEspeciales, TsrvCuentasEspeciales_Invoker); - -finalization - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dpk b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dpk deleted file mode 100644 index 36390ae9..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dpk +++ /dev/null @@ -1,43 +0,0 @@ -package CuentasEspeciales_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - JvCmpD11R, - CuentasEspeciales_controller, - CuentasEspeciales_model; - -contains - uEditorCuentasEspeciales in 'uEditorCuentasEspeciales.pas' {fEditorCuentasEspeciales: TfEditorFormasPago}, - uCuentasEspecialesViewRegister in 'uCuentasEspecialesViewRegister.pas', - uEditorCuentaEspecial in 'uEditorCuentaEspecial.pas' {fEditorCuentaEspecial}; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dproj b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dproj deleted file mode 100644 index d8ac02ec..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.dproj +++ /dev/null @@ -1,551 +0,0 @@ - - - - {e3d36a6f-7004-4c89-9f3d-f2d77e386d1b} - CuentasEspeciales_view.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\CuentasEspeciales_view.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0CuentasEspeciales_view.dpk - - - - - MainSource - - - - - - - - - - - -
fEditorCuentaEspecial
- - -
fEditorCuentasEspeciales
- TfEditorFormasPago - - - - diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.identcache b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.identcache deleted file mode 100644 index 840e703f..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.rc b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_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/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res b/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res deleted file mode 100644 index 1641339f..00000000 Binary files a/Source/Modulos/Contabilidad cuentas especiales/Views/CuentasEspeciales_view.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/uCuentasEspecialesViewRegister.pas b/Source/Modulos/Contabilidad cuentas especiales/Views/uCuentasEspecialesViewRegister.pas deleted file mode 100644 index 51ad1cd3..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Views/uCuentasEspecialesViewRegister.pas +++ /dev/null @@ -1,25 +0,0 @@ -unit uCuentasEspecialesViewRegister; - -interface - -procedure RegisterViews; -procedure UnregisterViews; - -implementation - -uses - uEditorRegistryUtils, uEditorCuentaEspecial, uEditorCuentasEspeciales; - -procedure RegisterViews; -begin - EditorRegistry.RegisterClass(TfEditorCuentasEspeciales, 'EditorCuentasEspeciales'); - EditorRegistry.RegisterClass(TfEditorCuentaEspecial, 'EditorCuentaEspecial'); -end; - -procedure UnregisterViews; -begin - EditorRegistry.UnRegisterClass(TfEditorCuentasEspeciales); - EditorRegistry.UnRegisterClass(TfEditorCuentaEspecial); -end; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.dfm b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.dfm deleted file mode 100644 index 96231837..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.dfm +++ /dev/null @@ -1,140 +0,0 @@ -object fEditorCuentaEspecial: TfEditorCuentaEspecial - Left = 453 - Top = 234 - ActiveControl = eReferencia - BorderIcons = [biSystemMenu] - BorderStyle = bsSingle - Caption = 'Cuenta especial' - ClientHeight = 178 - ClientWidth = 404 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object Label1: TLabel - Left = 16 - Top = 17 - Width = 160 - Height = 13 - Caption = 'Datos de la cuenta especial' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - end - object Bevel1: TBevel - Left = 190 - Top = 17 - Width = 195 - Height = 10 - Shape = bsBottomLine - end - object Label2: TLabel - Left = 62 - Top = 43 - Width = 55 - Height = 13 - Alignment = taRightJustify - Caption = 'Referencia:' - end - object Label3: TLabel - Left = 58 - Top = 71 - Width = 59 - Height = 13 - Alignment = taRightJustify - Caption = 'Descripci'#243'n:' - end - object Bevel4: TBevel - Left = 8 - Top = 121 - Width = 388 - Height = 10 - Shape = bsBottomLine - end - object JvEnterAsTab1: TJvEnterAsTab - Left = 137 - Top = 137 - Width = 28 - Height = 28 - end - object bAceptar: TButton - Left = 234 - Top = 145 - Width = 75 - Height = 23 - Action = actAceptar - TabOrder = 2 - end - object bCancelar: TButton - Left = 319 - Top = 145 - Width = 75 - Height = 23 - Action = actCancelar - Cancel = True - TabOrder = 3 - end - object eReferencia: TDBEdit - Left = 123 - Top = 40 - Width = 118 - Height = 21 - Color = clInfoBk - DataField = 'REFERENCIA' - DataSource = dsCuentasEspeciales - TabOrder = 0 - end - object eDescripcion: TDBEdit - Left = 123 - Top = 68 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'DESCRIPCION' - DataSource = dsCuentasEspeciales - TabOrder = 1 - end - object ActionList1: TActionList - Left = 88 - Top = 131 - object actAnadir: TAction - Caption = '&A'#241'adir' - OnExecute = actAnadirExecute - OnUpdate = actAnadirUpdate - end - object actEliminar: TAction - Caption = '&Eliminar' - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - object actAceptar: TAction - Caption = '&Guardar' - OnExecute = actAceptarExecute - end - object actCancelar: TAction - Caption = '&Cancelar' - OnExecute = actCancelarExecute - end - object actCerrar: TAction - Caption = 'actCerrar' - OnExecute = actCerrarExecute - end - object actModificar: TAction - Caption = '&Modificar' - end - end - object dsCuentasEspeciales: TDADataSource - Left = 48 - Top = 131 - end -end diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.pas b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.pas deleted file mode 100644 index fcb5151f..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentaEspecial.pas +++ /dev/null @@ -1,178 +0,0 @@ -{ -=============================================================================== - Copyright (©) 2006. 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: 22-05-2006 - Versión actual: 1.0.0 - Fecha versión actual: 22-05-2006 -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} - -unit uEditorCuentaEspecial; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, - uBizCuentasEspeciales, uCuentasEspecialesController, - uDADataTable, uIEditorCuentaEspecial, ActnList, ExtCtrls, JvExControls, - JvComponent, JvEnterTab, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, cxDBData, cxSpinEdit, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, - cxGridCustomView, cxGrid, uDAInterfaces; - -type - TfEditorCuentaEspecial = class(TForm, IEditorCuentaEspecial) - ActionList1: TActionList; - actAnadir: TAction; - actEliminar: TAction; - actAceptar: TAction; - actCancelar: TAction; - bAceptar: TButton; - bCancelar: TButton; - actCerrar: TAction; - actModificar: TAction; - eReferencia: TDBEdit; - eDescripcion: TDBEdit; - dsCuentasEspeciales: TDADataSource; - Label1: TLabel; - Bevel1: TBevel; - Label2: TLabel; - Label3: TLabel; - Bevel4: TBevel; - JvEnterAsTab1: TJvEnterAsTab; - procedure FormShow(Sender: TObject); - - procedure actAnadirExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actAceptarExecute(Sender: TObject); - procedure actCancelarExecute(Sender: TObject); - procedure actCerrarExecute(Sender: TObject); - procedure actAnadirUpdate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - protected - FCuentaEspecial: IBizCuentaEspecial; - FController : ICuentasEspecialesController; - function GetCuentaEspecial: IBizCuentaEspecial; - procedure SetCuentaEspecial(const Value: IBizCuentaEspecial); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - property CuentaEspecial: IBizCuentaEspecial read GetCuentaEspecial write SetCuentaEspecial; - end; - - -implementation -{$R *.dfm} - -{ TfEditorCuentasEspeciales } - -uses - Dialogs, uDialogUtils, uDataModuleCuentasEspeciales; - -function TfEditorCuentaEspecial.GetCuentaEspecial: IBizCuentaEspecial; -begin - Result := FCuentaEspecial; -end; - -procedure TfEditorCuentaEspecial.SetCuentaEspecial(const Value: IBizCuentaEspecial); -begin - FCuentaEspecial := Value; - if Assigned(FCuentaEspecial) then - begin - dsCuentasEspeciales.DataTable := FCuentaEspecial.DataTable; - dsCuentasEspeciales.DataTable.Open; - end - else begin - dsCuentasEspeciales.DataTable := NIL; - end; -end; - -procedure TfEditorCuentaEspecial.actAnadirExecute(Sender: TObject); -begin -// FPlazos.Append; -end; - -procedure TfEditorCuentaEspecial.actEliminarExecute(Sender: TObject); -begin -// FPlazos.Delete; -end; - -procedure TfEditorCuentaEspecial.actEliminarUpdate(Sender: TObject); -begin -{ - (Sender as TAction).Enabled := Assigned(FPlazos) and - FPlazos.DataTable.Active and - (FPlazos.DataTable.RecordCount > 0); -} -end; - -constructor TfEditorCuentaEspecial.Create(AOwner: TComponent); -begin - inherited; - FController := TCuentasEspecialesController.Create; -end; - -destructor TfEditorCuentaEspecial.Destroy; -begin - FCuentaEspecial := NIL; - FController := NIL; - inherited; -end; - -procedure TfEditorCuentaEspecial.actAceptarExecute(Sender: TObject); -begin -{ - if (ListaCuentasEspeciales.ActiveView.DataController.RecordCount = 0) then - if (ShowConfirmMessage('Forma de pago sin plazos', 'No ha indicado plazos de pago para esta forma de pago por lo tanto no se podrán generarar los recibos correspondientes.' + #10#13 + '¿Desea continuar guardando la forma de pago?') = IDNO) then - Exit; -} - if FController.Guardar(FCuentaEspecial) then - actCerrar.Execute; -end; - -procedure TfEditorCuentaEspecial.actCancelarExecute(Sender: TObject); -begin - FController.DescartarCambios(FCuentaEspecial); - actCerrar.Execute; -end; - -procedure TfEditorCuentaEspecial.actCerrarExecute(Sender: TObject); -begin - Close; -end; - -procedure TfEditorCuentaEspecial.actAnadirUpdate(Sender: TObject); -begin -{ - (Sender as TAction).Enabled := Assigned(FPlazos) and - FPlazos.DataTable.Active; -} -end; - -procedure TfEditorCuentaEspecial.FormShow(Sender: TObject); -begin - if not FCuentaEspecial.DataTable.Active then - FCuentaEspecial.DataTable.Active := True; - - if FCuentaEspecial.EsNuevo then - Self.Caption := 'Nueva forma de pago' - else - Self.Caption := 'Modificar forma de pago'; -end; - -end. diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.dfm b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.dfm deleted file mode 100644 index 59ef338a..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.dfm +++ /dev/null @@ -1,145 +0,0 @@ -object fEditorCuentasEspeciales: TfEditorCuentasEspeciales - Left = 453 - Top = 234 - BorderIcons = [biSystemMenu] - BorderStyle = bsSingle - Caption = 'Lista de cuentas especiales' - ClientHeight = 406 - ClientWidth = 959 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object bAceptar: TButton - Left = 236 - Top = 373 - Width = 75 - Height = 23 - Action = actAceptar - Default = True - TabOrder = 1 - end - object bCancelar: TButton - Left = 321 - Top = 373 - Width = 75 - Height = 23 - Action = actCancelar - Cancel = True - TabOrder = 2 - end - object PageControl1: TPageControl - Left = 0 - Top = 0 - Width = 959 - Height = 406 - ActivePage = TabSheet1 - Align = alClient - TabOrder = 0 - object TabSheet1: TTabSheet - Caption = 'Cuentas especiales' - object Label1: TLabel - Left = 6 - Top = 12 - Width = 131 - Height = 13 - Caption = 'Lista de cuentas especiales' - end - object bEliminar: TButton - Left = 853 - Top = 90 - Width = 95 - Height = 23 - Action = actEliminar - TabOrder = 0 - end - object bAnadir: TButton - Left = 853 - Top = 31 - Width = 95 - Height = 23 - Action = actAnadir - TabOrder = 1 - end - object Button1: TButton - Left = 853 - Top = 61 - Width = 95 - Height = 23 - Action = actModificar - TabOrder = 2 - end - object ListaCuentasEspeciales: TDBGrid - Left = 3 - Top = 31 - Width = 844 - Height = 289 - DataSource = dsCuentasEspeciales - Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit] - TabOrder = 3 - TitleFont.Charset = DEFAULT_CHARSET - TitleFont.Color = clWindowText - TitleFont.Height = -11 - TitleFont.Name = 'MS Sans Serif' - TitleFont.Style = [] - Columns = < - item - Expanded = False - FieldName = 'REFERENCIA' - Title.Caption = 'Referencia' - Width = 110 - Visible = True - end - item - Expanded = False - FieldName = 'DESCRIPCION' - Title.Caption = 'Descripci'#243'n' - Width = 154 - Visible = True - end> - end - end - end - object ActionList1: TActionList - Left = 144 - Top = 16 - object actAnadir: TAction - Caption = '&A'#241'adir...' - OnExecute = actAnadirExecute - OnUpdate = actAnadirUpdate - end - object actEliminar: TAction - Caption = '&Eliminar' - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - object actAceptar: TAction - Caption = 'A&ceptar' - OnExecute = actAceptarExecute - end - object actCancelar: TAction - Caption = '&Cancelar' - OnExecute = actCancelarExecute - end - object actCerrar: TAction - Caption = 'actCerrar' - OnExecute = actCerrarExecute - end - object actModificar: TAction - Caption = '&Modificar...' - OnExecute = actModificarExecute - OnUpdate = actModificarUpdate - end - end - object dsCuentasEspeciales: TDADataSource - Left = 168 - Top = 16 - end -end diff --git a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.pas b/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.pas deleted file mode 100644 index 1b0b8957..00000000 --- a/Source/Modulos/Contabilidad cuentas especiales/Views/uEditorCuentasEspeciales.pas +++ /dev/null @@ -1,184 +0,0 @@ -{ -=============================================================================== - Copyright (©) 2006. 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: 22-05-2006 - Versión actual: 1.0.0 - Fecha versión actual: 22-05-2006 -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} - -unit uEditorCuentasEspeciales; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - uIEditorCuentasEspeciales, uBizCuentasEspeciales, uCuentasEspecialesController, DB, uDADataTable, - ActnList, Grids, DBGrids, StdCtrls, ComCtrls, uDAInterfaces, Mask, DBCtrls; - -type - TfEditorCuentasEspeciales = class(TForm, IEditorCuentasEspeciales) - ActionList1: TActionList; - actAnadir: TAction; - actEliminar: TAction; - bEliminar: TButton; - actAceptar: TAction; - actCancelar: TAction; - bAceptar: TButton; - bCancelar: TButton; - actCerrar: TAction; - PageControl1: TPageControl; - TabSheet1: TTabSheet; - Label1: TLabel; - bAnadir: TButton; - actModificar: TAction; - Button1: TButton; - dsCuentasEspeciales: TDADataSource; - ListaCuentasEspeciales: TDBGrid; - procedure FormShow(Sender: TObject); - - procedure actAnadirExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actAceptarExecute(Sender: TObject); - procedure actCancelarExecute(Sender: TObject); - procedure actCerrarExecute(Sender: TObject); - procedure actAnadirUpdate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actModificarExecute(Sender: TObject); - procedure ListaCuentasEspecialesDblClick(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - protected - FCuentasEspeciales: IBizCuentaEspecial; - FController: ICuentasEspecialesController; - function GetCuentasEspeciales: IBizCuentaEspecial; - procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales; - end; - - -implementation -{$R *.dfm} - -{ TfEditorCuentasEspeciales } - -uses - uDialogUtils; - -function TfEditorCuentasEspeciales.GetCuentasEspeciales: IBizCuentaEspecial; -begin - Result := FCuentasEspeciales; -end; - -procedure TfEditorCuentasEspeciales.ListaCuentasEspecialesDblClick(Sender: TObject); -begin -// ListaCuentasEspeciales.SelectedIndex -end; - -procedure TfEditorCuentasEspeciales.SetCuentasEspeciales(const Value: IBizCuentaEspecial); -begin - FCuentasEspeciales := Value; - dsCuentasEspeciales.DataTable := (FCuentasEspeciales as IBizCuentaEspecial).DataTable; - dsCuentasEspeciales.DataTable.Open; -end; - -procedure TfEditorCuentasEspeciales.actAnadirExecute(Sender: TObject); -begin - FController.Anadir(CuentasEspeciales); - FController.Ver(CuentasEspeciales); -end; - -procedure TfEditorCuentasEspeciales.actEliminarExecute(Sender: TObject); -begin - if (ShowConfirmMessage('Borrar forma de pago', '¿Está seguro que desea borrar esta forma de pago?') = IDYES) then - FController.Eliminar(FCuentasEspeciales) -end; - -procedure TfEditorCuentasEspeciales.actEliminarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := Assigned(FCuentasEspeciales) and - FCuentasEspeciales.DataTable.Active and - (FCuentasEspeciales.DataTable.RecordCount > 0); -end; - -procedure TfEditorCuentasEspeciales.actModificarExecute(Sender: TObject); -begin - FController.Ver(CuentasEspeciales); -end; - -procedure TfEditorCuentasEspeciales.actModificarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := Assigned(FCuentasEspeciales) and - FCuentasEspeciales.DataTable.Active and - (FCuentasEspeciales.DataTable.RecordCount > 0); -end; - -constructor TfEditorCuentasEspeciales.Create(AOwner: TComponent); -begin - inherited; - FController := TCuentasEspecialesController.Create; -end; - -destructor TfEditorCuentasEspeciales.Destroy; -begin - FCuentasEspeciales := NIL; - FController := NIL; - inherited; -end; - -procedure TfEditorCuentasEspeciales.actAceptarExecute(Sender: TObject); -begin - try - CuentasEspeciales.DataTable.ApplyUpdates; - except - on E : Exception do begin - CuentasEspeciales.DataTable.CancelUpdates; - ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E); - Exit; - end; - end; - actCerrar.Execute; -end; - -procedure TfEditorCuentasEspeciales.actCancelarExecute(Sender: TObject); -begin - CuentasEspeciales.DataTable.CancelUpdates; - actCerrar.Execute; -end; - -procedure TfEditorCuentasEspeciales.actCerrarExecute(Sender: TObject); -begin - Close; -end; - -procedure TfEditorCuentasEspeciales.actAnadirUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := Assigned(FCuentasEspeciales) and - FCuentasEspeciales.DataTable.Active; -end; - -procedure TfEditorCuentasEspeciales.FormShow(Sender: TObject); -begin - if not FCuentasEspeciales.DataTable.Active then - FCuentasEspeciales.DataTable.Active := true; - -// ListaCuentasEspeciales.SetFocus; -end; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.dpk b/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.dpk deleted file mode 100644 index 29984774..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.dpk +++ /dev/null @@ -1,42 +0,0 @@ -package Ejercicios_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - Ejercicios_model, - Ejercicios_data; - -contains - uEjerciciosController in 'uEjerciciosController.pas', - uIEditorEjercicio in 'View\uIEditorEjercicio.pas', - uIEditorEjercicios in 'View\uIEditorEjercicios.pas'; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.dproj b/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.dproj deleted file mode 100644 index 757e97cf..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.dproj +++ /dev/null @@ -1,545 +0,0 @@ - - - - {7f80f8aa-6912-4714-986d-aed73035472b} - Ejercicios_controller.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Ejercicios_controller.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Ejercicios_controller.dpk - - - - - MainSource - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.identcache b/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.identcache deleted file mode 100644 index da948adc..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.rc b/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_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/Contabilidad ejercicios/Controller/Ejercicios_controller.res b/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Controller/Ejercicios_controller.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Controller/View/uIEditorEjercicio.pas b/Source/Modulos/Contabilidad ejercicios/Controller/View/uIEditorEjercicio.pas deleted file mode 100644 index 8c932e82..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Controller/View/uIEditorEjercicio.pas +++ /dev/null @@ -1,26 +0,0 @@ -unit uIEditorEjercicio; - -interface - -uses - uBizEjercicios, uEjerciciosController; - -type - IEditorEjercicio = interface - ['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}'] - function GetController : IEjerciciosController; - procedure SetController (const Value : IEjerciciosController); - property Controller : IEjerciciosController read GetController write SetController; - - function GetEjercicio: IBizEjercicio; - procedure SetEjercicio(const Value: IBizEjercicio); - property Ejercicio: IBizEjercicio read GetEjercicio write SetEjercicio; - - function ShowModal : Integer; - procedure Release; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Controller/View/uIEditorEjercicios.pas b/Source/Modulos/Contabilidad ejercicios/Controller/View/uIEditorEjercicios.pas deleted file mode 100644 index cdcbac83..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Controller/View/uIEditorEjercicios.pas +++ /dev/null @@ -1,23 +0,0 @@ -unit uIEditorEjercicios; - -interface - -uses - uEditorGridBase, uBizEjercicios, uEjerciciosController; - -type - IEditorEjercicios = interface(IEditorGridBase) - ['{2E178477-B814-4A53-9360-B19DB26AFD4C}'] - function GetEjercicios: IBizEjercicio; - procedure SetEjercicios(const Value: IBizEjercicio); - property Ejercicios: IBizEjercicio read GetEjercicios write SetEjercicios; - - function GetController : IEjerciciosController; - procedure SetController (const Value : IEjerciciosController); - property Controller : IEjerciciosController read GetController write SetController; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Controller/uEjerciciosController.pas b/Source/Modulos/Contabilidad ejercicios/Controller/uEjerciciosController.pas deleted file mode 100644 index a68ae403..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Controller/uEjerciciosController.pas +++ /dev/null @@ -1,318 +0,0 @@ -unit uEjerciciosController; - -interface - - -uses - Classes, SysUtils, uDADataTable, uControllerBase, - uBizEjercicios, uIDataModuleEjercicios; -type - IEjerciciosController = interface(IObservador) - ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] - function BuscarTodos: IBizEjercicio; - function Buscar(ID: Integer): IBizEjercicio; - procedure VerTodos(AEjercicios: IBizEjercicio); - procedure Ver(AEjercicio: IBizEjercicio); - procedure Anadir(AEjercicio : IBizEjercicio); - function Eliminar(AEjercicio : IBizEjercicio): Boolean; - function Guardar(AEjercicio : IBizEjercicio): Boolean; - function GenerarPCG(IdEjercicioCopia, IdEjercicio: Integer): Boolean; - procedure DescartarCambios(AEjercicio : IBizEjercicio); - function Localizar(AEjercicios: IBizEjercicio; ADescripcion:String): Boolean; - function DarListaEjercicios: TStringList; - end; - - TEjerciciosController = class(TObservador, IEjerciciosController) - private - procedure FiltrarEmpresa(AEjercicio: IBizEjercicio); - - protected - FDataModule : IDataModuleEjercicios; - - procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; - function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; - - function ValidarEjercicio(AEjercicio: IBizEjercicio): Boolean; - procedure AsignarDataModule; - - public - constructor Create; override; - destructor Destroy; override; - - function Eliminar(AEjercicio : IBizEjercicio): Boolean; - function Guardar(AEjercicio : IBizEjercicio): Boolean; virtual; - procedure DescartarCambios(AEjercicio : IBizEjercicio); virtual; - procedure Anadir(AEjercicio : IBizEjercicio); - function BuscarTodos: IBizEjercicio; - function Buscar(ID: Integer): IBizEjercicio; - procedure VerTodos(AEjercicios: IBizEjercicio); - procedure Ver(AEjercicio: IBizEjercicio); - function GenerarPCG(IdEjercicioCopia, IdEjercicio: Integer): Boolean; - function Localizar(AEjercicios: IBizEjercicio; ADescripcion:String): Boolean; - function DarListaEjercicios: TStringList; - end; - -implementation - -uses - cxControls, DB, uEditorRegistryUtils, schEjerciciosClient_Intf, - uIEditorEjercicios, uIEditorEjercicio, uDataModuleEjercicios, - uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, - uDateUtils, uROTypes, DateUtils, Controls, Windows, Dialogs; - - - -{ TEjerciciosController } - -procedure TEjerciciosController.Anadir(AEjercicio: IBizEjercicio); -begin - AEjercicio.Insert; -end; - -procedure TEjerciciosController.AsignarDataModule; -begin - FDataModule := TDataModuleEjercicios.Create(Nil); -end; - -function TEjerciciosController.Buscar(ID: Integer): IBizEjercicio; -var - Condicion: TDAWhereExpression; -begin - ShowHourglassCursor; - try - Result := BuscarTodos; - - with Result.DataTable.DynamicWhere do - begin - // (ID = :ID) - Condicion := NewBinaryExpression(NewField('', fld_EjerciciosID), NewConstant(ID, datInteger), dboEqual); - - if IsEmpty then - Expression := Condicion - else - Expression := NewBinaryExpression(Expression, Condicion, dboAnd); - end; - - finally - HideHourglassCursor; - end; -end; - -function TEjerciciosController.BuscarTodos: IBizEjercicio; -begin - Result := FDataModule.GetItems; - FiltrarEmpresa(Result); -end; - -constructor TEjerciciosController.Create; -begin - inherited; - AsignarDataModule; -end; - -function TEjerciciosController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; -begin - Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); -end; - -function TEjerciciosController.DarListaEjercicios: TStringList; -var - AEjercicios: IBizEjercicio; -begin - AEjercicios := BuscarTodos; - AEjercicios.DataTable.Active := True; - Result := TStringList.Create; - try - with Result do - begin - AEjercicios.DataTable.First; - while not AEjercicios.DataTable.EOF do - begin - Add(AEjercicios.NOMBRE); - AEjercicios.DataTable.Next; - end; - end; - finally - AEjercicios := NIL; - end; -end; - -procedure TEjerciciosController.DescartarCambios(AEjercicio: IBizEjercicio); -begin - if not Assigned(AEjercicio) then - raise Exception.Create ('Ejercicio no asignado'); - - ShowHourglassCursor; - try - if (AEjercicio.State in dsEditModes) then - AEjercicio.Cancel; - - AEjercicio.DataTable.CancelUpdates; - finally - HideHourglassCursor; - end; -end; - -destructor TEjerciciosController.Destroy; -begin - FDataModule:= NIL; - inherited; -end; - -function TEjerciciosController.ValidarEjercicio(AEjercicio: IBizEjercicio): Boolean; -begin - Result := False; - - if not Assigned(AEjercicio) then - raise Exception.Create ('Ejercicio no asignado'); - - if (AEjercicio.DataTable.State in dsEditModes) then - AEjercicio.DataTable.Post; - - if (AEjercicio.DataTable.RecordCount = 1) - and (AEjercicio.ACTIVO = 0) then - raise Exception.Create('Debe existir un ejercicio activo.'); - - if Length(AEjercicio.NOMBRE) = 0 then - raise Exception.Create('Debe indicar un nombre para este ejercicio.'); - - Result := True; -end; - -procedure TEjerciciosController.Ver(AEjercicio: IBizEjercicio); -var - AEditor : IEditorEjercicio; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorEjercicio', IEditorEjercicio, AEditor); - if Assigned(AEditor) then - with (AEditor as IEditorEjercicio) do - begin - Controller := Self; //OJO ORDEN MUY IMPORTANTE - Ejercicio := AEjercicio; - ShowModal; - Release; - end; - finally - AEditor := NIL; - HideHourglassCursor; - end; -end; - -procedure TEjerciciosController.VerTodos(AEjercicios: IBizEjercicio); -var - AEditor : IEditorEjercicios; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorEjercicios', IEditorEjercicios, AEditor); - if Assigned(AEditor) then - with AEditor do - begin - Controller := Self; //OJO ORDEN MUY IMPORTANTE - Ejercicios := AEjercicios; - ShowEmbedded; - end; - finally - AEditor := NIL; - HideHourglassCursor; - end; -end; - -function TEjerciciosController.Eliminar(AEjercicio: IBizEjercicio): Boolean; -begin - Result := False; - - if not Assigned(AEjercicio) then - raise Exception.Create ('Ejercicio no asignado'); - - ShowHourglassCursor; - try - if (AEjercicio.State in dsEditModes) then - AEjercicio.Cancel; - - //ATENCIÓN!! Debe haber claves foraneas en las tablas de CONT_EPIGRAFES, CONT_CUENTAS, CONT_SUBCUENTAS - //con el fin de que al borrar un ejercicio se borren todos sus datos correspondientes - AEjercicio.Delete; - AEjercicio.DataTable.ApplyUpdates; - HideHourglassCursor; - Result := True; - finally - HideHourglassCursor; - end; -end; - -procedure TEjerciciosController.FiltrarEmpresa(AEjercicio: IBizEjercicio); -var - Condicion: TDAWhereExpression; -begin - if AEjercicio.DataTable.Active then - AEjercicio.DataTable.Active := False; - - // Filtrar las facturas actuales por empresa - with AEjercicio.DataTable.DynamicWhere do - begin - // (ID_EMPRESA >= ID) - Condicion := NewBinaryExpression(NewField('', fld_EjerciciosID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); - - if IsEmpty then - Expression := Condicion - else - Expression := NewBinaryExpression(Expression, Condicion, dboAnd); - end; -end; - -procedure TEjerciciosController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); -begin - inherited; -// -end; - -function TEjerciciosController.GenerarPCG(IdEjercicioCopia, IdEjercicio: Integer): Boolean; -begin - ShowHourglassCursor; - try - Result := FDataModule.GenerarPGC(IdEjercicioCopia, IdEjercicio); - finally - HideHourglassCursor; - end; -end; - -function TEjerciciosController.Guardar(AEjercicio: IBizEjercicio): Boolean; -begin - Result := False; - - if ValidarEjercicio(AEjercicio) then - begin - ShowHourglassCursor; - try - AEjercicio.DataTable.ApplyUpdates; - Result := True; - finally - HideHourglassCursor; - end; - end; -end; - -function TEjerciciosController.Localizar(AEjercicios: IBizEjercicio; ADescripcion: String): Boolean; -begin - Result := True; - ShowHourglassCursor; - try - with AEjercicios.DataTable do - begin - DisableControls; - First; - if not Locate(fld_EjerciciosNOMBRE, ADescripcion, []) then - Result := False; - EnableControls; - end; - finally - HideHourglassCursor; - end; -end; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.dpk b/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.dpk deleted file mode 100644 index 9a9186a9..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.dpk +++ /dev/null @@ -1,43 +0,0 @@ -package Ejercicios_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} -{$IMPLICITBUILD ON} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - dbrtl, - vcldb, - dsnap, - adortl, - Ejercicios_model; - -contains - uDataModuleEjercicios in 'uDataModuleEjercicios.pas' {DataModuleEjercicios}; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.dproj b/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.dproj deleted file mode 100644 index 79c38339..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.dproj +++ /dev/null @@ -1,548 +0,0 @@ - - - - {c8118762-09b6-432f-ba26-058fa36c39d9} - Ejercicios_data.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Ejercicios_data.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Ejercicios_data.dpk - - - - - MainSource - - - - - - - - - - - - -
DataModuleEjercicios
- - - - diff --git a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.identcache b/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.identcache deleted file mode 100644 index 3af04170..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.rc b/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_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/Contabilidad ejercicios/Data/Ejercicios_data.res b/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Data/Ejercicios_data.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Data/uDataModuleEjercicios.dfm b/Source/Modulos/Contabilidad ejercicios/Data/uDataModuleEjercicios.dfm deleted file mode 100644 index e1fe0821..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Data/uDataModuleEjercicios.dfm +++ /dev/null @@ -1,116 +0,0 @@ -inherited DataModuleEjercicios: TDataModuleEjercicios - OnCreate = DAClientDataModuleCreate - Height = 207 - Width = 483 - object RORemoteService: TRORemoteService - Message = dmConexion.ROMessage - Channel = dmConexion.ROChannel - ServiceName = 'srvEjercicios' - Left = 48 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 104 - end - object rda_Ejercicios: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 176 - Top = 24 - end - object tbl_Ejercicios: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_EJERCICIOS_ID' - Required = True - ServerAutoRefresh = True - DictionaryEntry = 'Ejercicios_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DisplayLabel = 'Ejercicios_ID_EMPRESA' - DictionaryEntry = 'Ejercicios_ID_EMPRESA' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DisplayLabel = 'Nombre' - DictionaryEntry = 'Ejercicios_NOMBRE' - end - item - Name = 'FECHA_INICIO' - DataType = datDateTime - DisplayLabel = 'Fecha inicio' - DictionaryEntry = 'Ejercicios_FECHA_INICIO' - end - item - Name = 'FECHA_FIN' - DataType = datDateTime - DisplayLabel = 'Fecha fin' - DictionaryEntry = 'Ejercicios_FECHA_FIN' - end - item - Name = 'ESTADO' - DataType = datString - Size = 255 - DisplayLabel = 'Estado' - DictionaryEntry = 'Ejercicios_ESTADO' - end - item - Name = 'LONG_SUB_CUENTA' - DataType = datSmallInt - DisplayLabel = 'Long. Subcuenta' - DictionaryEntry = 'Ejercicios_LONG_SUB_CUENTA' - end - item - Name = 'ID_ASIENTO_APERTURA' - DataType = datInteger - DisplayLabel = 'Ejercicios_ID_ASIENTO_APERTURA' - DictionaryEntry = 'Ejercicios_ID_ASIENTO_APERTURA' - end - item - Name = 'ID_ASIENTO_PERYGAN' - DataType = datInteger - DisplayLabel = 'Ejercicios_ID_ASIENTO_PERYGAN' - DictionaryEntry = 'Ejercicios_ID_ASIENTO_PERYGAN' - end - item - Name = 'ID_ASIENTO_CIERRE' - DataType = datInteger - DisplayLabel = 'Ejercicios_ID_ASIENTO_CIERRE' - DictionaryEntry = 'Ejercicios_ID_ASIENTO_CIERRE' - end - item - Name = 'ACTIVO' - DataType = datSmallInt - DisplayLabel = 'Ejercicios_ACTIVO' - DictionaryEntry = 'Ejercicios_ACTIVO' - end> - Params = <> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = rda_Ejercicios - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Ejercicios' - IndexDefs = <> - Left = 296 - Top = 88 - end - object ds_Ejercicios: TDADataSource - DataSet = tbl_Ejercicios.Dataset - DataTable = tbl_Ejercicios - Left = 296 - Top = 32 - end -end diff --git a/Source/Modulos/Contabilidad ejercicios/Data/uDataModuleEjercicios.pas b/Source/Modulos/Contabilidad ejercicios/Data/uDataModuleEjercicios.pas deleted file mode 100644 index f87491fb..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Data/uDataModuleEjercicios.pas +++ /dev/null @@ -1,60 +0,0 @@ -unit uDataModuleEjercicios; - -interface - -uses - SysUtils, Classes, DB, uDADataTable, uDABINAdapter, - uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, - uRORemoteService, uROClient, uROBinMessage, - uDADesigntimeCall, uControllerBase, - uBizEjercicios, uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest, - uDABin2DataStreamer, uDAMemDataTable, uIDataModuleEjercicios, uDataModuleBase; -type - TDataModuleEjercicios = class(TDataModuleBase, IDataModuleEjercicios) - RORemoteService: TRORemoteService; - Bin2DataStreamer: TDABin2DataStreamer; - rda_Ejercicios: TDARemoteDataAdapter; - tbl_Ejercicios: TDAMemDataTable; - ds_Ejercicios: TDADataSource; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetItems: IBizEjercicio; - function GenerarPGC(const IdEjercicioCopia: Integer; const IdEjercicio: Integer): Boolean; - end; - -implementation - -{$R *.DFM} - -uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, - schEjerciciosClient_Intf; - -{ TdmAlmacens } - -procedure TDataModuleEjercicios.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmConexion.Channel; - RORemoteService.Message := dmConexion.Message; -end; - -function TDataModuleEjercicios.GenerarPGC(const IdEjercicioCopia, IdEjercicio: Integer): Boolean; -begin - Result := (RORemoteService as IsrvEjercicios).GenerarPGC(IdEjercicioCopia, IdEjercicio); -end; - -function TDataModuleEjercicios.GetItems: IBizEjercicio; -var - AContabilidadEjercicio : TDAMemDataTable; -begin - ShowHourglassCursor; - try - AContabilidadEjercicio := CloneDataTable(tbl_Ejercicios); - AContabilidadEjercicio.BusinessRulesID := BIZ_CLIENT_EJERCICIO; - Result := (AContabilidadEjercicio as IBizEjercicio); - finally - HideHourglassCursor; - end; -end; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Ejercicios_Group.groupproj b/Source/Modulos/Contabilidad ejercicios/Ejercicios_Group.groupproj deleted file mode 100644 index 0205269c..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Ejercicios_Group.groupproj +++ /dev/null @@ -1,134 +0,0 @@ - - - {3df776bd-a3f8-4f3a-9129-45fdb4a2ee63} - - - - - - - - - - - - - - - - - Default.Personality - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Source/Modulos/Contabilidad ejercicios/Model/Data/uIDataModuleEjercicios.pas b/Source/Modulos/Contabilidad ejercicios/Model/Data/uIDataModuleEjercicios.pas deleted file mode 100644 index 21d3859f..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Model/Data/uIDataModuleEjercicios.pas +++ /dev/null @@ -1,17 +0,0 @@ -unit uIDataModuleEjercicios; - -interface - -uses - uBizEjercicios; - -type - IDataModuleEjercicios = interface(IInterface) - ['{E32DF99C-8AA1-42E5-84C0-198205BD2A90}'] - function GetItems: IBizEjercicio; - function GenerarPGC(const IdEjercicioCopia: Integer; const IdEjercicio: Integer): Boolean; - end; - -implementation - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.dpk b/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.dpk deleted file mode 100644 index 9fd4ff77..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.dpk +++ /dev/null @@ -1,46 +0,0 @@ -package Ejercicios_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, - vcl, - Base, - GUIBase, - ApplicationBase, - dbrtl, - RemObjects_Core_D11, - DataAbstract_Core_D11, - vcldb, - dsnap, - adortl; - -contains - uBizEjercicios in 'uBizEjercicios.pas', - uIDataModuleEjercicios in 'Data\uIDataModuleEjercicios.pas', - schEjerciciosClient_Intf in 'schEjerciciosClient_Intf.pas', - schEjerciciosServer_Intf in 'schEjerciciosServer_Intf.pas'; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.dproj b/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.dproj deleted file mode 100644 index 3ee3b395..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.dproj +++ /dev/null @@ -1,549 +0,0 @@ - - - - {73acd39c-b2f0-49b7-9acf-10945bbac8c1} - Ejercicios_model.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Ejercicios_model.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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.0Ejercicios_model.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.identcache b/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.identcache deleted file mode 100644 index 0a44b8a1..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.rc b/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_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/Contabilidad ejercicios/Model/Ejercicios_model.res b/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Model/Ejercicios_model.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Model/schEjerciciosClient_Intf.pas b/Source/Modulos/Contabilidad ejercicios/Model/schEjerciciosClient_Intf.pas deleted file mode 100644 index 083293a0..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Model/schEjerciciosClient_Intf.pas +++ /dev/null @@ -1,449 +0,0 @@ -unit schEjerciciosClient_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_Ejercicios = '{773C8468-2B44-4968-A704-E0A34C02F5CA}'; - - { Data table names } - nme_Ejercicios = 'Ejercicios'; - - { Ejercicios fields } - fld_EjerciciosID = 'ID'; - fld_EjerciciosID_EMPRESA = 'ID_EMPRESA'; - fld_EjerciciosNOMBRE = 'NOMBRE'; - fld_EjerciciosFECHA_INICIO = 'FECHA_INICIO'; - fld_EjerciciosFECHA_FIN = 'FECHA_FIN'; - fld_EjerciciosESTADO = 'ESTADO'; - fld_EjerciciosLONG_SUB_CUENTA = 'LONG_SUB_CUENTA'; - fld_EjerciciosID_ASIENTO_APERTURA = 'ID_ASIENTO_APERTURA'; - fld_EjerciciosID_ASIENTO_PERYGAN = 'ID_ASIENTO_PERYGAN'; - fld_EjerciciosID_ASIENTO_CIERRE = 'ID_ASIENTO_CIERRE'; - fld_EjerciciosACTIVO = 'ACTIVO'; - - { Ejercicios field indexes } - idx_EjerciciosID = 0; - idx_EjerciciosID_EMPRESA = 1; - idx_EjerciciosNOMBRE = 2; - idx_EjerciciosFECHA_INICIO = 3; - idx_EjerciciosFECHA_FIN = 4; - idx_EjerciciosESTADO = 5; - idx_EjerciciosLONG_SUB_CUENTA = 6; - idx_EjerciciosID_ASIENTO_APERTURA = 7; - idx_EjerciciosID_ASIENTO_PERYGAN = 8; - idx_EjerciciosID_ASIENTO_CIERRE = 9; - idx_EjerciciosACTIVO = 10; - -type - { IEjercicios } - IEjercicios = interface(IDAStronglyTypedDataTable) - ['{911EC4DB-1692-4398-AAA2-3127E0B1239C}'] - { 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 GetFECHA_INICIOValue: DateTime; - procedure SetFECHA_INICIOValue(const aValue: DateTime); - function GetFECHA_INICIOIsNull: Boolean; - procedure SetFECHA_INICIOIsNull(const aValue: Boolean); - function GetFECHA_FINValue: DateTime; - procedure SetFECHA_FINValue(const aValue: DateTime); - function GetFECHA_FINIsNull: Boolean; - procedure SetFECHA_FINIsNull(const aValue: Boolean); - function GetESTADOValue: String; - procedure SetESTADOValue(const aValue: String); - function GetESTADOIsNull: Boolean; - procedure SetESTADOIsNull(const aValue: Boolean); - function GetLONG_SUB_CUENTAValue: SmallInt; - procedure SetLONG_SUB_CUENTAValue(const aValue: SmallInt); - function GetLONG_SUB_CUENTAIsNull: Boolean; - procedure SetLONG_SUB_CUENTAIsNull(const aValue: Boolean); - function GetID_ASIENTO_APERTURAValue: Integer; - procedure SetID_ASIENTO_APERTURAValue(const aValue: Integer); - function GetID_ASIENTO_APERTURAIsNull: Boolean; - procedure SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean); - function GetID_ASIENTO_PERYGANValue: Integer; - procedure SetID_ASIENTO_PERYGANValue(const aValue: Integer); - function GetID_ASIENTO_PERYGANIsNull: Boolean; - procedure SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean); - function GetID_ASIENTO_CIERREValue: Integer; - procedure SetID_ASIENTO_CIERREValue(const aValue: Integer); - function GetID_ASIENTO_CIERREIsNull: Boolean; - procedure SetID_ASIENTO_CIERREIsNull(const aValue: Boolean); - function GetACTIVOValue: SmallInt; - procedure SetACTIVOValue(const aValue: SmallInt); - function GetACTIVOIsNull: Boolean; - procedure SetACTIVOIsNull(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 FECHA_INICIO: DateTime read GetFECHA_INICIOValue write SetFECHA_INICIOValue; - property FECHA_INICIOIsNull: Boolean read GetFECHA_INICIOIsNull write SetFECHA_INICIOIsNull; - property FECHA_FIN: DateTime read GetFECHA_FINValue write SetFECHA_FINValue; - property FECHA_FINIsNull: Boolean read GetFECHA_FINIsNull write SetFECHA_FINIsNull; - property ESTADO: String read GetESTADOValue write SetESTADOValue; - property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull; - property LONG_SUB_CUENTA: SmallInt read GetLONG_SUB_CUENTAValue write SetLONG_SUB_CUENTAValue; - property LONG_SUB_CUENTAIsNull: Boolean read GetLONG_SUB_CUENTAIsNull write SetLONG_SUB_CUENTAIsNull; - property ID_ASIENTO_APERTURA: Integer read GetID_ASIENTO_APERTURAValue write SetID_ASIENTO_APERTURAValue; - property ID_ASIENTO_APERTURAIsNull: Boolean read GetID_ASIENTO_APERTURAIsNull write SetID_ASIENTO_APERTURAIsNull; - property ID_ASIENTO_PERYGAN: Integer read GetID_ASIENTO_PERYGANValue write SetID_ASIENTO_PERYGANValue; - property ID_ASIENTO_PERYGANIsNull: Boolean read GetID_ASIENTO_PERYGANIsNull write SetID_ASIENTO_PERYGANIsNull; - property ID_ASIENTO_CIERRE: Integer read GetID_ASIENTO_CIERREValue write SetID_ASIENTO_CIERREValue; - property ID_ASIENTO_CIERREIsNull: Boolean read GetID_ASIENTO_CIERREIsNull write SetID_ASIENTO_CIERREIsNull; - property ACTIVO: SmallInt read GetACTIVOValue write SetACTIVOValue; - property ACTIVOIsNull: Boolean read GetACTIVOIsNull write SetACTIVOIsNull; - end; - - { TEjerciciosDataTableRules } - TEjerciciosDataTableRules = class(TDADataTableRules, IEjercicios) - 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 GetFECHA_INICIOValue: DateTime; virtual; - procedure SetFECHA_INICIOValue(const aValue: DateTime); virtual; - function GetFECHA_INICIOIsNull: Boolean; virtual; - procedure SetFECHA_INICIOIsNull(const aValue: Boolean); virtual; - function GetFECHA_FINValue: DateTime; virtual; - procedure SetFECHA_FINValue(const aValue: DateTime); virtual; - function GetFECHA_FINIsNull: Boolean; virtual; - procedure SetFECHA_FINIsNull(const aValue: Boolean); virtual; - function GetESTADOValue: String; virtual; - procedure SetESTADOValue(const aValue: String); virtual; - function GetESTADOIsNull: Boolean; virtual; - procedure SetESTADOIsNull(const aValue: Boolean); virtual; - function GetLONG_SUB_CUENTAValue: SmallInt; virtual; - procedure SetLONG_SUB_CUENTAValue(const aValue: SmallInt); virtual; - function GetLONG_SUB_CUENTAIsNull: Boolean; virtual; - procedure SetLONG_SUB_CUENTAIsNull(const aValue: Boolean); virtual; - function GetID_ASIENTO_APERTURAValue: Integer; virtual; - procedure SetID_ASIENTO_APERTURAValue(const aValue: Integer); virtual; - function GetID_ASIENTO_APERTURAIsNull: Boolean; virtual; - procedure SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean); virtual; - function GetID_ASIENTO_PERYGANValue: Integer; virtual; - procedure SetID_ASIENTO_PERYGANValue(const aValue: Integer); virtual; - function GetID_ASIENTO_PERYGANIsNull: Boolean; virtual; - procedure SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean); virtual; - function GetID_ASIENTO_CIERREValue: Integer; virtual; - procedure SetID_ASIENTO_CIERREValue(const aValue: Integer); virtual; - function GetID_ASIENTO_CIERREIsNull: Boolean; virtual; - procedure SetID_ASIENTO_CIERREIsNull(const aValue: Boolean); virtual; - function GetACTIVOValue: SmallInt; virtual; - procedure SetACTIVOValue(const aValue: SmallInt); virtual; - function GetACTIVOIsNull: Boolean; virtual; - procedure SetACTIVOIsNull(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 FECHA_INICIO: DateTime read GetFECHA_INICIOValue write SetFECHA_INICIOValue; - property FECHA_INICIOIsNull: Boolean read GetFECHA_INICIOIsNull write SetFECHA_INICIOIsNull; - property FECHA_FIN: DateTime read GetFECHA_FINValue write SetFECHA_FINValue; - property FECHA_FINIsNull: Boolean read GetFECHA_FINIsNull write SetFECHA_FINIsNull; - property ESTADO: String read GetESTADOValue write SetESTADOValue; - property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull; - property LONG_SUB_CUENTA: SmallInt read GetLONG_SUB_CUENTAValue write SetLONG_SUB_CUENTAValue; - property LONG_SUB_CUENTAIsNull: Boolean read GetLONG_SUB_CUENTAIsNull write SetLONG_SUB_CUENTAIsNull; - property ID_ASIENTO_APERTURA: Integer read GetID_ASIENTO_APERTURAValue write SetID_ASIENTO_APERTURAValue; - property ID_ASIENTO_APERTURAIsNull: Boolean read GetID_ASIENTO_APERTURAIsNull write SetID_ASIENTO_APERTURAIsNull; - property ID_ASIENTO_PERYGAN: Integer read GetID_ASIENTO_PERYGANValue write SetID_ASIENTO_PERYGANValue; - property ID_ASIENTO_PERYGANIsNull: Boolean read GetID_ASIENTO_PERYGANIsNull write SetID_ASIENTO_PERYGANIsNull; - property ID_ASIENTO_CIERRE: Integer read GetID_ASIENTO_CIERREValue write SetID_ASIENTO_CIERREValue; - property ID_ASIENTO_CIERREIsNull: Boolean read GetID_ASIENTO_CIERREIsNull write SetID_ASIENTO_CIERREIsNull; - property ACTIVO: SmallInt read GetACTIVOValue write SetACTIVOValue; - property ACTIVOIsNull: Boolean read GetACTIVOIsNull write SetACTIVOIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants, uROBinaryHelpers; - -{ TEjerciciosDataTableRules } -constructor TEjerciciosDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TEjerciciosDataTableRules.Destroy; -begin - inherited; -end; - -function TEjerciciosDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_EjerciciosID].AsInteger; -end; - -procedure TEjerciciosDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_EjerciciosID].AsInteger := aValue; -end; - -function TEjerciciosDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosID].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosID].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetID_EMPRESAValue: Integer; -begin - result := DataTable.Fields[idx_EjerciciosID_EMPRESA].AsInteger; -end; - -procedure TEjerciciosDataTableRules.SetID_EMPRESAValue(const aValue: Integer); -begin - DataTable.Fields[idx_EjerciciosID_EMPRESA].AsInteger := aValue; -end; - -function TEjerciciosDataTableRules.GetID_EMPRESAIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosID_EMPRESA].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosID_EMPRESA].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_EjerciciosNOMBRE].AsString; -end; - -procedure TEjerciciosDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_EjerciciosNOMBRE].AsString := aValue; -end; - -function TEjerciciosDataTableRules.GetNOMBREIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosNOMBRE].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosNOMBRE].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetFECHA_INICIOValue: DateTime; -begin - result := DataTable.Fields[idx_EjerciciosFECHA_INICIO].AsDateTime; -end; - -procedure TEjerciciosDataTableRules.SetFECHA_INICIOValue(const aValue: DateTime); -begin - DataTable.Fields[idx_EjerciciosFECHA_INICIO].AsDateTime := aValue; -end; - -function TEjerciciosDataTableRules.GetFECHA_INICIOIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosFECHA_INICIO].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetFECHA_INICIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosFECHA_INICIO].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetFECHA_FINValue: DateTime; -begin - result := DataTable.Fields[idx_EjerciciosFECHA_FIN].AsDateTime; -end; - -procedure TEjerciciosDataTableRules.SetFECHA_FINValue(const aValue: DateTime); -begin - DataTable.Fields[idx_EjerciciosFECHA_FIN].AsDateTime := aValue; -end; - -function TEjerciciosDataTableRules.GetFECHA_FINIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosFECHA_FIN].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetFECHA_FINIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosFECHA_FIN].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetESTADOValue: String; -begin - result := DataTable.Fields[idx_EjerciciosESTADO].AsString; -end; - -procedure TEjerciciosDataTableRules.SetESTADOValue(const aValue: String); -begin - DataTable.Fields[idx_EjerciciosESTADO].AsString := aValue; -end; - -function TEjerciciosDataTableRules.GetESTADOIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosESTADO].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetESTADOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosESTADO].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetLONG_SUB_CUENTAValue: SmallInt; -begin - result := DataTable.Fields[idx_EjerciciosLONG_SUB_CUENTA].AsSmallInt; -end; - -procedure TEjerciciosDataTableRules.SetLONG_SUB_CUENTAValue(const aValue: SmallInt); -begin - DataTable.Fields[idx_EjerciciosLONG_SUB_CUENTA].AsSmallInt := aValue; -end; - -function TEjerciciosDataTableRules.GetLONG_SUB_CUENTAIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosLONG_SUB_CUENTA].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetLONG_SUB_CUENTAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosLONG_SUB_CUENTA].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetID_ASIENTO_APERTURAValue: Integer; -begin - result := DataTable.Fields[idx_EjerciciosID_ASIENTO_APERTURA].AsInteger; -end; - -procedure TEjerciciosDataTableRules.SetID_ASIENTO_APERTURAValue(const aValue: Integer); -begin - DataTable.Fields[idx_EjerciciosID_ASIENTO_APERTURA].AsInteger := aValue; -end; - -function TEjerciciosDataTableRules.GetID_ASIENTO_APERTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosID_ASIENTO_APERTURA].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosID_ASIENTO_APERTURA].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetID_ASIENTO_PERYGANValue: Integer; -begin - result := DataTable.Fields[idx_EjerciciosID_ASIENTO_PERYGAN].AsInteger; -end; - -procedure TEjerciciosDataTableRules.SetID_ASIENTO_PERYGANValue(const aValue: Integer); -begin - DataTable.Fields[idx_EjerciciosID_ASIENTO_PERYGAN].AsInteger := aValue; -end; - -function TEjerciciosDataTableRules.GetID_ASIENTO_PERYGANIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosID_ASIENTO_PERYGAN].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosID_ASIENTO_PERYGAN].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetID_ASIENTO_CIERREValue: Integer; -begin - result := DataTable.Fields[idx_EjerciciosID_ASIENTO_CIERRE].AsInteger; -end; - -procedure TEjerciciosDataTableRules.SetID_ASIENTO_CIERREValue(const aValue: Integer); -begin - DataTable.Fields[idx_EjerciciosID_ASIENTO_CIERRE].AsInteger := aValue; -end; - -function TEjerciciosDataTableRules.GetID_ASIENTO_CIERREIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosID_ASIENTO_CIERRE].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetID_ASIENTO_CIERREIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosID_ASIENTO_CIERRE].AsVariant := Null; -end; - -function TEjerciciosDataTableRules.GetACTIVOValue: SmallInt; -begin - result := DataTable.Fields[idx_EjerciciosACTIVO].AsSmallInt; -end; - -procedure TEjerciciosDataTableRules.SetACTIVOValue(const aValue: SmallInt); -begin - DataTable.Fields[idx_EjerciciosACTIVO].AsSmallInt := aValue; -end; - -function TEjerciciosDataTableRules.GetACTIVOIsNull: boolean; -begin - result := DataTable.Fields[idx_EjerciciosACTIVO].IsNull; -end; - -procedure TEjerciciosDataTableRules.SetACTIVOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EjerciciosACTIVO].AsVariant := Null; -end; - - -initialization - RegisterDataTableRules(RID_Ejercicios, TEjerciciosDataTableRules); - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Model/schEjerciciosServer_Intf.pas b/Source/Modulos/Contabilidad ejercicios/Model/schEjerciciosServer_Intf.pas deleted file mode 100644 index 4cd11fe6..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Model/schEjerciciosServer_Intf.pas +++ /dev/null @@ -1,530 +0,0 @@ -unit schEjerciciosServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schEjerciciosClient_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_EjerciciosDelta = '{CDD1664B-E7FC-4A22-B77D-7FE7419A3314}'; - -type - { IEjerciciosDelta } - IEjerciciosDelta = interface(IEjercicios) - ['{CDD1664B-E7FC-4A22-B77D-7FE7419A3314}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_EMPRESAValue : Integer; - function GetOldNOMBREValue : String; - function GetOldFECHA_INICIOValue : DateTime; - function GetOldFECHA_FINValue : DateTime; - function GetOldESTADOValue : String; - function GetOldLONG_SUB_CUENTAValue : SmallInt; - function GetOldID_ASIENTO_APERTURAValue : Integer; - function GetOldID_ASIENTO_PERYGANValue : Integer; - function GetOldID_ASIENTO_CIERREValue : Integer; - function GetOldACTIVOValue : SmallInt; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldFECHA_INICIO : DateTime read GetOldFECHA_INICIOValue; - property OldFECHA_FIN : DateTime read GetOldFECHA_FINValue; - property OldESTADO : String read GetOldESTADOValue; - property OldLONG_SUB_CUENTA : SmallInt read GetOldLONG_SUB_CUENTAValue; - property OldID_ASIENTO_APERTURA : Integer read GetOldID_ASIENTO_APERTURAValue; - property OldID_ASIENTO_PERYGAN : Integer read GetOldID_ASIENTO_PERYGANValue; - property OldID_ASIENTO_CIERRE : Integer read GetOldID_ASIENTO_CIERREValue; - property OldACTIVO : SmallInt read GetOldACTIVOValue; - end; - - { TEjerciciosBusinessProcessorRules } - TEjerciciosBusinessProcessorRules = class(TDABusinessProcessorRules, IEjercicios, IEjerciciosDelta) - 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 GetFECHA_INICIOValue: DateTime; virtual; - function GetFECHA_INICIOIsNull: Boolean; virtual; - function GetOldFECHA_INICIOValue: DateTime; virtual; - function GetOldFECHA_INICIOIsNull: Boolean; virtual; - procedure SetFECHA_INICIOValue(const aValue: DateTime); virtual; - procedure SetFECHA_INICIOIsNull(const aValue: Boolean); virtual; - function GetFECHA_FINValue: DateTime; virtual; - function GetFECHA_FINIsNull: Boolean; virtual; - function GetOldFECHA_FINValue: DateTime; virtual; - function GetOldFECHA_FINIsNull: Boolean; virtual; - procedure SetFECHA_FINValue(const aValue: DateTime); virtual; - procedure SetFECHA_FINIsNull(const aValue: Boolean); virtual; - function GetESTADOValue: String; virtual; - function GetESTADOIsNull: Boolean; virtual; - function GetOldESTADOValue: String; virtual; - function GetOldESTADOIsNull: Boolean; virtual; - procedure SetESTADOValue(const aValue: String); virtual; - procedure SetESTADOIsNull(const aValue: Boolean); virtual; - function GetLONG_SUB_CUENTAValue: SmallInt; virtual; - function GetLONG_SUB_CUENTAIsNull: Boolean; virtual; - function GetOldLONG_SUB_CUENTAValue: SmallInt; virtual; - function GetOldLONG_SUB_CUENTAIsNull: Boolean; virtual; - procedure SetLONG_SUB_CUENTAValue(const aValue: SmallInt); virtual; - procedure SetLONG_SUB_CUENTAIsNull(const aValue: Boolean); virtual; - function GetID_ASIENTO_APERTURAValue: Integer; virtual; - function GetID_ASIENTO_APERTURAIsNull: Boolean; virtual; - function GetOldID_ASIENTO_APERTURAValue: Integer; virtual; - function GetOldID_ASIENTO_APERTURAIsNull: Boolean; virtual; - procedure SetID_ASIENTO_APERTURAValue(const aValue: Integer); virtual; - procedure SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean); virtual; - function GetID_ASIENTO_PERYGANValue: Integer; virtual; - function GetID_ASIENTO_PERYGANIsNull: Boolean; virtual; - function GetOldID_ASIENTO_PERYGANValue: Integer; virtual; - function GetOldID_ASIENTO_PERYGANIsNull: Boolean; virtual; - procedure SetID_ASIENTO_PERYGANValue(const aValue: Integer); virtual; - procedure SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean); virtual; - function GetID_ASIENTO_CIERREValue: Integer; virtual; - function GetID_ASIENTO_CIERREIsNull: Boolean; virtual; - function GetOldID_ASIENTO_CIERREValue: Integer; virtual; - function GetOldID_ASIENTO_CIERREIsNull: Boolean; virtual; - procedure SetID_ASIENTO_CIERREValue(const aValue: Integer); virtual; - procedure SetID_ASIENTO_CIERREIsNull(const aValue: Boolean); virtual; - function GetACTIVOValue: SmallInt; virtual; - function GetACTIVOIsNull: Boolean; virtual; - function GetOldACTIVOValue: SmallInt; virtual; - function GetOldACTIVOIsNull: Boolean; virtual; - procedure SetACTIVOValue(const aValue: SmallInt); virtual; - procedure SetACTIVOIsNull(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 FECHA_INICIO : DateTime read GetFECHA_INICIOValue write SetFECHA_INICIOValue; - property FECHA_INICIOIsNull : Boolean read GetFECHA_INICIOIsNull write SetFECHA_INICIOIsNull; - property OldFECHA_INICIO : DateTime read GetOldFECHA_INICIOValue; - property OldFECHA_INICIOIsNull : Boolean read GetOldFECHA_INICIOIsNull; - property FECHA_FIN : DateTime read GetFECHA_FINValue write SetFECHA_FINValue; - property FECHA_FINIsNull : Boolean read GetFECHA_FINIsNull write SetFECHA_FINIsNull; - property OldFECHA_FIN : DateTime read GetOldFECHA_FINValue; - property OldFECHA_FINIsNull : Boolean read GetOldFECHA_FINIsNull; - property ESTADO : String read GetESTADOValue write SetESTADOValue; - property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull; - property OldESTADO : String read GetOldESTADOValue; - property OldESTADOIsNull : Boolean read GetOldESTADOIsNull; - property LONG_SUB_CUENTA : SmallInt read GetLONG_SUB_CUENTAValue write SetLONG_SUB_CUENTAValue; - property LONG_SUB_CUENTAIsNull : Boolean read GetLONG_SUB_CUENTAIsNull write SetLONG_SUB_CUENTAIsNull; - property OldLONG_SUB_CUENTA : SmallInt read GetOldLONG_SUB_CUENTAValue; - property OldLONG_SUB_CUENTAIsNull : Boolean read GetOldLONG_SUB_CUENTAIsNull; - property ID_ASIENTO_APERTURA : Integer read GetID_ASIENTO_APERTURAValue write SetID_ASIENTO_APERTURAValue; - property ID_ASIENTO_APERTURAIsNull : Boolean read GetID_ASIENTO_APERTURAIsNull write SetID_ASIENTO_APERTURAIsNull; - property OldID_ASIENTO_APERTURA : Integer read GetOldID_ASIENTO_APERTURAValue; - property OldID_ASIENTO_APERTURAIsNull : Boolean read GetOldID_ASIENTO_APERTURAIsNull; - property ID_ASIENTO_PERYGAN : Integer read GetID_ASIENTO_PERYGANValue write SetID_ASIENTO_PERYGANValue; - property ID_ASIENTO_PERYGANIsNull : Boolean read GetID_ASIENTO_PERYGANIsNull write SetID_ASIENTO_PERYGANIsNull; - property OldID_ASIENTO_PERYGAN : Integer read GetOldID_ASIENTO_PERYGANValue; - property OldID_ASIENTO_PERYGANIsNull : Boolean read GetOldID_ASIENTO_PERYGANIsNull; - property ID_ASIENTO_CIERRE : Integer read GetID_ASIENTO_CIERREValue write SetID_ASIENTO_CIERREValue; - property ID_ASIENTO_CIERREIsNull : Boolean read GetID_ASIENTO_CIERREIsNull write SetID_ASIENTO_CIERREIsNull; - property OldID_ASIENTO_CIERRE : Integer read GetOldID_ASIENTO_CIERREValue; - property OldID_ASIENTO_CIERREIsNull : Boolean read GetOldID_ASIENTO_CIERREIsNull; - property ACTIVO : SmallInt read GetACTIVOValue write SetACTIVOValue; - property ACTIVOIsNull : Boolean read GetACTIVOIsNull write SetACTIVOIsNull; - property OldACTIVO : SmallInt read GetOldACTIVOValue; - property OldACTIVOIsNull : Boolean read GetOldACTIVOIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers, uDAInterfaces; - -{ TEjerciciosBusinessProcessorRules } -constructor TEjerciciosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TEjerciciosBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TEjerciciosBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID]; -end; - -function TEjerciciosBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA]; -end; - -function TEjerciciosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_EMPRESA]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_EMPRESA]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosNOMBRE]; -end; - -function TEjerciciosBusinessProcessorRules.GetNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosNOMBRE]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosNOMBRE]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosNOMBRE]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosNOMBRE] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosNOMBRE] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetFECHA_INICIOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_INICIO]; -end; - -function TEjerciciosBusinessProcessorRules.GetFECHA_INICIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_INICIO]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldFECHA_INICIOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosFECHA_INICIO]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldFECHA_INICIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosFECHA_INICIO]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetFECHA_INICIOValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_INICIO] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetFECHA_INICIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_INICIO] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetFECHA_FINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_FIN]; -end; - -function TEjerciciosBusinessProcessorRules.GetFECHA_FINIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_FIN]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldFECHA_FINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosFECHA_FIN]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldFECHA_FINIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosFECHA_FIN]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetFECHA_FINValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_FIN] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetFECHA_FINIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_FIN] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetESTADOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosESTADO]; -end; - -function TEjerciciosBusinessProcessorRules.GetESTADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosESTADO]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldESTADOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosESTADO]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldESTADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosESTADO]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetESTADOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosESTADO] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosESTADO] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetLONG_SUB_CUENTAValue: SmallInt; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosLONG_SUB_CUENTA]; -end; - -function TEjerciciosBusinessProcessorRules.GetLONG_SUB_CUENTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosLONG_SUB_CUENTA]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldLONG_SUB_CUENTAValue: SmallInt; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosLONG_SUB_CUENTA]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldLONG_SUB_CUENTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosLONG_SUB_CUENTA]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetLONG_SUB_CUENTAValue(const aValue: SmallInt); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosLONG_SUB_CUENTA] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetLONG_SUB_CUENTAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosLONG_SUB_CUENTA] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_APERTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_APERTURA]; -end; - -function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_APERTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_APERTURA]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_APERTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_APERTURA]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_APERTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_APERTURA]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_APERTURAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_APERTURA] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_APERTURA] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_PERYGANValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_PERYGAN]; -end; - -function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_PERYGANIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_PERYGAN]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_PERYGANValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_PERYGAN]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_PERYGANIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_PERYGAN]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_PERYGANValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_PERYGAN] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_PERYGAN] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_CIERREValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_CIERRE]; -end; - -function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_CIERREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_CIERRE]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_CIERREValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_CIERRE]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_CIERREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_CIERRE]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_CIERREValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_CIERRE] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_CIERREIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_CIERRE] := Null; -end; - -function TEjerciciosBusinessProcessorRules.GetACTIVOValue: SmallInt; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosACTIVO]; -end; - -function TEjerciciosBusinessProcessorRules.GetACTIVOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosACTIVO]); -end; - -function TEjerciciosBusinessProcessorRules.GetOldACTIVOValue: SmallInt; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosACTIVO]; -end; - -function TEjerciciosBusinessProcessorRules.GetOldACTIVOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosACTIVO]); -end; - -procedure TEjerciciosBusinessProcessorRules.SetACTIVOValue(const aValue: SmallInt); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosACTIVO] := aValue; -end; - -procedure TEjerciciosBusinessProcessorRules.SetACTIVOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosACTIVO] := Null; -end; - - -initialization - RegisterBusinessProcessorRules(RID_EjerciciosDelta, TEjerciciosBusinessProcessorRules); - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Model/uBizEjercicios.pas b/Source/Modulos/Contabilidad ejercicios/Model/uBizEjercicios.pas deleted file mode 100644 index adb0599f..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Model/uBizEjercicios.pas +++ /dev/null @@ -1,55 +0,0 @@ -unit uBizEjercicios; - -interface - -uses - uDAInterfaces, uDADataTable, schEjerciciosClient_Intf; - -const - BIZ_CLIENT_Ejercicio = 'Client.Ejercicio'; - -type - IBizEjercicio = interface(IEjercicios) - ['{328DA20D-75E5-47D5-A0D6-C7036E2A038F}'] - function EsNuevo : Boolean; - end; - - TBizEjercicio = class(TEjerciciosDataTableRules, IBizEjercicio) - protected - procedure OnNewRecord(Sender: TDADataTable); override; - public - procedure IniciarValoresEjercicioNueva; - function EsNuevo : Boolean; - end; - -implementation - -{ TBizEjercicio } - -uses - SysUtils, uDataTableUtils, uFactuGES_App; - -function TBizEjercicio.EsNuevo: Boolean; -begin - Result := (ID < 0); -end; - -procedure TBizEjercicio.IniciarValoresEjercicioNueva; -begin - ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; - ACTIVO := 1; -end; - -procedure TBizEjercicio.OnNewRecord(Sender: TDADataTable); -begin - inherited; - IniciarValoresEjercicioNueva; -end; - -initialization - RegisterDataTableRules(BIZ_CLIENT_Ejercicio, TBizEjercicio); - -finalization - -end. - diff --git a/Source/Modulos/Contabilidad ejercicios/Model/uBizEjerciciosServer.pas b/Source/Modulos/Contabilidad ejercicios/Model/uBizEjerciciosServer.pas deleted file mode 100644 index b80b68d9..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Model/uBizEjerciciosServer.pas +++ /dev/null @@ -1,57 +0,0 @@ -unit uBizEjerciciosServer; - -interface - -uses - uDAInterfaces, uDADelta, uDABusinessProcessor, - schEjerciciosServer_Intf; - -const - BIZ_SERVER_EJERCICIOS = 'Server.Ejercicios'; - -type - TBizEjerciciosServer = class(TEjerciciosBusinessProcessorRules) - protected - procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; - end; - -implementation - -uses - Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer, - schEjerciciosClient_Intf; - -{ TBizEjerciciosServer } - -procedure TBizEjerciciosServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); -var - ASchema : TDASchema; - ACurrentConn : IDAConnection; - Empresa : Variant; - -begin - inherited; - case Sender.CurrentChange.ChangeType of - ctInsert, ctUpdate: begin - //Si el ejercicio es activo debemos poner los demas ejercicios de la empresa a no activos - if (Sender.CurrentChange.NewValueByName[fld_EjerciciosACTIVO] = 1) then - begin - ASchema := BusinessProcessor.Schema; - ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); - - try - //Siempre va a estar rellena - Empresa := Sender.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA]; - ASchema.NewCommand(ACurrentConn, 'SetEjerciciosNoActivos', ['ID_EMPRESA'], [Empresa]) - except - RaiseError('Error al desactivar los ejercicios de la empresa'); - end; - end; - end; - end; -end; - -initialization - RegisterBusinessProcessorRules(BIZ_SERVER_EJERCICIOS, TBizEjerciciosServer); - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.dpk b/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.dpk deleted file mode 100644 index e161b73e..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.dpk +++ /dev/null @@ -1,42 +0,0 @@ -package Ejercicios_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - PluginSDK_D10R, - Ejercicios_controller, - Ejercicios_model, - Ejercicios_view; - -contains - uPluginEjercicios in 'uPluginEjercicios.pas'; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.dproj b/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.dproj deleted file mode 100644 index 6b665cf4..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.dproj +++ /dev/null @@ -1,545 +0,0 @@ - - - - {82e36812-58c4-491b-b463-6b951e95da51} - Ejercicios_plugin.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Ejercicios_plugin.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Ejercicios_plugin.dpk - - - - - MainSource - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.identcache b/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.identcache deleted file mode 100644 index 6132fa74..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.rc b/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_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/Contabilidad ejercicios/Plugin/Ejercicios_plugin.res b/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Plugin/Ejercicios_plugin.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.dfm b/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.dfm deleted file mode 100644 index 92379e83..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.dfm +++ /dev/null @@ -1,81 +0,0 @@ -object PluginEjercicios: TPluginEjercicios - OldCreateOrder = True - DefaultAction = actEjercicios - Description = 'Ejercicios' - ModuleMenu = MainMenu - ModuleName = 'Ejercicios' - SmallImages = SmallImages - LargeImages = SmallImages - Author = 'Rodax Software' - Version = '1.0.0' - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = <> - Left = 232 - Top = 16 - end - object ModuleActionList: TActionList - Images = SmallImages - Left = 40 - Top = 72 - object actEjercicios: TAction - Category = 'Ejercicios' - Caption = 'Ejercicios' - ImageIndex = 0 - OnExecute = actEjerciciosExecute - end - end - object MainMenu: TMainMenu - Images = LargeImages - Left = 40 - Top = 16 - object Ventas1: TMenuItem - Caption = 'Contabilidad' - object N1: TMenuItem - Tag = 18990 - Caption = '-' - end - object Ejercicios1: TMenuItem - Tag = 19001 - Action = actEjercicios - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6 - B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77 - EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5 - E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D - 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D - C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6 - 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141 - 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15 - F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334 - 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524 - 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256 - 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4 - 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F - E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = <> - Left = 232 - Top = 80 - end -end diff --git a/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.dfm.bak b/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.dfm.bak deleted file mode 100644 index f79e88c0..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.dfm.bak +++ /dev/null @@ -1,81 +0,0 @@ -object PluginFormasPago: TPluginFormasPago - OldCreateOrder = True - DefaultAction = actEjercicios - Description = 'Ejercicios' - ModuleMenu = MainMenu - ModuleName = 'Ejercicios' - SmallImages = SmallImages - LargeImages = SmallImages - Author = 'Rodax Software' - Version = '1.0.0' - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = <> - Left = 232 - Top = 16 - end - object ModuleActionList: TActionList - Images = SmallImages - Left = 40 - Top = 72 - object actEjercicios: TAction - Category = 'Ejercicios' - Caption = 'Ejercicios' - ImageIndex = 0 - OnExecute = actEjerciciosExecute - end - end - object MainMenu: TMainMenu - Images = LargeImages - Left = 40 - Top = 16 - object Ventas1: TMenuItem - Caption = 'Empresa' - object N1: TMenuItem - Tag = 18990 - Caption = '-' - end - object FormasPago1: TMenuItem - Tag = 19001 - Action = actEjercicios - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6 - B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77 - EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5 - E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D - 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D - C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6 - 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141 - 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15 - F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334 - 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524 - 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256 - 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4 - 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F - E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = <> - Left = 232 - Top = 80 - end -end diff --git a/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.pas b/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.pas deleted file mode 100644 index 5e2d1198..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Plugin/uPluginEjercicios.pas +++ /dev/null @@ -1,74 +0,0 @@ -unit uPluginEjercicios; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCEjercicios = interface(IInterface) - ['{255E8D6B-282A-48CC-9807-E49C7D31FD2D}'] - end; - - TPluginEjercicios = class(TModuleController, IMCEjercicios) - actEjercicios: TAction; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - Ventas1: TMenuItem; - Ejercicios1: TMenuItem; - N1: TMenuItem; - procedure actEjerciciosExecute(Sender: TObject); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, SysUtils, - uEjerciciosController, uBizEjercicios, uEjerciciosViewRegister; - -function GetModule : TModuleController; -begin - Result := TPluginEjercicios.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -procedure TPluginEjercicios.actEjerciciosExecute(Sender: TObject); -var - AEjerciciosController : IEjerciciosController; - AEjercicios : IBizEjercicio; -begin - AEjerciciosController := TEjerciciosController.Create; - AEjercicios := (AEjerciciosController.BuscarTodos as IBizEjercicio); - AEjerciciosController.VerTodos(AEjercicios); -end; - -constructor TPluginEjercicios.Create(AOwner: TComponent); -begin - inherited; - uEjerciciosViewRegister.RegisterViews; -end; - -destructor TPluginEjercicios.Destroy; -begin - uEjerciciosViewRegister.UnregisterViews; - inherited; -end; - -initialization - RegisterModuleClass(TPluginEjercicios); - -finalization - UnRegisterModuleClass(TPluginEjercicios); - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Servidor/srvEjercicios_Impl.dfm b/Source/Modulos/Contabilidad ejercicios/Servidor/srvEjercicios_Impl.dfm deleted file mode 100644 index f362cbf2..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Servidor/srvEjercicios_Impl.dfm +++ /dev/null @@ -1,264 +0,0 @@ -object srvEjercicios: TsrvEjercicios - OldCreateOrder = True - OnCreate = DARemoteServiceCreate - SessionManager = dmServer.SessionManager - ServiceSchema = schEjercicios - ServiceDataStreamer = Bin2DataStreamer - ExportedDataTables = <> - BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection - Height = 181 - Width = 350 - object Diagrams: TDADiagrams - Left = 150 - Top = 90 - DiagramData = - ''#13#10' '#13#10' '#13#10' '#13#10''#13#10 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'Ejercicios_ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_EJERCICIOS_ID' - Required = True - DisplayLabel = 'ID' - ServerAutoRefresh = True - end - item - Name = 'Ejercicios_NOMBRE' - DataType = datString - Size = 255 - DisplayLabel = 'Nombre' - end - item - Name = 'Ejercicios_FECHA_INICIO' - DataType = datDateTime - DisplayLabel = 'Fecha inicio' - end - item - Name = 'Ejercicios_FECHA_FIN' - DataType = datDateTime - DisplayLabel = 'Fecha fin' - end - item - Name = 'Ejercicios_ESTADO' - DataType = datString - Size = 255 - DisplayLabel = 'Estado' - end - item - Name = 'Ejercicios_LONG_SUB_CUENTA' - DataType = datSmallInt - DisplayLabel = 'Long. Subcuenta' - end - item - Name = 'Ejercicios_ID_ASIENTO_APERTURA' - DataType = datInteger - end - item - Name = 'Ejercicios_ID_ASIENTO_PERYGAN' - DataType = datInteger - end - item - Name = 'Ejercicios_ID_ASIENTO_CIERRE' - DataType = datInteger - end - item - Name = 'Ejercicios_ID_EMPRESA' - DataType = datInteger - end - item - Name = 'Ejercicios_ACTIVO' - DataType = datSmallInt - ServerAutoRefresh = True - end> - Left = 150 - Top = 24 - end - object schEjercicios: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'IBX' - TargetTable = 'CONT_EJERCICIOS' - 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 = 'FECHA_INICIO' - TableField = 'FECHA_INICIO' - end - item - DatasetField = 'FECHA_FIN' - TableField = 'FECHA_FIN' - end - item - DatasetField = 'ESTADO' - TableField = 'ESTADO' - end - item - DatasetField = 'LONG_SUB_CUENTA' - TableField = 'LONG_SUB_CUENTA' - end - item - DatasetField = 'ID_ASIENTO_APERTURA' - TableField = 'ID_ASIENTO_APERTURA' - end - item - DatasetField = 'ID_ASIENTO_PERYGAN' - TableField = 'ID_ASIENTO_PERYGAN' - end - item - DatasetField = 'ID_ASIENTO_CIERRE' - TableField = 'ID_ASIENTO_CIERRE' - end - item - DatasetField = 'ACTIVO' - TableField = 'ACTIVO' - end> - end> - Name = 'Ejercicios' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_EJERCICIOS_ID' - ServerAutoRefresh = True - DictionaryEntry = 'Ejercicios_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'Ejercicios_ID_EMPRESA' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'Ejercicios_NOMBRE' - end - item - Name = 'FECHA_INICIO' - DataType = datDateTime - DictionaryEntry = 'Ejercicios_FECHA_INICIO' - end - item - Name = 'FECHA_FIN' - DataType = datDateTime - DictionaryEntry = 'Ejercicios_FECHA_FIN' - end - item - Name = 'ESTADO' - DataType = datString - Size = 255 - DictionaryEntry = 'Ejercicios_ESTADO' - end - item - Name = 'LONG_SUB_CUENTA' - DataType = datSmallInt - DictionaryEntry = 'Ejercicios_LONG_SUB_CUENTA' - end - item - Name = 'ID_ASIENTO_APERTURA' - DataType = datInteger - DictionaryEntry = 'Ejercicios_ID_ASIENTO_APERTURA' - end - item - Name = 'ID_ASIENTO_PERYGAN' - DataType = datInteger - DictionaryEntry = 'Ejercicios_ID_ASIENTO_PERYGAN' - end - item - Name = 'ID_ASIENTO_CIERRE' - DataType = datInteger - DictionaryEntry = 'Ejercicios_ID_ASIENTO_CIERRE' - end - item - Name = 'ACTIVO' - DataType = datSmallInt - DictionaryEntry = 'Ejercicios_ACTIVO' - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'id_empresa' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - Name = 'IBX' - SQL = 'execute procedure proc_set_ejercicios_noactivos :id_empresa'#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'SetEjerciciosNoActivos' - end - item - Params = < - item - Name = 'id_ejercicio_copia' - Value = '' - end - item - Name = 'id_ejercicio' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - Name = 'IBX' - SQL = - 'execute procedure proc_new_pgc :id_ejercicio_copia, :id_ejercici' + - 'o'#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'GenerarPGC' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 48 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 88 - end - object bpEjercicios: TDABusinessProcessor - Schema = schEjercicios - ReferencedDataset = 'Ejercicios' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands] - UpdateMode = updWhereKeyOnly - Left = 248 - Top = 24 - end -end diff --git a/Source/Modulos/Contabilidad ejercicios/Servidor/srvEjercicios_Impl.pas b/Source/Modulos/Contabilidad ejercicios/Servidor/srvEjercicios_Impl.pas deleted file mode 100644 index 96e8265c..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Servidor/srvEjercicios_Impl.pas +++ /dev/null @@ -1,82 +0,0 @@ -unit srvEjercicios_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, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer, - uDABin2DataStreamer; - -type - { TsrvEjercicios } - TsrvEjercicios = class(TDataAbstractService, IsrvEjercicios) - Diagrams: TDADiagrams; - Bin2DataStreamer: TDABin2DataStreamer; - bpEjercicios: TDABusinessProcessor; - schEjercicios: TDASchema; - DataDictionary: TDADataDictionary; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); - - protected - function GenerarPGC(const ID_EJERCICIO_COPIA: Integer; const ID_EJERCICIO: Integer): Boolean; - - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, uBizEjerciciosServer, uDataModuleServer, uROClasses, - uDatabaseUtils; - -procedure Create_srvEjercicios(out anInstance : IUnknown); -begin - anInstance := TsrvEjercicios.Create(NIL); -end; - -{ srvEjercicios } -procedure TsrvEjercicios.DARemoteServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; - bpEjercicios.BusinessRulesID := BIZ_SERVER_EJERCICIOS; -end; - -procedure TsrvEjercicios.DataAbstractServiceBeforeAcquireConnection( - aSender: TObject; var aConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -function TsrvEjercicios.GenerarPGC(const ID_EJERCICIO_COPIA, ID_EJERCICIO: Integer): Boolean; -begin - Result := False; - - try - Connection.BeginTransaction; - schEjercicios.NewCommand(Connection, 'GenerarPGC', ['ID_EJERCICIO_COPIA', 'ID_EJERCICIO'], [ID_EJERCICIO_COPIA, ID_EJERCICIO]); - Connection.CommitTransaction; - Result := True; - except - Connection.RollbackTransaction; - RaiseError('Error al generar el PGC'); - end; -end; - -initialization - TROClassFactory.Create('srvEjercicios', Create_srvEjercicios, TsrvEjercicios_Invoker); - -finalization - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.dpk b/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.dpk deleted file mode 100644 index 20468efb..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.dpk +++ /dev/null @@ -1,87 +0,0 @@ -package Ejercicios_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - JvCmpD11R, - Ejercicios_controller, - dbrtl, - DataAbstract_Core_D11, - vcldb, - dsnap, - adortl, - RemObjects_Core_D11, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - vclx, - cxExportD10, - dxPSCoreD10, - dxComnD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - PngComponentsD10, - PNG_D10, - tb2k_d10, - tbx_d10, - JvCoreD11R, - Jcl, - JclVcl, - JvAppFrmD11R, - JvCtrlsD11R, - JvSystemD11R, - JvStdCtrlsD11R, - cxIntlPrintSys3D10, - dxLayoutControlD10, - GUISDK_D11, - cfpack_d11, - ccpackD11, - JvPageCompsD11R; - -contains - uEjerciciosViewRegister in 'uEjerciciosViewRegister.pas', - uViewEjercicios in 'uViewEjercicios.pas' {frViewEjercicios: TFrame}, - uViewEjercicio in 'uViewEjercicio.pas' {frViewEjercicio: TFrame}, - uEditorEjercicios in 'uEditorEjercicios.pas' {fEditorEjercicios: TfEditorEjercicios}, - uEditorEjercicio in 'uEditorEjercicio.pas' {fEditorEjercicio: TfEditorEjercicio}; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.dproj b/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.dproj deleted file mode 100644 index 87210524..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.dproj +++ /dev/null @@ -1,602 +0,0 @@ - - - - {e3d36a6f-7004-4c89-9f3d-f2d77e386d1b} - Ejercicios_view.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Ejercicios_view.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Ejercicios_view.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fEditorEjercicio
- TfEditorEjercicios - - -
fEditorEjercicios
- TfEditorEjercicios - - - -
frViewEjercicio
- TFrame - - -
frViewEjercicios
- TFrame - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.identcache b/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.identcache deleted file mode 100644 index d2765cd2..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.rc b/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_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/Contabilidad ejercicios/Views/Ejercicios_view.res b/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Views/Ejercicios_view.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicio.dfm b/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicio.dfm deleted file mode 100644 index 9883458b..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicio.dfm +++ /dev/null @@ -1,458 +0,0 @@ -inherited fEditorEjercicio: TfEditorEjercicio - Left = 374 - Top = 273 - HorzScrollBar.Visible = False - VertScrollBar.Visible = False - Caption = 'Ficha de ejercicio' - ClientWidth = 632 - Scaled = False - OnClose = CustomEditorClose - ExplicitWidth = 640 - ExplicitHeight = 488 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 632 - Caption = 'Ejercicio' - ExplicitWidth = 632 - inherited Image1: TImage - Left = 605 - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 - 00001C0806000000720DDF940000000970485973000017120000171201679FD2 - 520000000467414D410000B18E7CFB51930000020F4944415478DAE5D4DB2B04 - 511800F06FB659D7CD2D892816B984258992242129E5924BDEE49147FF81571E - 9495072F44BB1EF69127CAA5DC436E895C4A92AC6CC48E9961EC3963C7EEEC65 - CEAC6D5F7CF575E69C33F3FD3AA773861204014219D4FF02298AF2FAD2709B5E - B8BEBF0E18195B17A4C28A20C2FA8D16E059065EACF7F0FE6203FBAB986B9619 - D0EB93A169D0E8757E7A6C089ED2BBC1643291814E4C2CF0EC13F3368FB0AE8E - 5618DF0E27038381A1200283851181C1C414C191F6CC3F611DED2DA0D150E4E0 - 402515F0A56CACAF83C8A808A069DA0DF50B8EF65242437D1F11C0B13C701C87 - DBA58555282E2B045A4B83D691AE685040578C6339585DDC8082923C0CC9D13F - 83728CE378D858D981DC826C8CC9D189DD88C0C10F86151119BAB77D08593919 - 222843270F74EAC1AFCF2FBC126F181A3FDA3F85F4CC34097245A74EE2D4814A - 18EA9F1D5F404A6A1284858779A0B3E789E42009869E2FCF6F203129016FA11C - 9DBB4A26034931D691B73777101B1F8341396AB94D53064930C6FE21818F0F56 - 88D6454907C589CE5BB3C16C36BBFF3EE5605D6DAF072616E781E7C53196FD5D - 1DEADB9E6D18D06A7F4FE73263C018AAEB17ACAAEC715FCD4F515F186ADFDFDE - 1C975C23615B9A720953042BCA3A556168FB19C68EBF47E8A1AEDA0D53044B0D - ADAA30144EF038A6C60353048BF29B55614ED017A6086E32DD1048F8C2FC82A1 - 889083DF93D867F65E51168D0000000049454E44AE426082} - ExplicitLeft = 607 - end - end - inherited TBXDock: TTBXDock - Width = 632 - ExplicitWidth = 632 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 330 - 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 = 632 - 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 = 632 - ExplicitWidth = 632 - inherited pagGeneral: TTabSheet - ExplicitLeft = 4 - ExplicitTop = 24 - ExplicitWidth = 624 - ExplicitHeight = 338 - end - end - inherited StatusBar: TJvStatusBar - Width = 632 - Panels = < - item - Width = 200 - end> - ExplicitWidth = 632 - end - inherited EditorActionList: TActionList - Top = 128 - end - inherited SmallImages: TPngImageList - Top = 112 - end - inherited dsDataTable: TDADataSource [6] - Left = 168 - Top = 120 - end - inherited LargeImages: TPngImageList [7] - Top = 112 - end - inherited JvFormStorage: TJvFormStorage [8] - end - object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList - Left = 320 - Top = 248 - 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 - object JsNuevoEjercicioDialog: TJSDialog - DialogOptions = [doCommandLinks, doModal] - Glyph.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 - 00001C0806000000720DDF940000000970485973000017120000171201679FD2 - 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 - 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD - 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 - 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD - B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 - 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 - 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 - A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 - 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 - 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 - A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F - 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B - EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F - 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 - 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 - 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 - CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF - 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 - F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF - 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 - 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF - 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 - ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 - FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 - 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA - 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} - Instruction.Glyph.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 - 00001C0806000000720DDF940000000970485973000017120000171201679FD2 - 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 - 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD - 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 - 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD - B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 - 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 - 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 - A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 - 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 - 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 - A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F - 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B - EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F - 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 - 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 - 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 - CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF - 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 - F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF - 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 - 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF - 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 - ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 - FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 - 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA - 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} - Instruction.Icon = tdiCustom - CustomButtons = < - item - Caption = 'Crear nuevo Plan General Contable' - Value = 100 - Default = True - end - item - Caption = - 'Seleccionar un ejercicio anterior y copiar su Plan General Conta' + - 'ble' - Value = 200 - end - item - Caption = 'No crear Plan General Contable' - Value = 300 - end> - ButtonBar.Buttons = [cbCancel] - MainIcon = tdiCustom - Title = 'FactuGES' - Position = dpMainFormCenter - Icon.Data = { - 0000010003002020100001000400E8020000360000002020000001000800A808 - 00001E0300002020000001002000A8100000C60B000028000000200000004000 - 0000010004000000000000020000000000000000000000000000000000000000 - 000000008000008000000080800080000000800080008080000080808000C0C0 - C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 - 0000000000000000000000000000000008777777777777777777777700000000 - 0877767777677776777767760000000008F88888888888888888888700000000 - 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000 - 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000 - 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000 - 08F8676767677677677658E50000000008FF8888888887878787888700000000 - 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000 - 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000 - 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000 - 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7 - 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087 - B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB - B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008 - B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B - B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0 - 08BB883B78888788787700000000000000B9000000000000000000000000FFFF - FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 - 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 - 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000 - 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800 - 0000200000004000000001000800000000000004000000000000000000000001 - 00000001000000000000694731007C5D49007E604C0081635000826451008567 - 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72 - 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84 - 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A - 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A - E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC - FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6 - F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE - C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD - E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC - F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8 - F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE - FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8 - F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1 - F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A - 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4 - 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8 - 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF - A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC - 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5 - AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4 - 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6 - BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8 - B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7 - F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9 - C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1 - C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA - D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2 - DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3 - FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE - EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4 - F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D - 0D0D0000000000000000009C9C19191919191919191919191919191919191919 - 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0 - 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB - 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0 - 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0 - 9007000000000000000000AFF0D5017783838386868686869099909999907BB0 - 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA - 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0 - 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3 - 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB - 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2 - 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2 - 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5 - 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5 - 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2 - 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2 - 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5 - 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2 - 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5 - 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA - 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5 - 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675 - 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101 - 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0 - A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB - 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514 - 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F - 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300 - 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000 - 0000000000000000000000003227000000000000000000000000000000000000 - 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800 - 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 - 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000 - 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800 - 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000007067 - 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355 - 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355 - 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB - A070000000000000000000000000000000000000000000000000000000005E54 - 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A - 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A - 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1 - 967F000000000000000000000000000000000000000000000000000000006055 - 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7 - BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC - B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006056 - 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE - D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB - C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006155 - 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0 - DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD - C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006157 - 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3 - CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4 - B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006256 - 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3 - 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8 - 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006256 - 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2 - CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006256 - 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE - C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006257 - 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60 - 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C - 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006357 - 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1 - A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4 - 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006357 - 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4 - 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1 - DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006458 - 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7 - 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1 - DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006458 - 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5 - F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3 - DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006459 - 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED - EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE - D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006559 - 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D - 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C - 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1 - 967E000000000000000000000000000000000000000000000000000000006559 - 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC - C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6 - F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1 - 967E00000000000000000000000000000000000000000000000000000000685A - 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD - C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF - FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1 - 967E00000000000000000000000000000000007792910072A7A3001E33366957 - 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C - A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85 - 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1 - 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90 - A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4 - CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99 - 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1 - 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0 - FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA - B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6 - F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1 - 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE - F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB - 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6 - F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1 - 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB - FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8 - FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7 - F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1 - 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD - FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0 - FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA - F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3 - 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD - FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1 - F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC - FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2 - 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8 - FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2 - FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE - FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985 - 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9 - FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF - FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000 - 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9 - FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000 - 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD - BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4 - F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6 - E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000 - 0000000000000000000000000000000000000075B7AF0099C7C500323E425442 - 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85 - A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89 - 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000 - 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 - 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 - 0007C0000007C000000700000007000000070000000700000007C000000FC000 - 001F8000003F800000FFF8FFFFFF} - Width = 550 - Left = 72 - Top = 96 - end -end diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicio.pas b/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicio.pas deleted file mode 100644 index 8daa0c64..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicio.pas +++ /dev/null @@ -1,230 +0,0 @@ -unit uEditorEjercicio; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent, - uViewEjercicio, uBizEjercicios, 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, - - uViewEjercicios, uIEditorEjercicio, uEjerciciosController, JvExComCtrls, - JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, JSDialog; - -type - TfEditorEjercicio = class(TfEditorDBItem, IEditorEjercicio) - dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; - dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; - JsNuevoEjercicioDialog: TJSDialog; - procedure FormShow(Sender: TObject); - procedure dsDataTableDataChange(Sender: TObject; Field: TField); - procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); - protected - FController : IEjerciciosController; - FEjercicio: IBizEjercicio; - FViewEjercicio : IViewEjercicio; - - function GetController : IEjerciciosController; - procedure SetController (const Value : IEjerciciosController); virtual; - function GetEjercicio: IBizEjercicio; virtual; - procedure SetEjercicio(const Value: IBizEjercicio); virtual; - function GetViewEjercicio: IViewEjercicio; - procedure SetViewEjercicio(const Value: IViewEjercicio); - property ViewEjercicio: IViewEjercicio read GetViewEjercicio write SetViewEjercicio; - - procedure GuardarInterno; override; - procedure EliminarInterno; override; - - procedure PonerTitulos(const ATitulo: string = ''); override; - - //Si queremos crear otra vista para el editor heredado solo tendriamos que - //sobreescribir este metodo - procedure AsignarVista; virtual; - - public - property Ejercicio: IBizEjercicio read GetEjercicio write SetEjercicio; - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -{$R *.dfm} - -uses - uCustomEditor, uDataModuleEjercicios, uDataModuleBase; - -function ShowEditorEjercicio (ABizObject : TDADataTableRules): TModalResult; -var - AEditor: TfEditorEjercicio; -begin - AEditor := TfEditorEjercicio.Create(Application); - try - AEditor.Ejercicio := (ABizObject as IBizEjercicio); - Result := AEditor.ShowModal; - finally - AEditor.Release; - end; -end; - -{ -******************************* TfEditorEjercicio ******************************* -} -function TfEditorEjercicio.GetEjercicio: IBizEjercicio; -begin - Result := FEjercicio; -end; - -function TfEditorEjercicio.GetController: IEjerciciosController; -begin - Result := FController; -end; - -function TfEditorEjercicio.GetViewEjercicio: IViewEjercicio; -begin - Result := FViewEjercicio; -end; - -procedure TfEditorEjercicio.GuardarInterno; -var - bEsNuevo: Boolean; - Respuesta : Integer; - -begin - inherited; - bEsNuevo := FEjercicio.EsNuevo; - FController.Guardar(FEjercicio); - - //Si el ejercicio guardado es nuevo generamos el pgc - if bEsNuevo then - begin - Respuesta := JsNuevoEjercicioDialog.Execute; - if Respuesta <> IDCANCEL then - begin - case JsNuevoEjercicioDialog.CustomButtonResult of - 300 : begin // No generar PGC - end; - 200 : begin // Utilizar un ejercicio anterior para copiar el PGC - end; - 100 : begin // Utilizar el PGC base - FController.GenerarPCG(0, FEjercicio.ID); - end; - end; - end; - end; - - RefrescarInterno; //Es necesario sino no se actualiza el campo ACTIVO de todas las tuplas - Modified := False; -end; - -procedure TfEditorEjercicio.PonerTitulos(const ATitulo: string); -var - FTitulo : String; -begin - if Assigned(Ejercicio) then - begin - if Ejercicio.EsNuevo then - FTitulo := 'Nuevo almacén' - else - FTitulo := 'Almacén' + ' - ' + Ejercicio.NOMBRE; - end; - - inherited PonerTitulos(FTitulo); -end; - -procedure TfEditorEjercicio.SetEjercicio(const Value: IBizEjercicio); -begin - FEjercicio := Value; - dsDataTable.DataTable := FEjercicio.DataTable; - - if Assigned(FViewEjercicio) and Assigned(Ejercicio) then - FViewEjercicio.Ejercicio := Ejercicio; -end; - -procedure TfEditorEjercicio.SetController(const Value: IEjerciciosController); -begin - FController := Value; -end; - -procedure TfEditorEjercicio.SetViewEjercicio(const Value: IViewEjercicio); -begin - FViewEjercicio := Value; - - if Assigned(FViewEjercicio) and Assigned(Ejercicio) then - FViewEjercicio.Ejercicio := Ejercicio; -end; - -procedure TfEditorEjercicio.FormShow(Sender: TObject); -begin - inherited; - - if not Assigned(FViewEjercicio) then - raise Exception.Create('No hay ninguna vista asignada'); - - if not Assigned(Ejercicio) then - raise Exception.Create('No hay ningún almacén asignado'); - - Ejercicio.DataTable.Active := True; -end; - -destructor TfEditorEjercicio.Destroy; -begin - // Utilizar mejor OnClose; - inherited; -end; - -procedure TfEditorEjercicio.AsignarVista; -var - AViewEjercicio: TfrViewEjercicio; -begin - AViewEjercicio := TfrViewEjercicio.create(Self); - with AViewEjercicio do - begin - Parent := pagGeneral; - Align := alClient; -// dxLayoutControlEjercicio.LookAndFeel := dxLayoutOfficeLookAndFeel1; - end; - ViewEjercicio := AViewEjercicio; -end; - -constructor TfEditorEjercicio.Create(AOwner: TComponent); -begin - inherited; - pgPaginas.ActivePageIndex := 0; - AsignarVista; -end; - -procedure TfEditorEjercicio.CustomEditorClose(Sender: TObject; - var Action: TCloseAction); -begin - inherited; - dsDataTable.DataTable := NIL; - FViewEjercicio := NIL; - FEjercicio := NIL; -end; - -procedure TfEditorEjercicio.dsDataTableDataChange(Sender: TObject; - Field: TField); -begin - inherited; - if Assigned(FEjercicio) and (not (FEjercicio.DataTable.Fetching) or - not (FEjercicio.DataTable.Opening) or not (FEjercicio.DataTable.Closing)) then - PonerTitulos; -end; - -procedure TfEditorEjercicio.EliminarInterno; -begin - if (Application.MessageBox('¿Desea borrar este Ejercicio?', 'Atención', MB_YESNO) = IDYES) then - begin - inherited; - if not FController.Eliminar(FEjercicio) then - actRefrescar.Execute; - end; -end; - -end. - diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicios.dfm b/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicios.dfm deleted file mode 100644 index af137869..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicios.dfm +++ /dev/null @@ -1,1496 +0,0 @@ -inherited fEditorEjercicios: TfEditorEjercicios - Left = 489 - Top = 325 - Caption = 'Lista de ejercicios' - ExplicitHeight = 471 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Caption = 'Lista de ejercicios' - inherited Image1: TImage - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 520000000467414D410000B18E7CFB5193000001D44944415478DAB5D4BD4B02 - 7118C0F1E737D552D0105843616F838519166551345443A32D2E0DD15863FF41 - 6B2141353544144A2004114144431695841445D00BE950E7905618742F2257CF - D9D9EFCE3BEF4EF001797E9CFAFD1C8A125114A19C43648010A2F98205AF5D7C - 611296C3FE33961802189F5909C13B1383EFF427B05FB94738B40976BB0DC6E7 - 56FEAE7D289EF7EF3E422010280E941ADF589E8754A3AF3820C7F10DA9D798A5 - 785D8D0D6EAB87F5013A8E81D46BDC521C471750C731F0CEC44DC55B1B9A41E0 - 0510848C36B038D15410C7F3C1FAB261BCABC3998BF31969472B070A81D97E52 - D20F62D0E381CCEF5DF3129043CE494F21B03445C4B1D169C360369B95223C27 - C0D17E181CCE36E963A19163C1551A40C731747274019DDDED529C460EBF1CD6 - 01751CCF91D328F40DBA81653905B2976CB10668C5715F5DDEC2D088473AD3C8 - 0ED3681ED08BE3BEBBB997001C1AD98ED79B038AC5F14E9FEE9FF3008D6C3DD4 - 1A03EA38FBCDE501FE6F332F090520236BD755C5013A22A8367D3DF9962C0056 - 2315100C06FFFF21D480D938EE743AAD00E4389E3581E1A149D371FC0E388ECD - 03745C17F0F4FA4CC77164401DD705DC2EAFE9B80CE03FA73AAE0B9C733EB03A - 5A714DA05C5376E00756B52DFEBD3C9AE50000000049454E44AE426082} - end - end - inherited TBXDock: TTBXDock - inherited tbxMain: TTBXToolbar - ExplicitWidth = 474 - end - inherited tbxFiltro: TTBXToolbar - ExplicitWidth = 269 - inherited tbxEditFiltro: TTBXEditItem - EditOptions = [tboUseEditWhenVertical] - end - inherited TBXItem37: TTBXItem - Visible = False - end - end - inherited TBXTMain2: TTBXToolbar - Left = 275 - DockPos = 275 - ExplicitLeft = 275 - end - end - inline frViewEjercicios1: TfrViewEjercicios [3] - Left = 0 - Top = 102 - Width = 543 - Height = 323 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - ExplicitLeft = -11 - ExplicitTop = -150 - inherited cxGrid: TcxGrid - Width = 543 - Height = 195 - inherited cxGridView: TcxGridDBTableView - DataController.Summary.FooterSummaryItems = < - item - Format = '0 ejercicios' - Kind = skCount - Column = frViewEjercicios1.cxGridViewNOMBRE - end> - inherited cxGridViewID: TcxGridDBColumn - IsCaptionAssigned = True - end - end - end - inherited frViewFiltroBase1: TfrViewFiltroBase - Width = 543 - inherited TBXDockablePanel1: TTBXDockablePanel - inherited dxLayoutControl1: TdxLayoutControl - Width = 543 - inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 - end - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end - inherited edtFechaFinFiltro: TcxDateEdit - Left = 337 - ExplicitLeft = 337 - ExplicitWidth = 121 - Width = 121 - end - end - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 543 - inherited tbxBotones: TTBXToolbar - Width = 533 - end - end - end - end - inherited pnlAgrupaciones: TTBXDockablePanel - Top = 297 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 543 - inherited TBXToolbar1: TTBXToolbar - Width = 533 - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink: TdxGridReportLink - ReportDocument.CreationDate = 39413.516400462960000000 - BuiltInReportLink = True - end - end - inherited cxViewGridPopupMenu: TcxGridPopupMenu - PopupMenus = < - item - GridView = frViewEjercicios1.cxGridView - HitTypes = [gvhtCell] - Index = 0 - end> - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - end - inherited EditorActionList: TActionList [4] - inherited actNuevo: TAction - ImageIndex = 22 - end - end - inherited SmallImages: TPngImageList [5] - 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 - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000002704944415478DA - 8593DB4B545114C6BF333AFB8CCD3853A11686162811410F1118241524984951 - 0F864F520F3DE8D3FC0DD183145949E12814D1850A9CA2871294A8208BC1862E - 2814836578BF4D9A8D9EBD679A4E6B9D33C7697AB0058BBD38ECEFB7D7FA1647 - 936F607AF6410305D7FA17E07C773946A646D1DE0E0483583334F30E4C554145 - 6508E6700B18903C9CAD7BA64E63B0FF39829D8FF0333E83C5D971CA49DCB874 - 16F1AD0DD0D46CC814BD2D6008078BB8764097CFB45AE2C5D9090B30333A8CBB - 1D17D070A20E5DEF7DD481692239D769B2D8F4B7D86D2D85ACD311FF989BC4D2 - FC34BE4F8FE1E69573387AE4100A7D5E5C1BD0A13973AB93B65014374329B2E4 - 5D76CEA1A9562416E2B8DF7511C7EA6BE05D57004DD36C007BC09718A0EB5669 - 01F4EE2CA0F92A01A9D3EABD7B50B2A908C29D0F97CB9501AC3142AC27826432 - 052525FA9EF4A3627B19021B0210C24D10373AA21EDB44769CB7C0663AE16C26 - 7AAF0FD248E2D58BB728DF560AFF7A1FDC04D0751DD73FFAB21EFCBD3AAE9DCD - BC7E590F432A44238328DD528242BF176E9D3AD0056E7FDA687BD0D60BD4D59E - 4265E52D0B104D3442190AD5C58FF13456439E280C7E88A1A828001F01841010 - 1E81075F37DB1EB435692603D2E9DF48A914E48AB2440641944C522AC43E7F43 - 61C00B9FB7003A89798487136559406D4D1389E832CD2B0D099911328481E363 - D3F014084A0F3CD4FEB3E59D0887C3DA2AE06075235D94D68B2B7C2A06290BC4 - 677C7E0179F92E7A596020AFCA12DBFF420650B5FB784ECB9CD2B0C5067D5B4E - 2CF3750CF9F7AF8A7300BB76D459C6392F33C8C87490FE95A65392F8408E3807 - 10910DF85FFC2BE6F80376357B8923C9356C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [6] - 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 - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002694944415478DA - B594CB6B134118C0BFB9743D6841A48A1E5A1FF1502A5AA555A3584544BDE829 - 1E04C58B87E4A247FF84EAA168AD90A017C17A908882082A8A50A15AAD448B0F - D0F8A8252D4A1A2D096477670DE37C3B997D249B6636E007C37C330BBFDF3CBE - 59C21803F305615A9411E061E75F7972C233AE7E6B25080A60943073031F4492 - C0BE240005F4909B4B59CB029A4FB1B64709400906423197A28BA7072137F72B - 347C64D22062073C50823D6B4F08733169F7083F9BBA0385D96F502E2EF0F607 - F4D2028CDDBE09EBD7AD8223E792F6BC5EFAEDFB3E742F0BE9749A10E3393067 - D5C704B8AD230EA6C94F25E3AE6646BFAA0CBF3E320885AE9810B01B42605F28 - 17689A18A2404BBB82A9A51794E1AB97AF84F7ED0355419323CAFF5801F3B9EF - A1E0183E01C2B162B08AF0B29D1D552B2BF3704609BEB1732D509302A57FFD02 - 59FBDED2C45C56D6A5F39D4DE1DB36F5D870D3B4EC3EB36497E788F83BC05A8F - 6F276C78585C78FCB2D845EA8C9B378A81683F58D472E0D84F903EFF1D600C9D - 24ECF0C1534DEBBB52A9701007EA149E3C18879ECD117E2C964F3246B7B426F0 - C211F4ECE924F4F675DB70AFE471A93BBCA0168EA097E36F21BA672BE8BAE193 - DC9F8F841304C1B17FF3FA23EC3BB0838FA94F7277AE4B5DD0088E731FDE656D - 81789CAEE4D6F41A35C162705C69F6D3B423F04A463F773417D4C2CB6543801D - 9105B3B99F3E81945C9B5AB6B8C0811862B5A65CB5078E2D9F2FD409AEBCD26C - 38E681025538CE178B259FC00B0F14ECDF7B5C198E7760188623A885070A76EF - 8C29C331A420081E28E8EF3DAA0C9702F9E70C7A3F758209230661A311BC4EF0 - 3FE21F497E40FE838101750000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited dsDataTable: TDADataSource [9] - end - inherited StatusBarImages: TPngImageList - Top = 232 - end -end diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicios.pas b/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicios.pas deleted file mode 100644 index 338dffe1..00000000 Binary files a/Source/Modulos/Contabilidad ejercicios/Views/uEditorEjercicios.pas and /dev/null differ diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uEjerciciosViewRegister.pas b/Source/Modulos/Contabilidad ejercicios/Views/uEjerciciosViewRegister.pas deleted file mode 100644 index 7b493654..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/uEjerciciosViewRegister.pas +++ /dev/null @@ -1,25 +0,0 @@ -unit uEjerciciosViewRegister; - -interface - -procedure RegisterViews; -procedure UnregisterViews; - -implementation - -uses - uEditorRegistryUtils, uEditorEjercicio, uEditorEjercicios; - -procedure RegisterViews; -begin - EditorRegistry.RegisterClass(TfEditorEjercicios, 'EditorEjercicios'); - EditorRegistry.RegisterClass(TfEditorEjercicio, 'EditorEjercicio'); -end; - -procedure UnregisterViews; -begin - EditorRegistry.UnRegisterClass(TfEditorEjercicios); - EditorRegistry.UnRegisterClass(TfEditorEjercicio); -end; - -end. diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicio.dfm b/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicio.dfm deleted file mode 100644 index 02671d73..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicio.dfm +++ /dev/null @@ -1,165 +0,0 @@ -inherited frViewEjercicio: TfrViewEjercicio - Width = 451 - Height = 304 - Align = alClient - AutoSize = True - ExplicitWidth = 451 - ExplicitHeight = 304 - object dxLayoutControlEjercicio: TdxLayoutControl - Left = 0 - Top = 0 - Width = 451 - Height = 304 - Align = alClient - ParentBackground = True - TabOrder = 0 - AutoContentSizes = [acsWidth, acsHeight] - DesignSize = ( - 451 - 304) - object eNombre: TcxDBTextEdit - Left = 86 - Top = 55 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'NOMBRE' - DataBinding.DataSource = DADataSource - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = 14745599 - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 - Width = 204 - end - object edtFechaIni: TcxDBDateEdit - Left = 86 - Top = 82 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'FECHA_INICIO' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.Shadow = False - Style.ButtonStyle = bts3D - Style.ButtonTransparency = ebtNone - Style.PopupBorderStyle = epbsFrame3D - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 2 - Width = 158 - end - object edtFechaFin: TcxDBDateEdit - Left = 86 - Top = 109 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'FECHA_FIN' - DataBinding.DataSource = DADataSource - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.Shadow = False - Style.ButtonStyle = bts3D - Style.ButtonTransparency = ebtNone - Style.PopupBorderStyle = epbsFrame3D - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 - Width = 158 - end - object cbSituacion: TcxDBImageComboBox - Left = 86 - Top = 136 - DataBinding.DataField = 'ESTADO' - DataBinding.DataSource = DADataSource - Properties.Items = < - item - Description = 'ABIERTO' - ImageIndex = 0 - Value = 'ABIERTO' - end - item - Description = 'CERRADO' - Value = 'CERRADO' - end> - TabOrder = 4 - Width = 158 - end - object cxDBCheckBox2: TcxDBCheckBox - Left = 22 - Top = 28 - Caption = 'Ejercicio activo' - DataBinding.DataField = 'ACTIVO' - DataBinding.DataSource = DADataSource - Properties.Alignment = taRightJustify - 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 = 0 - Width = 100 - end - object dxLayoutControlEjercicioGroup_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControlEjercicioGroup1: TdxLayoutGroup - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Datos del ejercicio' - object dxLayoutControlEjercicioItem4: TdxLayoutItem - AutoAligns = [aaVertical] - ShowCaption = False - Control = cxDBCheckBox2 - ControlOptions.ShowBorder = False - end - object dxLayoutControlEjercicioItem3: TdxLayoutItem - Caption = 'Descripci'#243'n:' - Control = eNombre - ControlOptions.ShowBorder = False - end - object dxLayoutControlEjercicioItem1: TdxLayoutItem - Caption = 'Fecha inicio:' - Control = edtFechaIni - ControlOptions.ShowBorder = False - end - object dxLayoutControlEjercicioItem2: TdxLayoutItem - Caption = 'Fecha fin:' - Control = edtFechaFin - ControlOptions.ShowBorder = False - end - object dxLayoutControlEjercicioItem5: TdxLayoutItem - Caption = 'Situaci'#243'n:' - Control = cbSituacion - ControlOptions.ShowBorder = False - end - end - end - end - object DADataSource: TDADataSource - Left = 24 - Top = 144 - end -end diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicio.pas b/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicio.pas deleted file mode 100644 index 747be94e..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicio.pas +++ /dev/null @@ -1,71 +0,0 @@ -unit uViewEjercicio; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, - DBCtrls, Grids, DBGrids, uBizEjercicios, Mask, ComCtrls, uCustomView, - JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, - cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit, - cxImageComboBox, cxMaskEdit, cxCalendar, cxCheckBox; - -type - IViewEjercicio = interface(IViewBase) - ['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}'] - function GetEjercicio: IBizEjercicio; - procedure SetEjercicio(const Value: IBizEjercicio); - property Ejercicio: IBizEjercicio read GetEjercicio write SetEjercicio; - end; - - TfrViewEjercicio = class(TfrViewBase, IViewEjercicio) - DADataSource: TDADataSource; - dxLayoutControlEjercicioGroup_Root: TdxLayoutGroup; - dxLayoutControlEjercicio: TdxLayoutControl; - dxLayoutControlEjercicioGroup1: TdxLayoutGroup; - dxLayoutControlEjercicioItem3: TdxLayoutItem; - eNombre: TcxDBTextEdit; - dxLayoutControlEjercicioItem1: TdxLayoutItem; - edtFechaIni: TcxDBDateEdit; - dxLayoutControlEjercicioItem2: TdxLayoutItem; - edtFechaFin: TcxDBDateEdit; - dxLayoutControlEjercicioItem5: TdxLayoutItem; - cbSituacion: TcxDBImageComboBox; - dxLayoutControlEjercicioItem4: TdxLayoutItem; - cxDBCheckBox2: TcxDBCheckBox; - protected - FEjercicio: IBizEjercicio; - function GetEjercicio: IBizEjercicio; - procedure SetEjercicio(const Value: IBizEjercicio); - public - property Ejercicio: IBizEjercicio read GetEjercicio write SetEjercicio; - end; - -implementation - -uses uDataModuleEjercicios; - -{$R *.dfm} - -{ TfrViewEjercicios } - -{ -******************************* TfrViewEjercicios ******************************** -} - -function TfrViewEjercicio.GetEjercicio: IBizEjercicio; -begin - Result := FEjercicio; -end; - -procedure TfrViewEjercicio.SetEjercicio(const Value: IBizEjercicio); -begin - FEjercicio := Value; - if Assigned(FEjercicio) then - DADataSource.DataTable := FEjercicio.DataTable - else - DADataSource.DataTable := NIL; -end; - -end. - diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicios.dfm b/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicios.dfm deleted file mode 100644 index a84c2e12..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicios.dfm +++ /dev/null @@ -1,129 +0,0 @@ -inherited frViewEjercicios: TfrViewEjercicios - inherited cxGrid: TcxGrid - inherited cxGridView: TcxGridDBTableView - DataController.KeyFieldNames = 'ID' - DataController.Summary.FooterSummaryItems = < - item - Format = '0 ejercicios' - Kind = skCount - Column = cxGridViewNOMBRE - end> - OptionsBehavior.PullFocusing = True - object cxGridViewID: TcxGridDBColumn - DataBinding.FieldName = 'ID' - OnCustomDrawCell = cxGridViewIDCustomDrawCell - BestFitMaxWidth = 22 - MinWidth = 22 - Options.HorzSizing = False - Width = 22 - IsCaptionAssigned = True - end - object cxGridViewACTIVO: TcxGridDBColumn - DataBinding.FieldName = 'ACTIVO' - PropertiesClassName = 'TcxImageComboBoxProperties' - Properties.Items = < - item - Description = 'Activo' - ImageIndex = 0 - Value = 1 - end - item - Description = 'No activo' - Value = 0 - end> - end - object cxGridViewNOMBRE: TcxGridDBColumn - DataBinding.FieldName = 'NOMBRE' - SortIndex = 0 - SortOrder = soAscending - Width = 304 - end - object cxGridViewESTADO: TcxGridDBColumn - DataBinding.FieldName = 'ESTADO' - PropertiesClassName = 'TcxImageComboBoxProperties' - Properties.Items = < - item - Description = 'ABIERTO' - ImageIndex = 0 - Value = 'ABIERTO' - end - item - Description = 'CERRADO' - Value = 'CERRADO' - end> - Visible = False - end - object cxGridViewFECHA_INICIO: TcxGridDBColumn - DataBinding.FieldName = 'FECHA_INICIO' - PropertiesClassName = 'TcxDateEditProperties' - Width = 118 - end - object cxGridViewFECHA_FIN: TcxGridDBColumn - DataBinding.FieldName = 'FECHA_FIN' - PropertiesClassName = 'TcxDateEditProperties' - BestFitMaxWidth = 64 - Width = 118 - end - end - end - inherited frViewFiltroBase1: TfrViewFiltroBase - inherited TBXDockablePanel1: TTBXDockablePanel - inherited dxLayoutControl1: TdxLayoutControl - inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 - end - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end - inherited edtFechaFinFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink: TdxGridReportLink - ReportDocument.CreationDate = 38673.842406053240000000 - BuiltInReportLink = True - end - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - object PngImageList: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000022E4944415478DA - 8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D - C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5 - A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0 - 2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236 - 8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A - 4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127 - A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D - 7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12 - 9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC - 1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D - 13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2 - AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D - 352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE - 3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3 - 12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104 - 84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2 - C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C - 6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 160 - Top = 32 - Bitmap = {} - end -end diff --git a/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicios.pas b/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicios.pas deleted file mode 100644 index 9e8d3e39..00000000 --- a/Source/Modulos/Contabilidad ejercicios/Views/uViewEjercicios.pas +++ /dev/null @@ -1,84 +0,0 @@ -unit uViewEjercicios; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, uBizEjercicios, ActnList, Menus, - cxGridBandedTableView, cxGridDBBandedTableView, JvComponent, - JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk, - cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX, - TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar, - cxImageComboBox; - -type - IViewEjercicios = interface(IViewGrid) - ['{E6798DF7-011C-40EC-B368-160C48697445}'] - function GetEjercicios: IBizEjercicio; - procedure SetEjercicios(const Value: IBizEjercicio); - property Ejercicios: IBizEjercicio read GetEjercicios write SetEjercicios; - end; - - TfrViewEjercicios = class(TfrViewGrid, IViewEjercicios) - cxGridViewFECHA_INICIO: TcxGridDBColumn; - cxGridViewNOMBRE: TcxGridDBColumn; - cxGridViewFECHA_FIN: TcxGridDBColumn; - cxGridViewID: TcxGridDBColumn; - PngImageList: TPngImageList; - cxGridViewESTADO: TcxGridDBColumn; - cxGridViewACTIVO: TcxGridDBColumn; - procedure cxGridViewIDCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); - protected - FEjercicios: IBizEjercicio; - function GetEjercicios: IBizEjercicio; virtual; - procedure SetEjercicios(const Value: IBizEjercicio); virtual; - public - property Ejercicios: IBizEjercicio read GetEjercicios write SetEjercicios; - end; - -implementation - -uses uDataModuleEjercicios; - - -{$R *.dfm} - -{ TfrViewEjercicios } - -{ -******************************* TfrViewEjercicios ******************************* -} -function TfrViewEjercicios.GetEjercicios: IBizEjercicio; -begin - Result := FEjercicios; -end; - -procedure TfrViewEjercicios.SetEjercicios(const Value: IBizEjercicio); -begin - FEjercicios := Value; - if Assigned(FEjercicios) then - dsDataSource.DataTable := FEjercicios.DataTable; -end; - - -procedure TfrViewEjercicios.cxGridViewIDCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -var - R : TRect; -begin - inherited; - R := AViewInfo.ContentBounds; - ACanvas.FillRect(R); - ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0); - ADone := True; -end; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.dpk b/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.dpk deleted file mode 100644 index 4b0fde5b..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.dpk +++ /dev/null @@ -1,42 +0,0 @@ -package Epigrafes_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - Epigrafes_model, - Epigrafes_data; - -contains - uEpigrafesController in 'uEpigrafesController.pas', - uIEditorEpigrafe in 'View\uIEditorEpigrafe.pas', - uIEditorEpigrafes in 'View\uIEditorEpigrafes.pas'; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.dproj b/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.dproj deleted file mode 100644 index a8d63e4f..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.dproj +++ /dev/null @@ -1,545 +0,0 @@ - - - - {7f80f8aa-6912-4714-986d-aed73035472b} - Epigrafes_controller.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Epigrafes_controller.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Epigrafes_controller.dpk - - - - - MainSource - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.identcache b/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.identcache deleted file mode 100644 index f18ac528..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.rc b/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_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/Contabilidad epigrafes/Controller/Epigrafes_controller.res b/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Controller/Epigrafes_controller.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Controller/View/uIEditorEpigrafe.pas b/Source/Modulos/Contabilidad epigrafes/Controller/View/uIEditorEpigrafe.pas deleted file mode 100644 index 1bcba714..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Controller/View/uIEditorEpigrafe.pas +++ /dev/null @@ -1,26 +0,0 @@ -unit uIEditorEpigrafe; - -interface - -uses - uBizEpigrafes, uEpigrafesController; - -type - IEditorEpigrafe = interface - ['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}'] - function GetController : IEpigrafesController; - procedure SetController (const Value : IEpigrafesController); - property Controller : IEpigrafesController read GetController write SetController; - - function GetEpigrafe: IBizEpigrafe; - procedure SetEpigrafe(const Value: IBizEpigrafe); - property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe; - - function ShowModal : Integer; - procedure Release; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Controller/View/uIEditorEpigrafes.pas b/Source/Modulos/Contabilidad epigrafes/Controller/View/uIEditorEpigrafes.pas deleted file mode 100644 index 09ab2465..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Controller/View/uIEditorEpigrafes.pas +++ /dev/null @@ -1,23 +0,0 @@ -unit uIEditorEpigrafes; - -interface - -uses - uEditorGridBase, uBizEpigrafes, uEpigrafesController; - -type - IEditorEpigrafes = interface (IEditorGridBase) - ['{47A77BA9-3845-469B-A790-81F3C6E0F134}'] - function GetController : IEpigrafesController; - procedure SetController (const Value : IEpigrafesController); - property Controller : IEpigrafesController read GetController write SetController; - - function GetEpigrafes: IBizEpigrafe; - procedure SetEpigrafes(const Value: IBizEpigrafe); - property Epigrafes: IBizEpigrafe read GetEpigrafes write SetEpigrafes; - end; - - -implementation - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Controller/uEpigrafesController.pas b/Source/Modulos/Contabilidad epigrafes/Controller/uEpigrafesController.pas deleted file mode 100644 index a0406dde..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Controller/uEpigrafesController.pas +++ /dev/null @@ -1,274 +0,0 @@ -unit uEpigrafesController; - -interface - - -uses - Classes, SysUtils, uDADataTable, uControllerBase, - uBizEpigrafes, uIDataModuleEpigrafes; -type - IEpigrafesController = interface(IObservador) - ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] - function BuscarTodos: IBizEpigrafe; - function Buscar(ID: Integer): IBizEpigrafe; - procedure VerTodos(AEpigrafes: IBizEpigrafe); - procedure Ver(AEpigrafe: IBizEpigrafe); - procedure Anadir(AEpigrafe : IBizEpigrafe); - function Eliminar(AEpigrafe : IBizEpigrafe): Boolean; - function Guardar(AEpigrafe : IBizEpigrafe): Boolean; - procedure DescartarCambios(AEpigrafe : IBizEpigrafe); - function Localizar(AEpigrafes: IBizEpigrafe; ADescripcion:String): Boolean; - function DarListaEpigrafes: TStringList; - end; - - TEpigrafesController = class(TObservador, IEpigrafesController) - protected - FDataModule : IDataModuleEpigrafes; - - procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; - function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; - - function ValidarEpigrafe(AEpigrafe: IBizEpigrafe): Boolean; - procedure AsignarDataModule; - - public - constructor Create; override; - destructor Destroy; override; - - function Eliminar(AEpigrafe : IBizEpigrafe): Boolean; - function Guardar(AEpigrafe : IBizEpigrafe): Boolean; virtual; - procedure DescartarCambios(AEpigrafe : IBizEpigrafe); virtual; - procedure Anadir(AEpigrafe : IBizEpigrafe); - function BuscarTodos: IBizEpigrafe; - function Buscar(ID: Integer): IBizEpigrafe; - procedure VerTodos(AEpigrafes: IBizEpigrafe); - procedure Ver(AEpigrafe: IBizEpigrafe); - function Localizar(AEpigrafes: IBizEpigrafe; ADescripcion:String): Boolean; - function DarListaEpigrafes: TStringList; - end; - -implementation - -uses - cxControls, DB, uEditorRegistryUtils, schEpigrafesClient_Intf, - uIEditorEpigrafes, uIEditorEpigrafe, uDataModuleEpigrafes, - uDAInterfaces, uDataTableUtils, uDialogUtils, - uDateUtils, uROTypes, DateUtils, Controls, Windows; - -{ TEpigrafesController } - -procedure TEpigrafesController.Anadir(AEpigrafe: IBizEpigrafe); -begin - AEpigrafe.Insert; -end; - -procedure TEpigrafesController.AsignarDataModule; -begin - FDataModule := TDataModuleEpigrafes.Create(Nil); -end; - -function TEpigrafesController.Buscar(ID: Integer): IBizEpigrafe; -var - Condicion: TDAWhereExpression; -begin - ShowHourglassCursor; - try - Result := BuscarTodos; - - with Result.DataTable.DynamicWhere do - begin - // (ID = :ID) - Condicion := NewBinaryExpression(NewField('', fld_EpigrafesID), NewConstant(ID, datInteger), dboEqual); - - if IsEmpty then - Expression := Condicion - else - Expression := NewBinaryExpression(Expression, Condicion, dboAnd); - end; - - finally - HideHourglassCursor; - end; -end; - -function TEpigrafesController.BuscarTodos: IBizEpigrafe; -begin - Result := FDataModule.GetItems; -end; - -constructor TEpigrafesController.Create; -begin - inherited; - AsignarDataModule; -end; - -function TEpigrafesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; -begin - Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); -end; - -function TEpigrafesController.DarListaEpigrafes: TStringList; -var - AEpigrafes: IBizEpigrafe; -begin - AEpigrafes := BuscarTodos; - AEpigrafes.DataTable.Active := True; - Result := TStringList.Create; - try - with Result do - begin - AEpigrafes.DataTable.First; - while not AEpigrafes.DataTable.EOF do - begin - Add(AEpigrafes.DESCRIPCION); - AEpigrafes.DataTable.Next; - end; - end; - finally - AEpigrafes := NIL; - end; -end; - -procedure TEpigrafesController.DescartarCambios(AEpigrafe: IBizEpigrafe); -begin - if not Assigned(AEpigrafe) then - raise Exception.Create ('Epigrafe no asignado'); - - ShowHourglassCursor; - try - if (AEpigrafe.State in dsEditModes) then - AEpigrafe.Cancel; - - AEpigrafe.DataTable.CancelUpdates; - finally - HideHourglassCursor; - end; -end; - -destructor TEpigrafesController.Destroy; -begin - FDataModule:= NIL; - inherited; -end; - -function TEpigrafesController.ValidarEpigrafe(AEpigrafe: IBizEpigrafe): Boolean; -begin - Result := False; - - if not Assigned(AEpigrafe) then - raise Exception.Create ('Epigrafe no asignado'); - - if (AEpigrafe.DataTable.State in dsEditModes) then - AEpigrafe.DataTable.Post; - - if Length(AEpigrafe.DESCRIPCION) = 0 then - raise Exception.Create('Debe indicar un nombre para este Epigrafe.'); - - Result := True; -end; - -procedure TEpigrafesController.Ver(AEpigrafe: IBizEpigrafe); -var - AEditor : IEditorEpigrafe; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorEpigrafe', IEditorEpigrafe, AEditor); - if Assigned(AEditor) then - with AEditor do - begin - Controller := Self; //OJO ORDEN MUY IMPORTANTE - Epigrafe := AEpigrafe; - ShowModal; - Release; - end; - finally - AEditor := NIL; - HideHourglassCursor; - end; -end; - -procedure TEpigrafesController.VerTodos(AEpigrafes: IBizEpigrafe); -var - AEditor : IEditorEpigrafes; -begin - AEditor := NIL; - ShowHourglassCursor; - try - CreateEditor('EditorEpigrafes', IEditorEpigrafes, AEditor); - if Assigned(AEditor) then - with AEditor do - begin - Controller := Self; //OJO ORDEN MUY IMPORTANTE - Epigrafes := AEpigrafes; - ShowEmbedded; - end; - finally - AEditor := NIL; - HideHourglassCursor; - end; -end; - -function TEpigrafesController.Eliminar(AEpigrafe: IBizEpigrafe): Boolean; -begin - Result := False; - - if not Assigned(AEpigrafe) then - raise Exception.Create ('Epigrafe no asignado'); - - ShowHourglassCursor; - try - if (AEpigrafe.State in dsEditModes) then - AEpigrafe.Cancel; - - AEpigrafe.Delete; - AEpigrafe.DataTable.ApplyUpdates; - HideHourglassCursor; - Result := True; - finally - HideHourglassCursor; - end; -end; - -procedure TEpigrafesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); -begin - inherited; -// -end; - -function TEpigrafesController.Guardar(AEpigrafe: IBizEpigrafe): Boolean; -begin - Result := False; - - if ValidarEpigrafe(AEpigrafe) then - begin - ShowHourglassCursor; - try - AEpigrafe.DataTable.ApplyUpdates; - Result := True; - finally - HideHourglassCursor; - end; - end; -end; - -function TEpigrafesController.Localizar(AEpigrafes: IBizEpigrafe; ADescripcion: String): Boolean; -begin - Result := True; - ShowHourglassCursor; - try - with AEpigrafes.DataTable do - begin - DisableControls; - First; - if not Locate(fld_EpigrafesDESCRIPCION, ADescripcion, []) then - Result := False; - EnableControls; - end; - finally - HideHourglassCursor; - end; -end; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.dpk b/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.dpk deleted file mode 100644 index e08e11e8..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.dpk +++ /dev/null @@ -1,43 +0,0 @@ -package Epigrafes_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} -{$IMPLICITBUILD ON} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - dbrtl, - vcldb, - dsnap, - adortl, - Epigrafes_model; - -contains - uDataModuleEpigrafes in 'uDataModuleEpigrafes.pas' {DataModuleEpigrafes}; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.dproj b/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.dproj deleted file mode 100644 index 5ef5a441..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.dproj +++ /dev/null @@ -1,548 +0,0 @@ - - - - {c8118762-09b6-432f-ba26-058fa36c39d9} - Epigrafes_data.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Epigrafes_data.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Epigrafes_data.dpk - - - - - MainSource - - - - - - - - - - - - -
DataModuleEpigrafes
- - - - diff --git a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.identcache b/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.identcache deleted file mode 100644 index 5120fcda..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.rc b/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_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/Contabilidad epigrafes/Data/Epigrafes_data.res b/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Data/Epigrafes_data.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Data/uDataModuleEpigrafes.dfm b/Source/Modulos/Contabilidad epigrafes/Data/uDataModuleEpigrafes.dfm deleted file mode 100644 index 440bef78..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Data/uDataModuleEpigrafes.dfm +++ /dev/null @@ -1,80 +0,0 @@ -inherited DataModuleEpigrafes: TDataModuleEpigrafes - OnCreate = DAClientDataModuleCreate - Height = 207 - Width = 355 - object RORemoteService: TRORemoteService - Message = dmConexion.ROMessage - Channel = dmConexion.ROChannel - ServiceName = 'srvEpigrafes' - Left = 48 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 104 - end - object rda_Epigrafes: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 176 - Top = 24 - end - object tbl_Epigrafes: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_EPIGRAFES_ID' - Required = True - ServerAutoRefresh = True - DictionaryEntry = 'Ejercicios_ID' - InPrimaryKey = True - end - item - Name = 'REF_EPIGRAFE' - DataType = datString - Size = 6 - DisplayLabel = 'Epigrafes_REF_EPIGRAFE' - DictionaryEntry = 'Epigrafes_REF_EPIGRAFE' - end - item - Name = 'ID_PADRE' - DataType = datInteger - DisplayLabel = 'Epigrafes_ID_PADRE' - DictionaryEntry = 'Epigrafes_ID_PADRE' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DisplayLabel = 'Epigrafes_DESCRIPCION' - DictionaryEntry = 'Epigrafes_DESCRIPCION' - end - item - Name = 'ID_EJERCICIO' - DataType = datInteger - DisplayLabel = 'Epigrafes_ID_EJERCICIO' - DictionaryEntry = 'Epigrafes_ID_EJERCICIO' - end> - Params = <> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = rda_Epigrafes - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Epigrafes' - IndexDefs = <> - Left = 264 - Top = 96 - end - object ds_Epigrafes: TDADataSource - DataSet = tbl_Epigrafes.Dataset - DataTable = tbl_Epigrafes - Left = 264 - Top = 32 - end -end diff --git a/Source/Modulos/Contabilidad epigrafes/Data/uDataModuleEpigrafes.pas b/Source/Modulos/Contabilidad epigrafes/Data/uDataModuleEpigrafes.pas deleted file mode 100644 index d07b0593..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Data/uDataModuleEpigrafes.pas +++ /dev/null @@ -1,54 +0,0 @@ -unit uDataModuleEpigrafes; - -interface - -uses - SysUtils, Classes, DB, uDADataTable, uDABINAdapter, - uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, - uRORemoteService, uROClient, uROBinMessage, - uDADesigntimeCall, uControllerBase, - uBizEpigrafes, uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest, - uDABin2DataStreamer, uDAMemDataTable, uIDataModuleEpigrafes, uDataModuleBase; -type - TDataModuleEpigrafes = class(TDataModuleBase, IDataModuleEpigrafes) - RORemoteService: TRORemoteService; - Bin2DataStreamer: TDABin2DataStreamer; - rda_Epigrafes: TDARemoteDataAdapter; - tbl_Epigrafes: TDAMemDataTable; - ds_Epigrafes: TDADataSource; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetItems: IBizEpigrafe; - end; - -implementation - -{$R *.DFM} - -uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, - schEpigrafesClient_Intf; - -{ TdmAlmacens } - -procedure TDataModuleEpigrafes.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmConexion.Channel; - RORemoteService.Message := dmConexion.Message; -end; - -function TDataModuleEpigrafes.GetItems: IBizEpigrafe; -var - AContabilidadEpigrafe : TDAMemDataTable; -begin - ShowHourglassCursor; - try - AContabilidadEpigrafe := CloneDataTable(tbl_Epigrafes); - AContabilidadEpigrafe.BusinessRulesID := BIZ_CLIENT_Epigrafe; - Result := (AContabilidadEpigrafe as IBizEpigrafe); - finally - HideHourglassCursor; - end; -end; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Epigrafes_Group.groupproj b/Source/Modulos/Contabilidad epigrafes/Epigrafes_Group.groupproj deleted file mode 100644 index 5ea20ab1..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Epigrafes_Group.groupproj +++ /dev/null @@ -1,124 +0,0 @@ - - - {3df776bd-a3f8-4f3a-9129-45fdb4a2ee63} - - - - - - - - - - - - - - - - Default.Personality - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Source/Modulos/Contabilidad epigrafes/Model/Data/uIDataModuleEpigrafes.pas b/Source/Modulos/Contabilidad epigrafes/Model/Data/uIDataModuleEpigrafes.pas deleted file mode 100644 index 5b19e2fa..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Model/Data/uIDataModuleEpigrafes.pas +++ /dev/null @@ -1,16 +0,0 @@ -unit uIDataModuleEpigrafes; - -interface - -uses - uBizEpigrafes; - -type - IDataModuleEpigrafes = interface(IInterface) - ['{CC6A63E1-2AF2-40E5-B6DC-46CC1549AA56}'] - function GetItems: IBizEpigrafe; - end; - -implementation - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.dpk b/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.dpk deleted file mode 100644 index 817a9aa7..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.dpk +++ /dev/null @@ -1,46 +0,0 @@ -package Epigrafes_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, - vcl, - Base, - GUIBase, - ApplicationBase, - dbrtl, - RemObjects_Core_D11, - DataAbstract_Core_D11, - vcldb, - dsnap, - adortl; - -contains - uBizEpigrafes in 'uBizEpigrafes.pas', - uIDataModuleEpigrafes in 'Data\uIDataModuleEpigrafes.pas', - schEpigrafesClient_Intf in 'schEpigrafesClient_Intf.pas', - schEpigrafesServer_Intf in 'schEpigrafesServer_Intf.pas'; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.dproj b/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.dproj deleted file mode 100644 index 379862ae..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.dproj +++ /dev/null @@ -1,549 +0,0 @@ - - - - {73acd39c-b2f0-49b7-9acf-10945bbac8c1} - Epigrafes_model.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Epigrafes_model.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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.0Epigrafes_model.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.identcache b/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.identcache deleted file mode 100644 index c0cb3c09..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.rc b/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_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/Contabilidad epigrafes/Model/Epigrafes_model.res b/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Model/Epigrafes_model.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Model/schEpigrafesClient_Intf.pas b/Source/Modulos/Contabilidad epigrafes/Model/schEpigrafesClient_Intf.pas deleted file mode 100644 index ce6cfa12..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Model/schEpigrafesClient_Intf.pas +++ /dev/null @@ -1,239 +0,0 @@ -unit schEpigrafesClient_Intf; - -interface - -uses - Classes, DB, schBase_Intf, 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_Epigrafes = '{2883B260-70C3-4907-B2C1-A5377D0B2276}'; - - { Data table names } - nme_Epigrafes = 'Epigrafes'; - - { Epigrafes fields } - fld_EpigrafesID = 'ID'; - fld_EpigrafesREF_EPIGRAFE = 'REF_EPIGRAFE'; - fld_EpigrafesID_PADRE = 'ID_PADRE'; - fld_EpigrafesDESCRIPCION = 'DESCRIPCION'; - fld_EpigrafesID_EJERCICIO = 'ID_EJERCICIO'; - - { Epigrafes field indexes } - idx_EpigrafesID = 0; - idx_EpigrafesREF_EPIGRAFE = 1; - idx_EpigrafesID_PADRE = 2; - idx_EpigrafesDESCRIPCION = 3; - idx_EpigrafesID_EJERCICIO = 4; - -type - { IEpigrafes } - IEpigrafes = interface(IDAStronglyTypedDataTable) - ['{624768B7-CB01-41E3-A334-D20D0342FB2C}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetREF_EPIGRAFEValue: String; - procedure SetREF_EPIGRAFEValue(const aValue: String); - function GetREF_EPIGRAFEIsNull: Boolean; - procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); - function GetID_PADREValue: Integer; - procedure SetID_PADREValue(const aValue: Integer); - function GetID_PADREIsNull: Boolean; - procedure SetID_PADREIsNull(const aValue: Boolean); - function GetDESCRIPCIONValue: String; - procedure SetDESCRIPCIONValue(const aValue: String); - function GetDESCRIPCIONIsNull: Boolean; - procedure SetDESCRIPCIONIsNull(const aValue: Boolean); - function GetID_EJERCICIOValue: Integer; - procedure SetID_EJERCICIOValue(const aValue: Integer); - function GetID_EJERCICIOIsNull: Boolean; - procedure SetID_EJERCICIOIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue; - property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull; - property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue; - property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; - property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; - end; - - { TEpigrafesDataTableRules } - TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes) - 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 GetREF_EPIGRAFEValue: String; virtual; - procedure SetREF_EPIGRAFEValue(const aValue: String); virtual; - function GetREF_EPIGRAFEIsNull: Boolean; virtual; - procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual; - function GetID_PADREValue: Integer; virtual; - procedure SetID_PADREValue(const aValue: Integer); virtual; - function GetID_PADREIsNull: Boolean; virtual; - procedure SetID_PADREIsNull(const aValue: Boolean); virtual; - function GetDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetDESCRIPCIONIsNull: Boolean; virtual; - procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; - function GetID_EJERCICIOValue: Integer; virtual; - procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; - function GetID_EJERCICIOIsNull: Boolean; virtual; - procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue; - property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull; - property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue; - property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; - property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants, uROBinaryHelpers; - -{ TEpigrafesDataTableRules } -constructor TEpigrafesDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TEpigrafesDataTableRules.Destroy; -begin - inherited; -end; - -function TEpigrafesDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_EpigrafesID].AsInteger; -end; - -procedure TEpigrafesDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_EpigrafesID].AsInteger := aValue; -end; - -function TEpigrafesDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_EpigrafesID].IsNull; -end; - -procedure TEpigrafesDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EpigrafesID].AsVariant := Null; -end; - -function TEpigrafesDataTableRules.GetREF_EPIGRAFEValue: String; -begin - result := DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsString; -end; - -procedure TEpigrafesDataTableRules.SetREF_EPIGRAFEValue(const aValue: String); -begin - DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsString := aValue; -end; - -function TEpigrafesDataTableRules.GetREF_EPIGRAFEIsNull: boolean; -begin - result := DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].IsNull; -end; - -procedure TEpigrafesDataTableRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsVariant := Null; -end; - -function TEpigrafesDataTableRules.GetID_PADREValue: Integer; -begin - result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger; -end; - -procedure TEpigrafesDataTableRules.SetID_PADREValue(const aValue: Integer); -begin - DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger := aValue; -end; - -function TEpigrafesDataTableRules.GetID_PADREIsNull: boolean; -begin - result := DataTable.Fields[idx_EpigrafesID_PADRE].IsNull; -end; - -procedure TEpigrafesDataTableRules.SetID_PADREIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EpigrafesID_PADRE].AsVariant := Null; -end; - -function TEpigrafesDataTableRules.GetDESCRIPCIONValue: String; -begin - result := DataTable.Fields[idx_EpigrafesDESCRIPCION].AsString; -end; - -procedure TEpigrafesDataTableRules.SetDESCRIPCIONValue(const aValue: String); -begin - DataTable.Fields[idx_EpigrafesDESCRIPCION].AsString := aValue; -end; - -function TEpigrafesDataTableRules.GetDESCRIPCIONIsNull: boolean; -begin - result := DataTable.Fields[idx_EpigrafesDESCRIPCION].IsNull; -end; - -procedure TEpigrafesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EpigrafesDESCRIPCION].AsVariant := Null; -end; - -function TEpigrafesDataTableRules.GetID_EJERCICIOValue: Integer; -begin - result := DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsInteger; -end; - -procedure TEpigrafesDataTableRules.SetID_EJERCICIOValue(const aValue: Integer); -begin - DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsInteger := aValue; -end; - -function TEpigrafesDataTableRules.GetID_EJERCICIOIsNull: boolean; -begin - result := DataTable.Fields[idx_EpigrafesID_EJERCICIO].IsNull; -end; - -procedure TEpigrafesDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsVariant := Null; -end; - - -initialization - RegisterDataTableRules(RID_Epigrafes, TEpigrafesDataTableRules); - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Model/schEpigrafesServer_Intf.pas b/Source/Modulos/Contabilidad epigrafes/Model/schEpigrafesServer_Intf.pas deleted file mode 100644 index d0b94a1a..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Model/schEpigrafesServer_Intf.pas +++ /dev/null @@ -1,272 +0,0 @@ -unit schEpigrafesServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schEpigrafesClient_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_EpigrafesDelta = '{B415C12C-C2DA-45F0-BFF7-D80F4B2948BF}'; - -type - { IEpigrafesDelta } - IEpigrafesDelta = interface(IEpigrafes) - ['{B415C12C-C2DA-45F0-BFF7-D80F4B2948BF}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldREF_EPIGRAFEValue : String; - function GetOldID_PADREValue : Integer; - function GetOldDESCRIPCIONValue : String; - function GetOldID_EJERCICIOValue : Integer; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue; - property OldID_PADRE : Integer read GetOldID_PADREValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; - end; - - { TEpigrafesBusinessProcessorRules } - TEpigrafesBusinessProcessorRules = class(TDABusinessProcessorRules, IEpigrafes, IEpigrafesDelta) - 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 GetREF_EPIGRAFEValue: String; virtual; - function GetREF_EPIGRAFEIsNull: Boolean; virtual; - function GetOldREF_EPIGRAFEValue: String; virtual; - function GetOldREF_EPIGRAFEIsNull: Boolean; virtual; - procedure SetREF_EPIGRAFEValue(const aValue: String); virtual; - procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual; - function GetID_PADREValue: Integer; virtual; - function GetID_PADREIsNull: Boolean; virtual; - function GetOldID_PADREValue: Integer; virtual; - function GetOldID_PADREIsNull: Boolean; virtual; - procedure SetID_PADREValue(const aValue: Integer); virtual; - procedure SetID_PADREIsNull(const aValue: Boolean); virtual; - function GetDESCRIPCIONValue: String; virtual; - function GetDESCRIPCIONIsNull: Boolean; virtual; - function GetOldDESCRIPCIONValue: String; virtual; - function GetOldDESCRIPCIONIsNull: Boolean; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; - function GetID_EJERCICIOValue: Integer; virtual; - function GetID_EJERCICIOIsNull: Boolean; virtual; - function GetOldID_EJERCICIOValue: Integer; virtual; - function GetOldID_EJERCICIOIsNull: Boolean; virtual; - procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; - procedure SetID_EJERCICIOIsNull(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 REF_EPIGRAFE : String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue; - property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull; - property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue; - property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull; - property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue; - property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull; - property OldID_PADRE : Integer read GetOldID_PADREValue; - property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull; - property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; - property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; - property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; - property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; - property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers, uDAInterfaces; - -{ TEpigrafesBusinessProcessorRules } -constructor TEpigrafesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TEpigrafesBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TEpigrafesBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]; -end; - -function TEpigrafesBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]); -end; - -function TEpigrafesBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]; -end; - -function TEpigrafesBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]); -end; - -procedure TEpigrafesBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := aValue; -end; - -procedure TEpigrafesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := Null; -end; - -function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]; -end; - -function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]); -end; - -function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]; -end; - -function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]); -end; - -procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := aValue; -end; - -procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null; -end; - -function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]; -end; - -function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]); -end; - -function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]; -end; - -function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]); -end; - -procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue; -end; - -procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null; -end; - -function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]; -end; - -function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]); -end; - -function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]; -end; - -function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]); -end; - -procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := aValue; -end; - -procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := Null; -end; - -function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]; -end; - -function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]); -end; - -function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]; -end; - -function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]); -end; - -procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := aValue; -end; - -procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null; -end; - - -initialization - RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules); - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Model/uBizEpigrafes.pas b/Source/Modulos/Contabilidad epigrafes/Model/uBizEpigrafes.pas deleted file mode 100644 index 898e7510..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Model/uBizEpigrafes.pas +++ /dev/null @@ -1,54 +0,0 @@ -unit uBizEpigrafes; - -interface - -uses - uDAInterfaces, uDADataTable, schEpigrafesClient_Intf; - -const - BIZ_CLIENT_Epigrafe = 'Client.Epigrafe'; - -type - IBizEpigrafe = interface(IEpigrafes) - ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}'] - function EsNuevo : Boolean; - end; - - TBizEpigrafe = class(TEpigrafesDataTableRules, IBizEpigrafe) - protected - procedure OnNewRecord(Sender: TDADataTable); override; - public - procedure IniciarValoresEpigrafeNueva; - function EsNuevo : Boolean; - end; - -implementation - -{ TBizEpigrafe } - -uses - SysUtils, uDataTableUtils, uFactuGES_App; - -function TBizEpigrafe.EsNuevo: Boolean; -begin - Result := (ID < 0); -end; - -procedure TBizEpigrafe.IniciarValoresEpigrafeNueva; -begin - ID_EJERCICIO := 5//AppFactuGES.EmpresaActiva.EjercicioActivo.ID; -end; - -procedure TBizEpigrafe.OnNewRecord(Sender: TDADataTable); -begin - inherited; - IniciarValoresEpigrafeNueva; -end; - -initialization - RegisterDataTableRules(BIZ_CLIENT_Epigrafe, TBizEpigrafe); - -finalization - -end. - diff --git a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.dpk b/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.dpk deleted file mode 100644 index 22dee0a5..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.dpk +++ /dev/null @@ -1,46 +0,0 @@ -package Epigrafes_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - Epigrafes_controller, - Epigrafes_model, - Epigrafes_view; - -contains - uPluginEpigrafes in 'uPluginEpigrafes.pas'; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.dproj b/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.dproj deleted file mode 100644 index fae22afd..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.dproj +++ /dev/null @@ -1,549 +0,0 @@ - - - - {82e36812-58c4-491b-b463-6b951e95da51} - Epigrafes_plugin.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Epigrafes_plugin.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Epigrafes_plugin.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.identcache b/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.identcache deleted file mode 100644 index e38090eb..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.rc b/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_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/Contabilidad epigrafes/Plugin/Epigrafes_plugin.res b/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Plugin/Epigrafes_plugin.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Plugin/uPluginEpigrafes.dfm b/Source/Modulos/Contabilidad epigrafes/Plugin/uPluginEpigrafes.dfm deleted file mode 100644 index 1a28ba44..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Plugin/uPluginEpigrafes.dfm +++ /dev/null @@ -1,81 +0,0 @@ -object PluginEpigrafes: TPluginEpigrafes - OldCreateOrder = True - DefaultAction = actEpigrafes - Description = 'Epigrafes' - ModuleMenu = MainMenu - ModuleName = 'Epigrafes' - SmallImages = SmallImages - LargeImages = SmallImages - Author = 'Rodax Software' - Version = '1.0.0' - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = <> - Left = 232 - Top = 16 - end - object ModuleActionList: TActionList - Images = SmallImages - Left = 40 - Top = 72 - object actEpigrafes: TAction - Category = 'Epigrafes' - Caption = 'Epigrafes' - ImageIndex = 0 - OnExecute = actEpigrafesExecute - end - end - object MainMenu: TMainMenu - Images = LargeImages - Left = 40 - Top = 16 - object Ventas1: TMenuItem - Caption = 'Contabilidad' - object N1: TMenuItem - Tag = 18990 - Caption = '-' - end - object Epigrafes1: TMenuItem - Tag = 19002 - Action = actEpigrafes - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6 - B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77 - EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5 - E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D - 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D - C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6 - 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141 - 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15 - F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334 - 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524 - 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256 - 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4 - 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F - E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = <> - Left = 232 - Top = 80 - end -end diff --git a/Source/Modulos/Contabilidad epigrafes/Plugin/uPluginEpigrafes.pas b/Source/Modulos/Contabilidad epigrafes/Plugin/uPluginEpigrafes.pas deleted file mode 100644 index f26d965b..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Plugin/uPluginEpigrafes.pas +++ /dev/null @@ -1,74 +0,0 @@ -unit uPluginEpigrafes; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCEpigrafes = interface(IInterface) - ['{255E8D6B-282A-48CC-9807-E49C7D31FD2D}'] - end; - - TPluginEpigrafes = class(TModuleController, IMCEpigrafes) - actEpigrafes: TAction; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - Ventas1: TMenuItem; - Epigrafes1: TMenuItem; - N1: TMenuItem; - procedure actEpigrafesExecute(Sender: TObject); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, SysUtils, - uEpigrafesController, uBizEpigrafes, uEpigrafesViewRegister; - -function GetModule : TModuleController; -begin - Result := TPluginEpigrafes.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -procedure TPluginEpigrafes.actEpigrafesExecute(Sender: TObject); -var - AEpigrafesController : IEpigrafesController; - AEpigrafes : IBizEpigrafe; -begin - AEpigrafesController := TEpigrafesController.Create; - AEpigrafes := (AEpigrafesController.BuscarTodos as IBizEpigrafe); - AEpigrafesController.VerTodos(AEpigrafes); -end; - -constructor TPluginEpigrafes.Create(AOwner: TComponent); -begin - inherited; - uEpigrafesViewRegister.RegisterViews; -end; - -destructor TPluginEpigrafes.Destroy; -begin - uEpigrafesViewRegister.UnregisterViews; - inherited; -end; - -initialization - RegisterModuleClass(TPluginEpigrafes); - -finalization - UnRegisterModuleClass(TPluginEpigrafes); - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Servidor/srvEpigrafes_Impl.dfm b/Source/Modulos/Contabilidad epigrafes/Servidor/srvEpigrafes_Impl.dfm deleted file mode 100644 index d22219c6..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Servidor/srvEpigrafes_Impl.dfm +++ /dev/null @@ -1,130 +0,0 @@ -object srvEpigrafes: TsrvEpigrafes - OldCreateOrder = True - OnCreate = DARemoteServiceCreate - SessionManager = dmServer.SessionManager - ServiceSchema = schEpigrafes - ServiceDataStreamer = Bin2DataStreamer - ExportedDataTables = <> - BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection - Height = 181 - Width = 282 - object Diagrams: TDADiagrams - Left = 150 - Top = 90 - DiagramData = - ''#13#10' '#13#10' '#13#10' '#13#10''#13#10 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'Ejercicios_ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_EPIGRAFES_ID' - Required = True - DisplayLabel = 'ID' - ServerAutoRefresh = True - end - item - Name = 'Epigrafes_REF_EPIGRAFE' - DataType = datString - Size = 6 - end - item - Name = 'Epigrafes_ID_PADRE' - DataType = datInteger - end - item - Name = 'Epigrafes_DESCRIPCION' - DataType = datString - Size = 255 - end - item - Name = 'Epigrafes_ID_EJERCICIO' - DataType = datInteger - end> - Left = 150 - Top = 24 - end - object schEpigrafes: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'IBX' - TargetTable = 'CONT_EPIGRAFES' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'REF_EPIGRAFE' - TableField = 'REF_EPIGRAFE' - end - item - DatasetField = 'ID_PADRE' - TableField = 'ID_PADRE' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'ID_EJERCICIO' - TableField = 'ID_EJERCICIO' - end> - end> - Name = 'Epigrafes' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONT_EPIGRAFES_ID' - ServerAutoRefresh = True - DictionaryEntry = 'Ejercicios_ID' - InPrimaryKey = True - end - item - Name = 'REF_EPIGRAFE' - DataType = datString - Size = 6 - DictionaryEntry = 'Epigrafes_REF_EPIGRAFE' - end - item - Name = 'ID_PADRE' - DataType = datInteger - DictionaryEntry = 'Epigrafes_ID_PADRE' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'Epigrafes_DESCRIPCION' - end - item - Name = 'ID_EJERCICIO' - DataType = datInteger - DictionaryEntry = 'Epigrafes_ID_EJERCICIO' - 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/Contabilidad epigrafes/Servidor/srvEpigrafes_Impl.pas b/Source/Modulos/Contabilidad epigrafes/Servidor/srvEpigrafes_Impl.pas deleted file mode 100644 index f31360d2..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Servidor/srvEpigrafes_Impl.pas +++ /dev/null @@ -1,64 +0,0 @@ -unit srvEpigrafes_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, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer, - uDABin2DataStreamer; - -type - { TsrvEpigrafes } - TsrvEpigrafes = class(TDataAbstractService, IsrvEpigrafes) - Diagrams: TDADiagrams; - Bin2DataStreamer: TDABin2DataStreamer; - schEpigrafes: TDASchema; - DataDictionary: TDADataDictionary; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); - private - protected - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, uDataModuleServer, - uDatabaseUtils; - -procedure Create_srvEpigrafes(out anInstance : IUnknown); -begin - anInstance := TsrvEpigrafes.Create(NIL); -end; - -{ srvEpigrafes } -procedure TsrvEpigrafes.DARemoteServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; -end; - -procedure TsrvEpigrafes.DataAbstractServiceBeforeAcquireConnection( - aSender: TObject; var aConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -initialization - TROClassFactory.Create('srvEpigrafes', Create_srvEpigrafes, TsrvEpigrafes_Invoker); - -finalization - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.dpk b/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.dpk deleted file mode 100644 index 89a72b2e..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.dpk +++ /dev/null @@ -1,89 +0,0 @@ -package Epigrafes_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} -{$DEFINE DEBUG} - -requires - rtl, - vcl, - Base, - GUIBase, - ApplicationBase, - JvCmpD11R, - Ejercicios_controller, - dbrtl, - DataAbstract_Core_D11, - vcldb, - dsnap, - adortl, - RemObjects_Core_D11, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - vclx, - cxExportD10, - dxPSCoreD10, - dxComnD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - PngComponentsD10, - PNG_D10, - tb2k_d10, - tbx_d10, - JvCoreD11R, - Jcl, - JclVcl, - JvAppFrmD11R, - JvCtrlsD11R, - JvSystemD11R, - JvStdCtrlsD11R, - cxIntlPrintSys3D10, - JvPageCompsD11R, - GUISDK_D11, - cfpack_d11, - ccpackD11, - Epigrafes_controller, - Epigrafes_model, - dxLayoutControlD10; - -contains - uEpigrafesViewRegister in 'uEpigrafesViewRegister.pas', - uViewEpigrafes in 'uViewEpigrafes.pas' {frViewEpigrafes: TFrame}, - uEditorEpigrafes in 'uEditorEpigrafes.pas' {fEditorEpigrafes: TfEditorEjercicios}, - uViewEpigrafe in 'uViewEpigrafe.pas' {frViewEpigrafe: TFrame}, - uEditorEpigrafe in 'uEditorEpigrafe.pas' {fEditorEpigrafe: TfEditorEpigrafe}; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.dproj b/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.dproj deleted file mode 100644 index 431ee5ab..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.dproj +++ /dev/null @@ -1,604 +0,0 @@ - - - - {e3d36a6f-7004-4c89-9f3d-f2d77e386d1b} - Epigrafes_view.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\Epigrafes_view.bpl - - - 7.0 - False - False - 0 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\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 - DEBUG - - - Delphi.Personality - Package - -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Epigrafes_view.dpk - - - - - MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fEditorEpigrafe
- TfEditorEjercicios - - -
fEditorEpigrafes
- TfEditorEjercicios - - - -
frViewEpigrafe
- TFrame - - -
frViewEpigrafes
- TFrame - - - - - - - - - - - diff --git a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.identcache b/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.identcache deleted file mode 100644 index 7a9f59df..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.identcache and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.rc b/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.rc deleted file mode 100644 index 153736af..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_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/Contabilidad epigrafes/Views/Epigrafes_view.res b/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.res deleted file mode 100644 index 8b251f31..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Views/Epigrafes_view.res and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafe.dfm b/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafe.dfm deleted file mode 100644 index 4884e4c9..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafe.dfm +++ /dev/null @@ -1,144 +0,0 @@ -inherited fEditorEpigrafe: TfEditorEpigrafe - Left = 374 - Top = 273 - HorzScrollBar.Visible = False - VertScrollBar.Visible = False - Caption = 'Ficha de epigrafe' - ClientWidth = 632 - Scaled = False - OnClose = CustomEditorClose - ExplicitWidth = 640 - ExplicitHeight = 488 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 632 - Caption = 'Epigrafe' - ExplicitWidth = 632 - inherited Image1: TImage - Left = 605 - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 - 00001C0806000000720DDF940000000970485973000017120000171201679FD2 - 520000000467414D410000B18E7CFB51930000020F4944415478DAE5D4DB2B04 - 511800F06FB659D7CD2D892816B984258992242129E5924BDEE49147FF81571E - 9495072F44BB1EF69127CAA5DC436E895C4A92AC6CC48E9961EC3963C7EEEC65 - CEAC6D5F7CF575E69C33F3FD3AA773861204014219D4FF02298AF2FAD2709B5E - B8BEBF0E18195B17A4C28A20C2FA8D16E059065EACF7F0FE6203FBAB986B9619 - D0EB93A169D0E8757E7A6C089ED2BBC1643291814E4C2CF0EC13F3368FB0AE8E - 5618DF0E27038381A1200283851181C1C414C191F6CC3F611DED2DA0D150E4E0 - 402515F0A56CACAF83C8A808A069DA0DF50B8EF65242437D1F11C0B13C701C87 - DBA58555282E2B045A4B83D691AE685040578C6339585DDC8082923C0CC9D13F - 83728CE378D858D981DC826C8CC9D189DD88C0C10F86151119BAB77D08593919 - 222843270F74EAC1AFCF2FBC126F181A3FDA3F85F4CC34097245A74EE2D4814A - 18EA9F1D5F404A6A1284858779A0B3E789E42009869E2FCF6F203129016FA11C - 9DBB4A26034931D691B73777101B1F8341396AB94D53064930C6FE21818F0F56 - 88D6454907C589CE5BB3C16C36BBFF3EE5605D6DAF072616E781E7C53196FD5D - 1DEADB9E6D18D06A7F4FE73263C018AAEB17ACAAEC715FCD4F515F186ADFDFDE - 1C975C23615B9A720953042BCA3A556168FB19C68EBF47E8A1AEDA0D53044B0D - ADAA30144EF038A6C60353048BF29B55614ED017A6086E32DD1048F8C2FC82A1 - 889083DF93D867F65E51168D0000000049454E44AE426082} - ExplicitLeft = 607 - end - end - inherited TBXDock: TTBXDock - Width = 632 - ExplicitWidth = 632 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 330 - 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 = 632 - 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 = 632 - ExplicitWidth = 632 - inherited pagGeneral: TTabSheet - ExplicitLeft = 4 - ExplicitTop = 24 - ExplicitWidth = 624 - ExplicitHeight = 338 - end - end - inherited StatusBar: TJvStatusBar - Width = 632 - Panels = < - item - Width = 200 - end> - ExplicitWidth = 632 - end - inherited EditorActionList: TActionList - Top = 128 - end - inherited SmallImages: TPngImageList - Top = 112 - end - inherited dsDataTable: TDADataSource [6] - Left = 168 - Top = 120 - end - inherited LargeImages: TPngImageList [7] - Top = 112 - end - inherited JvFormStorage: TJvFormStorage [8] - end - object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList - Left = 320 - Top = 248 - 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/Contabilidad epigrafes/Views/uEditorEpigrafe.pas b/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafe.pas deleted file mode 100644 index f46a35fc..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafe.pas +++ /dev/null @@ -1,204 +0,0 @@ -unit uEditorEpigrafe; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent, - uViewEpigrafe, uBizEpigrafes, 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, - - uViewEpigrafes, uIEditorEpigrafe, uEpigrafesController, JvExComCtrls, - JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces; - -type - TfEditorEpigrafe = class(TfEditorDBItem, IEditorEpigrafe) - dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; - dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; - procedure FormShow(Sender: TObject); - procedure dsDataTableDataChange(Sender: TObject; Field: TField); - procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); - protected - FController : IEpigrafesController; - FEpigrafe: IBizEpigrafe; - FViewEpigrafe : IViewEpigrafe; - - function GetController : IEpigrafesController; - procedure SetController (const Value : IEpigrafesController); virtual; - function GetEpigrafe: IBizEpigrafe; virtual; - procedure SetEpigrafe(const Value: IBizEpigrafe); virtual; - function GetViewEpigrafe: IViewEpigrafe; - procedure SetViewEpigrafe(const Value: IViewEpigrafe); - property ViewEpigrafe: IViewEpigrafe read GetViewEpigrafe write SetViewEpigrafe; - - procedure GuardarInterno; override; - procedure EliminarInterno; override; - - procedure PonerTitulos(const ATitulo: string = ''); override; - - //Si queremos crear otra vista para el editor heredado solo tendriamos que - //sobreescribir este metodo - procedure AsignarVista; virtual; - - public - property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe; - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -{$R *.dfm} - -uses - uCustomEditor, uDataModuleEpigrafes, uDataModuleBase; - -function ShowEditorEpigrafe (ABizObject : TDADataTableRules): TModalResult; -var - AEditor: TfEditorEpigrafe; -begin - AEditor := TfEditorEpigrafe.Create(Application); - try - AEditor.Epigrafe := (ABizObject as IBizEpigrafe); - Result := AEditor.ShowModal; - finally - AEditor.Release; - end; -end; - -{ -******************************* TfEditorEpigrafe ******************************* -} -function TfEditorEpigrafe.GetEpigrafe: IBizEpigrafe; -begin - Result := FEpigrafe; -end; - -function TfEditorEpigrafe.GetController: IEpigrafesController; -begin - Result := FController; -end; - -function TfEditorEpigrafe.GetViewEpigrafe: IViewEpigrafe; -begin - Result := FViewEpigrafe; -end; - -procedure TfEditorEpigrafe.GuardarInterno; -begin - inherited; - FController.Guardar(FEpigrafe); - Modified := False; -end; - -procedure TfEditorEpigrafe.PonerTitulos(const ATitulo: string); -var - FTitulo : String; -begin - if Assigned(Epigrafe) then - begin - if Epigrafe.EsNuevo then - FTitulo := 'Nuevo almacén' - else - FTitulo := 'Almacén' + ' - ' + Epigrafe.DESCRIPCION; - end; - - inherited PonerTitulos(FTitulo); -end; - -procedure TfEditorEpigrafe.SetEpigrafe(const Value: IBizEpigrafe); -begin - FEpigrafe := Value; - dsDataTable.DataTable := FEpigrafe.DataTable; - - if Assigned(FViewEpigrafe) and Assigned(Epigrafe) then - FViewEpigrafe.Epigrafe := Epigrafe; -end; - -procedure TfEditorEpigrafe.SetController(const Value: IEpigrafesController); -begin - FController := Value; -end; - -procedure TfEditorEpigrafe.SetViewEpigrafe(const Value: IViewEpigrafe); -begin - FViewEpigrafe := Value; - - if Assigned(FViewEpigrafe) and Assigned(Epigrafe) then - FViewEpigrafe.Epigrafe := Epigrafe; -end; - -procedure TfEditorEpigrafe.FormShow(Sender: TObject); -begin - inherited; - - if not Assigned(FViewEpigrafe) then - raise Exception.Create('No hay ninguna vista asignada'); - - if not Assigned(Epigrafe) then - raise Exception.Create('No hay ningún almacén asignado'); - - Epigrafe.DataTable.Active := True; -end; - -destructor TfEditorEpigrafe.Destroy; -begin - // Utilizar mejor OnClose; - inherited; -end; - -procedure TfEditorEpigrafe.AsignarVista; -var - AViewEpigrafe: TfrViewEpigrafe; -begin - AViewEpigrafe := TfrViewEpigrafe.create(Self); - with AViewEpigrafe do - begin - Parent := pagGeneral; - Align := alClient; -// dxLayoutControlEpigrafe.LookAndFeel := dxLayoutOfficeLookAndFeel1; - end; - ViewEpigrafe := AViewEpigrafe; -end; - -constructor TfEditorEpigrafe.Create(AOwner: TComponent); -begin - inherited; - pgPaginas.ActivePageIndex := 0; - AsignarVista; -end; - -procedure TfEditorEpigrafe.CustomEditorClose(Sender: TObject; - var Action: TCloseAction); -begin - inherited; - dsDataTable.DataTable := NIL; - FViewEpigrafe := NIL; - FEpigrafe := NIL; -end; - -procedure TfEditorEpigrafe.dsDataTableDataChange(Sender: TObject; - Field: TField); -begin - inherited; - if Assigned(FEpigrafe) and (not (FEpigrafe.DataTable.Fetching) or - not (FEpigrafe.DataTable.Opening) or not (FEpigrafe.DataTable.Closing)) then - PonerTitulos; -end; - -procedure TfEditorEpigrafe.EliminarInterno; -begin - if (Application.MessageBox('¿Desea borrar este Epigrafe?', 'Atención', MB_YESNO) = IDYES) then - begin - inherited; - if not FController.Eliminar(FEpigrafe) then - actRefrescar.Execute; - end; -end; - -end. - diff --git a/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafes.dfm b/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafes.dfm deleted file mode 100644 index 4cd0bcfc..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafes.dfm +++ /dev/null @@ -1,1496 +0,0 @@ -inherited fEditorEpigrafes: TfEditorEpigrafes - Left = 489 - Top = 325 - Caption = 'Lista de epigrafes' - ExplicitHeight = 471 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Caption = 'Lista de epigrafes' - inherited Image1: TImage - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 520000000467414D410000B18E7CFB5193000001D44944415478DAB5D4BD4B02 - 7118C0F1E737D552D0105843616F838519166551345443A32D2E0DD15863FF41 - 6B2141353544144A2004114144431695841445D00BE950E7905618742F2257CF - D9D9EFCE3BEF4EF001797E9CFAFD1C8A125114A19C43648010A2F98205AF5D7C - 611296C3FE33961802189F5909C13B1383EFF427B05FB94738B40976BB0DC6E7 - 56FEAE7D289EF7EF3E422010280E941ADF589E8754A3AF3820C7F10DA9D798A5 - 785D8D0D6EAB87F5013A8E81D46BDC521C471750C731F0CEC44DC55B1B9A41E0 - 0510848C36B038D15410C7F3C1FAB261BCABC3998BF31969472B070A81D97E52 - D20F62D0E381CCEF5DF3129043CE494F21B03445C4B1D169C360369B95223C27 - C0D17E181CCE36E963A19163C1551A40C731747274019DDDED529C460EBF1CD6 - 01751CCF91D328F40DBA81653905B2976CB10668C5715F5DDEC2D088473AD3C8 - 0ED3681ED08BE3BEBBB997001C1AD98ED79B038AC5F14E9FEE9FF3008D6C3DD4 - 1A03EA38FBCDE501FE6F332F090520236BD755C5013A22A8367D3DF9962C0056 - 2315100C06FFFF21D480D938EE743AAD00E4389E3581E1A149D371FC0E388ECD - 03745C17F0F4FA4CC77164401DD705DC2EAFE9B80CE03FA73AAE0B9C733EB03A - 5A714DA05C5376E00756B52DFEBD3C9AE50000000049454E44AE426082} - end - end - inherited TBXDock: TTBXDock - inherited tbxMain: TTBXToolbar - ExplicitWidth = 474 - end - inherited tbxFiltro: TTBXToolbar - ExplicitWidth = 269 - inherited tbxEditFiltro: TTBXEditItem - EditOptions = [tboUseEditWhenVertical] - end - inherited TBXItem37: TTBXItem - Visible = False - end - end - inherited TBXTMain2: TTBXToolbar - Left = 275 - DockPos = 275 - ExplicitLeft = 275 - end - end - inline frViewEpigrafes1: TfrViewEpigrafes [3] - Left = 0 - Top = 102 - Width = 543 - Height = 323 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - ExplicitLeft = -11 - ExplicitTop = -150 - inherited cxGrid: TcxGrid - Width = 543 - Height = 195 - inherited cxGridView: TcxGridDBTableView - DataController.Summary.FooterSummaryItems = < - item - Format = '0 ejercicios' - Kind = skCount - Column = frViewEpigrafes1.cxGridViewREF_EPIGRAFE - end> - inherited cxGridViewID: TcxGridDBColumn - IsCaptionAssigned = True - end - end - end - inherited frViewFiltroBase1: TfrViewFiltroBase - Width = 543 - inherited TBXDockablePanel1: TTBXDockablePanel - inherited dxLayoutControl1: TdxLayoutControl - Width = 543 - inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 - end - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end - inherited edtFechaFinFiltro: TcxDateEdit - Left = 337 - ExplicitLeft = 337 - ExplicitWidth = 121 - Width = 121 - end - end - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 543 - inherited tbxBotones: TTBXToolbar - Width = 533 - end - end - end - end - inherited pnlAgrupaciones: TTBXDockablePanel - Top = 297 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 543 - inherited TBXToolbar1: TTBXToolbar - Width = 533 - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink: TdxGridReportLink - ReportDocument.CreationDate = 39413.591933946760000000 - BuiltInReportLink = True - end - end - inherited cxViewGridPopupMenu: TcxGridPopupMenu - PopupMenus = < - item - GridView = frViewEpigrafes1.cxGridView - HitTypes = [gvhtCell] - Index = 0 - end> - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - end - inherited EditorActionList: TActionList [4] - inherited actNuevo: TAction - ImageIndex = 22 - end - end - inherited SmallImages: TPngImageList [5] - 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 - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000002704944415478DA - 8593DB4B545114C6BF333AFB8CCD3853A11686162811410F1118241524984951 - 0F864F520F3DE8D3FC0DD183145949E12814D1850A9CA2871294A8208BC1862E - 2814836578BF4D9A8D9EBD679A4E6B9D33C7697AB0058BBD38ECEFB7D7FA1647 - 936F607AF6410305D7FA17E07C773946A646D1DE0E0483583334F30E4C554145 - 6508E6700B18903C9CAD7BA64E63B0FF39829D8FF0333E83C5D971CA49DCB874 - 16F1AD0DD0D46CC814BD2D6008078BB8764097CFB45AE2C5D9090B30333A8CBB - 1D17D070A20E5DEF7DD481692239D769B2D8F4B7D86D2D85ACD311FF989BC4D2 - FC34BE4F8FE1E69573387AE4100A7D5E5C1BD0A13973AB93B65014374329B2E4 - 5D76CEA1A9562416E2B8DF7511C7EA6BE05D57004DD36C007BC09718A0EB5669 - 01F4EE2CA0F92A01A9D3EABD7B50B2A908C29D0F97CB9501AC3142AC27826432 - 052525FA9EF4A3627B19021B0210C24D10373AA21EDB44769CB7C0663AE16C26 - 7AAF0FD248E2D58BB728DF560AFF7A1FDC04D0751DD73FFAB21EFCBD3AAE9DCD - BC7E590F432A44238328DD528242BF176E9D3AD0056E7FDA687BD0D60BD4D59E - 4265E52D0B104D3442190AD5C58FF13456439E280C7E88A1A828001F01841010 - 1E81075F37DB1EB435692603D2E9DF48A914E48AB2440641944C522AC43E7F43 - 61C00B9FB7003A89798487136559406D4D1389E832CD2B0D099911328481E363 - D3F014084A0F3CD4FEB3E59D0887C3DA2AE06075235D94D68B2B7C2A06290BC4 - 677C7E0179F92E7A596020AFCA12DBFF420650B5FB784ECB9CD2B0C5067D5B4E - 2CF3750CF9F7AF8A7300BB76D459C6392F33C8C87490FE95A65392F8408E3807 - 10910DF85FFC2BE6F80376357B8923C9356C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [6] - 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 - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002694944415478DA - B594CB6B134118C0BFB9743D6841A48A1E5A1FF1502A5AA555A3584544BDE829 - 1E04C58B87E4A247FF84EAA168AD90A017C17A908882082A8A50A15AAD448B0F - D0F8A8252D4A1A2D096477670DE37C3B997D249B6636E007C37C330BBFDF3CBE - 59C21803F305615A9411E061E75F7972C233AE7E6B25080A60943073031F4492 - C0BE240005F4909B4B59CB029A4FB1B64709400906423197A28BA7072137F72B - 347C64D22062073C50823D6B4F08733169F7083F9BBA0385D96F502E2EF0F607 - F4D2028CDDBE09EBD7AD8223E792F6BC5EFAEDFB3E742F0BE9749A10E3393067 - D5C704B8AD230EA6C94F25E3AE6646BFAA0CBF3E320885AE9810B01B42605F28 - 17689A18A2404BBB82A9A51794E1AB97AF84F7ED0355419323CAFF5801F3B9EF - A1E0183E01C2B162B08AF0B29D1D552B2BF3704609BEB1732D509302A57FFD02 - 59FBDED2C45C56D6A5F39D4DE1DB36F5D870D3B4EC3EB36497E788F83BC05A8F - 6F276C78585C78FCB2D845EA8C9B378A81683F58D472E0D84F903EFF1D600C9D - 24ECF0C1534DEBBB52A9701007EA149E3C18879ECD117E2C964F3246B7B426F0 - C211F4ECE924F4F675DB70AFE471A93BBCA0168EA097E36F21BA672BE8BAE193 - DC9F8F841304C1B17FF3FA23EC3BB0838FA94F7277AE4B5DD0088E731FDE656D - 81789CAEE4D6F41A35C162705C69F6D3B423F04A463F773417D4C2CB6543801D - 9105B3B99F3E81945C9B5AB6B8C0811862B5A65CB5078E2D9F2FD409AEBCD26C - 38E681025538CE178B259FC00B0F14ECDF7B5C198E7760188623A885070A76EF - 8C29C331A420081E28E8EF3DAA0C9702F9E70C7A3F758209230661A311BC4EF0 - 3FE21F497E40FE838101750000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited StatusBarImages: TPngImageList - Top = 232 - end - inherited dsDataTable: TDADataSource [10] - end -end diff --git a/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafes.pas b/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafes.pas deleted file mode 100644 index bd269c47..00000000 Binary files a/Source/Modulos/Contabilidad epigrafes/Views/uEditorEpigrafes.pas and /dev/null differ diff --git a/Source/Modulos/Contabilidad epigrafes/Views/uEpigrafesViewRegister.pas b/Source/Modulos/Contabilidad epigrafes/Views/uEpigrafesViewRegister.pas deleted file mode 100644 index 4706620e..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/uEpigrafesViewRegister.pas +++ /dev/null @@ -1,25 +0,0 @@ -unit uEpigrafesViewRegister; - -interface - -procedure RegisterViews; -procedure UnregisterViews; - -implementation - -uses - uEditorRegistryUtils, uEditorEpigrafe, uEditorEpigrafes; - -procedure RegisterViews; -begin - EditorRegistry.RegisterClass(TfEditorEpigrafes, 'EditorEpigrafes'); - EditorRegistry.RegisterClass(TfEditorEpigrafe, 'EditorEpigrafe'); -end; - -procedure UnregisterViews; -begin - EditorRegistry.UnRegisterClass(TfEditorEpigrafes); - EditorRegistry.UnRegisterClass(TfEditorEpigrafe); -end; - -end. diff --git a/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafe.dfm b/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafe.dfm deleted file mode 100644 index 3607cb90..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafe.dfm +++ /dev/null @@ -1,83 +0,0 @@ -inherited frViewEpigrafe: TfrViewEpigrafe - Width = 451 - Height = 194 - Align = alClient - AutoSize = True - ExplicitWidth = 451 - ExplicitHeight = 304 - object dxLayoutControlEpigrafe: TdxLayoutControl - Left = 0 - Top = 0 - Width = 451 - Height = 194 - Align = alClient - ParentBackground = True - TabOrder = 0 - AutoContentSizes = [acsWidth, acsHeight] - ExplicitHeight = 304 - DesignSize = ( - 451 - 194) - object eReferencia: TcxDBTextEdit - Left = 83 - Top = 28 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'REF_EPIGRAFE' - DataBinding.DataSource = DADataSource - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = 14745599 - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Width = 204 - end - object eDescripcion: TcxDBTextEdit - Left = 83 - Top = 55 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'DESCRIPCION' - DataBinding.DataSource = DADataSource - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = 14745599 - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 - Width = 344 - end - object dxLayoutControlEpigrafeGroup_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControlEpigrafeGroup1: TdxLayoutGroup - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Datos del ejercicio' - object dxLayoutControlEpigrafeItem3: TdxLayoutItem - Caption = 'Referencia:' - Control = eReferencia - ControlOptions.ShowBorder = False - end - object dxLayoutControlEpigrafeItem1: TdxLayoutItem - Caption = 'Descripcion' - Control = eDescripcion - ControlOptions.ShowBorder = False - end - end - end - end - object DADataSource: TDADataSource - Left = 24 - Top = 144 - end -end diff --git a/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafe.pas b/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafe.pas deleted file mode 100644 index 551f5c34..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafe.pas +++ /dev/null @@ -1,65 +0,0 @@ -unit uViewEpigrafe; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, - DBCtrls, Grids, DBGrids, uBizEpigrafes, Mask, ComCtrls, uCustomView, - JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, - cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit, - cxImageComboBox, cxMaskEdit, cxCalendar; - -type - IViewEpigrafe = interface(IViewBase) - ['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}'] - function GetEpigrafe: IBizEpigrafe; - procedure SetEpigrafe(const Value: IBizEpigrafe); - property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe; - end; - - TfrViewEpigrafe = class(TfrViewBase, IViewEpigrafe) - DADataSource: TDADataSource; - dxLayoutControlEpigrafeGroup_Root: TdxLayoutGroup; - dxLayoutControlEpigrafe: TdxLayoutControl; - dxLayoutControlEpigrafeGroup1: TdxLayoutGroup; - dxLayoutControlEpigrafeItem3: TdxLayoutItem; - eReferencia: TcxDBTextEdit; - dxLayoutControlEpigrafeItem1: TdxLayoutItem; - eDescripcion: TcxDBTextEdit; - protected - FEpigrafe: IBizEpigrafe; - function GetEpigrafe: IBizEpigrafe; - procedure SetEpigrafe(const Value: IBizEpigrafe); - public - property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe; - end; - -implementation - -uses uDataModuleEpigrafes; - -{$R *.dfm} - -{ TfrViewEpigrafes } - -{ -******************************* TfrViewEpigrafes ******************************** -} - -function TfrViewEpigrafe.GetEpigrafe: IBizEpigrafe; -begin - Result := FEpigrafe; -end; - -procedure TfrViewEpigrafe.SetEpigrafe(const Value: IBizEpigrafe); -begin - FEpigrafe := Value; - if Assigned(FEpigrafe) then - DADataSource.DataTable := FEpigrafe.DataTable - else - DADataSource.DataTable := NIL; -end; - -end. - diff --git a/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafes.dfm b/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafes.dfm deleted file mode 100644 index 4710c72d..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafes.dfm +++ /dev/null @@ -1,102 +0,0 @@ -inherited frViewEpigrafes: TfrViewEpigrafes - inherited cxGrid: TcxGrid - inherited cxGridView: TcxGridDBTableView - DataController.KeyFieldNames = 'ID' - DataController.Summary.FooterSummaryItems = < - item - Format = '0 ejercicios' - Kind = skCount - Column = cxGridViewREF_EPIGRAFE - end> - OptionsBehavior.PullFocusing = True - object cxGridViewID: TcxGridDBColumn - DataBinding.FieldName = 'ID' - OnCustomDrawCell = cxGridViewIDCustomDrawCell - BestFitMaxWidth = 22 - MinWidth = 22 - Options.HorzSizing = False - Width = 22 - IsCaptionAssigned = True - end - object cxGridViewREF_EPIGRAFE: TcxGridDBColumn - DataBinding.FieldName = 'REF_EPIGRAFE' - PropertiesClassName = 'TcxTextEditProperties' - SortIndex = 0 - SortOrder = soAscending - Width = 304 - end - object cxGridViewID_PADRE: TcxGridDBColumn - DataBinding.FieldName = 'ID_PADRE' - Visible = False - end - object cxGridViewDESCRIPCION: TcxGridDBColumn - DataBinding.FieldName = 'DESCRIPCION' - PropertiesClassName = 'TcxTextEditProperties' - Width = 118 - end - end - end - inherited frViewFiltroBase1: TfrViewFiltroBase - inherited TBXDockablePanel1: TTBXDockablePanel - inherited dxLayoutControl1: TdxLayoutControl - inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 - end - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end - inherited edtFechaFinFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end - end - end - end - inherited pnlAgrupaciones: TTBXDockablePanel - ExplicitWidth = 554 - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink: TdxGridReportLink - ReportDocument.CreationDate = 38673.842406053240000000 - BuiltInReportLink = True - end - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - object PngImageList: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000022E4944415478DA - 8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D - C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5 - A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0 - 2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236 - 8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A - 4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127 - A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D - 7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12 - 9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC - 1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D - 13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2 - AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D - 352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE - 3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3 - 12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104 - 84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2 - C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C - 6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 160 - Top = 32 - Bitmap = {} - end -end diff --git a/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafes.pas b/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafes.pas deleted file mode 100644 index a98fa810..00000000 --- a/Source/Modulos/Contabilidad epigrafes/Views/uViewEpigrafes.pas +++ /dev/null @@ -1,81 +0,0 @@ -unit uViewEpigrafes; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, uBizEpigrafes, ActnList, Menus, - cxGridBandedTableView, cxGridDBBandedTableView, JvComponent, - JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk, - cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX, - TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar, - cxImageComboBox, cxTextEdit; - -type - IViewEpigrafes = interface(IViewGrid) - ['{E6798DF7-011C-40EC-B368-160C48697445}'] - function GetEpigrafes: IBizEpigrafe; - procedure SetEpigrafes(const Value: IBizEpigrafe); - property Epigrafes: IBizEpigrafe read GetEpigrafes write SetEpigrafes; - end; - - TfrViewEpigrafes = class(TfrViewGrid, IViewEpigrafes) - cxGridViewDESCRIPCION: TcxGridDBColumn; - cxGridViewREF_EPIGRAFE: TcxGridDBColumn; - cxGridViewID: TcxGridDBColumn; - PngImageList: TPngImageList; - cxGridViewID_PADRE: TcxGridDBColumn; - procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); - protected - FEpigrafes: IBizEpigrafe; - function GetEpigrafes: IBizEpigrafe; virtual; - procedure SetEpigrafes(const Value: IBizEpigrafe); virtual; - public - property Epigrafes: IBizEpigrafe read GetEpigrafes write SetEpigrafes; - end; - -implementation - -uses uDataModuleEpigrafes; - - -{$R *.dfm} - -{ TfrViewEpigrafes } - -{ -******************************* TfrViewEpigrafes ******************************* -} -function TfrViewEpigrafes.GetEpigrafes: IBizEpigrafe; -begin - Result := FEpigrafes; -end; - -procedure TfrViewEpigrafes.SetEpigrafes(const Value: IBizEpigrafe); -begin - FEpigrafes := Value; - if Assigned(FEpigrafes) then - dsDataSource.DataTable := FEpigrafes.DataTable; -end; - - -procedure TfrViewEpigrafes.cxGridViewIDCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -var - R : TRect; -begin - inherited; - R := AViewInfo.ContentBounds; - ACanvas.FillRect(R); - ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0); - ADone := True; -end; - -end.