APPS.PM.OL.Common 1 %RegisteredObject bevestigen voor UpdateFotoSleutelVertalingen en voor ImageLink.ImportOrgaluxViaKenmerken Oproepen via s sc=##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).VerwerkAlleProducten(flagReadOnly) w sc,! ]]> 1 flagReadOnly:%Boolean %Status Zelfde verwerking als er gebeurt na de import vanuit excel, maar dan slechts voor een lijst van UnID's. Deze method is public en kan je dus ook rechtstreeks oproepen via s sc=##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).VerwerkProducten(ListOfUnIDs,flagReadOnly) w sc,! 1 ListOfUnIDs:%ListOfDataTypes,flagReadOnly:%Boolean,BLProdMulti:BL.Kenm.ProdMulti %Status Oproepen via s sc=##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).UpdateFotoSleutelVertalingenALL() w sc,! 1 %Status 1 CheckFotoSleutelsOnly:%Boolean=1 %ListOfDataTypes "0.2" ")&&(Key'?1"0) } If FotoSleutelExists { Do FotoSleutelLijst.Insert(Key) } } } Quit FotoSleutelLijst ]]> 1 ListOfUnIDs:%ListOfDataTypes %ListOfDataTypes " --> "ViaSleutelK/BX5060GR.jpg" FotoSleutelLijst moet van het type %ListOfDataTypes zijn ("" is ongeldig) Oproepen via s sc=##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).UpdateFotoSleutelVertaling(FotoSleutelLijst) w sc,! ]]> 1 FotoSleutelLijst:%ListOfDataTypes %Status " Merge arTemplateVTL=^Res.VertalingAbstractD("PK",FotoSleutelVoorTemplate,"LB","N") Set arTemplateVTL=$G(arTemplateVTL,$LB("","")) Set FotoSleutelIterator=##class(TECH.ListIterator).%New(FotoSleutelLijst) While FotoSleutelIterator.HasNext() { Set Key=FotoSleutelIterator.Next() ;continue:($$$Trim(Key)'?1(1"",1"")) ; temp test Alleen deze specifieke intivo-producten ; Extract ImageName from Key Set ImgName=$TR($$$Trim(Key),"<>","") Set:(ImgName?1(1"AO",1"AR",1"AY").E) ImgName=$E(ImgName,1,2) ; Antislipmatten Set:(ImgName?.E1"xx") $E(ImgName,$L(ImgName)-1,99)="" Set:(ImgName?.E1"xx.ED") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65" ; voor extra diepte Set:(ImgName?.E1"xx.65") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65" ; voor extra diepte Set:(ImgName?.E1".EDGB") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65_G" ; voor extra diepte met glazen boxside Set:(ImgName?.E1".ED") ImgName=$E(ImgName,1,$L(ImgName)-3)_"_65" ; voor extra diepte Set:(ImgName?.E1".GB") ImgName=$E(ImgName,1,$L(ImgName)-3)_"_G" ; voor glazen boxside If (Key?1" "ViaSleutelK/BX5060GR.jpg" Do CreeerVertalingData(Key, "LB", "ViaSleutelK/"_ImgName_".jpg", .arTemplateVTL) Do CreeerVertalingData(Key, "LI", "ViaSleutelG/"_ImgName_".jpg", .arTemplateVTL) } Quit $$$OK CreeerVertalingData(Key,LBLI,FotoLocation,arTemplateVTL) ; arTemplateVTL als .local doorgeven Set lbVTL=arTemplateVTL ; Alleen data op de hoofdnode is een $LB() Set $LI(lbVTL,2)=FotoLocation For Taal="N","F","D","E" Do:($LG($G(^Res.VertalingAbstractD("PK",Key,LBLI,Taal)),2)="") Quit:(Taal="STOP") . If $$$Not(##class(%File).Exists($$$OLPath_$$$Replace(FotoLocation,"/","\"))) Do Quit . . Set Taal="STOP" . . Set msg=Key_" File not exist "_($$$OLPath_$$$Replace(FotoLocation,"/","\")) . . d WL^vhDBG(msg) . . Write msg,! . ; Else . Merge ^Res.VertalingAbstractD("PK",Key,LBLI,Taal)=arTemplateVTL . Set ^Res.VertalingAbstractD("PK",Key,LBLI,Taal)=lbVTL . d:(Taal="N") WL^vhDBG($$$LCVT($Na(^Res.VertalingAbstractD("PK",Key,LBLI,Taal))_"="_^Res.VertalingAbstractD("PK",Key,LBLI,Taal))) . d:(Taal'="N") WL^vhDBG(Taal) Quit ]]>