EXG Automatisierung Gestellungsprozess, NCTS Erstellung

DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb

@@ -342,7 +342,9 @@ Public Class cDakosyEXG
     Property exg_Eroeffnung As Object = Nothing
     Property exg_Ankunft As Object = Nothing
     Property exg_Erledigung As Object = Nothing
-
+    Property exg_AutoFill_DyId As Object = Nothing
+    Property exg_AutoTranslate As Boolean = True
+    Property exg_ForceTranslate As Boolean = False
 
     Property exg_POSITION As New List(Of cDakosy_EXG_Position)
 
@@ -704,6 +706,9 @@ Public Class cDakosyEXG
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Eroeffnung", exg_Eroeffnung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Ankunft", exg_Ankunft))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Erledigung", exg_Erledigung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AutoFill_DyId", exg_AutoFill_DyId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AutoTranslate", exg_AutoTranslate))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ForceTranslate", exg_ForceTranslate))
 
 
 
@@ -843,6 +848,60 @@ Public Class cDakosyEXG
         Return ""
     End Function
 
+    Shared Function UPDATE_FillNCTS_ID(exg_Id As Integer, dyId As Integer) As String
+        If exg_Id > 0 Then
+            Try
+                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True))
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dyId", dyId, , True))
+                'dy_Status_KEWILL_Equivalent = status
+                'dy_Status = status
+                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+                Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET [exg_AutoFill_DyId]=@dyId WHERE exg_Id=@exg_Id ", "FMZOLL", , list)
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End If
+        Return ""
+    End Function
+
+    Shared Function UPDATE_FillNCTS_ID_Completed(exg_Id As Integer) As String
+        If exg_Id > 0 Then
+            Try
+                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True))
+                'dy_Status_KEWILL_Equivalent = status
+                'dy_Status = status
+                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+                Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET [exg_AutoFill_DyId_Complete]=1 WHERE exg_Id=@exg_Id ", "FMZOLL", , list)
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End If
+        Return ""
+    End Function
+
+    Shared Function isFillNCTS_ID_ALLCompleted(dyId As Integer) As Boolean
+        If dyId > 0 Then
+            Try
+                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+                Dim cnt = SQL.getValueTxtBySql(" SELECT COUNT(*)  FROM [tblDakosy_EXG]  where [exg_AutoFill_DyId] ='" & dyId & "' and exg_AutoFill_DyId=1 AND [exg_AutoFill_DyId_Complete]=0 ", "FMZOLL", ,, -1)
+
+                If cnt = 0 Then
+                    Return True
+                End If
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End If
+        Return False
+    End Function
+
 
     'Public Function LOADByBezugsNr(exg_ObjectName As String, loadALL As Boolean) As Boolean
     '    Try