Reading XML Docs

(0) Share

Report

Posted on by Community Member

I need to read an XML Document to retrieve an element from it. In my case I need to get the Identifier from an xml doc. Here's my current code, how can I Then find this data?

recManufacturingSetup.FINDFIRST;
objFiles.RESET;
IF 1 = 1 THEN;
objFiles.SETFILTER(Path, '%1', recManufacturingSetup.AegisFolderPackoutRoot);
objFiles.SETFILTER(Name, '@*xml');
objFiles.SETRANGE("Is a file", TRUE);
IF objFiles.FINDSET(FALSE, FALSE) THEN REPEAT
recAegisPackoutImport.Filename := objFiles.Name;
IF recAegisPackoutImport.FINDLAST THEN
recAegisPackoutImport."Line No." := recAegisPackoutImport."Line No." + 1
ELSE
recAegisPackoutImport."Line No." := 1;
recAegisPackoutImport.INSERT;
UNTIL objFiles.NEXT = 0;
//Get file names from table and remove end tags
IF recAegisPackoutImport.FINDSET THEN REPEAT
PackoutFileName :=
COPYSTR(recAegisPackoutImport.Filename,1,12);
//Check Whse Serial Batch List for existing Serial No.
whseSerialBatchList.RESET;
whseSerialBatchList.SETRANGE("No.", PackoutFileName);
IF whseSerialBatchList.FINDFIRST THEN BEGIN
CLEAR(xmlDoc);
xmlDoc := xmlDoc.XmlDocument();
xmlDoc.Load(recAegispackoutImport."Folder Path" + recAegisPackoutImport.Filename);
xmlRoot := xmlDoc.DocumentElement();

xmlNodeListPackoutData := xmlDoc.GetElementsByTagName('PackoutBox'); //lew
xmlNodePackoutData := xmlNodeListPackoutData.Item(intNode);
xmlDoc.ReadNode(XmlReader reader)
END;
UNTIL recAegisPackoutImport.NEXT =0;

*This post is locked for comments

I have the same question (0)

All responses (6)

Answers (2)

Suggested answer

keoma 32,729 on at

Like (0)

Report

please have a look at cu 6224 xml mgmt.

also check out my blog posting moxie4nav.wordpress.com/.../extend-cu-6224-read-xml-node-values-and-attributes

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

Im new to this whole codeunit etc, In the example above what would I use to find both the Identifiers in that XML Doc? I'm struggling with this

Was this reply helpful? Yes No
Suggested answer

Suresh Kulla 50,247 Super User 2025 Season 2 on at

Like (0)

Report

hello,

can you highlight in the above xml document what value you are trying to retrieve, i have not found anything called PackOutBox which you have used in the above code.

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

Was this reply helpful? Yes No
Verified answer

Community Member on at

Like (0)

Report

Here is my current soloution, The only issue with this is it isn't finding the value within the <Identifier>. Any suggestions?

recManufacturingSetup.FINDFIRST;

objFiles.RESET;

objFiles.SETFILTER(Path, '%1', recManufacturingSetup.AegisFolderPackoutRoot);

objFiles.SETFILTER(Name, '@*xml');

objFiles.SETRANGE("Is a file", TRUE);

IF objFiles.FINDSET(FALSE, FALSE) THEN REPEAT

recAegisPackoutImport."Folder Path" := objFiles.Path;

recAegisPackoutImport.Filename := objFiles.Name;

IF recAegisPackoutImport.FINDLAST THEN

recAegisPackoutImport."Line No." := recAegisPackoutImport."Line No." + 1

ELSE

recAegisPackoutImport."Line No." := 1;

recAegisPackoutImport.INSERT;

UNTIL objFiles.NEXT = 0;

//Get file names from table and remove end tags

IF recAegisPackoutImport.FINDSET THEN REPEAT

PackoutFileName :=

COPYSTR(recAegisPackoutImport.Filename,1,12);

//Check Whse Serial Batch List for existing Serial No.

whseSerialBatchList.RESET;

whseSerialBatchList.SETRANGE("No.", PackoutFileName);

IF NOT whseSerialBatchList.FINDFIRST THEN BEGIN

whseSerialBatchList."No." := PackoutFileName;

whseSerialBatchList.Insert;

//Read XML Doc and Find Identifier.

CLEAR(xmlDoc);

xmlDoc := xmlDoc.XmlDocument();

xmlDoc.Load(recAegisPackoutImport."Folder Path" + recAegisPackoutImport.Filename);

xmlRoot := xmlDoc.DocumentElement();

xmlNodeListPackoutData := xmlDoc.GetElementsByTagName('InventoryItem'); //ll

xmlNodePackoutData := xmlNodeListPackoutData.Item(intNode);

//Find the Value Within Identifier

FOR intNodeBatch := 0 TO xmlNodeListpackoutData.Count() -1 DO BEGIN

SerialNoText :=

cuXMLDOMManagement.FindNodeText(

xmlNodePackoutData,

'Identifier');

//Add Batch No to Serial No Information

recSerialNoInformation.RESET;

recSerialNoInformation.SETRANGE("Serial No.", SerialNoText);

IF recSerialNoInformation.FINDFIRST THEN BEGIN

recSerialNoInformation."Batch No." := PackoutFileName;

recSerialNoInformation.MODIFY;

CLEAR(SerialNotext);

END;

END;

END;

CLEAR(PackoutFileName);

UNTIL recAegisPackoutImport.NEXT =0;

Was this reply helpful? Yes No
Verified answer

Suresh Kulla 50,247 Super User 2025 Season 2 on at

Like (0)

Report

Use the xmlNodeList to find the InventoryItems then loop each xmlNode of the xmlNodeList and then use teh function GetAttributeValue from the xmlDomManagement.

blogs.msdn.microsoft.com/.../sample-of-how-to-read-a-simple-xml-document-using-msxml-dom-in-nav

Was this reply helpful? Yes No