Importeren van de XML gedefinieerd door de optimizer en deze opslaan in de basistabellen BL.Prod.OptiBox,Prod.Product 1 %RegisteredObject PR BMECat D ##class(BL.Blum.Cataloog.Import).%New().ImportBMECatStructure("//Notes01/Shared/P V/","BMECAT.XML") Inlezen van de boomstructure uit BMECat en de structuur plaatsen in een global Dir,FileName pxStruct D ##class(BL.Blum.Cataloog.Import).%New().ImportBMECat("//Notes01/Shared/P V/","BMECAT.XML") Dir,FileName ",$$LCVT^vhLib(lbPRNrs),! For I=1:1:$LL(lbPRNrs) Do . Set PRNr=$LI(lbPRNrs,I) . Do ..RemoveOldImages(PRNr) . Do ..CreateImages(pxArticle.BLID,PRNr,pxArticle.Images) . Set ^Res.ImageLinkRecentImport(PRNr)="" Set ImgCnt=pxArticle.Images.Count() Set ProdCnt=0 Set:ImgCnt ProdCnt=$LL(lbPRNrs) Quit $$$OK ]]> %List BLID,PRNr,arImages PRNr "CA" moet verwijderd worden er moet alleen met oorsprong gewerkt worden : PV 2008 &sql(OPEN RemoveOldImages) For &sql(FETCH RemoveOldImages) Quit:SQLCODE Do . Write "ReomveOldImage "_ID,! . Do ##class(Res.ImageLink).%DeleteId(ID) &sql(CLOSE RemoveOldImages) ]]> PRNr,arImages,FileName BLID,PRNr,oImage D ##class(BL.Blum.Cataloog.Import).ExportAll() 1 D ##class(BL.Blum.Cataloog.Import).ExportIDs(0) 1 All 0