Vers, Therore, ActiveReports

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.1.4")>
+<Assembly: AssemblyVersion("1.3.1.5")>
-<Assembly: AssemblyFileVersion("1.3.1.4")>
+<Assembly: AssemblyFileVersion("1.3.1.5")>

SDL/Speditionsbuch/rptSpeditionsbericht.Designer.vb

@@ -133,12 +133,12 @@ Partial Public Class rptSpeditionsbericht
         '
         Me.lblBarzahlungsbetrag.Height = 0.1795276!
         Me.lblBarzahlungsbetrag.HyperLink = Nothing
-        Me.lblBarzahlungsbetrag.Left = 6.000001!
+        Me.lblBarzahlungsbetrag.Left = 5.989765!
         Me.lblBarzahlungsbetrag.Name = "lblBarzahlungsbetrag"
         Me.lblBarzahlungsbetrag.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
         Me.lblBarzahlungsbetrag.Text = "0,00"
-        Me.lblBarzahlungsbetrag.Top = 0!
+        Me.lblBarzahlungsbetrag.Top = 0.00000002235174!
-        Me.lblBarzahlungsbetrag.Width = 1.475196!
+        Me.lblBarzahlungsbetrag.Width = 1.43578!
         '
         'lblAbfAnz
         '
@@ -196,11 +196,11 @@ Partial Public Class rptSpeditionsbericht
         '
         Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
         Me.ReportInfo2.Height = 0.1330709!
-        Me.ReportInfo2.Left = 5.04252!
+        Me.ReportInfo2.Left = 5.032284!
         Me.ReportInfo2.Name = "ReportInfo2"
         Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
-        Me.ReportInfo2.Top = 0.08622046!
+        Me.ReportInfo2.Top = 0.08622048!
-        Me.ReportInfo2.Width = 2.437842!
+        Me.ReportInfo2.Width = 2.398426!
         '
         'lblDat
         '
@@ -223,8 +223,8 @@ Partial Public Class rptSpeditionsbericht
         '
         Me.picVERAG.Height = 0.4169292!
         Me.picVERAG.HyperLink = Nothing
-        Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
+        Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
-        Me.picVERAG.Left = 5.281889!
+        Me.picVERAG.Left = 5.24252!
         Me.picVERAG.Name = "picVERAG"
         Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
         Me.picVERAG.Top = 0!
@@ -407,12 +407,12 @@ Partial Public Class rptSpeditionsbericht
         '
         Me.lblBarTitle.Height = 0.1795276!
         Me.lblBarTitle.HyperLink = Nothing
-        Me.lblBarTitle.Left = 6.000001!
+        Me.lblBarTitle.Left = 5.989765!
         Me.lblBarTitle.Name = "lblBarTitle"
         Me.lblBarTitle.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
         Me.lblBarTitle.Text = "Barzahlungsbetrag"
         Me.lblBarTitle.Top = 0.3188977!
-        Me.lblBarTitle.Width = 1.475196!
+        Me.lblBarTitle.Width = 1.43578!
         '
         'Label7
         '
@@ -434,12 +434,12 @@ Partial Public Class rptSpeditionsbericht
         '
         Me.lblSummeBar.Height = 0.1795276!
         Me.lblSummeBar.HyperLink = Nothing
-        Me.lblSummeBar.Left = 6.0!
+        Me.lblSummeBar.Left = 5.989764!
         Me.lblSummeBar.Name = "lblSummeBar"
         Me.lblSummeBar.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
         Me.lblSummeBar.Text = "Barzahlungsbetrag"
-        Me.lblSummeBar.Top = 0.007874017!
+        Me.lblSummeBar.Top = 0.007874039!
-        Me.lblSummeBar.Width = 1.475196!
+        Me.lblSummeBar.Width = 1.43578!
         '
         'lblSummeAnzahl
         '
@@ -467,14 +467,15 @@ Partial Public Class rptSpeditionsbericht
         '
         'rptSpeditionsbericht
         '
-        Me.MasterReport = False
+        Me.PageSettings.DefaultPaperSize = False
         Me.PageSettings.Margins.Bottom = 0.3937008!
         Me.PageSettings.Margins.Left = 0.3937008!
         Me.PageSettings.Margins.Right = 0.3937008!
         Me.PageSettings.Margins.Top = 0.3937008!
-        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperHeight = 11.69291!
-        Me.PageSettings.PaperWidth = 8.5!
+        Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
-        Me.PrintWidth = 7.480315!
+        Me.PageSettings.PaperWidth = 8.267716!
+        Me.PrintWidth = 7.440945!
         Me.Sections.Add(Me.ReportHeader1)
         Me.Sections.Add(Me.PageHeader)
         Me.Sections.Add(Me.GroupHeader1)

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb

@@ -1,15 +1,16 @@
-Imports Therefore.API
+Imports System.ServiceModel.Configuration
+Imports Therefore.API
 Public Class cTherefore
 
     Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, FirmaId As String, Optional deleteFileAfterImport As Boolean = False)
         FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace(";", " ")
         FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace("/", " ")
         FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace("-", " ")
-        if FilialeAbfertigungsNr.Length> 30 then FilialeAbfertigungsNr=FilialeAbfertigungsNr.ToString.Substring(0,30)
+        If FilialeAbfertigungsNr.Length > 30 Then FilialeAbfertigungsNr = FilialeAbfertigungsNr.ToString.Substring(0, 30)
         Select Case FirmaId
             Case 7
                 Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)
-            Case 21,22,23
+            Case 21, 22, 23
                 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED", "UNISPED\Import ab Jänner 2021 UNISPED DE", deleteFileAfterImport)
                 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED", "Import ab Jänner 2021 UNISPED DE", deleteFileAfterImport)
 
@@ -27,6 +28,132 @@ Public Class cTherefore
         End Select
     End Function
 
+    Shared Function getFileFromFolderCat(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, Category As String, Optional Category2 As String = "", Optional deleteFileAfterImport As Boolean = False)
+        Try
+            '  MsgBox("go: ")
+
+            'Dim SQL_VERAG As New VERAG_PROG_ALLGEMEIN.SQL
+
+            'Dim abfertNr = FilialeAbfertigungsNr
+            'Dim docid As String = ""
+            'Dim Filiale = FilialeAbfertigungsNr.Substring(0, 4)
+
+            'If Filiale = 4801 Then
+            '    docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat17] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            'ElseIf Filiale = 5601 Then
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat393] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat394] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            'ElseIf Filiale = 5701 Then
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat395] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat397] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            'Else
+            '    docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].TheCat1083 WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat889] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat398] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat291] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat109] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat101] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat84] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat72] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat59] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat36] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat14] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat130] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") ' WAI
+            '    If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat131] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") ' SBG
+            'End If
+
+            'If IsNumeric(docid) AndAlso docid > 0 Then
+            '    '  Process.Start("theviewer.exe -" & docid)
+            '    '    Process.Start("C:\Program Files (x86)\Therefore\theviewer.exe -" & docid)
+            '    Try
+            '        Shell("C:\Program Files (x86)\Therefore\theviewer.exe -d" & docid)
+            '    Catch ex As Exception
+            '        Shell("C:\Program Files\Therefore\theviewer.exe -d" & docid)
+            '    End Try
+            'Else
+            '    MsgBox("Das Dokument konnte nicht gefunden werden.")
+            'End If
+
+
+            If Category2 = "" Then Category2 = Category
+            Dim SQL As New SQL
+
+            ' 1. Connect to the Therefore™ Server
+            Dim server As New TheServer
+            server.Connect(TheClientType.CustomApplication)
+
+            ' 2. Create a new Therefore™ Document
+            Dim doc As New TheDocument()
+
+
+
+            ' 3. Retrieve the document from the server to the inbox
+
+            Dim inbox As String = Path
+
+            Dim TableName = ""
+            If IsNumeric(Category) Then
+                TableName = "TheCat" & Category
+                If SQL.getValueTxtBySql("SELECT count(*)  FROM [TheCategory] WHERE TableName='" & TableName & "'", "SCANCANON",,, "") = 0 Then
+                    MsgBox("Therefore: Tabelle nicht gefunden: " & TableName)
+                    Return False
+                End If
+            Else
+                TableName = SQL.getValueTxtBySql("SELECT TOP 1 [TableName]   FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "")
+            End If
+
+            Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM  " & TableName & " WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1)
+            ' MsgBox("docNo: " & docNo)
+
+            Dim extractDir As String = Path & FilialeAbfertigungsNr & "\"
+            If Not System.IO.Directory.Exists(extractDir) Then
+                System.IO.Directory.CreateDirectory(extractDir)
+            End If
+
+            Dim filename As String = ""
+            If docNo > 0 Then
+                Dim folder = ""
+                Dim VerionNo As Integer
+                filename = doc.Retrieve(docNo, VerionNo, folder, server, False)
+                ' 4. Extract all file streams to the specified directory
+
+
+                Dim i As Integer
+
+
+
+                For i = 0 To doc.StreamCount - 1 Step i + 1
+
+                    Dim extractFile As String = doc.ExtractStream(i, extractDir)
+
+                    Console.WriteLine("File stream extracted to " + extractFile)
+
+                Next
+
+            Else
+                'Nicht gefunden, hier hinschreiben:
+                Dim file As System.IO.StreamWriter
+                file = My.Computer.FileSystem.OpenTextFileWriter(Path & "notfound.txt", True)
+                file.WriteLine(FilialeAbfertigungsNr)
+                file.Close()
+
+                ' MsgBox(FilialeAbfertigungsNr)
+            End If
+
+
+            ' 8. Close Therefore™ document object
+            doc.Close()
+
+            Return True
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
+
     Shared Function saveFileTo_ImportFolderCat(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, Category As String, Optional Category2 As String = "", Optional deleteFileAfterImport As Boolean = False)
         Try
             If Category2 = "" Then Category2 = Category

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -38,7 +38,7 @@
     <GenerateSerializationAssemblies>Off</GenerateSerializationAssemblies>
   </PropertyGroup>
   <PropertyGroup>
-    <OptionExplicit>Off</OptionExplicit>
+    <OptionExplicit>On</OptionExplicit>
   </PropertyGroup>
   <PropertyGroup>
     <OptionCompare>Binary</OptionCompare>
@@ -47,7 +47,7 @@
     <OptionStrict>Off</OptionStrict>
   </PropertyGroup>
   <PropertyGroup>
-    <OptionInfer>Off</OptionInfer>
+    <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
     <DebugSymbols>true</DebugSymbols>