diff --git a/Database/RodaxSoftware.FactuGES.Database.proj b/Database/RodaxSoftware.FactuGES.Database.proj
index 4411cddd..fcbe48f6 100644
--- a/Database/RodaxSoftware.FactuGES.Database.proj
+++ b/Database/RodaxSoftware.FactuGES.Database.proj
@@ -48,7 +48,13 @@
+ WorkingDirectory="$(OutputPath)" />
+
+
+
+
Package
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -60,27 +102,6 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -99,6 +120,32 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas b/Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas
new file mode 100644
index 00000000..7a29f392
--- /dev/null
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas
@@ -0,0 +1,68 @@
+unit uProvinciasPoblacionesController;
+
+interface
+
+
+uses
+ Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDataModuleProvinciasPoblaciones,
+ uDADataTable, uControllerBase;
+
+type
+ IProvinciasPoblacionesController = interface(IControllerBase)
+ ['{777EDE6C-DAB6-4D96-BA57-AE3DAF8A3F78}']
+ function DarListaProvincias : TStringList;
+ function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
+ end;
+
+ TProvinciasPoblacionesController = class(TControllerBase, IProvinciasPoblacionesController)
+ protected
+ FDataModule : IDataModuleProvinciasPoblaciones;
+ public
+ function DarListaProvincias : TStringList;
+ function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
+ destructor Destroy; override;
+ constructor Create; override;
+ end;
+
+implementation
+
+uses
+ cxControls, DB, uFactuGES_App;
+
+{ TProvinciasPoblacionesController }
+
+constructor TProvinciasPoblacionesController.Create;
+begin
+ inherited;
+ FDataModule := TDataModuleProvinciasPoblaciones.Create(NIL);
+end;
+
+function TProvinciasPoblacionesController.DarListaPoblaciones(
+ const AID_Provincia: Integer): TStringList;
+begin
+ ShowHourglassCursor;
+ try
+ Result := FDataModule.DarListaPoblaciones(AID_Provincia);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TProvinciasPoblacionesController.DarListaProvincias: TStringList;
+begin
+ ShowHourglassCursor;
+ try
+ Result := FDataModule.DarListaProvincias;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+destructor TProvinciasPoblacionesController.Destroy;
+begin
+ FDataModule := NIL;
+ inherited;
+end;
+
+
+end.
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm b/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm
new file mode 100644
index 00000000..d02b8077
--- /dev/null
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm
@@ -0,0 +1,12 @@
+object DataModuleProvinciasPoblaciones: TDataModuleProvinciasPoblaciones
+ OldCreateOrder = False
+ Height = 150
+ Width = 215
+ object RORemoteService: TRORemoteService
+ Message = dmConexion.ROMessage
+ Channel = dmConexion.ROChannel
+ ServiceName = 'srvEmpresas'
+ Left = 48
+ Top = 24
+ end
+end
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas b/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas
new file mode 100644
index 00000000..5467fc75
--- /dev/null
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas
@@ -0,0 +1,50 @@
+unit uDataModuleProvinciasPoblaciones;
+
+interface
+
+uses
+ SysUtils, Classes, uDataModuleBase, uROClient, uRORemoteService;
+
+type
+ IDataModuleProvinciasPoblaciones = interface
+ ['{E73DB3C4-BC57-44E8-A64B-F86AE2DCB7D6}']
+ function DarListaProvincias : TStringList;
+ function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
+ end;
+
+ TDataModuleProvinciasPoblaciones = class(TDataModuleBase, IDataModuleProvinciasPoblaciones)
+ RORemoteService: TRORemoteService;
+ public
+ function DarListaProvincias : TStringList;
+ function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
+ end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+ FactuGES_Intf, uStringsUtils, uDataModuleConexion, uROTypes;
+
+{ TDataModuleProvinciasPoblaciones }
+
+function TDataModuleProvinciasPoblaciones.DarListaPoblaciones(
+ const AID_Provincia: Integer): TStringList;
+var
+ ABinary : Binary;
+begin
+ ABinary := (RORemoteService as IsrvProvinciasPoblaciones).DarListaPoblaciones(AID_Provincia);
+ Result := TStringList.Create;
+ Result.LoadFromStream(ABinary);
+end;
+
+function TDataModuleProvinciasPoblaciones.DarListaProvincias: TStringList;
+var
+ ABinary : Binary;
+begin
+ ABinary := (RORemoteService as IsrvProvinciasPoblaciones).DarListaProvincias;
+ Result := TStringList.Create;
+ Result.LoadFromStream(ABinary);
+end;
+
+end.
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm
new file mode 100644
index 00000000..6565304b
--- /dev/null
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm
@@ -0,0 +1,100 @@
+object srvProvinciasPoblaciones: TsrvProvinciasPoblaciones
+ OldCreateOrder = True
+ Height = 168
+ Width = 325
+ object schProvinciasPoblaciones: TDASchema
+ ConnectionManager = dmServer.ConnectionManager
+ Datasets = <
+ item
+ IsPublic = False
+ Params = <>
+ Statements = <
+ item
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'PROVINCIAS'
+ StatementType = stAutoSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end>
+ end>
+ Name = 'Provincias'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Required = True
+ InPrimaryKey = True
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ Required = True
+ end>
+ ReadOnly = True
+ end
+ item
+ IsPublic = False
+ Params = <>
+ Statements = <
+ item
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'POBLACIONES'
+ StatementType = stAutoSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ID_PROVINCIA'
+ TableField = 'ID_PROVINCIA'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end>
+ end>
+ Name = 'Poblaciones'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Required = True
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_PROVINCIA'
+ DataType = datInteger
+ Required = True
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ Required = True
+ end>
+ ReadOnly = True
+ 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/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas
new file mode 100644
index 00000000..a71d13d3
--- /dev/null
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas
@@ -0,0 +1,132 @@
+unit srvProvinciasPoblaciones_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading }
+{ the RODL file associated with this project . }
+{ }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+ {vcl:} Classes, SysUtils,
+ {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+ {Required:} uRORemoteDataModule,
+ {Used RODLs:} DataAbstract4_Intf,
+ {Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses;
+
+type
+ { TsrvProvinciasPoblaciones }
+ TsrvProvinciasPoblaciones = class(TRORemoteDataModule, IsrvProvinciasPoblaciones)
+ Bin2DataStreamer: TDABin2DataStreamer;
+ schProvinciasPoblaciones: TDASchema;
+ private
+ protected
+ { IsrvProvinciasPoblaciones methods }
+ function DarListaProvincias: Binary;
+ function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
+ end;
+
+implementation
+
+{$R *.dfm}
+uses
+ {Generated:} FactuGES_Invk, Variants, uDAInterfaces,
+ uDataModuleServer, uROClasses;
+
+
+procedure Create_srvProvinciasPoblaciones(out anInstance : IUnknown);
+begin
+ anInstance := TsrvProvinciasPoblaciones.Create(nil);
+end;
+
+{ srvProvinciasPoblaciones }
+function TsrvProvinciasPoblaciones.DarListaProvincias: Binary;
+var
+ ASchema : TDASchema;
+ AConn : IDAConnection;
+ dsData: IDADataset;
+ ALista : TStringList;
+begin
+ Result := Binary.Create;
+
+ ASchema := schProvinciasPoblaciones;
+ AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
+
+ try
+ dsData := ASchema.NewDataset(AConn, 'Provincias');
+ except
+ RaiseError('No existe la tabla PROVINCIAS');
+ end;
+
+ ALista := TStringList.Create;
+ try
+ dsData.Active := True;
+ ALista.Sorted := True;
+ while not dsData.EOF do
+ begin
+ ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));
+ dsData.Next;
+ end;
+
+ ALista.SaveToStream(Result);
+ finally
+ FreeANDNIL(ALista);
+ dsData := NIL;
+ AConn := NIL;
+ end;
+end;
+
+function TsrvProvinciasPoblaciones.DarListaPoblaciones(const ID_Provincia: Integer): Binary;
+var
+ ASchema : TDASchema;
+ AConn : IDAConnection;
+ dsData: IDADataset;
+// AWhere : TDAWhereExpression;
+ ALista : TStringList;
+begin
+ Result := Binary.Create;
+
+ ASchema := schProvinciasPoblaciones;
+ AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
+
+ try
+ dsData := ASchema.NewDataset(AConn, 'Poblaciones', ['ID', 'DESCRIPCION'], '', '', False, True);
+
+ with dsData.DynamicWhere do
+ begin
+ Clear;
+ Expression := NewBinaryExpression(NewField('', 'ID_PROVINCIA'),
+ NewConstant(ID_Provincia, datInteger),
+ dboEqual);
+ end;
+
+ ALista := TStringList.Create;
+ try
+ dsData.Active := True;
+ ALista.Sorted := True;
+ while not dsData.EOF do
+ begin
+ ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));
+ dsData.Next;
+ end;
+ ALista.SaveToStream(Result);
+ finally
+ FreeANDNIL(ALista);
+ dsData := NIL;
+ AConn := NIL;
+ end;
+ except
+ RaiseError('No existe la tabla POBLACIONES');
+ end;
+end;
+
+initialization
+ TROClassFactory.Create('srvProvinciasPoblaciones', Create_srvProvinciasPoblaciones, TsrvProvinciasPoblaciones_Invoker);
+
+finalization
+
+end.
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 34b6aca9..96c25754 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -53,58 +53,58 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index ea7e5fa7..a19b8372 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -54,39 +54,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1060FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.6.0FactuGESFactuGES1.0.6.0
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1070FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.7.0FactuGESFactuGES1.0.7.0
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 694e36bc..1cbbd26c 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 1,0,6,0
-PRODUCTVERSION 1,0,6,0
+FILEVERSION 1,0,7,0
+PRODUCTVERSION 1,0,7,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "1.0.6.0\0"
+ VALUE "FileVersion", "1.0.7.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "1.0.6.0\0"
+ VALUE "ProductVersion", "1.0.7.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index c47d5564..f4716e62 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Almacenes/Views/Almacenes_view.dproj b/Source/Modulos/Almacenes/Views/Almacenes_view.dproj
index 1db5c026..e89d8b03 100644
--- a/Source/Modulos/Almacenes/Views/Almacenes_view.dproj
+++ b/Source/Modulos/Almacenes/Views/Almacenes_view.dproj
@@ -39,78 +39,42 @@
Delphi.Personality
Package
-
- False
- True
- False
-
-
- True
- False
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 3082
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- Almacenes_view.dpk
-
-
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Almacenes_view.dpk
MainSource
-
-
-
+
+
+
+ TfEditorAlmacen
+ TfEditorAlmacenes
+ TfListaAlmacenes
+ TFrame
+ TFrame
-