Setting all model classes to use AutoInc as PrimaryKeyMapper

Did you reverse a database and want to set all classes to use AutoInc for its primary key?

Here's an EAL for you:

Class.allInstances->select(c | c.TaggedValue->select(tv | tv.Tag='Eco.PrimaryKeyMapper')->isEmpty)
->collect(c |
let newtag = TaggedValue.Create in
(
    newtag.Tag := 'Eco.PrimaryKeyMapper';
    newtag.Value := 'AutoInc';
    newtag.ModelElement := c
  )
)
This page was edited 150 days ago on 06/17/2024. What links here