Freddys: Auto Deployment of Client Side Components – take 2

[Blog bot]

Please read my first post about auto deployment of Client side components here before reading this.

As you know, my first auto deployment project contained a couple of methods for automatically adding actions to pages, but as one of my colleagues in Germany (Carsten Scholling) told me, it would also need to be able to add fields to tables programmatically in order to be really useful.

In fact, he didn’t just tell me that it should do so, he actually send me a couple of methods to perform that.

The method signatures are:

AddToTable(TableNo : Integer;FieldNo : Integer;VersionList : Text[30];FieldName : Text[30];FieldType : Integer;FieldLength : Integer;Properties : Text[800]) : Boolean

and

AddTheField(TableNo : Integer;FieldNo : Integer;FieldName : Text[30];FieldType : Integer;FieldLength : Integer) SearchLine : Text[150]

And it can be used like:

// Add the fields
SearchLineLat := ComponentHelper.AddTheField(DATABASE::Customer, 66030, 'Latitude',  FieldRec.Type:ecimal, 0);
SearchLineLong := ComponentHelper.AddTheField(DATABASE::Customer, 66031, 'Longitude',  FieldRec.Type:ecimal, 0);

which just add’s the fields without captions or

// Add Latitude to Customer table
ComponentHelper.AddToTable(DATABASE::Customer, 66030, 'VirtualEarthDemo1.01', 'Latitude', FieldRec.Type:ecimal, 0,
   'CaptionML=[DAN=Breddegrad;DEU=Breitengrad;ENU=Latitude;ESP=Latitud;FRA=Latitude;ITA=Latitudine;NLD=Breedte];DecimalPlaces=6:8’);

Remember, that the table will be left uncompiled after doing this.

AddToTable actually calls AddTheField and after that it modifies the metadata to set the caption on the field:

AddToTable(TableNo : Integer;FieldNo : Integer;VersionList : Text[30];FieldName : Text[30];FieldType : Integer;FieldLength : Integer;Properties : Text[800]) : Boolean
changed := FALSE;
SearchLine := AddTheField(TableNo, FieldNo, FieldName, FieldType, FieldLength);
IF SearchLine <> '' THEN
BEGIN
  GetTableMetadata(TableNo, Metadata);
  IF AddToMetadataEx(TableNo, Object.Type::Table, Metadata, SearchLine, '', ';' + Properties, TRUE, FALSE) THEN BEGIN
    SetTableMetadata(TableNo, Metadata, VersionList);
    changed := TRUE;
  END;
END;

AddTheField is the actual “magic”:

AddTheField(TableNo : Integer;FieldNo : Integer;FieldName : Text[30];FieldType : Integer;FieldLength : Integer) SearchLine : Text[150]
Field.SETRANGE(TableNo, TableNo);
Field.SETRANGE("No.", FieldNo);
SearchLine := '';

IF Field.ISEMPTY THEN BEGIN
  Field.TableNo := TableNo;
  Field."No." := FieldNo;
  Field.FieldName := FieldName;
  Field.Type := FieldType;
  Field.Class := Field.Class::Normal;
  Field.Len := FieldLength;
  Field.Enabled := TRUE;
  Field.INSERT;

  Field.FINDFIRST;

  Len[1] := 4;
  Len[2] := 20;
  Len[3] := 15;

  IF STRLEN(FORMAT(FieldNo))   > Len[1] THEN Len[1] := STRLEN(FORMAT(FieldNo));
  IF STRLEN(FieldName)         > Len[2] THEN Len[2] := STRLEN(FieldName);
  IF STRLEN(Field."Type Name") > Len[3] THEN Len[3] := STRLEN(Field."Type Name");

  SearchLine := '    { ' + PADSTR(FORMAT(FieldNo), Len[1]) + ';  ;' +
      PADSTR(FieldName, Len[2]) + ';' + PADSTR(Field."Type Name", Len[3]);
END;

The new ComponentHelper 1.03 msi can be downloaded here and my upcoming posts (e.g. Edit In Excel R2) will require this.

Enjoy

Freddy Kristiansen
PM Architect
Microsoft Dynamics NAV



Подробнее