WebSVN – public – Diff – /tilgungsplan/trunk/src/tilgrech.cpp

 	   while (rat_dat[r_ind] < dvon && r_ind < max_rat)
 	      r_ind++;
 	dat_par = ragab;
 	tageber (dat_par);
-	kap = rahmen;
+	kap = rahmen + TpPars->kosten;
 	rat = 0.0;
 	ab_tag = tg_par;
 	vorrech ();
 	while (r_ind < max_rat && a_ind < max_abs)
 	if (TpPars->effekt)
 	   effend = TpPars->dvon + 10000L;	// 1 Jahr für Effektivzinsberechnung
 	else
 	   effend = 0L;
+	/* Spesen dürfen nur einmal bei der Auszahlung auf das Kapital
+	 * aufgeschlagen werden.
+	 */
+	if (!TpPars->effekt)
+	{
+	   DTable.datum = TpPars->ragab;
+	   DTable.kz = 'U';		// Auszahlung
+	   DTable.kapital = kap;
+	   DTable.tilg = 0.0;
+	   DTable.rate = 0.0;
+	   DTable.zinsen = TpPars->kosten;
+	   DTable.rkapi = kap + TpPars->kosten;
+	   kap += TpPars->kosten;
+	   write (fd, &DTable, sizeof (DTABLE));
+	   offset += (long)sizeof (DTABLE);
+	}
 	/* Schleife zur Berechnung der Gesamtbelastung (Dekursiv) */
 	for (i = 0; i < index; i++)
+	{
 #ifdef _ZINSAENDERUNG
 	   // Ist eine Zinssatzänderung gewünscht?
 	ab_tag = 0L;
 	zi_rat = 0.0;
 	zi_kap = 0.0;
 	dat_par = 0L;
+	reh = 0;
+	divisor = 0.0;
+	a_ind = 0;
+	r_ind = 0;
+	max_abs = max_rat = 0;
+	pos = 0L;
+	a_dat = 0L;
+	tg_par = tg_alt = 0L;
+	r_dat = 0L;
+	ldat = 0L;
+	rat = kap = 0.0;
 	for (i = 0; i < 1200; i++)
+	{
 	   rat_dat[i] = 0L;
 	   ab_dat[i] = 0L;

Subversion Repositories public