EV Ezoll

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -3184,5 +3184,13 @@ Public Class usrCntlKundenuebersicht
         Me.Cursor = Cursors.Default
     End Sub
 
-
+    Private Sub Button15_Click_2(sender As Object, e As EventArgs) Handles Button15.Click
+        If cboFirmaFMZOLL._value = "" Then
+            MsgBox("Bitte Firma auswählen!")
+        Else
+            Dim KontoList As New List(Of String)
+            KontoList.Add(KUNDE.KundenNrZentrale)
+            frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "")
+        End If
+    End Sub
 End Class