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

BMD Interface Pfad

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-04-28 12:41:23 +02:00
parent ff29e06911
commit 4c97b538b6
7 changed files with 96 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -2163,6 +2163,10 @@ Public Class cVermerkeDAL
Using cmd As New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
'Vermerkzuweisung aufheben, falls vorhanden
Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL
VERAG_SQL.doSQL("UPDATE [Vermerke] SET VermerkIDAufgehoben = null where VermerkIDAufgehoben = '" & hID & "'", "AVISO")
Catch ex As SqlException
MsgBox("Gelöscht kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
End Try
@@ -2246,11 +2250,16 @@ Public Class cVermerkeDAL
Using cmd As New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
'Vermerkzuweisung aufheben, falls vorhanden
Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL
VERAG_SQL.doSQL("UPDATE [Vermerke] SET VermerkIDAufgehoben = null where VermerkIDAufgehoben = '" & hID & "'", "AVISO")
Catch ex As SqlException
MsgBox("Vermerk kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
End Try
End Using
conn.Close()
End Sub

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb
View File

@@ -55,7 +55,7 @@
'DATEIPFAD für Stammdaten
'-------------------------------------------------------------------------------------------
Dim pathArchivKD = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathArchivKD = "\\UNIDC01.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
'pathKD = pathArchivKD 'TEST
@@ -140,7 +140,7 @@
'DATEIPFAD für Buchungsdaten
'-------------------------------------------------------------------------------------------
Dim pathArchiv = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathArchiv = "\\UNIDC01.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim path = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
' path = pathArchiv 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/cLDV_Interface.vb
View File

@@ -8,9 +8,9 @@ Public Class cLDV_Interface
Dim LDV_PFAD = "\\ftps.verag.ag\FTP\LDV\IN\BMD\"
Dim pathArchivKD = "\\srv07.unisu.at\Unisped Daten\AWOR AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathArchivKD = "\\UNIDC01.unisu.at\Unisped Daten\AWOR AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathKD = "\\share01\Datenarchiv\AWOR\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
Dim pathArchiv = "\\srv07.unisu.at\Unisped Daten\AWOR AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathArchiv = "\\UNIDC01.unisu.at\Unisped Daten\AWOR AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim path = "\\share01\Datenarchiv\AWOR\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
Dim Dateiname = ""

10
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -1,6 +1,7 @@
Imports System.IO
Imports System.Net.Mail
Imports System.Text
Imports System.Windows.Forms
Imports ClosedXML.Excel
Public Class cProgramFunctions
@@ -193,7 +194,7 @@ Public Class cProgramFunctions
End Function
Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional openPDF As Boolean = True, Optional optFileName As String = "", Optional endung As String = ".xlsx") As String
Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional openPDF As Boolean = True, Optional optFileName As String = "", Optional endung As String = ".xlsx", Optional autoAdjust As Boolean = True) As String
Try
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -229,6 +230,13 @@ Public Class cProgramFunctions
End If
If autoAdjust Then
'Spaltenbreite auto:
wb.Worksheets(0).Columns().AdjustToContents()
End If
Dim filename As String = ""
If optFileName <> "" Then
filename = sPath & optFileName & endung '".xlsx"