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

Packst.

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-02 08:51:25 +01:00
parent 2304bf098b
commit fa42cca191
3 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
View File

@@ -3565,6 +3565,7 @@ Public Class cDakosy_NCTSOut004_HouseConsignment
p.nctsHCCI_NctsHCId = nctsHCId p.nctsHCCI_NctsHCId = nctsHCId
p.nctsHCCI_NctsId = ncts_id p.nctsHCCI_NctsId = ncts_id
If Not p.INSERT() Then If Not p.INSERT() Then
p.INSERT_Packing(p.nctsHCCI_Id, p.nctsHCCI_NctsHCId, p.nctsHCCI_NctsId)
Return False Return False
End If End If
Next Next

11
initATLASAufschubkonten/cBuergschaften.vb
View File

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

6
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1241,7 +1241,11 @@ Public Class frmStartOptions
Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg" 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: 'Wenn ein fixer BEtreff verwendet werden sollte:
If KD_ERW.EmailFreigabeBeleg_Betreff Then If KD_ERW.EmailFreigabeBeleg_Betreff Then