Scripting Language Info

BIZ TMS Data Modeler
9

My beginning of automaticly create a column

procedure OnColumnGenerated(Args: TColumnGeneratedArgs);
begin
  if Args.Field.Name = 'FsngCreate' then
    Args.Field.AddAttribute( 'Column(''sngCreate'', [])');             
end;

procedure OnClassGenerated(Args: TClassGeneratedArgs);
begin                                                
  Args.CodeType.AddField( 'FsngCreate', 'TDateTime', mvPrivate); 
end;

The FsngCreate field is created, but the attribute not.