FKAT: Text bei Guthaben Vk, VG setzen bei DY API, RechnugnsPDF in KD Stamm

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -1252,9 +1252,9 @@ Public Class frmKundenUebersichtZOLL
         Else
 
             If If(KUNDE.EORITIN, "") = "" Then
-            MsgBox("Bitte EORI-Nr. eintragen!")
-            Exit Sub
-        End If
+                MsgBox("Bitte EORI-Nr. eintragen!")
+                Exit Sub
+            End If
             If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
                 '    init(KUNDE.KundenNr)
                 MsgBox("Daten gesendet!")
@@ -1354,4 +1354,62 @@ Public Class frmKundenUebersichtZOLL
             f.ShowDialog(Me)
         End If
     End Sub
+
+    Function getList_RK_ID() As List(Of Integer)
+        Dim listRgNr As New List(Of Integer)
+        Dim list As New List(Of Integer)
+        If dgvRg.SelectedRows.Count > 0 Then
+            For Each r As DataGridViewRow In dgvRg.SelectedRows
+                If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) < 0 Then
+                    list.Add(r.Cells("RK_ID").Value)
+                    listRgNr.Add(r.Cells("RechnungsNr").Value)
+                End If
+            Next
+        End If
+        Return list
+    End Function
+
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnRgPdf.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            For Each RK_ID In getList_RK_ID()
+                Dim RG_PATH = ""
+                cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True)
+                Process.Start(RG_PATH)
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiHochladenToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+
+            Dim list As New List(Of String)
+
+            For Each RK_ID In getList_RK_ID()
+                Dim RG_PATH = ""
+                cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True)
+                list.Add(RG_PATH)
+            Next
+
+            'Zwischenablage
+            Clipboard.Clear()
+            Dim d As New DataObject(DataFormats.FileDrop, list.ToArray)
+            Clipboard.SetDataObject(d, True)
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub dgvrg_SelectionChanged(sender As Object, e As EventArgs) Handles dgvRg.SelectionChanged
+        btnRgPdf.Enabled = (dgvRg.SelectedRows.Count > 0)
+    End Sub
+
 End Class
+
+