edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Vers, Therore, ActiveReports

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-10-02 11:23:39 +02:00
parent a39d888c67
commit b3dc251ff5
5 changed files with 154 additions and 649 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

35
SDL/Speditionsbuch/rptSpeditionsbericht.Designer.vb generated
View File

@@ -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.Width = 1.475196!
Me.lblBarzahlungsbetrag.Top = 0.00000002235174!
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.Width = 2.437842!
Me.ReportInfo2.Top = 0.08622048!
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.Left = 5.281889!
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
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.Width = 1.475196!
Me.lblSummeBar.Top = 0.007874039!
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.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 7.440945!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)

627
SDL/Speditionsbuch/rptSpeditionsbericht.resx
View File

File diff suppressed because one or more lines are too long

133
VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb
View File

@@ -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

4
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -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>