diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 169c21f..0748cc1 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.bdsproj b/Source/Modulos/Banca electronica/Data/BancaElectronica_data.bdsproj deleted file mode 100644 index 50a6ba0..0000000 --- a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.bdsproj +++ /dev/null @@ -1,175 +0,0 @@ - - - - - - - - - - - - BancaElectronica_data.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\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/Data/BancaElectronica_data.dpk b/Source/Modulos/Banca electronica/Data/BancaElectronica_data.dpk deleted file mode 100644 index 23ece21..0000000 Binary files a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.dpk and /dev/null differ diff --git a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.dproj b/Source/Modulos/Banca electronica/Data/BancaElectronica_data.dproj deleted file mode 100644 index 34d7284..0000000 --- a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.dproj +++ /dev/null @@ -1,116 +0,0 @@ - - - {a790c41f-c58c-4960-9333-616896fc3b42} - BancaElectronica_data.dpk - Debug - AnyCPU - DCC32 - ..\..\..\..\Output\Debug\Cliente\BancaElectronica_data.bpl - - - 7.0 - False - False - 0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - RELEASE - - - 7.0 - 3 - .\ - .\ - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - ..\..\..\Lib;..\..\Lib - DEBUG - - - Delphi.Personality - Package - - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - BancaElectronica_data.dpk - - - - - - - MainSource - - - - - - - - - - - - - - - - -
DataModuleBancaElectronica
- TDAClientDataModule - - - - - - - - \ No newline at end of file diff --git a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.res b/Source/Modulos/Banca electronica/Data/BancaElectronica_data.res deleted file mode 100644 index 86c94e6..0000000 Binary files a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.res and /dev/null differ diff --git a/Source/Modulos/Banca electronica/Data/uDataModuleBancaElectronica.dfm b/Source/Modulos/Banca electronica/Data/uDataModuleBancaElectronica.dfm deleted file mode 100644 index 9656025..0000000 --- a/Source/Modulos/Banca electronica/Data/uDataModuleBancaElectronica.dfm +++ /dev/null @@ -1,14 +0,0 @@ -inherited DataModuleBancaElectronica: TDataModuleBancaElectronica - OnCreate = DAClientDataModuleCreate - Height = 181 - Width = 518 - object RORemoteService: TRORemoteService - ServiceName = 'srvBancaElectronica' - Left = 48 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 84 - end -end diff --git a/Source/Modulos/Banca electronica/Data/uDataModuleBancaElectronica.pas b/Source/Modulos/Banca electronica/Data/uDataModuleBancaElectronica.pas deleted file mode 100644 index 4cdad4a..0000000 --- a/Source/Modulos/Banca electronica/Data/uDataModuleBancaElectronica.pas +++ /dev/null @@ -1,107 +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 uDataModuleBancaElectronica; - -interface - -uses - SysUtils, Classes, DB, uDADataTable, uDABINAdapter, - uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, - uRORemoteService, uROClient, uROBinMessage, - uDADesigntimeCall, - uDataModuleBase, - uIDataModuleBancaElectronica, uBizBancaElectronica, uDADataStreamer, - uDABin2DataStreamer; - -type - TDataModuleBancaElectronica = class(TDataModuleBase, IDataModuleBancaElectronica) - RORemoteService: TRORemoteService; - Bin2DataStreamer: TDABin2DataStreamer; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetItems: IBizIBizBanca; - function GetItem(const ID : Integer) : IBizIBizBanca; - function NewItem : IBizIBizBanca; - end; - -implementation - -{$R *.DFM} - -uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, - schBancaElectronicaClient_Intf; - -{ TDataModuleBancaElectronica } - -procedure TDataModuleBancaElectronica.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmConexion.Channel; - RORemoteService.Message := dmConexion.Message; -end; - -function TDataModuleBancaElectronica.GetItems: IBizIBizBanca; -var - AIBizBanca : TDAMemDataTable; -begin - ShowHourglassCursor; - try - AIBizBanca := CloneDataTable(tbl_BancaElectronica); - AIBizBanca.BusinessRulesID := BIZ_CLIENT_IBIZBANCA; - Result := (AIBizBanca as IBizIBizBanca); - finally - HideHourglassCursor; - end; -end; - -function TDataModuleBancaElectronica.NewItem: IBizIBizBanca; -begin - Result := GetItem(ID_NULO) -end; - -function TDataModuleBancaElectronica.GetItem(const ID: Integer): IBizIBizBanca; -var - Condicion: TDAWhereExpression; -begin - ShowHourglassCursor; - try - Result := Self.GetItems; - - with Result.DataTable.DynamicWhere do - begin - // (ID = :ID) - Condicion := NewBinaryExpression(NewField('', fld_BancaElectronicaID), NewConstant(ID, datInteger), dboEqual); - - if IsEmpty then - Expression := Condicion - else - Expression := NewBinaryExpression(Expression, Condicion, dboAnd); - end; - - finally - HideHourglassCursor; - end; -end; - -end. 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. - diff --git a/Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.dfm b/Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.dfm index b0d917c..34967d6 100644 --- a/Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.dfm +++ b/Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.dfm @@ -1,6 +1,5 @@ object PluginBancaElectronica: TPluginBancaElectronica OldCreateOrder = True - DefaultAction = actBancaElectronica Description = 'Ventas' ModuleMenu = MainMenu ModuleName = 'BancaElectronica' @@ -41,23 +40,11 @@ object PluginBancaElectronica: TPluginBancaElectronica Images = LargeImages Left = 40 Top = 72 - object actBancaElectronica: TAction - Category = 'Ventas' - Caption = 'Cat'#225'logo de art'#237'culos' - ImageIndex = 0 - end end object MainMenu: TMainMenu Images = LargeImages Left = 40 Top = 16 - object N1: TMenuItem - Caption = 'Log'#237'stica' - object BancaElectronica1: TMenuItem - Tag = 100 - Action = actBancaElectronica - end - end end object SmallImages: TPngImageList PngImages = < diff --git a/Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.pas b/Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.pas index 0ae590b..1dd21fb 100644 --- a/Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.pas +++ b/Source/Modulos/Banca electronica/Plugin/uPluginBancaElectronica.pas @@ -12,14 +12,11 @@ type end; TPluginBancaElectronica = class(TModuleController, IMCBancaElectronica) - actBancaElectronica: TAction; ExtraImages: TPngImageList; LargeImages: TPngImageList; MainMenu: TMainMenu; ModuleActionList: TActionList; SmallImages: TPngImageList; - N1: TMenuItem; - BancaElectronica1: TMenuItem; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index a791396..2379856 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index eeec740..32d1e2f 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "lunes, 25 de enero de 2010 18:22\0" + VALUE "CompileDate", "martes, 26 de enero de 2010 18:45\0" END END BLOCK "VarFileInfo"