LAyout tablazatoknal volt hiba

Dokumentáció Készítő 3/MainWindow.xaml.vb

@@ -735,65 +735,7 @@ Public Class MainWindow
             End If
 
             '--------------------- Calculate sheetsize for print
-            Try
-                Dim iFormatDrawing As IpfcModelDescriptor
-                iFormatDrawing = SheetOwner.GetSheetFormatDescr(i)
-                Dim NameOfSheet As String = iFormatDrawing.InstanceName(iFormatDrawing.InstanceName.Length - 4)
-                Dim A01234 As String = iFormatDrawing.InstanceName.IndexOf("A?")
-                Dim regex As New RegularExpressions.Regex("A\d")
-                Dim FormatString As String = regex.Match(iFormatDrawing.InstanceName).Value
 
-                NameOfSheet = FormatString.Substring(1, 1)
-
-                Dim e_int As Integer
-                e_int = 2 ^ CInt(NameOfSheet)
-
-                Dim model2d As IpfcModel2D
-                Dim view2d As IpfcView2D
-                Dim dview As CpfcView2Ds
-                Dim model2 As IpfcModel
-                Dim ListOfViewSheets As New List(Of Integer)
-                Dim SheetNumberIndex As New List(Of Integer)
-                Dim ViewCount As Single
-                Dim IndexOfCurrentSheetFirstView As Integer
-
-                model2d = Model1
-                dview = model2d.List2DViews()
-                ViewCount = dview.Count
-
-                For z = 0 To ViewCount - 1
-                    view2d = (dview(z))
-                    ListOfViewSheets.Add(view2d.GetSheetNumber)
-                Next
-
-                If i = 0 Then
-                    i = 1
-                    IndexOfCurrentSheetFirstView = ListOfViewSheets.IndexOf(i)
-                    i = 0
-                Else
-                    IndexOfCurrentSheetFirstView = ListOfViewSheets.IndexOf(i)
-                End If
-
-                view2d = dview(IndexOfCurrentSheetFirstView)
-                model2 = view2d.GetModel
-
-                Dim SheetScale As Double = SheetOwner.GetSheetScale(i, model2)
-
-                Dim Print_value As Double = e_int * 10 * SheetScale
-                '--------------------- Calculate sheetsize for print END
-
-
-
-                If printNeeded = True Then
-                    HandleNames(FileNameMod, y, i, ".Tif", Model1)
-                    Printtoprinter(Session, Drawing, i, i, FileNameMod, Model1, Print_value)
-                End If
-
-
-
-            Catch ex As Exception
-                MsgBox(ex.Message)
-            End Try
 
 
         Next i
@@ -812,15 +754,8 @@ Public Class MainWindow
         End If
 
 
-        If excelPrintNeeded = True Then
 
 
-            folderpicked = Path.GetTempPath
-            HandleNames(FileNameMod, 0, 0, ".xls", Model1)
-            CreateExcel(Session, FileNameMod)
-            PrintExcel(FileNameMod)
-
-        End If
 
 
     End Sub
@@ -1051,7 +986,7 @@ Public Class MainWindow
         Dim ColCount2 As Integer = TableContent.GetLength(1)
 
         Dim o As Integer = 2
-        If ColCount2 > 13 Then
+        If ColCount2 > 12 Then
             For row = 3 To RowCount - 3
 
                 Console.WriteLine(TableContent(row, 7))
@@ -1065,22 +1000,24 @@ Public Class MainWindow
                 'xt
                 '  Else
                 Dim u As Integer = 0
-                xlWorkSheet.Cells(row + u, 1) = TableContent(row, 1)
+                xlWorkSheet.Cells(row + u, 3) = TableContent(row, 1) 'gyarto
 
-                xlWorkSheet.Cells(row + u, 2) = TableContent(row, 3)
+                xlWorkSheet.Cells(row + u, 4) = TableContent(row, 2) 'rajzszan
                 'xlWorkSheet.Cells(row + u, 3) = TableContent(row, 3)
                 '  xlWorkSheet.Cells(row + u, 3) = TableContent(row, 4)
-                xlWorkSheet.Cells(row + u, 3) = TableContent(row, 5)
+                xlWorkSheet.Cells(row + u, 5) = TableContent(row, 3) 'filename
-                xlWorkSheet.Cells(row + u, 4) = TableContent(row, 6)
+                xlWorkSheet.Cells(row + u, 6) = TableContent(row, 4) 'bf
-                xlWorkSheet.Cells(row + u, 5) = TableContent(row, 7)
+                '  xlWorkSheet.Cells(row + u, 5) = TableContent(row, 7) 'ures
-                xlWorkSheet.Cells(row + u, 6) = TableContent(row, 8)
+                xlWorkSheet.Cells(row + u, 8) = TableContent(row, 6) 'db
-                xlWorkSheet.Cells(row + u, 9) = TableContent(row, 9).Replace("
n", "ø")
+                xlWorkSheet.Cells(row + u, 9) = TableContent(row, 7) 'anyag
+
+                '  xlWorkSheet.Cells(row + u, 9) = TableContent(row, 9).Replace("
n", "ø")
                 ' xlWorkSheet.Cells(row + u, 9) = TableContent(row, 9)
-                xlWorkSheet.Cells(row + u, 10) = TableContent(row, 10)
+                xlWorkSheet.Cells(row + u, 10) = TableContent(row, 8) 'fel
-                xlWorkSheet.Cells(row + u, 11) = TableContent(row, 11)
+                xlWorkSheet.Cells(row + u, 12) = TableContent(row, 9) 'felszin
-                xlWorkSheet.Cells(row + u, 12) = TableContent(row, 12)
+                xlWorkSheet.Cells(row + u, 12) = TableContent(row, 10) 'hok
-                xlWorkSheet.Cells(row + u, 13) = TableContent(row, 13)
+                xlWorkSheet.Cells(row + u, 13) = TableContent(row, 11) 'hok kemeny
-                xlWorkSheet.Cells(row + u, 14) = TableContent(row, 14)
+                xlWorkSheet.Cells(row + u, 14) = TableContent(row, 12) 'note
 
 
                 '  End If
@@ -1402,7 +1339,7 @@ Public Class MainWindow
         Dim sourcePath As String
 
 
-        If ColCount2 > 13 Then
+        If ColCount2 > 12 Then
             sourcePath = Path.Combine(currentDirectory, "Darabjegyzek_beszerzes.xlsm")
         Else
             sourcePath = Path.Combine(currentDirectory, "Darabjegyzek.xlsm")
@@ -1445,64 +1382,6 @@ Public Class MainWindow
     <DllImport("user32.dll", EntryPoint:="SendMessageW")>
     Private Shared Function SendMessageW(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
     End Function
-    Private Sub Printtoprinter(ByRef session As IpfcBaseSession, ByRef Drawing As IpfcDrawing, ByVal StartSheet As Integer, ByVal EndSheet As Integer, Filename As String, model1 As IpfcModel, Print_Value As Double)
-
-        'Dim the used variables
-        Dim pcfOptions As IpfcPrinterPCFOptions
-        Dim printerOptions As IpfcPrinterInstructions
-        Dim ExportInstr As IpfcExportInstructions
-
-
-        'Turning off displayed planes,axes,points and coordiante systems
-        session.SetConfigOption("display_planes", "no")
-        session.SetConfigOption("display_axes", "no")
-        session.SetConfigOption("datum_point_display", "no")
-        session.SetConfigOption("display_coord_sys", "no")
-
-        'Choosing and using the PCF file"
-        If Print_Value > 15 Then 'a4
-            pcfOptions = session.GetPrintPCFOptions("CDC5520_A4.pcf", model1)
-        ElseIf Print_Value > 3 Then 'A3
-            pcfOptions = session.GetPrintPCFOptions("CDC5520_A3.pcf", model1)
-        ElseIf Print_Value > 1 Then  'A2
-            pcfOptions = session.GetPrintPCFOptions("CDC5520_A2.pcf", model1)
-        ElseIf Print_Value > 0 Then  'A1
-            pcfOptions = session.GetPrintPCFOptions("CDC5520_A1.pcf", model1)
-        Else 'A0
-            pcfOptions = session.GetPrintPCFOptions("CDC5520_A0.pcf", model1)
-        End If
-
-        printerOptions = (New CCpfcPrinterInstructions).Create()
-        printerOptions.ModelOption = pcfOptions.ModelOption
-        printerOptions.PlacementOption = pcfOptions.PlacementOption
-        printerOptions.PrinterOption = pcfOptions.PrinterOption
-        printerOptions.WindowId = session.GetModelWindow(Drawing).GetId()
-
-        'Choosing the sheets to print, the reason why it is printed one by one is to use the right naming syntax
-        printerOptions.ModelOption.Sheets = EpfcPrintSheets.EpfcPRINT_SELECTED_SHEETS
-        printerOptions.ModelOption.FirstPage = StartSheet
-        printerOptions.ModelOption.LastPage = EndSheet
-
-        'Choosing the model to print
-        printerOptions.ModelOption.Mdl = model1
-        printerOptions.PrinterOption.FileName = model1.InstanceName
-
-        'Printing the document (Don't mind that it is called export, for some fucking reason)
-        ExportInstr = CType(printerOptions, IpfcExportInstructions)
-
-        If Print_Value > 3 Then 'A3
-
-
-            '                                                        EZ VALAMI OKNÁL FOGVA BACKGROUND WOERKERBEN VOLT ????
-            BackgroundWorker3.RunWorkerAsync()
-        Else
-            MsgBox("Kérlek válaszd ki a nyomtató beállításokat, javasolt a Canon plotter használata.")
-        End If
-
-        model1.Export(Filename, ExportInstr)
-
-    End Sub
-    'Write parameters and sheetnumber
 
     Private Sub WriteParam(iFeature As IpfcModel, iParamValueStr As String, iParamName As String)
 
@@ -1822,8 +1701,9 @@ Public Class MainWindow
         For Each iTablea As IpfcTable In iTables
             Try
                 Dim CellStr As String = CellToString(iTablea, 2, 5)
+                Dim CellStr2 As String = CellToString(iTablea, 2, 2)
                 'MsgBox(CellStr)
-                If CellStr = "Robotizalunk Kft." Or CellStr = "Robotizalunk" Then
+                If CellStr = "Robotizalunk Kft." Or CellStr = "Robotizalunk" Or CellStr2 = "Robotizalunk" Or CellStr2 = "Robotizalunk Kft." Then
                     MoreThanOne = MoreThanOne + 1
                     iTableRef = iTablea
                 End If