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

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@280 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Familias/Model/Familias_model.dproj

@@ -46,26 +46,15 @@
     <DelphiCompile Include="Familias_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Plugin\adortl.dcp" />
+    <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
-    <DCCReference Include="..\Plugin\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
-    <DCCReference Include="..\Plugin\dsnap.dcp" />
+    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
-    <DCCReference Include="..\Plugin\GApplicationBase.dcp" />
+    <DCCReference Include="..\..\..\Servidor\rtl.dcp" />
-    <DCCReference Include="..\Plugin\GUApplicationBase.dcp" />
+    <DCCReference Include="..\..\..\Servidor\vcl.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="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

Source/Modulos/Familias/Model/uBizFamilias.pas

@@ -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);
 

Source/Modulos/Familias/Views/Familias_view.dproj

@@ -46,37 +46,23 @@
     <DelphiCompile Include="Familias_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Plugin\Familias_.dcp" />
+    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\Plugin\Familias_c.dcp" />
+    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\Plugin\Familias_co.dcp" />
+    <DCCReference Include="..\Familias_controller.dcp" />
-    <DCCReference Include="..\Plugin\Familias_con.dcp" />
+    <DCCReference Include="..\Familias_model.dcp" />
-    <DCCReference Include="..\Plugin\Familias_cont.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\Plugin\Familias_contr.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
-    <DCCReference Include="..\Plugin\Familias_contro.dcp" />
+    <DCCReference Include="..\vcl.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="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

Source/Modulos/Familias/Views/uEditorFamilias.pas

@@ -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)