%XML.Reader

Question

Question

Patrik Spisak · Feb 14, 2020

Hi guys,

I need help because I have no idea how to proceed further and documentation does not explaining this solution.

I have XML like this:

<?xml version="1.0"?>

<Activity>2D-Tafelbearbeitung</Activity>

</Workplace>

Im trying to read all nodes within %XML.Reader and Correlate. For parents it's not problem and I can get it. But I have no idea what to do if I want get Workplace with all his childs.

 Class dhr.production.article.xml.productionPackage Extends (%Persistent, %XML.Adaptor)
{ 
  Parameter XMLNAME = "ProductionPackage"; 
  Property Barcode As %Integer; Property DueDate As %String; 
  Property BasicMaterial As %Float; 
  Property RawMaterial As %String; 
  Property Workplace As dhr.production.article.xml.workplace; 
}

Class dhr.production.article.xml.workplace Extends (%Persistent, %XML.Adaptor)
{ 
 Parameter XMLNAME = "Workplace"; 
 Property Barcode As %Integer; 
 Property MachineName As %String; 
 Property MachineType As %String; 
 Property ControlName As %String; 
 Property ControlType As %Integer;
}

For writing values from parrent it working fine, but in documentation there is no mention how I can get output from childrens and siblings. I tried object.Workplace.Barcode but does not work at all.

 ClassMethod getFiles(pDir As %String, pFileSpec As %String)
{
    SET tRS = ##class(%ResultSet).%New("%Library.File:FileSet"),
        tSC = tRS.Execute(pDir,pFileSpec)     

    WHILE tRS.Next() 
    {
        SET filePath = tRS.Get("Name"),
            lastModified = tRS.Get("DateModified"),
            fileType = tRS.Get("Type")
                
        SET xmlReader = ##class(%XML.Reader).%New(),
            xmlStatus = xmlReader.OpenFile(filePath)
            
        DO xmlReader.Correlate("ProductionPackage", "dhr.production.article.xml.productionPackage")
        
        DO xmlReader.Next(.object, .xmlStatus)
        
        WRITE !,object.Barcode     
  }
                  
       
    QUIT
}

Discussion (9)1

Log in or sign up to continue

Eduard Lebedyuk · Feb 18, 2020

PartoNo is present thrice in your XML so you should correspondingly set

Property PartoNo As %String;

three times. One time it also an attribute so add XMLPROJECTION="attribute". Docs.

0 0

score 0 · Answer 1 · 2020-02-14T07:21:00-05:00

Check xmlStatus, it's an error:

ERROR #6237: Unexpected tag in XML input: RawMaterialThicknessUnit (ending at line 7 character 29).

You need to either specify all properties or define this parameter in both classes:

Parameter XMLIGNOREINVALIDTAG = 1;

score 0 · Answer 2 · 2020-02-14T08:50:14-05:00

I have generated classes now by using XML Schema, but still not working

 Class TruLaser.ProductionPackage Extends (%Persistent, %XML.Adaptor) [ ProcedureBlock ]
{ 
Parameter XMLNAME = "ProductionPackage"; 
Parameter XMLSEQUENCE = 1; 
Property Barcode As %xsd.int(XMLNAME = "Barcode") [ Required ]; 
Property DueDate As %String(MAXLEN = "", XMLNAME = "DueDate") [ Required ]; 
Property BasicMaterial As %xsd.float(XMLNAME = "BasicMaterial") [ Required ]; 
Property RawMaterial As %String(MAXLEN = "", XMLNAME = "RawMaterial") [ Required ]; 
Property RawMaterialThicknessUnit As %String(MAXLEN = "", XMLNAME = "RawMaterialThicknessUnit") [ Required ]; 
Property JobNote As %String(MAXLEN = "", XMLNAME = "JobNote") [ Required ]; 
Property CreatedBy As %String(MAXLEN = "", XMLNAME = "CreatedBy") [ Required ]; 
Property ChangedBy As %String(MAXLEN = "", XMLNAME = "ChangedBy") [ Required ]; 
Property Workplace As TruLaser.Workplace(XMLNAME = "Workplace") [ Required ]; 
Property ManufacturingOrders As TruLaser.TcBoManufacturingOrder(XMLNAME = "ManufacturingOrders", XMLPROJECTION = "WRAPPED") [ Required ]; Relationship ProductionOrders As TruLaser.ProductionOrder(XMLITEMNAME = "ProductionOrder", XMLNAME = "ProductionOrders", XMLPROJECTION = "COLLECTION") [ Cardinality = many, Inverse = ProductionPackage ]; 
Relationship Parts As TruLaser.Part(XMLITEMNAME = "Part", XMLNAME = "Parts", XMLPROJECTION = "COLLECTION") [ Cardinality = many, Inverse = ProductionPackage1 ]; 
Property NcPrograms As TruLaser.NcProgram(XMLNAME = "NcPrograms", XMLPROJECTION = "WRAPPED") [ Required ]; 
Property RequiredSheets As TruLaser.Sheet(XMLNAME = "RequiredSheets", XMLPROJECTION = "WRAPPED") [ Required ]; 
Property LaserTechnoTables As TruLaser.LaserTechnoTable(XMLNAME = "LaserTechnoTables", XMLPROJECTION = "WRAPPED") [ Required ]; 
Relationship UsedLaserTechnoTables As TruLaser.UsedLaserTechnoTable(XMLITEMNAME = "UsedLaserTechnoTable", XMLNAME = "UsedLaserTechnoTables", XMLPROJECTION = "COLLECTION") [ Cardinality = many, Inverse = ProductionPackage2 ]; 
Property TotalRuntime As %xsd.float(XMLNAME = "TotalRuntime") [ Required ]; 
Property RawMaterialThickness As %xsd.float(XMLNAME = "RawMaterialThickness") [ Required ]; 
Property TotalPartCount As %xsd.byte(XMLNAME = "TotalPartCount") [ Required ]; 
Property TotalSheetCount As %xsd.byte(XMLNAME = "TotalSheetCount") [ Required ]; Property Waste As %xsd.float(XMLNAME = "Waste") [ Required ]; Property JobName As %String(MAXLEN = "", XMLNAME = "JobName", XMLPROJECTION = "ATTRIBUTE");

Class TruLaser.TcBoManufacturingOrder Extends (%Persistent, %XML.Adaptor) [ ProcedureBlock ]
{
Parameter XMLNAME = "TcBoManufacturingOrder"; 
Parameter XMLSEQUENCE = 1; 
Property Barcode As %xsd.int(XMLNAME = "Barcode") [ Required ]; 
Property ProgramNo As %String(MAXLEN = "", XMLNAME = "ProgramNo") [ Required ]; 
Property NoOfRuns As %xsd.byte(XMLNAME = "NoOfRuns") [ Required ]; Relationship ProductionOrders As TruLaser.Order(XMLITEMNAME = "Order", XMLNAME = "ProductionOrders", XMLPROJECTION = "COLLECTION") [ Cardinality = many, Inverse = TcBoManufacturingOrder ]; 
Property ProcessingTimeTotal As %xsd.float(XMLNAME = "ProcessingTimeTotal") [ Required ]; 
Property ManufacturingOrderNo As %String(MAXLEN = "", XMLNAME = "ManufacturingOrderNo", XMLPROJECTION = "ATTRIBUTE");
}

ERROR #5002: Cache error: <CLASS DOES NOT EXIST>XMLImportElements+96^TruLaser.TcBoManufacturingOrder.1 *TruLaser.Order for element ProductionOrders (ending at line 28 character 25)

Also im still not able access all values for example : object.LaserTechnoTables.MaxLaserPower

score 0 · Answer 3 · 2020-02-16T03:47:12-05:00

im still not able access all values for example :

XML import must end successfully before you can access parsed object.

As the error states, do you have TruLaser.Order class and is it compiled?

score 0 · Answer 4 · 2020-02-17T03:26:34-05:00

Was not compiled even I have clicked to compile. Anyway still getting erro. Is it possible to turn off datatype validation?

Datatype validation failed for tag, PartoNo (ending at line 51 character 20), with value: 5625.1800.L

I have tried replace %xsd.short for %String, %GlobalCharacterStream but does not help at all

 Property PartoNo As %xsd.short(XMLNAME = "PartoNo") [ Required ];

score 0 · Answer 5 · 2020-02-17T05:04:56-05:00

Eduard Lebedyuk · Feb 17, 2020

After you compiled

Property PartoNo As %String;

what error are you getting?

0 0

score 0 · Answer 6 · 2020-02-17T08:08:40-05:00

Same as before

ERROR #6232: Datatype validation failed for tag, PartoNo (ending at line 145 character 16), with value: 10649.OV

score 0 · Answer 7 · 2020-02-17T09:58:00-05:00

Eduard Lebedyuk · Feb 17, 2020

Okay and how does the XML look like?

0 0

score 0 · Answer 8 · 2020-02-18T00:15:53-05:00

Patrik Spisak · Feb 18, 2020

like this: https://mega.nz/#!YNUDUQzK!aVkGBhVizEysbox1rEBmGtKhweeRrQst7-M0Ty6sUmU

0 0