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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
SDL/cProgramFunctions.vb
View File

@@ -180,6 +180,12 @@ Public Class cProgramFunctions
Dim docid As String = ""
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].[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")
@@ -217,7 +223,8 @@ Public Class cProgramFunctions
Select Case VM_Artid
Case 1, 7 : Return openThereforeNavigatorZollvollmachten_DE(KundenNr)
Case 2, 8 : Return openThereforeNavigatorFiskalVM_DE(KundenNr)
Case 4, 9, 12, 13 : Return openThereforeNavigatorFiskalVM_AT(KundenNr)
Case 4, 9 : Return openThereforeNavigatorFiskalVM_AT(KundenNr)
Case 12, 13 : Return openThereforeNavigatorVM_AT(KundenNr)
End Select
Return False
End Function
@@ -295,7 +302,7 @@ Public Class cProgramFunctions
End Function
Shared Function openThereforeNavigatorFiskalVM_AT(KundenNr As String)
Shared Function openThereforeNavigatorVM_AT(KundenNr As String)
Try
Dim srch = KundenNr & "%"
Dim docid As String = ""
@@ -319,6 +326,30 @@ Public Class cProgramFunctions
Return False
End Function
Shared Function openThereforeNavigatorFiskalVM_AT(KundenNr As String)
Try
Dim srch = KundenNr & "%"
Dim docid As String = ""
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat205] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
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
Return True
Catch ex As Exception
MsgBox("Fehler beim Öffnen!" & vbNewLine & ex.Message & ex.StackTrace)
End Try
Return False
End Function
Shared Function openThereforeNavigatorFiskalVM_DE(KundenNr As String)
Try
Dim srch = KundenNr & "%"