0
887

Written by

Patrik Spisak
Software / Web Developer at Dhollandia Central Europe s.r.o.
Follow
Question Patrik Spisak · Feb 14, 2020

%XML.Reader

#Caché #XML

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"?>

<ProductionPackage xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" JobName="10006_8046_L69">

  <Barcode>1200002101</Barcode>

  <DueDate>31.12.5000 23:59:59</DueDate>

  <BasicMaterial>1.0038</BasicMaterial>

  <RawMaterial>St37-120</RawMaterial>

  <RawMaterialThicknessUnit>mm</RawMaterialThicknessUnit>

  <JobNote />

  <CreatedBy>stko</CreatedBy>

  <ChangedBy>stko</ChangedBy>

  <Workplace WorkplaceName="TruLaser 3030 (L49)">

    <Barcode>0800000029</Barcode>

    <CostCenter />

    <Activity>2D-Tafelbearbeitung</Activity>

    <MachineName>L49</MachineName>

    <MachineType>51</MachineType>

    <ControlName>Sin 840D</ControlName>

    <ControlType>1</ControlType>

    <ProcessingAreaX>3000.00</ProcessingAreaX>

    <ProcessingAreaY>1500.00</ProcessingAreaY>

    <ProcessingAreaZ>115.00</ProcessingAreaZ>

  </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)0
Log in or sign up to continue

Comments

Eduard Lebedyuk · Feb 14, 2020

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;
0
Patrik Spisak  Feb 14, 2020 to Eduard Lebedyuk

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

0
Eduard Lebedyuk  Feb 16, 2020 to Patrik Spisak

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?

0
Patrik Spisak  Feb 17, 2020 to Eduard Lebedyuk

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 ];
0
Eduard Lebedyuk  Feb 17, 2020 to Patrik Spisak

After you compiled

Property PartoNo As %String;

what error are you getting?

0
Patrik Spisak  Feb 17, 2020 to Eduard Lebedyuk

Same as before

ERROR #6232: Datatype validation failed for tag, PartoNo (ending at line 145 character 16), with value: 10649.OV
0
Eduard Lebedyuk  Feb 17, 2020 to Patrik Spisak

Okay and how does the XML look like?

0
Eduard Lebedyuk  Feb 18, 2020 to Patrik Spisak

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

PropertyPartoNo As %String;

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

0