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

18
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -43,6 +43,7 @@ Public Class frmDYNachrichtenVerarbeitung
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
Me.ERROR_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
@@ -5082,7 +5083,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim MailTo = "eu@verag.ag"
Select Case EZA_TMP.eza_firma
Case "IMEX" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "info@imex-group.at"
Case "UNISPED" : MailTo = "office@unisped.at"
Case "ATILLA" : MailTo = "atilla@verag.ag"
Case "VERAG"
Select Case EZA_TMP.eza_niederlassung
Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5273,7 +5275,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim MailTo = "eu@verag.ag"
Select Case EZA_TMP.eza_firma
Case "IMEX" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "atilla@verag.ag"
Case "UNISPED" : MailTo = "office@unisped.at"
Case "VERAG"
Select Case EZA_TMP.eza_niederlassung
Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5464,7 +5467,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim MailTo = "eu@verag.ag"
Select Case EZA_TMP.eza_firma
Case "IMEX" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "atilla@verag.ag"
Case "UNISPED" : MailTo = "office@unisped.at"
Case "VERAG"
Select Case EZA_TMP.eza_niederlassung
Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5596,9 +5600,11 @@ Public Class frmDYNachrichtenVerarbeitung
Dim cn As New System.Data.SqlClient.SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
'Dim cn As New System.Data.SqlClient.SqlConnection()
'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
'cn.Open()
Using cn
Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)