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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:35:31 +02:00
parent 853d96140f
commit 41b13fe4b0
38 changed files with 603 additions and 256 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/EZollAufschubEinlesen.vb
View File

@@ -146,7 +146,7 @@ Public Class EZollAufschubEinlesen
End While
Return daten
Catch ex As Exception
writeLog("ERROR", "Fehler beim Laden der DB aus EZOLL: " & ex.Message)
writeLog("ERROR", "Fehler beim Laden der DB aus EZOLL: " & ex.Message & ex.StackTrace)
Finally
dr.Close()
End Try
@@ -156,7 +156,7 @@ Public Class EZollAufschubEinlesen
Return daten
End While
Catch ex As Exception
writeLog("ERROR", "Fehler bei der Verbindung zur DB EZOLL: " & ex.Message)
writeLog("ERROR", "Fehler bei der Verbindung zur DB EZOLL: " & ex.Message & ex.StackTrace)
End Try
Return Nothing
End Function
@@ -178,7 +178,7 @@ Public Class EZollAufschubEinlesen
" End " &
" commit tran "
Using conn As SqlConnection = GetNewOpenConnectionADMIN()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN ' GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand(sql, conn)
Select Case daten.Abgabenart
@@ -216,9 +216,9 @@ Public Class EZollAufschubEinlesen
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection
Public Shared Function GetNewOpenConnectionADMIN_OLD() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Return cn
End Function