Hallo,
wie ich sehe, regnet bei euch viel…hier auch….
Es sind immer so kurze heftige Schauer, dann ist es wieder ruhig.
Das Meer ist ziemlich böse, ich könnte da jetzt gar nicht rein, die Wellen würden mich auf die scharfkantigen Korallen werfen…aber ich kann ja eh nicht rein, wegen meiner Wunde an Bein.
Der geht es ganz langsam besser, dauert aber offenbar.
Heute hätte der nächste Termin bei Gericht in dem Anullmentverfahren sein sollen, hat aber nicht stattgefunden, da der gegnerische Anwalt nicht erschienen ist…Also verschoben auf September.
Ich habe mir geschworen, ich gebe nicht auf…selbst wenn das Ja-Wort das letzte ist, was ich hauchen kann…
Ich habe dann Christy zum Herbst nach D eingeladen, ich hoffe viele von euch werden sie begrüßen, bei welcher Gelegenheit auch immer.
Wegen des schlechten Wetters gibt es auch keinen F. .
Ansonsten beschäftige ich mich mit sowas:
Private Sub btnsave_Click()
Dim Betrag As Currency
On Error GoTo btnsave_click_error
‚ Falls das Konto kein Lastschriftkonto ist, ist Lastschrift als Zahlungsmodus nicht auswählbar
‚
Me.lastschrift.Enabled = True
If DLookup(„kontoart“, „Konto“, „kontoid = “ & KontoId) = 1 Then Me.lastschrift.Enabled = False
‚ Bei Single Kursen wird der Betrag einmal am Anfang des Kurses bezahlt.
‚ Kunden die schon einen Vertrag haben, können ihn auch per Lastschrift bezahlen
‚ Es werden jeweils (bei bar und Überweisung) 2 Umsätz im Falle der Bezahlung erzeugt (einmal Betrag negativ und einen mit positivem Betrag
‚
‚ Jede Kursbelegung kann mit einem Discount versehen werden
If Me.discount < 0 Then Me.discount = Me.discount * -1
Betrag = Me.betragbrutto – Me.discount
‚ Einfügen des Umsatzes als negativer Betrag
‚ rc = umsatz_add(Me.KontoId _
, Betrag * -1 _
, „Kursgebühren einmalig“ _
, Date _
, 6)
Select Case Me.zahlungsmodus
‚
‚ Überweisung, der Betrag wird wieder gutgeschrieben, ebenso bei bar
Case 1: rc = umsatz_add(Me.KontoId _
, Betrag _
, „Kursgebühren einmalig“ _
, Date _
, 4)
leistungsnehmer_bezahlt Me.LeistungsnehmerId, Date, Betrag, True
‚
‚ Bar
‚
Case 2: rc = umsatz_add(Me.KontoId _
, Betrag _
, „Kursgebühren einmalig“ _
, Date _
, 5)
leistungsnehmer_bezahlt Me.LeistungsnehmerId, Date, Betrag, True
‚
‚ Lastschrift. Der Betrag wird beim nächsten LS-Einsatz eingazogen
‚
Case 3:
leistungsnehmer_bezahlt Me.LeistungsnehmerId, Date, Betrag, True
‚
‚ Nicht bezahlt
‚
Case 4:
leistungsnehmer_bezahlt Me.LeistungsnehmerId, Date, Betrag, False
other: MsgBox „Unbekannter Zahlungsmodus“, vbCritical, „Zshlungsmodus“
End Select
DoCmd.Close
btnsave_click_exit:
Exit Sub
btnsave_click_error:
MsgBox „Fehler beim Zahlungsmodus“, vbCritical, „Fehler beim Zahlungsmodus“
MsgBox Err.description
Resume btnsave_click_exit
End Sub
Toll ne?
Stay tuned!