Importeren van de XML gedefinieerd door de optimizer en deze opslaan in de basistabellen BL.Prod.OptiBox,Prod.Product 1 %RegisteredObject PR BMECat blum\P %List 1 ]]> 1 DirExisting,DirNew D ##class(BL.Blum.Cataloog.Import).%New().ImportBMECat("\\Notes01\Shared\P V\","BMECAT.XML") Dir,FileName pxArticle:BL.Blum.Cataloog.sub.pxArticle BLID,Text,Node " 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 pxArticle,Dev ",$$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 ImgCnt=pxArticle.Images.Count() Set ProdCnt=0 Set:ImgCnt ProdCnt=$LL(lbPRNrs) Quit $$$OK ]]> %List d ##class(BL.Blum.Cataloog.Import).%New().BldAspectRatio() FileName 1:1,1:0)) Set Extension=$P(FileName,".",$L(FileName,".")) If Extension'=""&&("JPG,EPS,TIF,TIFF,JPEG,SVG"'[$zcvt(Extension,"U")) Set FirstPart=FileName Set Version=$E(FirstPart,$l(FirstPart)-1,$l(FirstPart)) Set:Version?1(1"VH",1"V"1N) FirstPart=$E(FirstPart,1,$l(FirstPart)-2) Quit FirstPart ]]> FileName,Portrait,ScaleFactor FileName FileName FileName 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 "RemoveOldImage "_ID,! . Do ##class(Res.ImageLink).%DeleteId(ID) &sql(CLOSE RemoveOldImages) ]]> w ##class(BL.Blum.Cataloog.Import).%New().CheckVersion("A_ZSF1610re_P_1_PB_BAU_SALL_AQU_V2.eps") FileName FileName BLID,PRNr,FileName oImg,VisueelType,Pad,BestandsNaam,Sequence,Extensie D ##class(BL.Blum.Cataloog.Import).ExportAll() 1 D ##class(BL.Blum.Cataloog.Import).ExportIDs(0) 1 All 0 D ##class(BL.Blum.Cataloog.Import).%New().ImportBMECatStructure("//Notes01/Shared/P V/","BMECAT_NLtst.XML") Inlezen van de boomstructure uit BMECat en de structuur plaatsen in een global Dir,FileName pxStruct