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

Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2026-02-10 10:18:02 +01:00
parent 747ac29465 48e3950675
commit f844fd27bc
3 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
initATLASAufschubkonten/cBuergschaften.vb
View File

@@ -15,11 +15,12 @@ Public Class cBuergschaften
Return cn
End Function
Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=FMZOLL\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
' cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
cn.Open()
Return cn
Return (VERAG_PROG_ALLGEMEIN.SQL).GetNewOpenConnectionFMZOLL()
'Dim cn As New SqlConnection()
'cn.ConnectionString = "Data Source=FMZOLL\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
'' cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
'cn.Open()
'Return cn
End Function
Public Shared Function GetNewOpenConnectionBUCHHALTUNG() As SqlConnection
Dim cn As New SqlConnection()

6
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1240,7 +1240,11 @@ Public Class frmStartOptions
Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg"
If KundenNr = 770931 Then ' Sonderfall Kanadevia
If KdAtrNr.ToString.Contains("/") Then
KdAtrNr = KdAtrNr.ToString.Split("/")(0) 'nur vorderer Teil nehmen
End If
End If
'Wenn ein fixer BEtreff verwendet werden sollte:
If KD_ERW.EmailFreigabeBeleg_Betreff Then