Frage: Monatlicher Kassenbericht für Verein

[kannix]

Hallo,

gibt es eine einfache Möglichkeit, ein Readme oder ein Beispiel, wie ich einfach über einen bestimmten Zeitraum einen Kassenbericht für meine Theatergruppe erstellen kann, der etwa so aussieht (bevorzugt ascii, nehme aber auch jedes andere Format ):

---------------------------------------------------------------------------

13.05.2007
-------------

Kontostaende zum 13.05.2007

Kasse 200,-- Eu
Bank 1.300,-- Eu
Fundus 630,-- Eu



Buchungen
-------------

7.6.2007 Aufwendungen.theaterstueck.1 an Kasse 23,-- Eu
Geschenk für Hausmeister

9.6.2007 Kasse an Bank 700,-- Eu
Aufstocken der Kasse fuer Aufführung

12.6.2007 Aufwendungen.theaterstueck.1 an Kasse 213,-- Eu
Veranstalterhaftpflicht

12.6.2007 Aufwendungen.theaterstueck.1 an Kasse 438,-- Eu
Saalmiete

16.6.2007 Aufwendungen.theaterstueck.1 an Kasse 136,-- Eu
Fressalien und Sekt fuer Zwischenverkauf

18.6.2007 Bank an Einnahmen.theaterstueck.1 689,-- Eu
Kartenverkauf

18.6.2007 Kasse an Einnahmen.theaterstueck.1 301,-- Eu
Pausenverkauf



03.07.2007
-------------

Geldbewegungen seit 13.05.2007

Ausgaben 810,-- Eu
Einkuenfte 990,-- Eu


Kontostaende zum 03.07.2007

Kasse 809,-- Eu
Bank 1.289,-- Eu
Fundus 630,-- Eu


---------------------------------------------------------------------------


Bevor ich versuch da etwas zu programmieren würd ich gerne wissen, welches Mittel ich für so eine Auswertung verwenden sollte - Statistik? Druckdesigner? Berichte? oder die Programmierschnittstelle?

Danke und bis bald

Werner

[Team Schauries]

Hallo Werner,

wenn es Ascii sein soll und Dein vorgestelltes Format so gewünscht ist, würde ich einen Bericht erstellen und mit InterRun ein kleines Progrämmchen schreiben a la:

Procedure Schalter1_OnClick

var S : String
var I : Integer
var BeginOfMonth : String
var EndOfMonth : String

BeginOfMonth = BoM(DatumsfeldKontostaende.Date)
EndOfMonth = EoM(DatumsfeldKontostaende.Date)

s =
DatumsfeldKontostaende.Date + Cr +
'-----------' + Cr + Cr +
'Kontostände zum ' + DatumsfeldKontostaende.Date + Cr + Cr +
'Kasse ' + CurrencyToStr(Account('Kasse').TotalBalance(DatumsfeldKontostaende.Date)) + Cr +
'Bank ' + CurrencyToStr(Account('Bank').TotalBalance(DatumsfeldKontostaende.Date)) + Cr +
'Fundus ' + CurrencyToStr(Account('Fundus').TotalBalance(DatumsfeldKontostaende.Date)) + Cr + Cr

s = s +
'Buchungen' + Cr +
'-----------' + Cr + Cr

for i = 0 to Bookings.Count - 1
if DateToFloat(Booking(i).Date) >= DateToFloat(BeginOfMonth) and DateToFloat(Booking(i).Date) <= DateToFloat(EndOfMonth)
s = s +
Booking(i).Date + ' ' + Booking(i).SourceAccount + ' an ' + Booking(i).TargetAccount + ' ' + CurrencyToStr(Booking(i).Value) + Cr +
Booking(i).Description + Cr + Cr
EndIf
Next

| usw.

SaveTextToFile('C:\Export.txt',s)

EndProcedure

Gruß,
Dirk Schauries