From 05bf06d1e2562d259aa3bf0580d5a021a4f053f9 Mon Sep 17 00:00:00 2001 From: Demetrio Cassarino Date: Wed, 10 Apr 2024 16:30:26 +0200 Subject: [PATCH] - aggiunta immagine non presente --- EgtBEAMWALL.ViewerOptimizer/MainMenu/MainMenuVM.vb | 4 ++-- EgtBEAMWALL.ViewerOptimizer/Statistics/PDFHelper.vb | 9 ++++++++- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/EgtBEAMWALL.ViewerOptimizer/MainMenu/MainMenuVM.vb b/EgtBEAMWALL.ViewerOptimizer/MainMenu/MainMenuVM.vb index 38d4b4aa..11b0ca22 100644 --- a/EgtBEAMWALL.ViewerOptimizer/MainMenu/MainMenuVM.vb +++ b/EgtBEAMWALL.ViewerOptimizer/MainMenu/MainMenuVM.vb @@ -566,8 +566,8 @@ Public Class MainMenuVM Map.refProjectVM.SetOnlyProdOptimizePanel_Visibility(True) Map.refProjectVM.SetOptimizePanel_Visibility(True) Map.refProjectVM.NotifyAllPanelVisibility() - 'Map.refCALCPanelVM.SetChooseMachineBtn_Visibility(Map.refMainMenuVM.SelPage = Pages.NEWPAGE AndAlso Map.refMachinePanelVM.MachineList.Count > 1 AndAlso GetMainPrivateProfileInt(S_MACH, K_CHANGEMACH, 0) = 1) - Map.refCALCPanelVM.SetChooseMachineBtn_Visibility(True) + Map.refCALCPanelVM.SetChooseMachineBtn_Visibility(Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso Map.refMachinePanelVM.MachineList.Count > 1 AndAlso GetMainPrivateProfileInt(S_MACH, K_CHANGEMACH, 0) = 1) + 'Map.refCALCPanelVM.SetChooseMachineBtn_Visibility(True) Map.refStatisticsTimePanelVM.SetStatisticsTimePanel_Visibility() If Not IsNothing(Map.refFeatureListVM.colFeature_Do) Then diff --git a/EgtBEAMWALL.ViewerOptimizer/Statistics/PDFHelper.vb b/EgtBEAMWALL.ViewerOptimizer/Statistics/PDFHelper.vb index 221a1cae..9592189b 100644 --- a/EgtBEAMWALL.ViewerOptimizer/Statistics/PDFHelper.vb +++ b/EgtBEAMWALL.ViewerOptimizer/Statistics/PDFHelper.vb @@ -8,6 +8,7 @@ Imports System.Collections.ObjectModel Imports PdfSharp.Drawing Imports MigraDoc.DocumentObjectModel.Shapes Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Header +Imports System.IO Module PDFHelper @@ -811,7 +812,13 @@ Module PDFHelper Private Sub CreateRawPartImage(section As Section, sMachGroupList As ExpanderTable, RawPartId As Integer, RawPartName As String, bPreview As Boolean) ' creo immagine - Dim sImagePath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\Image" & RawPartId & ".png" + 'Dim sImagePath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\Image" & RawPartId & ".png" + Dim sImagePath As String = String.Empty + If File.Exists(Map.refMainWindowVM.MainWindowM.sTempDir & "\Image" & RawPartId & ".png") Then + sImagePath = Map.refMainWindowVM.MainWindowM.sTempDir & "\Image" & RawPartId & ".png" + Else + sImagePath = Map.refMainWindowVM.MainWindowM.sTempDir & "\ImageNotFound.png" + End If If bPreview Then EgtSetCurrMachGroup(RawPartId) Core.ViewPanelVM.BWSetView(If(Core.ViewPanelVM.Type = BWType.BEAM, VT.FRONT, VT.TOP), False)