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

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@141 f4e31baf-9722-1c47-927c-6f952f962d4b

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