Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml =================================================================== diff -u -r35179 -r48460 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml (.../BladInhoudBuilderTemplate.cls.xml) (revision 35179) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml (.../BladInhoudBuilderTemplate.cls.xml) (revision 48460) @@ -344,18 +344,18 @@ #dim FopImageURL As BL.FOP.Basis.pxAttribType = blImage.GetProductImageURL(ProductID,"FOPEMBED"_$S($G(OutputType)="PS":"PS", $G(OutputType)="PDF":"PDF", 1:"")) Set Afbeelding = FopImageURL.Content } catch { - #Dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New("APPS.Halux.AansturingService") - Do Logger.ErrorMail("GeefMaatwerkProductAfbeelding", "Geef afbeelding kunnen vinden voor ProductID='" _ ProductID _ "'") + #dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch() - Do Exception.VoegToeExtraInfo( "ProductID='" _ ProductID _ "'" ) - Do ##class(TECH.ExceptionHandler).Throw(Exception) + set ExceptionStream = ##class(%GlobalCharacterStream).%New() + do ExceptionStream.WriteLine("Geen afbeelding kunnen vinden voor ProductId='" _ ProductID _ "' er werd gedefault naar een 'afbeelding ontbrekend'-afbeelding") + do ExceptionStream.WriteLine("") + do ExceptionStream.WriteLine(Exception.ToString()) + do ##class(vhLib.Logger).%New().Warning("GeefMaatwerkProductAfbeelding", ExceptionStream ) + + set Afbeelding = "file://Notes01/Images/NoImageAvailable.jpg" } Quit Afbeelding - - ;Quit blImage.GetProductImageURL(ProductID,"FOPEMBED"_$S($G(OutputType)="PS":"PS", $G(OutputType)="PDF":"PDF", 1:"")) - - ;Set ProductInfo.ProductAfbeelding=##class(BL.FOP.Basis.pxAttribType).Create(ProductieDetailBladInhoud.GeefProductAfbeeldingLogoNaam()) ]]>