Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Familias: ordenación alfabética por descripción.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@280 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-19 15:37:50 +00:00
parent 173bed3cc4
commit cfb9a68241
7 changed files with 25 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Source/Modulos/Familias/Model/Familias_model.dproj
View File

@ -46,26 +46,15 @@
<DelphiCompile Include="Familias_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Plugin\adortl.dcp" />
<DCCReference Include="..\Plugin\dbrtl.dcp" />
<DCCReference Include="..\Plugin\dsnap.dcp" />
<DCCReference Include="..\Plugin\GApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBaApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBasApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBaseApplicationBase.dcp" />
<DCCReference Include="..\Plugin\vcldb.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="Data\uIDataModuleFamilias.pas" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schFamiliasClient_Intf.pas" />
<DCCReference Include="schFamiliasServer_Intf.pas" />
<DCCReference Include="uBizFamilias.pas" />
<DCCReference Include="vcl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

BIN
Source/Modulos/Familias/Model/Familias_model.res
View File

Binary file not shown.

9
Source/Modulos/Familias/Model/uBizFamilias.pas
View File

@ -14,10 +14,19 @@ type
end;
TBizFamilia = class(TFamiliasDataTableRules, IBizFamilia)
procedure AfterOpen(Sender: TDADataTable); override;
end;
implementation
{ TBizFamilia }
procedure TBizFamilia.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_FamiliasDESCRIPCION], [sdAscending]);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_FAMILIA, TBizFamilia);

2
Source/Modulos/Familias/Views/Familias_view.dpk
View File

@ -30,7 +30,7 @@ requires
Base,
GUIBase,
ApplicationBase,
Familias_model,
Familias_model,
Familias_controller;
contains

32
Source/Modulos/Familias/Views/Familias_view.dproj
View File

@ -46,37 +46,23 @@
<DelphiCompile Include="Familias_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Plugin\Familias_.dcp" />
<DCCReference Include="..\Plugin\Familias_c.dcp" />
<DCCReference Include="..\Plugin\Familias_co.dcp" />
<DCCReference Include="..\Plugin\Familias_con.dcp" />
<DCCReference Include="..\Plugin\Familias_cont.dcp" />
<DCCReference Include="..\Plugin\Familias_contr.dcp" />
<DCCReference Include="..\Plugin\Familias_contro.dcp" />
<DCCReference Include="..\Plugin\Familias_control.dcp" />
<DCCReference Include="..\Plugin\Familias_controll.dcp" />
<DCCReference Include="..\Plugin\Familias_controlle.dcp" />
<DCCReference Include="..\Plugin\Familias_controllerFamilias_controller.dcp" />
<DCCReference Include="..\Plugin\Familias_m.dcp" />
<DCCReference Include="..\Plugin\Familias_mo.dcp" />
<DCCReference Include="..\Plugin\Familias_mod.dcp" />
<DCCReference Include="..\Plugin\Familias_mode.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Familias_controller.dcp" />
<DCCReference Include="..\Familias_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uEditorFamilias.pas">
<Form>fEditorFamilias</Form>
<DesignClass>TfEditorFamilias</DesignClass>
</DCCReference>
<DCCReference Include="uFamiliasViewRegister.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

BIN
Source/Modulos/Familias/Views/Familias_view.res
View File

Binary file not shown.

2
Source/Modulos/Familias/Views/uEditorFamilias.pas
View File

@ -29,7 +29,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorFamilias, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizFamilias, uFamiliasController;
ComCtrls, uBizFamilias, uFamiliasController, uDAInterfaces;
type
TfEditorFamilias = class(TCustomEditor, IEditorFamilias)