Emmanuele Sassi
1031 lines
56 KiB
VB.net
1031 lines
56 KiB
VB.net
Imports MigraDoc.DocumentObjectModel
|
|
Imports MigraDoc.DocumentObjectModel.Shapes.Charts
|
|
Imports MigraDoc.DocumentObjectModel.Tables
|
|
Imports EgtBEAMWALL.Core
|
|
Imports EgtBEAMWALL.Core.ConstGen
|
|
Imports EgtUILib
|
|
Imports System.Collections.ObjectModel
|
|
Imports MigraDoc.DocumentObjectModel.Shapes
|
|
Imports System.IO
|
|
|
|
Module PDFHelper
|
|
|
|
Friend Enum ListTypes As Integer
|
|
PART = 1
|
|
MACHGROUP = 2
|
|
RAWPART = 3
|
|
MACHGROUPTOT = 4
|
|
PART_LIST = 5
|
|
PART_TOT = 6
|
|
End Enum
|
|
|
|
Private m_TestText As String = "Testo di prova per testare MigraDoc nuget package"
|
|
Private m_TestMediumText As String = "Testo di prova MEDIO per testare MigraDoc nuget package"
|
|
Private m_TestShortText As String = "Testo di prova CORTO"
|
|
|
|
Public Function CreateStatReport(ActivePage As Pages, bPreview As Boolean) As Document
|
|
' creo nuovo documento MigraDoc
|
|
Dim document As New Document()
|
|
Dim Project As ProjectFileVM
|
|
|
|
If ActivePage = Pages.VIEW OrElse (ActivePage = Pages.ONLYPRODPAGE AndAlso Map.refInstrumentPanelVM.bVisOtt_Selected = False) Then
|
|
Project = ProjectManagerVM.CurrProj
|
|
document.Info.Title = Project.sProjId & " - " & Project.BTLFileName_Msg & " - Statistics"
|
|
ElseIf ActivePage = Pages.MACHINING OrElse (ActivePage = Pages.ONLYPRODPAGE AndAlso Map.refInstrumentPanelVM.bVisOtt_Selected) Then
|
|
If ActivePage = Pages.CONFIG Then
|
|
Project = ProjectManagerVM.CurrProj
|
|
document.Info.Title = Project.sProjId & " - " & Project.BTLFileName_Msg & " - Statistics"
|
|
ElseIf ActivePage = Pages.ONLYPRODPAGE Then
|
|
Project = ProjectManagerVM.CurrProd
|
|
document.Info.Title = Project.sProdId & " - " & Project.ListName_Msg & " - Statistics"
|
|
End If
|
|
End If
|
|
|
|
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)
|
|
|
|
If ActivePage = Pages.VIEW OrElse (ActivePage = Pages.ONLYPRODPAGE AndAlso Map.refInstrumentPanelVM.bVisOtt_Selected = False) Then
|
|
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, section, bPreview)
|
|
DefineItemList(document, ListTypes.MACHGROUP, bPreview)
|
|
DefineItemList(document, ListTypes.RAWPART, bPreview)
|
|
If True Then
|
|
CreateRawPartPages(document, bPreview)
|
|
End If
|
|
End If
|
|
|
|
Return document
|
|
End Function
|
|
|
|
Public Sub DefinePartTotals(document As Document, section As Section, bPreview As Boolean)
|
|
Dim pgSetup As PageSetup = document.DefaultPageSetup.Clone()
|
|
pgSetup.Orientation = Orientation.Landscape
|
|
section.PageSetup = pgSetup
|
|
Dim paragraph As Paragraph = section.AddParagraph(EgtMsg(61734) & "s", "Heading2")
|
|
paragraph.Format.SpaceBefore = "3.5cm"
|
|
Dim sPartTot As ExpanderPDF = Map.refPDFEditorVM.ExpanderList.FirstOrDefault(Function(x) x.sNameCategory = EgtMsg(61734)) ' Recupero lista Part Totals
|
|
Dim sBTLTotParts As ExpanderElement = sPartTot.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61716)) ' Recupero Numero totale pezzi con relativo checkbox
|
|
Dim sBTLTotVolume As ExpanderElement = sPartTot.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61717)) ' Recupero Volume totale con relativo checkbox
|
|
Dim sBTLTotTime As ExpanderElement = sPartTot.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61718)) ' Recupero Tempo totale con relativo checkbox
|
|
Dim sBTLRemainingTime As ExpanderElement = sPartTot.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61720)) ' Recupero Tempo rimanente con relativo checkbox
|
|
If sBTLTotParts.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.BTLTotParts_Msg & If(Not bPreview, Map.refProjectVM.BTLStructureVM.sBTLTotParts, "127"))
|
|
If sBTLTotVolume.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.BTLTotVolume_Msg & If(Not bPreview, Map.refProjectVM.BTLStructureVM.sBTLTotVolume, "9.156"))
|
|
If sBTLTotTime.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.BTLTotTime_Msg & If(Not bPreview, Map.refProjectVM.BTLStructureVM.sBTLTotTime, "00:01:55"))
|
|
If sBTLRemainingTime.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.BTLRemainingTime_Msg & If(Not bPreview, Map.refProjectVM.BTLStructureVM.sBTLRemainingTime, "00:01:55"))
|
|
End Sub
|
|
|
|
Public Sub DefineMachGroupTotals(ByVal document As Document, section As Section, bPreview As Boolean)
|
|
' cambio orientamento a orizzontale
|
|
Dim pgSetup As PageSetup = document.DefaultPageSetup.Clone()
|
|
pgSetup.Orientation = Orientation.Landscape
|
|
section.PageSetup = pgSetup
|
|
Dim paragraph As Paragraph = section.AddParagraph(EgtMsg(61729), "Heading2")
|
|
paragraph.Format.SpaceBefore = "3.5cm"
|
|
Dim sMachGroup As ExpanderPDF = Map.refPDFEditorVM.ExpanderList.FirstOrDefault(Function(x) x.sNameCategory = EgtMsg(61729)) ' Recupero lista Machgroup Totals
|
|
Dim sNumberBlanks As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61721)) ' Recupero Numero di grezzi con relativo checkbox
|
|
Dim sTotalVolume As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61717)) ' Recupero Volume totale con relativo checkbox
|
|
Dim sEstimatedTotalTime As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61719)) ' Recupero Tempo totale stimato con relativo checkbox
|
|
Dim sTotalTime As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61718)) ' Recupero Tempo totale con relativo checkbox
|
|
Dim sRemainingTime As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61720)) ' Recupero Tempo rimanente con relativo checkbox
|
|
Dim sNumberPiecesBLT As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61722)) ' Recupero Numero di pezzi da BTL con relativo checkbox
|
|
Dim sNumberPiecesAdded As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61723)) ' Recupero Numero di pezzi aggiunti con relativo checkbox
|
|
Dim sNumberPiecesInsertedBlanks As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61724)) ' Recupero Numero di pezzi inseriti nei grezzi con relativo checkbox
|
|
Dim sNumberPiecesCompleted As ExpanderElement = sMachGroup.ExpanderElementList.FirstOrDefault(Function(x As ExpanderElement) x.sNameParameter = EgtMsg(61725)) ' Recupero Numero di pezzi completati con relativo checkbox
|
|
If sNumberBlanks.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.TotMachGroups_Msg & If(Not bPreview, Map.refProjectVM.MachGroupPanelVM.sTotMachGroups, "11"))
|
|
If sTotalVolume.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.BTLTotVolume_Msg & If(Not bPreview, Map.refProjectVM.MachGroupPanelVM.sTotVolume, "3.168"))
|
|
If sEstimatedTotalTime.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.BTLTotEstimatedTime_Msg & If(Not bPreview, Map.refProjectVM.MachGroupPanelVM.sTotEstimatedTime, "00:22:30"))
|
|
If sTotalTime.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.BTLTotTime_Msg & If(Not bPreview, Map.refProjectVM.MachGroupPanelVM.sTotTime, "00:09:23"))
|
|
If sRemainingTime.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.BTLRemainingTime_Msg & If(Not bPreview, Map.refProjectVM.MachGroupPanelVM.sRemainingTime, "00:09:23"))
|
|
If sNumberPiecesBLT.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.TotCNTParts_Msg & If(Not bPreview, Map.refProjectVM.BTLStructureVM.sTotCNTParts, "127"))
|
|
If sNumberPiecesAdded.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.TotADDEDParts_Msg & If(Not bPreview, Map.refProjectVM.BTLStructureVM.sTotADDEDParts, "0"))
|
|
If sNumberPiecesInsertedBlanks.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.TotINPRODParts_Msg & If(Not bPreview, Map.refProjectVM.BTLStructureVM.sTotINPRODParts, "69"))
|
|
If sNumberPiecesCompleted.bParameter_IsChecked Then paragraph = section.AddParagraph(Statistic_Messages.TotDONEParts_Msg & If(Not bPreview, Map.refProjectVM.BTLStructureVM.sTotDONEParts, "5"))
|
|
End Sub
|
|
|
|
Public Sub DefineItemList(ByVal document As Document, nListType As ListTypes, bPreview As Boolean)
|
|
document.DefaultPageSetup.DifferentFirstPageHeaderFooter = True
|
|
'Recupero la lista delle colonne delle tabelle
|
|
Dim sMachGroupList As ExpanderTable = Nothing
|
|
If nListType = ListTypes.MACHGROUP Then
|
|
sMachGroupList = Map.refPDFEditorVM.ExpanderList.FirstOrDefault(Function(x) x.sNameCategory = EgtMsg(61730)).ExpanderElementList.FirstOrDefault() ' Lista Tabella MachGroup List
|
|
ElseIf nListType = ListTypes.RAWPART Then
|
|
sMachGroupList = Map.refPDFEditorVM.ExpanderList.FirstOrDefault(Function(x) x.sNameCategory = EgtMsg(61732)).ExpanderElementList.FirstOrDefault() ' Lista Tabella Raw Part List
|
|
ElseIf nListType = ListTypes.PART Then
|
|
sMachGroupList = Map.refPDFEditorVM.ExpanderList.FirstOrDefault(Function(x) x.sNameCategory = EgtMsg(61733)).ExpanderElementList.FirstOrDefault() ' Lista Tabella Part List
|
|
End If
|
|
Dim sName As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_NAME) ' Recupero colonna 'colName' con relativo checkbox
|
|
Dim sW As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_W) ' Recupero colonna 'colW' con relativo checkbox
|
|
Dim sH As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_H) ' Recupero colonna 'colH' con relativo checkbox
|
|
Dim sL As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_L) ' Recupero colonna 'colL' con relativo checkbox
|
|
Dim sMaterial As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_MATERIAL) ' Recupero colonna 'colMaterial' con relativo checkbox
|
|
Dim sUsage As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_USAGE) ' Recupero colonna 'colUsage' con relativo checkbox
|
|
Dim sWaste As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_WASTE) ' Recupero colonna 'colWaste' con relativo checkbox
|
|
Dim sUTime As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_UNITTIME) ' Recupero colonna 'colUnitTime' con relativo checkbox
|
|
Dim sQty As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_QTY) ' Recupero colonna 'colQuantity' con relativo checkbox
|
|
Dim sPDN As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_PDN) ' Recupero colonna 'colPDN' con relativo checkbox
|
|
Dim sDesc As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_DESC) ' Recupero colonna 'colDescription' con relativo checkbox
|
|
Dim sCNT As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_CNT) ' Recupero colonna 'colCNT' con relativo checkbox
|
|
Dim sAdded As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_ADDED) ' Recupero colonna 'colAdded' con relativo checkbox
|
|
Dim sDone As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_DONE) ' Recupero colonna 'colDone' con relativo checkbox
|
|
Dim sUVolume As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_UNITVOLUME) ' Recupero colonna 'colUnitVolume' con relativo checkbox
|
|
Dim sTVolume As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_TOTVOLUME) ' Recupero colonna 'colTotVolume' con relativo checkbox
|
|
Dim sTTime As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_TOTTIME) ' Recupero colonna 'colTotTime' con relativo checkbox
|
|
Dim sINProd As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_INPROD) ' Recupero colonna 'colInProd' con relativo checkbox
|
|
Dim section As Section = document.LastSection()
|
|
DefineItem(document, nListType, bPreview, sMachGroupList, sName, sW, sH, sL, sMaterial, sUsage, sWaste, sUTime, sQty, sPDN, sDesc, sCNT, sAdded, sDone, sUVolume, sTVolume, sTTime, sINProd, section)
|
|
End Sub
|
|
|
|
Private Sub DefineItem(document As Document, nListType As ListTypes, bPreview As Boolean, sMachGroupList As ExpanderTable, sName As EgtDataGridColumn, sW As EgtDataGridColumn, sH As EgtDataGridColumn, sL As EgtDataGridColumn, sMaterial As EgtDataGridColumn, sUsage As EgtDataGridColumn, sWaste As EgtDataGridColumn, sUTime As EgtDataGridColumn, sQty As EgtDataGridColumn, sPDN As EgtDataGridColumn, sDesc As EgtDataGridColumn, sCNT As EgtDataGridColumn, sAdded As EgtDataGridColumn, sDone As EgtDataGridColumn, sUVolume As EgtDataGridColumn, sTVolume As EgtDataGridColumn, sTTime As EgtDataGridColumn, sINProd As EgtDataGridColumn, section As Section)
|
|
Dim countItemList As Integer
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
section.AddParagraph(EgtMsg(61733), "Heading2")
|
|
Case ListTypes.MACHGROUP
|
|
section.AddParagraph(EgtMsg(61730), "Heading2")
|
|
Case ListTypes.RAWPART
|
|
section.AddParagraph(EgtMsg(61732), "Heading2")
|
|
End Select
|
|
Dim table As New Table()
|
|
table.Borders.Width = 0.75
|
|
' ciclo sulle colonne per creare la tabella e riempirne i campi
|
|
' -2 -> creo colonne
|
|
' -1 -> riempio colonne della riga degli header
|
|
' >=0 -> riempio le colonne con i valori dei pezzi
|
|
Dim Itemlist As IEnumerable(Of Object) = Nothing
|
|
' Controllo se bPreview è true mostra il PDF di preview se no il PDF completo
|
|
If bPreview Then
|
|
Itemlist = New List(Of Object)
|
|
Else
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
Itemlist = Map.refProjectVM.BTLStructureVM.BTLPartVMList
|
|
Case ListTypes.MACHGROUP
|
|
Itemlist = Map.refProjectVM.MachGroupPanelVM.MachGroupVMList
|
|
Case ListTypes.RAWPART
|
|
If Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then Map.refStatisticsVM.LoadRawPart()
|
|
Itemlist = Map.refStatisticsVM.RawPartList
|
|
End Select
|
|
End If
|
|
countItemList = If(bPreview, Itemlist.Count, Itemlist.Count - 1)
|
|
|
|
For PartIndex = -2 To countItemList
|
|
Dim BTLPartVM As BTLPartVM = Nothing
|
|
Dim MachGroupVM As MyMachGroupVM = Nothing
|
|
Dim RawPart As SParam = Nothing
|
|
Dim row As Row = Nothing
|
|
If PartIndex <> -2 Then
|
|
' aggiungo riga
|
|
row = table.AddRow()
|
|
End If
|
|
If PartIndex = -1 Then
|
|
' imposto la riga come header che si ripetera' all'inizio di ogni pagina
|
|
row.HeadingFormat = True
|
|
' coloro sfondo riga degli header
|
|
row.Shading.Color = Colors.Aqua
|
|
ElseIf PartIndex >= 0 Then
|
|
If bPreview Then
|
|
' recupero elemento della riga
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
BTLPartVM = Nothing
|
|
Case ListTypes.MACHGROUP
|
|
MachGroupVM = Nothing
|
|
Case ListTypes.RAWPART
|
|
RawPart = Nothing
|
|
End Select
|
|
Else
|
|
' recupero elemento della riga
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
BTLPartVM = Map.refProjectVM.BTLStructureVM.BTLPartVMList(PartIndex)
|
|
Case ListTypes.MACHGROUP
|
|
MachGroupVM = Map.refProjectVM.MachGroupPanelVM.MachGroupVMList(PartIndex)
|
|
Case ListTypes.RAWPART
|
|
RawPart = Map.refStatisticsVM.RawPartList(PartIndex)
|
|
End Select
|
|
End If
|
|
End If
|
|
Dim Columnlist As ObservableCollection(Of EgtDataGridColumn) = Nothing
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
Columnlist = sMachGroupList.RawPartColumns
|
|
Case ListTypes.MACHGROUP
|
|
Columnlist = sMachGroupList.RawPartColumns
|
|
Case ListTypes.RAWPART
|
|
Columnlist = sMachGroupList.RawPartColumns
|
|
End Select
|
|
For ColumnIndex = 0 To Columnlist.Count - 1
|
|
Select Case Columnlist(ColumnIndex).Name
|
|
Case COL_PDN
|
|
If sPDN.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(1))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.PDN_Msg)
|
|
ElseIf nListType = ListTypes.PART Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 1, BTLPartVM.nPDN))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_ID
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(1.5))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Map.refStatisticsVM.ID_Msg)
|
|
ElseIf nListType = ListTypes.MACHGROUP Then
|
|
row.Cells(ColumnIndex).AddParagraph(MachGroupVM.Id)
|
|
End If
|
|
Case COL_W
|
|
If sW.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
table.AddColumn(Unit.FromCentimeter(1))
|
|
Case ListTypes.MACHGROUP, ListTypes.RAWPART
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
End Select
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.W_Msg)
|
|
ElseIf bPreview Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, 200, 120))
|
|
Else
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
row.Cells(ColumnIndex).AddParagraph(BTLPartVM.sW)
|
|
Case ListTypes.MACHGROUP
|
|
row.Cells(ColumnIndex).AddParagraph(MachGroupVM.dW)
|
|
Case ListTypes.RAWPART
|
|
row.Cells(ColumnIndex).AddParagraph(RawPart.sW)
|
|
End Select
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_H
|
|
If sH.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
table.AddColumn(Unit.FromCentimeter(1))
|
|
Case ListTypes.MACHGROUP, ListTypes.RAWPART
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
End Select
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.H_Msg)
|
|
ElseIf bPreview Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, 360, 160))
|
|
Else
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
row.Cells(ColumnIndex).AddParagraph(BTLPartVM.sH)
|
|
Case ListTypes.MACHGROUP
|
|
row.Cells(ColumnIndex).AddParagraph(MachGroupVM.dH)
|
|
Case ListTypes.RAWPART
|
|
row.Cells(ColumnIndex).AddParagraph(RawPart.sH)
|
|
End Select
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_L
|
|
If sL.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
table.AddColumn(Unit.FromCentimeter(1.6))
|
|
Case ListTypes.MACHGROUP, ListTypes.RAWPART
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
End Select
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.L_Msg)
|
|
ElseIf bPreview Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, 6672.6, 15000))
|
|
Else
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
row.Cells(ColumnIndex).AddParagraph(BTLPartVM.sL)
|
|
Case ListTypes.MACHGROUP
|
|
row.Cells(ColumnIndex).AddParagraph(MachGroupVM.dL)
|
|
Case ListTypes.RAWPART
|
|
row.Cells(ColumnIndex).AddParagraph(RawPart.sL)
|
|
End Select
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_DESC
|
|
If sDesc.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(4))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.NAM_Msg)
|
|
ElseIf bPreview Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, "Arc.in salita smussato", 1))
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, BTLPartVM.sNAM, MachGroupVM.nName))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_NAME
|
|
If sName.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(4))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.NAM_Msg)
|
|
ElseIf bPreview Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, "Arc.in salita smussato", 1))
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, BTLPartVM.sNAM, MachGroupVM.nName))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_MATERIAL
|
|
If sMaterial.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.MAT_Msg)
|
|
ElseIf bPreview Then
|
|
row.Cells(ColumnIndex).AddParagraph("GL24h")
|
|
Else
|
|
Select Case nListType
|
|
Case ListTypes.PART
|
|
row.Cells(ColumnIndex).AddParagraph(BTLPartVM.sMATERIAL)
|
|
Case ListTypes.MACHGROUP
|
|
row.Cells(ColumnIndex).AddParagraph(MachGroupVM.sMATERIAL)
|
|
Case ListTypes.RAWPART
|
|
row.Cells(ColumnIndex).AddParagraph(RawPart.sMaterial)
|
|
End Select
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_CNT
|
|
If sCNT.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(1.6))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.CNT_Msg)
|
|
ElseIf nListType = ListTypes.PART Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 1, BTLPartVM.sCNT))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_ADDED
|
|
If sAdded.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(1.5))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.ADDED_Msg)
|
|
ElseIf nListType = ListTypes.PART Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 0, BTLPartVM.sADDED))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_INPROD
|
|
If sINProd.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2.5))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.INPROD_Msg)
|
|
ElseIf nListType = ListTypes.PART Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 0, BTLPartVM.nINPROD))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_DONE
|
|
If sDone.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(1.5))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.DONE_Msg)
|
|
ElseIf nListType = ListTypes.PART Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 0, BTLPartVM.nDONE))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_USAGE
|
|
If sUsage.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.Used_Msg)
|
|
ElseIf nListType = ListTypes.MACHGROUP Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 99.719, MachGroupVM.sUsage))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_WASTE
|
|
If sWaste.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.Waste_Msg)
|
|
ElseIf nListType = ListTypes.MACHGROUP Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 0.5, MachGroupVM.sWaste))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_UNITVOLUME
|
|
If sUVolume.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(If(nListType = ListTypes.PART, Unit.FromCentimeter(1.5), Unit.FromCentimeter(2)))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.UNIT_VOLUME_Msg)
|
|
ElseIf bPreview Then
|
|
row.Cells(ColumnIndex).AddParagraph(0.48)
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, BTLPartVM.sUnitVolume, MachGroupVM.dUnitVolume))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_TOTVOLUME
|
|
If sTVolume.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(1.5))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.TOT_VOLUME_Msg)
|
|
ElseIf nListType = ListTypes.PART Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 0.48, BTLPartVM.sTotVolume))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_UNITTIME
|
|
If sUTime.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2.2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.UNIT_TIME_Msg)
|
|
ElseIf bPreview Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, "00:00:00", "00:13:07"))
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(nListType = ListTypes.PART, BTLPartVM.sUnitTime, MachGroupVM.sUnitTime))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_TOTTIME
|
|
If sTTime.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.TOT_TIME_Msg)
|
|
ElseIf nListType = ListTypes.PART Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, "00:00:00", BTLPartVM.sTotTime))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_QTY
|
|
If sQty.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.QTY_Msg)
|
|
ElseIf nListType = ListTypes.RAWPART Then
|
|
row.Cells(ColumnIndex).AddParagraph(If(bPreview, 11, RawPart.nQuantity))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
End Select
|
|
Next
|
|
Next
|
|
' aggiungo tabella all'ultima sezione
|
|
document.LastSection.Add(table)
|
|
End Sub
|
|
|
|
Public Sub CreateRawPartPages(ByVal document As Document, bPreview As Boolean)
|
|
document.DefaultPageSetup.DifferentFirstPageHeaderFooter = False
|
|
'Recupero la lista delle colonne delle tabelle
|
|
Dim sMachGroupList As ExpanderTable = Map.refPDFEditorVM.ExpanderList.FirstOrDefault(Function(x) x.sNameCategory = EgtMsg(61731)).ExpanderElementList.FirstOrDefault() ' Lista Tabella Raw Part
|
|
Dim sPDN As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_PDN) ' Recupero colonna 'colPDN' con relativo checkbox
|
|
Dim sW As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_W) ' Recupero colonna 'colW' con relativo checkbox
|
|
Dim sH As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_H) ' Recupero colonna 'colH' con relativo checkbox
|
|
Dim sL As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_L) ' Recupero colonna 'colL' con relativo checkbox
|
|
Dim sDesc As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_DESC) ' Recupero colonna 'colDescription' con relativo checkbox
|
|
Dim sMaterial As EgtDataGridColumn = sMachGroupList.RawPartColumns.FirstOrDefault(Function(x) x.Name = COL_MATERIAL) ' Recupero colonna 'colMaterial' con relativo checkbox
|
|
Dim nOrigMachGroupId As Integer = EgtGetCurrMachGroup()
|
|
' Controllo se bPreview è true mostra il PDF di preview se no il PDF completo
|
|
If bPreview Then
|
|
CreateRawPartPage(document, sMachGroupList, sPDN, sW, sH, sL, sDesc, sMaterial, Nothing, bPreview)
|
|
Else
|
|
For Each RawPart As MyMachGroupVM In Map.refProjectVM.MachGroupPanelVM.MachGroupVMList
|
|
CreateRawPartPage(document, sMachGroupList, sPDN, sW, sH, sL, sDesc, sMaterial, RawPart, bPreview)
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CreateRawPartPage(document As Document, sMachGroupList As ExpanderTable, sPDN As EgtDataGridColumn, sW As EgtDataGridColumn, sH As EgtDataGridColumn, sL As EgtDataGridColumn, sDesc As EgtDataGridColumn, sMaterial As EgtDataGridColumn, RawPart As MyMachGroupVM, bPreview As Boolean)
|
|
Dim section As Section = document.AddSection()
|
|
' cambio orientamento a verticale
|
|
Dim pgSetup As PageSetup = document.DefaultPageSetup.Clone()
|
|
pgSetup.Orientation = Orientation.Landscape
|
|
section.PageSetup = pgSetup
|
|
Dim PartVMList As IEnumerable(Of Object)
|
|
Dim countPartVMList As Integer
|
|
If IsNothing(RawPart) Then
|
|
PartVMList = New List(Of Object)
|
|
CreateRawPartImage(section, sMachGroupList, 44143, 1, bPreview)
|
|
countPartVMList = PartVMList.Count
|
|
Else
|
|
PartVMList = RawPart.PartVMList
|
|
CreateRawPartImage(section, sMachGroupList, RawPart.Id, RawPart.Name, bPreview)
|
|
countPartVMList = PartVMList.Count - 1
|
|
End If
|
|
|
|
' aggiungo tabella dei pezzi
|
|
Dim table As Table = New Table()
|
|
table.Borders.Width = 0.75
|
|
For PartIndex = -2 To countPartVMList
|
|
Dim PartVM As PartVM = Nothing
|
|
Dim row As Row = Nothing
|
|
If PartIndex <> -2 Then
|
|
' aggiungo riga
|
|
row = table.AddRow()
|
|
End If
|
|
If PartIndex = -1 Then
|
|
' imposto la riga come header che si ripetera' all'inizio di ogni pagina
|
|
row.HeadingFormat = True
|
|
' coloro sfondo riga degli header
|
|
row.Shading.Color = Colors.Aqua
|
|
ElseIf PartIndex >= 0 Then
|
|
' recupero elemento della riga
|
|
PartVM = PartVMList(PartIndex)
|
|
End If
|
|
Dim Columnlist As ObservableCollection(Of EgtDataGridColumn) = sMachGroupList.RawPartColumns
|
|
For ColumnIndex = 0 To Columnlist.Count - 1
|
|
Select Case Columnlist(ColumnIndex).Name
|
|
Case COL_PDN
|
|
If sPDN.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(1.5))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.PDN_Msg)
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(IsNothing(RawPart), 55, PartVM.nPDN))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_W
|
|
If sW.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.W_Msg)
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(IsNothing(RawPart), 120, PartVM.sW))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_H
|
|
If sH.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.H_Msg)
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(IsNothing(RawPart), 160, PartVM.sH))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_L
|
|
If sL.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.L_Msg)
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(IsNothing(RawPart), 185.9, PartVM.sL))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_DESC
|
|
If sDesc.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(4))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.NAM_Msg)
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(IsNothing(RawPart), "Correntini", PartVM.sNAM))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
Case COL_NAME
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(4))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.NAM_Msg)
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(PartVM.sNAM)
|
|
End If
|
|
Case COL_MATERIAL
|
|
If sMaterial.bIsChecked Then
|
|
If PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(2))
|
|
ElseIf PartIndex = -1 Then
|
|
row.Cells(ColumnIndex).AddParagraph(Statistic_Messages.MAT_Msg)
|
|
Else
|
|
row.Cells(ColumnIndex).AddParagraph(If(IsNothing(RawPart), "GL24h", PartVM.sMATERIAL))
|
|
End If
|
|
ElseIf PartIndex = -2 Then
|
|
table.AddColumn(Unit.FromCentimeter(0))
|
|
End If
|
|
End Select
|
|
Next
|
|
Next
|
|
' aggiungo tabella all'ultima sezione
|
|
section.Add(table)
|
|
End Sub
|
|
|
|
Private Sub CreateRawPartImage(section As Section, sMachGroupList As ExpanderTable, RawPartId As Integer, RawPartName As String, bPreview As Boolean)
|
|
' creo immagine
|
|
Dim sImagePath As String
|
|
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)
|
|
EgtZoom(ZM.ALL, False)
|
|
EgtGetImage(SM.HIDDENLINE, New Color3d(255, 255, 255), New Color3d(255, 255, 255), 3000, 1000, sImagePath)
|
|
End If
|
|
' aggiungo immagine
|
|
If sMachGroupList.bSection_IsChecked Then section.AddParagraph(RawPartName)
|
|
If sMachGroupList.bImage_IsChecked Then
|
|
Dim Image As Image = section.AddImage(sImagePath)
|
|
Image.LockAspectRatio = True
|
|
Image.Width = Unit.FromMillimeter(275)
|
|
Image.RelativeHorizontal = RelativeHorizontal.Page
|
|
Image.RelativeVertical = RelativeHorizontal.Page
|
|
Image.Left = 30
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub DefineLogo(section As Section, sImageLogo As String)
|
|
Dim Image As MigraDoc.DocumentObjectModel.Shapes.Image = section.Headers.FirstPage.AddImage(sImageLogo)
|
|
Image.Width = Unit.FromMillimeter(245)
|
|
Image.Height = Unit.FromMillimeter(40)
|
|
Image.LockAspectRatio = True
|
|
Image.RelativeVertical = RelativeVertical.Line
|
|
Image.Top = ShapePosition.Top
|
|
Image.Left = ShapePosition.Left
|
|
Image.WrapFormat.Style = WrapStyle.Through
|
|
Image.RelativeHorizontal = RelativeHorizontal.Margin
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Defines the styles used in the document.
|
|
''' </summary>
|
|
Public Sub DefineStyles(ByVal document As Document)
|
|
' recupera lo stile predefinito Normal.
|
|
Dim style As Style = document.Styles("Normal")
|
|
' Because all styles are derived from Normal, the next line changes the
|
|
' font of the whole document. Or, more exactly, it changes the font of
|
|
' all styles and paragraphs that do not redefine the font.
|
|
style.Font.Name = "Arial"
|
|
|
|
' Heading1 to Heading9 are predefined styles with an outline level. An outline level
|
|
' other than OutlineLevel.BodyText automatically creates the outline (or bookmarks)
|
|
' in PDF.
|
|
|
|
style = document.Styles("Heading1")
|
|
style.Font.Name = "Tahoma"
|
|
style.Font.Size = 14
|
|
style.Font.Bold = True
|
|
style.Font.Color = Colors.DarkBlue
|
|
style.ParagraphFormat.PageBreakBefore = True
|
|
style.ParagraphFormat.SpaceAfter = 6
|
|
|
|
style = document.Styles("Heading2")
|
|
style.Font.Size = 12
|
|
style.Font.Bold = True
|
|
style.ParagraphFormat.PageBreakBefore = False
|
|
style.ParagraphFormat.SpaceBefore = 6
|
|
style.ParagraphFormat.SpaceAfter = 6
|
|
|
|
style = document.Styles("Heading3")
|
|
style.Font.Size = 10
|
|
style.Font.Bold = True
|
|
style.Font.Italic = True
|
|
style.ParagraphFormat.SpaceBefore = 6
|
|
style.ParagraphFormat.SpaceAfter = 3
|
|
|
|
style = document.Styles(StyleNames.Header)
|
|
style.ParagraphFormat.AddTabStop("16cm", TabAlignment.Right)
|
|
|
|
style = document.Styles(StyleNames.Footer)
|
|
style.ParagraphFormat.AddTabStop("8cm", TabAlignment.Center)
|
|
|
|
' Create a new style called TextBox based on style Normal
|
|
style = document.Styles.AddStyle("TextBox", "Normal")
|
|
style.ParagraphFormat.Alignment = ParagraphAlignment.Justify
|
|
style.ParagraphFormat.Borders.Width = 2.5
|
|
style.ParagraphFormat.Borders.Distance = "3pt"
|
|
style.ParagraphFormat.Shading.Color = Colors.SkyBlue
|
|
|
|
' Create a new style called TOC based on style Normal
|
|
style = document.Styles.AddStyle("TOC", "Normal")
|
|
style.ParagraphFormat.AddTabStop("16cm", TabAlignment.Right, TabLeader.Dots)
|
|
style.ParagraphFormat.Font.Color = Colors.Blue
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Defines the cover page.
|
|
''' </summary>
|
|
Public Sub DefineCover(ByVal document As Document)
|
|
Dim section As Section = document.AddSection()
|
|
Dim paragraph As Paragraph = section.AddParagraph()
|
|
paragraph.Format.SpaceAfter = "3cm"
|
|
Dim image As Shapes.Image = section.AddImage("../../images/Logo landscape.png")
|
|
image.Width = "10cm"
|
|
paragraph = section.AddParagraph("A sample document that demonstrates the" & vbLf & "capabilities of MigraDoc")
|
|
paragraph.Format.Font.Size = 16
|
|
paragraph.Format.Font.Color = Colors.DarkRed
|
|
paragraph.Format.SpaceBefore = "8cm"
|
|
paragraph.Format.SpaceAfter = "3cm"
|
|
paragraph = section.AddParagraph("Rendering date: ")
|
|
paragraph.AddDateField()
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Defines table of contents.
|
|
''' </summary>
|
|
Public Sub DefineTableOfContents(ByVal document As Document)
|
|
Dim section As Section = document.LastSection
|
|
section.AddPageBreak()
|
|
Dim paragraph As Paragraph = section.AddParagraph("Table of Contents")
|
|
paragraph.Format.Font.Size = 14
|
|
paragraph.Format.Font.Bold = True
|
|
paragraph.Format.SpaceAfter = 24
|
|
paragraph.Format.OutlineLevel = OutlineLevel.Level1
|
|
paragraph = section.AddParagraph()
|
|
paragraph.Style = "TOC"
|
|
Dim hyperlink As Hyperlink = paragraph.AddHyperlink("Paragraphs")
|
|
hyperlink.AddText("Paragraphs" & vbTab)
|
|
hyperlink.AddPageRefField("Paragraphs")
|
|
paragraph = section.AddParagraph()
|
|
paragraph.Style = "TOC"
|
|
hyperlink = paragraph.AddHyperlink("Tables")
|
|
hyperlink.AddText("Tables" & vbTab)
|
|
hyperlink.AddPageRefField("Tables")
|
|
paragraph = section.AddParagraph()
|
|
paragraph.Style = "TOC"
|
|
hyperlink = paragraph.AddHyperlink("Charts")
|
|
hyperlink.AddText("Charts" & vbTab)
|
|
hyperlink.AddPageRefField("Charts")
|
|
End Sub
|
|
|
|
#Region "Paragraphs"
|
|
|
|
Public Sub DefineParagraphs(ByVal document As Document)
|
|
Dim paragraph As Paragraph = document.LastSection.AddParagraph("Paragraph Layout Overview", "Heading1")
|
|
paragraph.AddBookmark("Paragraphs")
|
|
DemonstrateParagraphsAlignment(document)
|
|
DemonstrateIndent(document)
|
|
DemonstrateFormattedText(document)
|
|
DemonstrateBordersAndShading(document)
|
|
End Sub
|
|
|
|
Private Sub DemonstrateParagraphsAlignment(ByVal document As Document)
|
|
document.LastSection.AddParagraph("Alignment", "Heading2")
|
|
document.LastSection.AddParagraph("Left Aligned", "Heading3")
|
|
Dim paragraph As Paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.Alignment = ParagraphAlignment.Left
|
|
paragraph.AddText(m_TestText)
|
|
document.LastSection.AddParagraph("Right Aligned", "Heading3")
|
|
paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.Alignment = ParagraphAlignment.Right
|
|
paragraph.AddText(m_TestText)
|
|
document.LastSection.AddParagraph("Centered", "Heading3")
|
|
paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.Alignment = ParagraphAlignment.Center
|
|
paragraph.AddText(m_TestText)
|
|
document.LastSection.AddParagraph("Justified", "Heading3")
|
|
paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.Alignment = ParagraphAlignment.Justify
|
|
paragraph.AddText(m_TestMediumText)
|
|
End Sub
|
|
|
|
Private Sub DemonstrateIndent(ByVal document As Document)
|
|
document.LastSection.AddParagraph("Indent", "Heading2")
|
|
document.LastSection.AddParagraph("Left Indent", "Heading3")
|
|
Dim paragraph As Paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.LeftIndent = "2cm"
|
|
paragraph.AddText(m_TestText)
|
|
document.LastSection.AddParagraph("Right Indent", "Heading3")
|
|
paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.RightIndent = "1in"
|
|
paragraph.AddText(m_TestText)
|
|
document.LastSection.AddParagraph("First Line Indent", "Heading3")
|
|
paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.FirstLineIndent = "12mm"
|
|
paragraph.AddText(m_TestText)
|
|
document.LastSection.AddParagraph("First Line Negative Indent", "Heading3")
|
|
paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.LeftIndent = "1.5cm"
|
|
paragraph.Format.FirstLineIndent = "-1.5cm"
|
|
paragraph.AddText(m_TestText)
|
|
End Sub
|
|
|
|
Private Sub DemonstrateFormattedText(ByVal document As Document)
|
|
document.LastSection.AddParagraph("Formatted Text", "Heading2")
|
|
Dim paragraph As Paragraph = document.LastSection.AddParagraph()
|
|
paragraph.AddText("Text can be formatted ")
|
|
paragraph.AddFormattedText("bold", TextFormat.Bold)
|
|
paragraph.AddText(", ")
|
|
paragraph.AddFormattedText("italic", TextFormat.Italic)
|
|
paragraph.AddText(", or ")
|
|
paragraph.AddFormattedText("bold & italic", TextFormat.Bold Or TextFormat.Italic)
|
|
paragraph.AddText(".")
|
|
paragraph.AddLineBreak()
|
|
paragraph.AddText("You can set the ")
|
|
Dim formattedText As FormattedText = paragraph.AddFormattedText("size ")
|
|
formattedText.Size = 15
|
|
paragraph.AddText("the ")
|
|
formattedText = paragraph.AddFormattedText("color ")
|
|
formattedText.Color = Colors.Firebrick
|
|
paragraph.AddText("the ")
|
|
formattedText = paragraph.AddFormattedText("font", New Font("Verdana"))
|
|
paragraph.AddText(".")
|
|
paragraph.AddLineBreak()
|
|
paragraph.AddText("You can set the ")
|
|
formattedText = paragraph.AddFormattedText("subscript")
|
|
formattedText.Subscript = True
|
|
paragraph.AddText(" or ")
|
|
formattedText = paragraph.AddFormattedText("superscript")
|
|
formattedText.Superscript = True
|
|
paragraph.AddText(".")
|
|
End Sub
|
|
|
|
Private Sub DemonstrateBordersAndShading(ByVal document As Document)
|
|
document.LastSection.AddPageBreak()
|
|
document.LastSection.AddParagraph("Borders and Shading", "Heading2")
|
|
document.LastSection.AddParagraph("Border around Paragraph", "Heading3")
|
|
Dim paragraph As Paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.Borders.Width = 2.5
|
|
paragraph.Format.Borders.Color = Colors.Navy
|
|
paragraph.Format.Borders.Distance = 3
|
|
paragraph.AddText(m_TestMediumText)
|
|
document.LastSection.AddParagraph("Shading", "Heading3")
|
|
paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Format.Shading.Color = Colors.LightCoral
|
|
paragraph.AddText(m_TestText)
|
|
document.LastSection.AddParagraph("Borders & Shading", "Heading3")
|
|
paragraph = document.LastSection.AddParagraph()
|
|
paragraph.Style = "TextBox"
|
|
paragraph.AddText(m_TestMediumText)
|
|
End Sub
|
|
|
|
#End Region ' Paragraphs
|
|
|
|
#Region "Tables"
|
|
|
|
Public Sub DefineTables(ByVal document As MigraDoc.DocumentObjectModel.Document)
|
|
Dim paragraph As Paragraph = document.LastSection.AddParagraph("Table Overview", "Heading1")
|
|
paragraph.AddBookmark("Tables")
|
|
DemonstrateSimpleTable(document)
|
|
DemonstrateTableAlignment(document)
|
|
DemonstrateCellMerge(document)
|
|
End Sub
|
|
|
|
Public Sub DemonstrateSimpleTable(ByVal document As Document)
|
|
document.LastSection.AddParagraph("Simple Tables", "Heading2")
|
|
Dim table As New Table()
|
|
table.Borders.Width = 0.75
|
|
Dim column As Column = table.AddColumn(Unit.FromCentimeter(2))
|
|
column.Format.Alignment = ParagraphAlignment.Center
|
|
table.AddColumn(Unit.FromCentimeter(5))
|
|
Dim row As Row = table.AddRow()
|
|
row.Shading.Color = Colors.PaleGoldenrod
|
|
Dim cell As Cell = row.Cells(0)
|
|
cell.AddParagraph("Itemus")
|
|
cell = row.Cells(1)
|
|
cell.AddParagraph("Descriptum")
|
|
row = table.AddRow()
|
|
cell = row.Cells(0)
|
|
cell.AddParagraph("1")
|
|
cell = row.Cells(1)
|
|
cell.AddParagraph(m_TestShortText)
|
|
row = table.AddRow()
|
|
cell = row.Cells(0)
|
|
cell.AddParagraph("2")
|
|
cell = row.Cells(1)
|
|
cell.AddParagraph(m_TestText)
|
|
table.SetEdge(0, 0, 2, 3, Edge.Box, BorderStyle.Single, 1.5, Colors.Black)
|
|
document.LastSection.Add(table)
|
|
End Sub
|
|
|
|
Public Sub DemonstrateTableAlignment(ByVal document As MigraDoc.DocumentObjectModel.Document)
|
|
document.LastSection.AddParagraph("Cell Alignment", "Heading2")
|
|
Dim table As Table = document.LastSection.AddTable()
|
|
table.Borders.Visible = True
|
|
table.Format.Shading.Color = Colors.LavenderBlush
|
|
table.Shading.Color = Colors.Salmon
|
|
table.TopPadding = 5
|
|
table.BottomPadding = 5
|
|
Dim column As Column = table.AddColumn()
|
|
column.Format.Alignment = ParagraphAlignment.Left
|
|
column = table.AddColumn()
|
|
column.Format.Alignment = ParagraphAlignment.Center
|
|
column = table.AddColumn()
|
|
column.Format.Alignment = ParagraphAlignment.Right
|
|
table.Rows.Height = 35
|
|
Dim row As Row = table.AddRow()
|
|
row.VerticalAlignment = VerticalAlignment.Top
|
|
row.Cells(0).AddParagraph("Text")
|
|
row.Cells(1).AddParagraph("Text")
|
|
row.Cells(2).AddParagraph("Text")
|
|
row = table.AddRow()
|
|
row.VerticalAlignment = VerticalAlignment.Center
|
|
row.Cells(0).AddParagraph("Text")
|
|
row.Cells(1).AddParagraph("Text")
|
|
row.Cells(2).AddParagraph("Text")
|
|
row = table.AddRow()
|
|
row.VerticalAlignment = VerticalAlignment.Bottom
|
|
row.Cells(0).AddParagraph("Text")
|
|
row.Cells(1).AddParagraph("Text")
|
|
row.Cells(2).AddParagraph("Text")
|
|
End Sub
|
|
|
|
Public Sub DemonstrateCellMerge(ByVal document As Document)
|
|
document.LastSection.AddParagraph("Cell Merge", "Heading2")
|
|
Dim table As Table = document.LastSection.AddTable()
|
|
table.Borders.Visible = True
|
|
table.TopPadding = 5
|
|
table.BottomPadding = 5
|
|
Dim column As Column = table.AddColumn()
|
|
column.Format.Alignment = ParagraphAlignment.Left
|
|
column = table.AddColumn()
|
|
column.Format.Alignment = ParagraphAlignment.Center
|
|
column = table.AddColumn()
|
|
column.Format.Alignment = ParagraphAlignment.Right
|
|
table.Rows.Height = 35
|
|
Dim row As Row = table.AddRow()
|
|
row.Cells(0).AddParagraph("Merge Right")
|
|
row.Cells(0).MergeRight = 1
|
|
row = table.AddRow()
|
|
row.VerticalAlignment = VerticalAlignment.Bottom
|
|
row.Cells(0).MergeDown = 1
|
|
row.Cells(0).VerticalAlignment = VerticalAlignment.Bottom
|
|
row.Cells(0).AddParagraph("Merge Down")
|
|
table.AddRow()
|
|
End Sub
|
|
|
|
#End Region ' Tables
|
|
|
|
Public Sub DefineCharts(ByVal document As Document)
|
|
Dim paragraph As Paragraph = document.LastSection.AddParagraph("Chart Overview", "Heading1")
|
|
paragraph.AddBookmark("Charts")
|
|
document.LastSection.AddParagraph("Sample Chart", "Heading2")
|
|
Dim chart As New Chart With {
|
|
.Left = 0,
|
|
.Width = Unit.FromCentimeter(16),
|
|
.Height = Unit.FromCentimeter(12)
|
|
}
|
|
Dim series As Series = chart.SeriesCollection.AddSeries()
|
|
series.ChartType = ChartType.Column2D
|
|
series.Add(New Double() {1, 17, 45, 5, 3, 20, 11, 23, 8, 19})
|
|
series.HasDataLabel = True
|
|
series = chart.SeriesCollection.AddSeries()
|
|
series.ChartType = ChartType.Line
|
|
series.Add(New Double() {41, 7, 5, 45, 13, 10, 21, 13, 18, 9})
|
|
Dim xseries As XSeries = chart.XValues.AddXSeries()
|
|
xseries.Add("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")
|
|
chart.XAxis.MajorTickMark = TickMarkType.Outside
|
|
chart.XAxis.Title.Caption = "X-Axis"
|
|
chart.YAxis.MajorTickMark = TickMarkType.Outside
|
|
chart.YAxis.HasMajorGridlines = True
|
|
chart.PlotArea.LineFormat.Color = Colors.DarkGray
|
|
chart.PlotArea.LineFormat.Width = 1
|
|
document.LastSection.Add(chart)
|
|
End Sub
|
|
|
|
End Module
|