Fixed blanking when editing formulas alias in view definition

tvannini · May 7, 2018 · a58a115 · a58a115
1 parent da6aa5a
commit a58a115
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/dm.pas b/dm.pas
@@ -1096,10 +1096,10 @@ procedure Tdm_form.t_selectcon_nomeSetText(Sender: TField; const Text: string);
   progr : integer;
   r : TRegExpr;
 begin
+  newName := formatName(Text);
   // _______________________________________________ Changing existing alias ___
-  if (Sender.AsString <> '') and (Sender.AsString <> Text) then
+  if (Sender.AsString <> '') and (Sender.AsString <> newName) then
   try
-    newName := formatName(Text);
     t_operazioni.DisableControls;
     t_espressioni.DisableControls;
     t_controlliform.DisableControls;
@@ -1209,7 +1209,6 @@ procedure Tdm_form.t_selectcon_nomeSetText(Sender: TField; const Text: string);
     end;
     t_reportfield.MasterSource:=ds_report;
 
-
   finally
     t_operazioni.EnableControls;
     t_espressioni.EnableControls;