ATEZ status

initATLASAufschubkonten/frmStartOptions.vb

@@ -301,6 +301,10 @@ Public Class frmStartOptions
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(Now.AddDays(-3), Now, False)
                 closeMe()
+            Case "NCTS_FREMD_UPDATE_MRN" 'TRANSCODE NCTS UPDATEN solange status <>60,90
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                updateATEZStatusByMRNTop(500)
+                closeMe()
             Case "UID_Pruefung"
                 Dim f As New frmInfo(PARAM)
                 f.Show()
@@ -5522,6 +5526,7 @@ Public Class frmStartOptions
     End Sub
 
     Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click
+
         VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(MyTextBox5.Text)
 
     End Sub
@@ -5602,19 +5607,30 @@ Public Class frmStartOptions
 
     Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
 
-        Dim dt = (New SQL).loadDgvBySql("SELECT TOP (200) ncts_MRN  FROM  [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
+        '        Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id]   FROM [tblNCTS_FREMD]  where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL")
+        Dim top = 200
+        If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then
+            top = CInt(MyTextBox6._value)
+        End If
+
+        updateATEZStatusByMRNTop(top)
+    End Sub
+
+    Sub updateATEZStatusByMRNTop(top As Integer)
+        Dim dt = (New SQL).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN  FROM  [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
         If dt IsNot Nothing Then
             Label49.Text = "-"
             Dim cnt = 1
             For Each r In dt.Rows
                 Label49.Text = cnt & "/" & dt.Rows.Count
                 Me.Refresh()
-                VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn(r("ncts_MRN"))
+                VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(r("ncts_MRN"))
             Next
             Label49.Text = dt.Rows.Count & "fin"
         End If
     End Sub
 
+
     Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked
         If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub