Nav developer: RIM Tool on NAV 2009

[Blog bot]

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 8611Function 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:ate 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:ate 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


Microsoft Dynamics NA



Microsoft Customer Service and Support (CSS) North America


These postings are provided "AS IS" with no warranties and confer no rights. You assume all risk for your use.



Читать дальше