Importeren van de XML gedefinieerd door de optimizer en deze opslaan in de basistabellen BL.Prod.OptiBox 1 %RegisteredObject 0 D ##class(BL.Prod.OptiBox.ImportXML).%New().BoxSelectUsed() D ##class(BL.Prod.OptiBox.ImportXML).%New().ImportXMLBoxSelectViaSAX("//Notes01/Shared/P V/","DEFINEBOXSELECT.XML") Dir,FileName " . If (Reader.NodeType="element")&&(Reader.Name="PRODGRP")&&(Reader.AttributeCount>0) Do . . Do Reader.MoveToAttributeName("Name") . . Set ProductGroep=Reader.Value . If (Reader.NodeType="element"),($E(Reader.Path,$L(Reader.Path)-$L($$$BoxSelectPath)+1,$L(Reader.Path))=$$$BoxSelectPath) Do . . Do Reader.Read() . . Set BoxSelect=Reader.Value . . Do ..SaveBoxSelectViaParam(ProductGroep,BoxSelect) ]]> Groep,BoxSelect D ##class(BL.Prod.OptiBox.ImportXML).%New().ImportXMLBoxSelect("//Notes01/Shared/P V/","DEFINEBOXSELECT.XML") D ##class(BL.Prod.OptiBox.ImportXML).%New().ImportXMLBoxSelect("//Cache02/c$/CacheSys/CSP/vhINTRA/","BOXSELECT.XML") Dir,FileName D ##class(BL.Prod.OptiBox.ImportXML).%New().ImportXMLTest("//Notes01/Shared/P V/","OptiRes2.XML") D ##class(BL.Prod.OptiBox.ImportXML).%New().ImportXMLTest("c:/","OptiRes_286.XML") Dir,FileName pxBoxSelectGroep D ##class(BL.Prod.OptiBox.ImportXML).%New().ImportXMLCardboard("//Notes01/Shared/P V/","CARDBOARDDEFS.XML") D ##class(BL.Prod.OptiBox.ImportXML).%New().ImportXMLCardboard("c:/CacheSys/CSP/vhINTRA/","CARDBOARDDEFS.XML") Dir,FileName pxCardboard