Kunden, Zollauswertung, MDM, eRechnung (aktuell noch deaktiviert!)

SDL/USTV/usrCntlUSTV.vb

@@ -384,6 +384,12 @@ Public Class usrCntlUSTV
             ContextMenuStrip2.Items.Add(uta)
         End If
 
+        If Not ContextMenuStrip2.Items.ContainsKey("ids") Then
+            Dim ids = New ToolStripMenuItem() With {.Text = "IDS", .Name = "ids", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
+            ContextMenuStrip2.Items.Add(ids)
+        End If
+
         ContextMenuStrip2.Show(Cursor.Position)
 
 
@@ -459,6 +465,18 @@ Public Class usrCntlUSTV
                             MsgBox("Fertig!")
                         End If
 
+                    ElseIf item.Name = "ids" Then
+
+                        If vbYes = MsgBox("Es werden " & item.Text & " Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
+                            For Each r As DataGridViewRow In dgvUSTV.Rows
+                                If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then
+                                    frmMDM_USTVAntrag.loadUSTVFrom_IDS(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
+                                End If
+                            Next
+                            init()
+                            MsgBox("Fertig!")
+                        End If
+
                     Else
                         MsgBox("Funktion nicht implementiert!")
                     End If