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_NctsId = ncts_id
If Not p.INSERT() Then
p.INSERT_Packing(p.nctsHCCI_Id, p.nctsHCCI_NctsHCId, p.nctsHCCI_NctsId)
Return False
End If
Next

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

@@ -1241,7 +1241,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