Importeren van de XML gedefinieerd door de optimizer en deze opslaan in de basistabellen BL.Prod.OptiBox,Prod.Product 1 %RegisteredObject D ##class(BL.Blum.Cataloog.ImportBeschrijvingFromBMECat).%New().ImportBMECat("\\Notes01\Shared\P V\","BMECAT.XML") Dir,FileName pxArticle:BL.Blum.Cataloog.sub.pxArticle BLID,Text " Set Text=$$REPLACE^vhRtn1(Text,"
",Delim) Set Text=$$REPLACE^vhRtn1(Text,"
",Delim) Set Text=$$REPLACE^vhRtn1(Text,"
",Delim) Set Text=$$REPLACE^vhRtn1(Text,"
",Delim) Set Text=$$REPLACE^vhRtn1(Text,"
",Delim) Set Text=$$REPLACE^vhRtn1(Text,"
",Delim) ; Verwijderen Set Key=$O(^BLProd("D",BLID,Node)) While $E(Key)=Node { Kill ^BLProd("D",BLID,Key) Set Key=$O(^BLProd("D",BLID,Key)) } ; Zetten Set TxtCnt=0 For I=1:1:$L(Text,Delim) { Set Lijn=$P(Text,Delim,I) If Lijn'="" { Set ^BLProd("D",BLID,Node_"N"_$TR($J($I(TxtCnt),2)," ","0"))=Lijn } } ]]> pxArticle:BL.Blum.Cataloog.sub.pxArticle "_Text Set Feature=Features.GetNext(.Key) } Quit Oms ]]> Feature:BL.Blum.Cataloog.sub.pxArticleFeature