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

ATLAS 9.1 AES 3.0; NCTS div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-26 09:01:14 +02:00
parent 04664a652b
commit 39295b2800
21 changed files with 81549 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1057,7 +1057,7 @@ Public Class cDakosyNCTSOut004
Try
ncts_HOUSE_CONSIGNMENT.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment WHERE nctsWP_NctsId=@ncts_Id ", conn)
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id ", conn)
cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
@@ -1155,7 +1155,7 @@ Public Class cDakosyNCTSOut004
' If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() Then
' 'jetzt die Standartofferten einfügen
' For Each p In ncts_WARENPOS
' p.nctsWP_NctsId = ncts_Id
' p.nctsHC_NctsId = ncts_Id
' If p.INSERT() Then
' p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.ncts_Id)
' p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.ncts_Id)
@@ -1948,7 +1948,7 @@ Public Class cDakosy_NCTSOut004_HouseConsignment
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWP_NctsId = nctsWP_NctsId
' Me.nctsHC_NctsId = nctsHC_NctsId
End Sub
'Sub New(nctsSA_Id)
@@ -2402,7 +2402,7 @@ Public Class cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWP_NctsId = nctsWP_NctsId
' Me.nctsHC_NctsId = nctsHC_NctsId
End Sub
'Sub New(nctsSA_Id)