neu

cNCTSPartnerWorker/cNCTS_TR.vb

@@ -5,7 +5,7 @@ Public Class cNCTS_TR
 
     Property ncts_Id As Integer
     Property ncts_Partnersystem As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00
-    Property ncts_Status As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00
+    Property ncts_Status As Object = Nothing ' DAKOSY_Worker.cDY_Statusliste.S_00
     Property ncts_Status_KEWILL_Equivalent As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00
     Property ncts_dyaArt As String = ""
     Property ncts_dyaAnmID As Integer
@@ -163,6 +163,7 @@ Public Class cNCTS_TR
     Property ncts_Eroeffnung As Object = Nothing
     Property ncts_Ankunft As Object = Nothing
     Property ncts_Erledigung As Object = Nothing
+    Property ncts_AVISO_einarbeitet As Boolean = False
 
     Property ncts_SICHERHEITSANGABEN As New List(Of cNCTS_TR_Sicherheitsangaben)
     Property ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition)
@@ -361,6 +362,7 @@ Public Class cNCTS_TR
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet))
 
         Return list
     End Function
@@ -682,6 +684,23 @@ Public Class cNCTS_TR
     End Function
 
 
+    Public Function UPDATE_AVISO_Einarbeitet(ncts_AVISO_einarbeitet As Boolean) As String
+        If ncts_Id > 0 Then
+            Try
+
+                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True))
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet))
+                ncts_AVISO_einarbeitet = ncts_AVISO_einarbeitet
+                Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_AVISO_einarbeitet=@ncts_AVISO_einarbeitet WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list)
+
+            Catch ex As Exception
+                MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            End Try
+        End If
+        Return ""
+    End Function
+
     Public Function getUpdateCmd() As String
         Try
             Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()