DruckversionProgrammierung eines Mahnwesens - Die Dialoge und Prozeduren
Rechnungen bezahlen
Der Zahlungseingang der Rechnungen wird über Rechnungen eingeben erledigt.
Zahlungseingang
Nach Klicken auf den Button Rechnung gezahlt erscheint eine Meldung über den Erfolg des Zahlungseingangs.
Meldung über Zahlungseingang
Wenn die Zahlung ohne Restbetrag ausgewiesen wird, erscheint die Meldung über die vollständige Zahlung der Rechnung und sie wird als Datei mit dem Zusatz "bezahlt" gespeichert.
Die Prozedur für das Bezahlen wird nach Klick auf Button Rechnung bezahlt aufgerufen und heißt Private Sub CommandButtongezahlt_Click(). Wenn Sie einen Haltepunkt zu Beginn der Prozedur setzten, können Sie das Geschehen schrittweise verfolgen.
Nach Testen des vollständigen Ausfüllens der Dialogfelder wird der gezahlte Betrag übernommen, die Zeilennummer der Rechnung über die Rechnungsnummer festgestellt und in die Rechnungsliste übernommen.
Code:
ReNr = Me.ListBox1.Value 'angeklickter Satz aus Liste liefert ReNr als Value
Betrag = Me.TextBoxBetrag 'liefert eingegeben gezahlten Betrag
'Zeilennummer der ausgewählten ReNr. feststellen
Do
Zeilennr = Zeilennr + 1
Loop Until Worksheets("Rechnungliste").Cells(Zeilennr, 2) = ReNr
'KNr des gefundenen Satz lt. ReNr feststellen
KundenNr = Worksheets("Rechnungliste").Cells(Zeilennr, 1)
Worksheets("Rechnungliste").Cells(Zeilennr, 4) = _
Worksheets("Rechnungliste").Cells(Zeilennr, 4) - Betrag
Wenn die Rechnung vollständig beglichen wurde, erfolgt das Umbenennen des Rechnungsdokuments.
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied