diff --git a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.bdsproj b/Source/Modulos/Banca electronica/Model/BancaElectronica_model.bdsproj
deleted file mode 100644
index 78d2f29..0000000
--- a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.bdsproj
+++ /dev/null
@@ -1,175 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
- BancaElectronica_model.dpk
-
-
- 7.0
-
-
- 8
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- True
- True
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-
- False
-
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- False
- False
- False
- True
- True
- True
- True
- True
- True
-
-
-
- 0
- 0
- False
- 1
- False
- False
- False
- 16384
- 1048576
- 4194304
-
-
-
-
- .\
- ..\..\..\..\Output\Debug\Cliente
- ..\..\Lib
- ..\..\..\Lib;..\..\Lib
-
-
-
- False
-
-
-
-
-
- False
-
-
- True
- False
-
-
-
- $00000000
-
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 3082
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
diff --git a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dpk b/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dpk
deleted file mode 100644
index 15bb6ce..0000000
--- a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dpk
+++ /dev/null
@@ -1,36 +0,0 @@
-package BancaElectronica_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 OFF}
-
-requires
- Base;
-
-contains
- uIDataModuleBancaElectronica in 'Data\uIDataModuleBancaElectronica.pas',
- schBancaElectronicaClient_Intf in 'schBancaElectronicaClient_Intf.pas',
- schBancaElectronicaServer_Intf in 'schBancaElectronicaServer_Intf.pas',
- uBizBancaElectronica in 'uBizBancaElectronica.pas';
-
-end.
diff --git a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dproj b/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dproj
deleted file mode 100644
index c22ba8c..0000000
--- a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dproj
+++ /dev/null
@@ -1,539 +0,0 @@
-
-
- {36741ce3-2830-49dc-8b68-8b189bf8229f}
- BancaElectronica_model.dpk
- Debug
- AnyCPU
- DCC32
- ..\..\..\..\Output\Debug\Cliente\BancaElectronica_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
-
-FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0BancaElectronica_model.dpk
-
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.res b/Source/Modulos/Banca electronica/Model/BancaElectronica_model.res
deleted file mode 100644
index 86c94e6..0000000
Binary files a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.res and /dev/null differ
diff --git a/Source/Modulos/Banca electronica/Model/Data/uIDataModuleBancaElectronica.pas b/Source/Modulos/Banca electronica/Model/Data/uIDataModuleBancaElectronica.pas
deleted file mode 100644
index dcd598d..0000000
--- a/Source/Modulos/Banca electronica/Model/Data/uIDataModuleBancaElectronica.pas
+++ /dev/null
@@ -1,43 +0,0 @@
-{
-===============================================================================
- Copyright (©) 2007. 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:
- Versión actual: 1.0.0
- Fecha versión actual:
-===============================================================================
- Modificaciones:
-
- Fecha Comentarios
- ---------------------------------------------------------------------------
-===============================================================================
-}
-
-unit uIDataModuleBancaElectronica;
-
-interface
-
-uses
- uBizBancaElectronica;
-
-type
- IDataModuleBancaElectronica = interface
- ['{53EF1C4A-C134-47A2-9E75-FD0EC3246AA7}']
- function GetItems: IBizIBizBanca;
- function GetNextID(const DataSetName : String) : Integer;
- function GetItem(const ID : Integer) : IBizIBizBanca;
- function NewItem : IBizIBizBanca;
-
- end;
-
-implementation
-
-end.
diff --git a/Source/Modulos/Banca electronica/Model/uBizBancaElectronica.pas b/Source/Modulos/Banca electronica/Model/uBizBancaElectronica.pas
deleted file mode 100644
index 9023124..0000000
--- a/Source/Modulos/Banca electronica/Model/uBizBancaElectronica.pas
+++ /dev/null
@@ -1,134 +0,0 @@
-{
-===============================================================================
- Copyright (©) 2007. 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:
- Versión actual: 1.0.0
- Fecha versión actual:
-===============================================================================
- Modificaciones:
-
- Fecha Comentarios
- ---------------------------------------------------------------------------
-===============================================================================
-}
-
-unit uBizBancaElectronica;
-
-interface
-
-uses
- uDAInterfaces, uDADataTable, uDBSelectionListUtils, schBancaElectronicaClient_Intf;
-
-const
- BIZ_CLIENT_IBIZBANCA = 'Client.IBizBanca';
-
-type
- IBizIBizBanca = interface(IBancaElectronica)
- ['{11CFA381-89E3-4491-B1C4-F270EFB2E6FE}']
- function EsNuevo : Boolean;
-
- // Descomentar esto si hay clases detalles
- // procedure SetDetalles(AValue : IBizDetalles);
- // function GetDetalles : IBizDetalles;
- // property Detalles : IBizDetalles read GetDetalles write SetDetalles;
- end;
-
- TBizIBizBanca = class(TBancaElectronicaDataTableRules, IBizIBizBanca, ISeleccionable)
- protected
- FSeleccionableInterface : ISeleccionable;
-
- // Descomentar esto si hay clases detalles
- // FDetalles : IBizDetalles;
- // FDetallesLink : TDADataSource;
- // procedure SetDetalles(AValue : IBizDetalles);
- // function GetDetalles : IBizDetalles;
-
- procedure OnNewRecord(Sender: TDADataTable); override;
- public
- procedure IniciarValoresIBizBancaNuevo;
- function EsNuevo : Boolean;
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- property SeleccionableInterface : ISeleccionable
- read FSeleccionableInterface
- write FSeleccionableInterface
- implements ISeleccionable;
-
- // Descomentar esto si hay clases detalles
- // property Detalles : IBizDetalles read GetDetalles write SetDetalles;
- end;
-
-implementation
-
-{ TBizIBizBanca }
-
-uses
- SysUtils, uDataTableUtils;
-
-// Descomentar esto si hay clases detalles
-// function TBizIBizBanca.GetDetalles: IBizDetalles;
-// begin
-// Result := FDetalles;
-// end;
-
-// Descomentar esto si hay clases detalles
-// procedure TBizIBizBanca.SetDetalles(AValue: IBizDetalles);
-// begin
-// FDetalles := AValue;
-// EnlazarMaestroDetalle(FDetallesLink, FDetalles);
-// end;
-
-constructor TBizIBizBanca.Create(aDataTable: TDADataTable);
-begin
- inherited;
- // Descomentar esto si hay clases detalles
- // FDetallesLink := TDADataSource.Create(NIL);
- // FDetallesLink.DataTable := aDataTable;
-
- FSeleccionableInterface := TSeleccionable.Create(aDataTable);
-end;
-
-destructor TBizIBizBanca.Destroy;
-begin
- // Descomentar esto si hay clases detalles
- // FDetalles := NIL;
- // FreeAndNIL(FDetallesLink);
-
- FSeleccionableInterface := NIL;
- inherited;
-end;
-
-function TBizIBizBanca.EsNuevo: Boolean;
-begin
- Result := (ID < 0);
-end;
-
-procedure TBizIBizBanca.IniciarValoresIBizBancaNuevo;
-begin
- //
-end;
-
-procedure TBizIBizBanca.OnNewRecord(Sender: TDADataTable);
-begin
- inherited;
- ID := GetRecNo; // -1, -2, -3...
- IniciarValoresIBizBancaNuevo;
-end;
-
-initialization
- RegisterDataTableRules(BIZ_CLIENT_IBIZBANCA, TBizIBizBanca);
-
-finalization
-
-end.
-