1. Importeren van de beelden van de Orgalux producten vanuit de kenmerken en de biijhorende vertaling. 2. Creatie van de beelden voor de tandembox laden. %VHMacro,%Prod.Product 1 %RegisteredObject 0 TBX SPAANPLAAT TBXGEN KAD KADGEN PR PR OLKENM LOGO LOGO_WV %Boolean flagOutputToScreen:%Boolean=1 1 %Status d ##class(BL.Prod.ImageLinkImport).%New().CopyLookALike() %List FromObjType,FromObjRef,ToObjType,ToObjRef,WithDelete 1 Doorverwijzing voor naamscorrectie op te vangen (Added by WimV on 06/05/2011) ObjType,ObjRef ObjType,ObjRef d ##class(BL.Prod.ImageLinkImport).%New().CreateTBX() d ##class(BL.Prod.ImageLinkImport).%New().CreateOneTBX("AB_ER","GENERIEK\TBX\tbx_AB_ER.jpg",999,"GENERIEK\TBX\tbx_AB_ER.svg",999,"GENERIEK\TBX\tbx_AB_ER.bmp",) ObjRef,WebImage,WebImageSize,PrintImage,PrintImageSize,MakovaImage,MakovaImageSize 1 d ##class(BL.Prod.ImageLinkImport).%New().CreateSpaanplaat() ObjRef,WebImage,SmallImage 1 d ##class(BL.Prod.ImageLinkImport).%New().CreateKAD() ObjRef,ImageJPG,SizeJPG,ImageSVG,SizeSVG 1 d ##class(BL.Prod.ImageLinkImport).%New().CreateLogos() ObjRef,ImageJPG,SizeJPG,ImageSVG,SizeSVG 1 d ##class(BL.Prod.ImageLinkImport).%New().CreateGlasIntivo() d ##class(BL.Prod.ImageLinkImport).%New().ImportOrgaluxViaKenmerken() d ##class(BL.Prod.ImageLinkImport).%New().ImportOrgaluxViaKenmerkenOne() PRNr:%String PRNr:%String 1 ObjType,ObjRef,Oorsprong 1 ObjType,ObjRef,SmallImage,WebImage,PrintImage,SmallImageSize,WebImageSize,PrintImageSize,FunctieType,Oorsprong,Taal="" 1 oImg,VisueelType,Image,Size,CheckLink 1 D ##class(BL.Prod.ImageLinkImport).%New().ImportPicassa("//Notes01/shared/P V/","PicassaBlum.xml") Dir,FileName %ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links WHERE Links_VisueelType="W") &sql(OPEN ImpPicassa) For &sql(FETCH ImpPicassa) Quit:SQLCODE Do . Set Naam=$TR($$$UCase(Naam_"."_Extensie),"#","_") . Write !,Naam . Quit:Naam="" . Quit:'$D(Cache(Naam)) . Set Hoogte=$$TrimEndOfText^vhLib($$TrimBeginOfText^vhLib(Cache(Naam).Hoogte)) . Set Breedte=$$TrimEndOfText^vhLib($$TrimBeginOfText^vhLib(Cache(Naam).Breedte)) . Set AspectRatio=Breedte/Hoogte . Write " ",Breedte,":",Hoogte,"->",AspectRatio . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) . Set oLink=oImg.Links.GetAt(Key) . Set oLink.Height=Hoogte . Set oLink.Width=Breedte . Set oImg.AspectRatio=AspectRatio . Set sc=oImg.%Save() . Write sc . Set TotLinkCnt=TotLinkCnt+1 &sql(CLOSE ImpPicassa) Write !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! Quit:$$$ISERR(sc) "" Quit $$$OK AddErrorToLog(Groep,Label,Status,Oms) Write Groep," ",Label," ",Status," ",Oms Quit ]]> D ##class(BL.Prod.ImageLinkImport).%New().ClearSVG() Pad %ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links WHERE Links_VisueelType="V" ) ;and Links_Pad=:ChkPad) &sql(OPEN ClearSVG) For &sql(FETCH ClearSVG) Quit:SQLCODE Do . Write:(..OutputToScreen) "DelSVG ",ImgID," ",Pad," ",Naam,! . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) . Do oImg.Links.RemoveAt("V") ; Vectorieel . Set sc=oImg.%Save() &sql(CLOSE ClearSVG) ]]> D ##class(BL.Prod.ImageLinkImport).%New().AddSVG("//Notes01/Images/Blum/P/") Dir,KillFirst %ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links WHERE Links_VisueelType="P") &sql(OPEN AddSVG) For &sql(FETCH AddSVG) Quit:SQLCODE Do . Set Cache("IL",Naam,ImgID)="" . ;Write:$P(ImgID,"||",2)=231552 "found:",ImgID," ",Naam,! &sql(CLOSE AddSVG) ;r k ;k %SVG m %SVG=Cache("IL") zw %SVG r k ; Lookup exisiting images &sql(DECLARE HasSVG CURSOR FOR SELECT ImageLink->%ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links WHERE Links_VisueelType="V" and Links_Extensie="SVG") &sql(OPEN HasSVG) For &sql(FETCH HasSVG) Quit:SQLCODE Do . Set Cache("HASSVG",ImgID)="" &sql(CLOSE HasSVG) ;k %SVG m %SVG=Cache("HASSVG") zw %SVG ; add to existing Set Naam="" For Set Naam=$O(Cache("SVG",Naam)) Quit:Naam="" Do ;Quit:$G(SVGCnt)>9 . Set ImgID="" . Set MemProdCnt=+$g(ProdCnt) . For Set ImgID=$O(Cache("IL",Naam,ImgID)) Quit:ImgID="" Do . . If $D(Cache("HASSVG",ImgID)) Do . . . ;Write:(..OutputToScreen) !,"SVG bestaat reeds ",Naam," ",ImgID . . Else Do . . . ;Write:(..OutputToScreen) !,"Add ",Naam," ",ImgID . . . Set ProdCnt=$G(ProdCnt)+1 . . . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) . . . Do oImg.AddLink("V",ImgPad,Naam,0,"SVG") ; Vectorieel . . . Set sc=oImg.%Save() . . . Write:(sc'=1)&&(..OutputToScreen) Naam," ",ImgID," ",$$ParseStatus^vhLib(sc),! . If +MemProdCnt<+$G(ProdCnt) Do . . Set SVGCnt=$G(SVGCnt)+1 . . Write:(..OutputToScreen) !,"Add ",Naam . Else . . Write:(..OutputToScreen) !,"SVG bestaat reeds ",Naam Write:(..OutputToScreen) !,"Aantal SVG: ",$G(SVGCnt) Write:(..OutputToScreen) !,"Aantal Prod: ",$G(ProdCnt),! ;Write:(..OutputToScreen) !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! Quit:$$$ISERR(sc) "" Quit $$$OK AddErrorToLog(Groep,Label,Status,Oms) Write:(..OutputToScreen) Groep," ",Label," ",Status," ",Oms Quit ]]> Het Blum beeld vervangen door het #VH beeld Routine laten lopen vóór method AddSVG !!!! D ##class(BL.Prod.ImageLinkImport).%New().ReplaceWithVHImage() %ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links WHERE Links_VisueelType="P") &sql(OPEN RplVHImg) For &sql(FETCH RplVHImg) Quit:SQLCODE Do . Quit:$E(Naam,$L(Naam)-1,$L(Naam))="VH" ; reeds VH versie . Set $E(Naam,$L(Naam))="H" ; VH EPS . Set Cache("IL",Naam,ImgID)="" ; k %VH m %VH=Cache("VH") zw %VH &sql(CLOSE RplVHImg) ; add to existing Set Naam="" For Set Naam=$O(Cache("VH",Naam)) Quit:Naam="" Do . Set ImgID="" . For Set ImgID=$O(Cache("IL",Naam,ImgID)) Quit:ImgID="" Do . . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) . . Write "Rpl ", Naam," ",ImgID,! . . For Node="P","T","W" Do . . . Set oLink=oImg.Links.GetAt(Node) . . . Set oLink.BestandsNaam=Naam . . Set sc=oImg.%Save() ;Write !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! Quit:$$$ISERR(sc) "" Quit $$$OK AddErrorToLog(Groep,Label,Status,Oms) Write Groep," ",Label," ",Status," ",Oms Quit ]]> D ##class(BL.Prod.ImageLinkImport).%New().ReadScaleFactor() 1 0 .7):",ScaleFactor . Quit:'ScaleFactor . Set IDNr=$$TRIMIDENT^vhRtn1(IDNr)_" " ;[IDENT] CW . Set PRNr=$P($G(^KPR2(IDNr)),"\") . Write !,PRNr," ",$P(^KPR(PRNr,0),"\") . Do bl.GetImagesForScaleFactor(PRNr,"PB",ScaleFactor/100) ]]> PRNr:%Integer,FunctieType:%String,ScaleFactor:%Float %ID,Element_Key, Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links WHERE Links_VisueelType="P" and ImageLink->ObjType="PR" and ImageLink->ObjRef=:PRNr and ImageLink->FunctieType=:FunctieType) &sql(OPEN GetImgScale) For &sql(FETCH GetImgScale) Quit:SQLCODE Do . Do ..SetScaleFactor(Naam,FunctieType,ScaleFactor) &sql(CLOSE GetImgScale) ]]> D ##class(BL.Prod.ImageLinkImport).%New().SetScaleFactor() ImageName:%String,FunctieType:%String,ScaleFactor:%Float %ID,Element_Key, Links_Extensie,Links_Pad, Links_BestandsNaam, ImageLink->ScaleFactor INTO :ImgID,:Key,:Extensie,:Pad,:Naam,:OldScale FROM Res.ImageLink_Links WHERE Links_VisueelType="P" and Links_BestandsNaam=:ImageName and ImageLink->FunctieType=:FunctieType) &sql(OPEN SetScaleFactor) For &sql(FETCH SetScaleFactor) Quit:SQLCODE Do . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) . Quit:'$isObject(oImg) . If oImg.ObjType="PR" Do . . Set PRNr=oImg.ObjRef . . Write:(..OutputToScreen) !,"Set ",ImgID," ",$P(^KPR(PRNr,0),"\")," old scale:",OldScale,! . Set oImg.ScaleFactor=ScaleFactor . Set sc=oImg.%Save() . Write:($$$ISERR(sc))&&(..OutputToScreen) $$ParseStatus^vhLib(sc) &sql(CLOSE SetScaleFactor) ]]>