sistemato pdfhelper

This commit is contained in:
Demetrio Cassarino
2024-01-10 14:24:34 +01:00
parent 2de010d596
commit 3646c5832c
3 changed files with 16 additions and 9 deletions
@@ -1,9 +1,8 @@
<DockPanel x:Class="ConfigurationPageV"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Core;assembly=EgtBEAMWALL.Core">
xmlns:EgtBEAMWALLCORE="clr-namespace:EgtBEAMWALL.Core;assembly=EgtBEAMWALL.Core"
xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.ViewerOptimizer">
<Grid>
<Grid.ColumnDefinitions>
@@ -72,6 +71,7 @@
<EgtBEAMWALL:PDFEditorV/>
</TabItem.Content>
</TabItem>
</TabControl>
<!--<Button Command="{Binding SaveCommand}"
@@ -64,6 +64,11 @@ Module PDFHelper
document.Info.Subject = "Production statistics of the project"
document.Info.Author = "EgtBEAMWALL"
DefineStyles(document)
'Logo
Dim section As Section = document.AddSection()
document.DefaultPageSetup.DifferentFirstPageHeaderFooter = True
Dim sImageLogo As String = Map.refMainWindowVM.MainWindowM.sTempDir & "/Image" & "Logo landscape" & ".png"
DefineLogo(section, sImageLogo)
'Select Case ActivePage
' Case Pages.VIEW
' DefinePartTotals(document)
@@ -78,14 +83,14 @@ Module PDFHelper
'End Select
If ActivePage = Pages.VIEW OrElse (ActivePage = Pages.ONLYPRODPAGE AndAlso Map.refInstrumentPanelVM.bVisOtt_Selected = False) Then
DefinePartTotals(document)
DefineItemList(document, ListTypes.PART)
DefinePartTotals(document, section, bPreview)
DefineItemList(document, ListTypes.PART, bPreview)
ElseIf ActivePage = Pages.MACHINING OrElse (ActivePage = Pages.ONLYPRODPAGE AndAlso Map.refInstrumentPanelVM.bVisOtt_Selected) Then
DefineMachGroupTotals(document)
DefineItemList(document, ListTypes.MACHGROUP)
DefineItemList(document, ListTypes.RAWPART)
DefineMachGroupTotals(document, section, bPreview)
DefineItemList(document, ListTypes.MACHGROUP, bPreview)
DefineItemList(document, ListTypes.RAWPART, bPreview)
If True Then
DefineRawPartPictures(document)
CreateRawPartPages(document, bPreview)
End If
End If
@@ -381,6 +381,8 @@ Public Class StatisticsVM
#End Region ' PrintPDF
#Region "COMMANDS"
#Region "Ok"
Public ReadOnly Property Ok_Command As ICommand