APIZugange, Mitarbeiter, StartOptions, UTA.

initATLASAufschubkonten/frmStartOptions.vb

@@ -4427,10 +4427,11 @@ Public Class frmStartOptions
             Dim totalPages = 0
             Dim batchrequestNr = 0
 
-            fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0)
+            fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0, cbxOnlyBilledTransactions.Checked)
 
             If fehler <> "" Then
                 MsgBox(fehler)
+                Me.Visible = True
                 Exit Sub
             End If
 
@@ -4442,6 +4443,7 @@ Public Class frmStartOptions
 
                     If fehler <> "" Then
                         MsgBox(fehler)
+                        Me.Visible = True
                         Exit Sub
                     End If
 
@@ -4474,6 +4476,7 @@ Public Class frmStartOptions
             fehler = mse.getInvoices(token, invoice, datVon.Value, datVon.Value)
             If fehler <> "" Then
                 MsgBox(fehler)
+                Me.Visible = True
                 Exit Sub
             End If
 
@@ -4498,6 +4501,7 @@ Public Class frmStartOptions
 
                             If fehler <> "" Then
                                 MsgBox(fehler)
+                                Me.Visible = True
                                 Exit Sub
                             End If
                         Next
@@ -4576,6 +4580,7 @@ Public Class frmStartOptions
 
         If fehler <> "" Then
             MsgBox(fehler)
+            Me.Visible = True
         Else
 
             Dim totalPages = 1
@@ -4641,17 +4646,18 @@ Public Class frmStartOptions
         Me.Visible = True
     End Sub
 
-    Private Sub LinkLabel59_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel59.LinkClicked, LinkLabel61.LinkClicked
-
+    Private Sub LinkLabel59_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel59.LinkClicked, LinkLabel61.LinkClicked, LinkLabel62.LinkClicked
 
 
         If sender Is LinkLabel59 Then
             If Not IsNumeric(txtTransactionID.Text) Then
                 MsgBox("ID muss 10stellige Nr sein!")
+                Me.Visible = True
                 Exit Sub
             End If
             If CInt(txtTransactionID.Text) < 100000000 AndAlso CInt(txtTransactionID.Text) > 199999999 Then
                 MsgBox("falsche ID")
+                Me.Visible = True
                 Exit Sub
             End If
 
@@ -4669,6 +4675,7 @@ Public Class frmStartOptions
 
         If fehler <> "" Then
             MsgBox(fehler)
+            Me.Visible = True
         Else
 
 
@@ -4676,13 +4683,15 @@ Public Class frmStartOptions
 
             If sender Is LinkLabel59 Then
                 dtTransactionID.Columns.Add("transaction_id", GetType(String))
+                dtTransactionID.Columns.Add("found", GetType(Boolean))
                 Dim R As DataRow = dtTransactionID.NewRow
                 R("transaction_id") = txtTransactionID.Text
+                R("found") = True
                 dtTransactionID.Rows.Add(R)
 
-            Else
+            ElseIf sender Is LinkLabel61 Then
 
-                dtTransactionID = SQL.loadDgvBySql("select [transaction_id] FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & datVon.Value & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL")
+                dtTransactionID = SQL.loadDgvBySql("select [transaction_id], CAST(1 AS BIT) as found FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & datVon.Value & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL")
                 If dtTransactionID.Rows.Count = 0 Then
                     MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!")
                     Me.Visible = True
@@ -4694,6 +4703,21 @@ Public Class frmStartOptions
                     Exit Sub
                 End If
 
+            ElseIf sender Is LinkLabel62 Then
+
+
+                dtTransactionID = SQL.loadDgvBySql("select bills.[transaction_id], CAST(1 AS BIT) as found FROM [VERAG].[dbo].[tblMSESettlements] as bills 
+                                                    inner  join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id]  where trans.[transaction_status] <> 'Billed' and [invoice_date] = '" & datVon.Value & " '", "FMZOLL")
+                If dtTransactionID.Rows.Count = 0 Then
+                    MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!")
+                    Me.Visible = True
+                    Exit Sub
+                End If
+
+                If Not vbYes = MsgBox("Möchten Sie die " & dtTransactionID.Rows.Count & " Transaktionen aktualisieren?" & vbNewLine & "Dieser Vorgang dauert je nach Anzahl der Transaktionen etwas.", vbYesNoCancel) Then
+                    Me.Visible = True
+                    Exit Sub
+                End If
 
             End If
 
@@ -4704,11 +4728,83 @@ Public Class frmStartOptions
                 MsgBox(fehler)
                 Me.Visible = True
                 Exit Sub
-            End If
+            Else
 
+                Dim dv = New DataView(dtTransactionID)
+                Dim dtMissingTransactions As New DataTable
+                dv.RowFilter = "found = false"
+                dtMissingTransactions = dv.ToTable
+
+                If dtMissingTransactions.Rows.Count > 0 Then
+
+                    Dim b = New System.Text.StringBuilder()
+                    For Each resultRow In dtTransactionID.Rows
+                        b.Append(resultRow(0) & vbNewLine)
+                    Next
+
+                    MsgBox(dtTransactionID.Rows.Count & " nicht gefundene Transaktionen:" & vbNewLine & b.ToString)
+                    Me.Visible = True
+
+                End If
+
+            End If
         End If
 
+
         Me.Visible = True
     End Sub
 
+    Private Sub LinkLabel60_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel60.LinkClicked
+
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
+        Dim mse As New cMSEAPI("MSE")
+        Dim fehler As String = ""
+        Dim token = mse.createJWT(fehler)
+        Dim dt As New DataTable
+        If fehler <> "" Then
+            MsgBox(fehler)
+        Else
+            Dim totalPages = 0
+            Dim batchrequestNr = 0
+
+            fehler = mse.getNewestSettlements(token, dt, batchrequestNr, totalPages, 0)
+
+            If fehler <> "" Then
+                MsgBox(fehler)
+                Me.Visible = True
+                Exit Sub
+            End If
+
+
+            'Newest Settlements werden nicht benötigt, erst beim Abrufen der RECHNUNG sollen die dazugehörigen Settlements abgerufen werden, allerdings müssen diese initial 1x per API abgerufen werden (mittels getNewSettlements , ansonsten können Sie nicht gefunden werden)!
+
+            'sollten sie dennoch gespeichert werden, dann fogenden Code aktivieren:
+
+            '-------------START----------------------------------------------
+            'If totalPages > 1 Then
+
+            '    For i = 2 To totalPages
+            '        If dt.Rows.Count > 0 Then dt.Clear()
+            '        fehler = mse.getSettlementsFromBatchNrAndPage(token, dt, batchrequestNr, totalPages, i)
+
+            '        If fehler <> "" Then
+            '            MsgBox(fehler)
+            '            Exit Sub
+            '        End If
+
+            '        i = i + 1
+            '    Next
+
+
+
+            'End If
+
+            '-------------ENDE----------------------------------------------
+        End If
+
+        Me.Visible = True
+
+    End Sub
+
 End Class