NAV Team: Style Sheet Tool Extended

[Blog bot]

For those that have not used this before, the Style Sheet Tool is a free code sample used as an addition to standard Dynamics NAV application, for enhancing send-to Word functionality on Dynamics NAV by allowing simple and user-friendly style sheet customization.

After lots of feedback form partners, we have added an extra dimension to this tool: the ability to export several tables with multiple records. Up to now, any number of tables was allowed provided they all show one record each, in addition to one table showing multiple records.

This ’constraint’ is now removed, or rather, the design is adjusted to allow several tables showing multiple records each, to be included in merge document design.

To align the tool with this extension, the following code needs to be replaced:

Codeunit 680 : Style Sheet Management

Global variables: add NoOfMultiLineTables and MLCounter

Name

DataType

Subtype

Length

XMLDoc

Automation

'Microsoft XML, v4.0'.DOMDocument40

MailMergeXMLDoc

Automation

'Microsoft XML, v4.0'.DOMDocument40

AttributeArray

Text

250

GroupElement

Text

250

StyleSheetTemplateCode

Code

20

StyleSheetFunctions

Codeunit

Style Sheet Functions

Status

Dialog

InMultiLineSection

Boolean

NoOfMultiLineTables

Integer

MLCounter

Integer



ManageMultiLineChanges trigger

Old Code:

...

RemoveEndOfMultiLine(NodeTextValue);

EXIT(Return);

...

New Code:

...

RemoveEndOfMultiLine(NodeTextValue);

// EXIT(Return); //changed line

...

CreateMultilLineSection trigger



Old Code:

// Create section for Multi-Lines

ChildNode := IOChildNode.parentNode;

...



New Code:

// Counter for multiple multiline sections //added line

MLCounter +=1; //added line

// Create section for Multi-Lines

ChildNode := IOChildNode.parentNode;

...



CreateMultiLineBody trigger

Local variables: the following local variable is added to the trigger

Name

DataType

MultilineEnd

Boolean



Old Code:

...

ParentNode := ChildNode.parentNode;

LoadAttributes(1,'name','multiline-section-properties');

AddElement(ParentNode,NewChildNode,Text043,1);

...



New Code:

...

ParentNode := ChildNode.parentNode;

// Add counter to multiline section name, for unique reference // added line

LoadAttributes(1,'name','multiline-section-properties'+FORMAT(MLCounter)); //changed line

AddElement(ParentNode,NewChildNode,Text043,1);

...



Old Code:

...

ChildNodeList := ParentNode.childNodes;

FOR NodeCount := 1 TO ChildNodeList.length DO BEGIN

ChildNode := ChildNodeList.item(NodeCount - 1);

TempNodeName := ChildNode.nodeName;

IF TempNodeName = Text043 THEN

MultiLineNodeCount[1] := NodeCount;

TempNodeValue := GetTextNodeValue(ChildNode);

IF TempNodeValue <> '' THEN

MultiLineNodeCount[2] := NodeCount - 1;

END;

// If MULTILINE_END is not found then set end to number of nodes.

IF MultiLineNodeCount[2] = 0 THEN

MultiLineNodeCount[2] := NodeCount;

...



New Code:

...

ChildNodeList := ParentNode.childNodes;

NodeCount := 1; //added line

WHILE (NodeCount <= ChildNodeList.length) AND

(NOT MultilineEnd) DO BEGIN //changed line

// exit the loop when next multiline end is found //added line

ChildNode := ChildNodeList.item(NodeCount - 1);

TempNodeName := ChildNode.nodeName;

IF TempNodeName = Text043 THEN BEGIN //changed line

MultiLineNodeCount[1] := NodeCount;

END;

TempNodeValue := GetTextNodeValue(ChildNode);

IF TempNodeValue <> '' THEN BEGIN //changed line

IF STRPOS(TempNodeValue,Text021) <> 0 THEN

MultilineEnd := TRUE; //added line

MultiLineNodeCount[2] := NodeCount - 1;

END; //added line

NodeCount +=1; //added line

END;

IF NodeCount <= ChildNodeList.length THEN

NodeCount := NodeCount -1; //added line

MultilineEnd := FALSE; //added line

// If MULTILINE_END is not found then set end to number of nodes.

IF MultiLineNodeCount[2] = 0 THEN

MultiLineNodeCount[2] := NodeCount;

...

RemoveEndOfMultiline Trigger



Old Code:

// Remove end node of Multi-Lines

ChildNodeList := XMLDoc.getElementsByTagName('w:r');

FOR NodeCount := 1 TO ChildNodeList.length DO BEGIN

ChildNode := ChildNodeList.item(NodeCount - 1);

ParentNode := ChildNode.parentNode;

IF STRPOS(GetTextNodeValue(ChildNode),Text021) <> 0 THEN BEGIN

ParentNode.removeChild(ChildNode);

EXIT;

END;

END;

New Code:

// Remove end node of Multi-Lines

// nodetextvalue = multiline_begin_tablename

NodeTextValue := COPYSTR(NodeTextValue,17,MAXSTRLEN(NodeTextValue)); //added line

ChildNodeList := XMLDoc.getElementsByTagName('w:r');

FOR NodeCount := 1 TO ChildNodeList.length DO BEGIN

ChildNode := ChildNodeList.item(NodeCount - 1);

ParentNode := ChildNode.parentNode;

IF STRPOS(GetTextNodeValue(ChildNode),Text021) <> 0 THEN BEGIN

//Check if this is the right MULTILINE_END to remove // added line

IF STRPOS(GetTextNodeValue(ChildNode),Text021+'_'+NodeTextValue) <>0 THEN //added line

ParentNode.removeChild(ChildNode);

// EXIT; // remove all ends //changed line

END;

END;







The extended codeunit 680 object is also attached.

Note: This extension works with both Style Sheet Tool 1.1 and Style Sheet Tool 2.0

You can direct your questions or feedback to jthunes@microsoft.com



Источник: http://feedproxy.google.com/~r/Micro...-extended.aspx