RIM Tool on NAV 2009

RIM Tool on NAV 2009

  • Comments 0

With the release of 5.0 SP1, a new data type conversion routine was introduced with codeunit 5302 - Outlook Synch. Type Conversion. There are several known issues with data migration due to these changes.

The previously published blog for 5.0 SP1 contains a change log of some code suggestions and workarounds for the more common and/or critical issues. 

This blog addresses many of the same issues in NAV 2009. While some corrections were made between the release of 5.0 SP1 and 2009, not all fixes made it into the RTM release of 2009. The following change log can be applied to the 2009 objects.


This change log applies to 2009 RTM application objects ONLY.

Issues addressed by the change log:

1) Overflow on type conversion from Text to Text in Form 8626 when a text field larger than 100 chars is imported.
2) Error on import of fields beginning with a number -1099 Code, etc.- The call to member selectSingleNode failed. msxml6.dll returned the
   following message: Expression must evaluate to a node-set.
3) Imported dates are blank after migration data is applied.
4) Negative decimal values are converted incorrectly, resulting in changed values.
5) Expected token 'EOF' found '$'. Error on fields with $ symbol


Changes are labeled with the associated number above.

 

Form 8626 Migration Records

---------------------------

Before:

CODE

  {

    VAR

      MatrixColumnCaptions@1000 : ARRAY [100] OF Text[100];

      MigrationData@1001 : Record 8615;

      MatrixCellData@1002 : ARRAY [100] OF Text[100];

      MigrationColumnField@1004 : ARRAY [100] OF Integer;

      MatrixColumnOrdinal@1003 : Integer;

      FormCaption@1005 : Text[1024];

      TableNo@1006 : Integer;

      Text001@1007 : TextConst 'ENU=%1 value ''%2'' does not exist.';

 

After:

CODE

  {

    VAR

      MatrixColumnCaptions@1000 : ARRAY [100] OF Text[100];

      MigrationData@1001 : Record 8615;

      MatrixCellData@1002 : ARRAY [100] OF Text[250];                    // changed #1 - changed from Text[100] to Text[250]

      MigrationColumnField@1004 : ARRAY [100] OF Integer;

      MatrixColumnOrdinal@1003 : Integer;

      FormCaption@1005 : Text[1024];

      TableNo@1006 : Integer;

      Text001@1007 : TextConst 'ENU=%1 value ''%2'' does not exist.';

 

 

* XMLport 8610 - Setup DataSchema

---------------------------------

...

NameIn := DELCHR(NameIn,'=','Ù''`');

NameIn := DELCHR(CONVERTSTR(NameIn,'<>,./\+-&()%','            '),'=',' ');

NameIn := DELCHR(NameIn,'=',' ');

 

EXIT(NameIn);

...

 

 

After:

...

NameIn := DELCHR(NameIn,'=','Ù''`');

NameIn := DELCHR(CONVERTSTR(NameIn,'<>,./\+-&()%$','             '),'=',' ');  // Changed - added $ symbol and one additional space between single quotes #5

NameIn := DELCHR(NameIn,'=',' ');

 

IF (NameIn[1] >= '0') AND (NameIn[1] <= '9') THEN                 // Added #2

  NameIn := '_' + NameIn;                                   // Added #2

 

EXIT(NameIn);

 

 

 

* Codeunit 8611\Function FieldNodeExists ...

--------------------------------------------

Before:

 

FieldNode := RecordNode.selectSingleNode(FieldNodeName);

 

IF NOT ISCLEAR(FieldNode) THEN

  EXIT(TRUE);

 

After:

 

IF (FieldNodeName[1] >= '0') AND (FieldNodeName[1] <= '9') THEN          // Added #2

  FieldNodeName := '_' + FieldNodeName;                           // Added #2

 

FieldNode := RecordNode.selectSingleNode(FieldNodeName);

 

IF NOT ISCLEAR(FieldNode) THEN

  EXIT(TRUE);

 

 

* Codeunit 8611, Function GetElementName

----------------------------------------

Before:

 

...

NameIn := DELCHR(NameIn,'=','Ù''`');

NameIn := DELCHR(CONVERTSTR(NameIn,'<>,./\+-&()%','            '),'=',' ');

NameIn := DELCHR(NameIn,'=',' ');

 

EXIT(NameIn);

...

 

 

After:

...

NameIn := DELCHR(NameIn,'=','Ù''`');

NameIn := DELCHR(CONVERTSTR(NameIn,'<>,./\+-&()%$','             '),'=',' ');  //Changed - added $ symbol and one additional space between single quotes #5

NameIn := DELCHR(NameIn,'=',' ');

 

IF (NameIn[1] >= '0') AND (NameIn[1] <= '9') THEN                 // Added #2

  NameIn := '_' + NameIn;                                   // Added #2

 

EXIT(NameIn);

 

 

* Codeunit 8611, Function InsertRecordWithKeyFields

-----------------------------------------------------

Before:

 

VAR

      MatrixData@1001 : Record 8615;

      MigrationTableField@1007 : Record 8616;

      OSynchTypeConversion@1008 : Codeunit 5302;

      RecRef1@1006 : RecordRef;

      KeyRef@1003 : KeyRef;

      FieldRef@1004 : FieldRef;

      KeyFieldCount@1005 : Integer;

      ToValidate@1009 : Boolean;

 

    BEGIN

      MatrixData.SETRANGE(TableID,MatrixRecord.TableID);

      MatrixData.SETRANGE("No.",MatrixRecord."No.");

 

      KeyRef := RecRef.KEYINDEX(1);

      FOR KeyFieldCount := 1 TO KeyRef.FIELDCOUNT DO BEGIN

        FieldRef := KeyRef.FIELDINDEX(KeyFieldCount);

        ValidationFieldID := FieldRef.NUMBER;

        MatrixData.SETRANGE(FieldID,FieldRef.NUMBER);

        IF MatrixData.FIND('-') THEN BEGIN

          MigrationTableField.GET(MatrixData.TableID,MatrixData.FieldID);

          ToValidate := MigrationTableField.Validate AND NOT TestRelation(FieldRef);

          OSynchTypeConversion.EvaluateTextToFieldRef(MatrixData.Value,FieldRef,ToValidate);        

        END ELSE

          IF KeyRef.FIELDCOUNT <> 1 THEN BEGIN

            ERROR(STRSUBSTNO(Text000,FieldRef.NAME,RecRef.NAME + ':' + FORMAT(MatrixData."No.")));

          END

      END;

 

      RecRef1 := RecRef.DUPLICATE;

 

      IF RecRef1.FIND('=') THEN BEGIN

        RecRef := RecRef1;

        EXIT

      END;

 

      RecRef.INSERT(NOT CompanySetupRun);

    END;

 

 

After:

 

VAR

      MatrixData@1001 : Record 8615;

      MigrationTableField@1007 : Record 8616;

      OSynchTypeConversion@1008 : Codeunit 5302;

      RecRef1@1006 : RecordRef;

      KeyRef@1003 : KeyRef;

      FieldRef@1004 : FieldRef;

      KeyFieldCount@1005 : Integer;

      ToValidate@1009 : Boolean;

      Field@1010 : Record 2000000041;                            // Added #3

      Datevalue@1011 : Date;                                     // Added #3

 

   BEGIN

      MatrixData.SETRANGE(TableID,MatrixRecord.TableID);

      MatrixData.SETRANGE("No.",MatrixRecord."No.");

 

      KeyRef := RecRef.KEYINDEX(1);

      FOR KeyFieldCount := 1 TO KeyRef.FIELDCOUNT DO BEGIN

        FieldRef := KeyRef.FIELDINDEX(KeyFieldCount);

        ValidationFieldID := FieldRef.NUMBER;

        MatrixData.SETRANGE(FieldID,FieldRef.NUMBER);

        IF MatrixData.FIND('-') THEN BEGIN

          MigrationTableField.GET(MatrixData.TableID,MatrixData.FieldID);

          ToValidate := MigrationTableField.Validate AND NOT TestRelation(FieldRef);

          //OSynchTypeConversion.EvaluateTextToFieldRef(MatrixData.Value,FieldRef,ToValidate);         //  removed #3

 

          Field.GET(RecRef.NUMBER, FieldRef.NUMBER);                                                   //  Added #3

          IF Field.Type <> Field.Type::Date THEN                                                       //  Added #3

            OSynchTypeConversion.EvaluateTextToFieldRef(MatrixData.Value,FieldRef,ToValidate)          //  Added #3

          ELSE BEGIN                                                                                   //  Added #3

            EVALUATE(Datevalue, MatrixData.Value);                                                     //  Added #3

            FieldRef.VALUE := Datevalue;                                                               //  Added #3

          END;                                                                                         //  Added #3

 

        END ELSE

          IF KeyRef.FIELDCOUNT <> 1 THEN BEGIN

            ERROR(STRSUBSTNO(Text000,FieldRef.NAME,RecRef.NAME + ':' + FORMAT(MatrixData."No.")));

          END

      END;

 

      RecRef1 := RecRef.DUPLICATE;

 

      IF RecRef1.FIND('=') THEN BEGIN

        RecRef := RecRef1;

        EXIT

      END;

 

      RecRef.INSERT(NOT CompanySetupRun);

    END;

 

 

 

 

* Codeunit 8611, Function ModifyRecordWithOtherFields

-----------------------------------------------------

Before:

 

VAR

      MatrixData@1002 : Record 8615;

      MigrationTableField@1000 : Record 8616;

      Question@1003 : Record 8612;

      Field@1007 : Record 2000000041;

      MigrationTable@1009 : Record 8613;

      DataTemplateHeader@1011 : Record 8618;

      QuestionnaireMgt@1006 : Codeunit 8610;

      TemplateMgt@1012 : Codeunit 8612;

      OSynchTypeConversion@1014 : Codeunit 5302;

      FieldRef@1001 : FieldRef;

      OptionInt@1008 : Integer;

      DateFormula@1010 : DateFormula;

      ToValidate@1013 : Boolean;

 

After:

 

 VAR

      MatrixData@1002 : Record 8615;

      MigrationTableField@1000 : Record 8616;

      Question@1003 : Record 8612;

      Field@1007 : Record 2000000041;

      MigrationTable@1009 : Record 8613;

      DataTemplateHeader@1011 : Record 8618;

      QuestionnaireMgt@1006 : Codeunit 8610;

      TemplateMgt@1012 : Codeunit 8612;

      OSynchTypeConversion@1014 : Codeunit 5302;

      FieldRef@1001 : FieldRef;

      OptionInt@1008 : Integer;

      DateFormula@1010 : DateFormula;

      ToValidate@1013 : Boolean;

      DateValue@1500000 : Date;                   // Added #3

 

Before:

 

 

    IF MigrationTableField.FIND('-') THEN

      IF NOT IsKeyField(MigrationTableField.TableID,MigrationTableField.FieldID) THEN BEGIN

        FieldRef := RecRef.FIELD(MatrixData.FieldID);

        IF CompanySetupRun THEN

          ToValidate:= FALSE

        ELSE

          ToValidate := MigrationTableField.Validate AND NOT TestRelation(FieldRef);

        OSynchTypeConversion.EvaluateTextToFieldRef(MatrixData.Value,FieldRef,ToValidate)

      END;

      IF DataTemplateHeader.GET(MigrationTable."Data Template") THEN

        TemplateMgt.UpdateRecord(DataTemplateHeader,RecRef);

 

After:

 

    IF MigrationTableField.FIND('-') THEN

      IF NOT IsKeyField(MigrationTableField.TableID,MigrationTableField.FieldID) THEN BEGIN

        FieldRef := RecRef.FIELD(MatrixData.FieldID);

        IF CompanySetupRun THEN

          ToValidate:= FALSE

        ELSE

          ToValidate := MigrationTableField.Validate AND NOT TestRelation(FieldRef);

 

        //OSynchTypeConversion.EvaluateTextToFieldRef(MatrixData.Value,FieldRef,ToValidate)          // removed #3

 

        Field.GET(RecRef.NUMBER, FieldRef.NUMBER);                                                   // Added #3

        IF Field.Type <> Field.Type::Date THEN                                                       // Added #3

          OSynchTypeConversion.EvaluateTextToFieldRef(MatrixData.Value,FieldRef,ToValidate)          // Added #3

        ELSE BEGIN                                                                                   // Added #3

          EVALUATE(DateValue, MatrixData.Value);                                                     // Added #3

          FieldRef.VALUE := DateValue;                                                               // Added #3

        END;                                                                                         // Added #3

 

      END;

      IF DataTemplateHeader.GET(MigrationTable."Data Template") THEN

        TemplateMgt.UpdateRecord(DataTemplateHeader,RecRef);

 

 

 

* Codeunit 5302, Function TextToDecimal

----------------------------------------

Before:

 

VAR

      PartArray@1003 : ARRAY [2] OF Text[250];

      IntegeralPart@1001 : Integer;

      FractionalPart@1002 : Integer;

 

 

After:

 

VAR

      PartArray@1003 : ARRAY [2] OF Text[250];

      IntegeralPart@1001 : Integer;

      FractionalPart@1002 : Integer;

      Sign@1005 : Integer;                   //add new local variable #4

 

Before:

 

 

DecVar := IntegeralPart + (FractionalPart / POWER(10,STRLEN(PartArray[2])));    

 

 

After:

 

 

IF STRPOS(InputText,'-') = 0 THEN     //added #4

  Sign := 1                           //added #4

ELSE                                  //added #4

  Sign := -1;                         //added #4

DecVar := (Sign * (ABS(IntegeralPart) + (FractionalPart / POWER(10,STRLEN(PartArray[2])))));  //changed #4

 

 

Laura K. Lake (lalake)

Microsoft Dynamics NA


Microsoft Customer Service and Support (CSS) North America

Leave a Comment
  • Please add 6 and 1 and type the answer here:
  • Post