Hosszabitas

[Fu:sto:s Ja'nos]

Hurra!

Sikerult megkapnom a javaslatod + programod alapjan a
hosszabitasok szamat. Szepen megvolt mindenki, meg azok is akik
ketszer hosszabitottak, ha hosszu idointervallumot veszek.
Ez jo!
Sot tul jo, mert eleg lenne csak a hosszabitott dokumentumok szamat
latni. A tobbivel nem nagyon tudok mit kezdeni, meg egy kicsit
maceras is, mire lecsorgok a tobbezres sorbol allo nyomtatott anyag
vegere. Bar nem ertek hozza, de megprobaltam egyszerusiteni a
kiirast. Ez sem tokeletes, de mar a masodik oldalon lathato a
hosszabitott dokumentumok szama.

---------------------------------------------------------------------
LONG SZAMLALO=0;
LONG OSSZES=0;

Kategoriaja( INT par ) OKATEG_rt
{
;
}

Olvasoja( INT par ) USER_rt
{
   IF( FNUM( #KATEGORIA ) == 0 )
   {
      CPRINT( "\n" );
      RETURN 1;
   };
   CALL( Kategoriaja,#KATEGORIA,"","",par );
}

Cime( INT par ) DOKUMENTUM_rt
{
;
}

Peldanya( INT par ) PELDANY_rt
{
   CALL( Cime,#KOTETE,"","",par );
}

Kolcs( INT par ) KOLCS_rt
{INT hossz;

   hossz=FLD_INT(#HOSSZABITVA);
/*
   IF( hossz > 0 )
   {
*/
      SZAMLALO=SZAMLALO+1;
      OSSZES=OSSZES+hossz;
      CALL( Peldanya,#KOLCSONZOTT,"","",par );
      CALL( Olvasoja,#KOLCSONOZTE,"","",par );
/*
   };
*/
;
}

PROG Hosszabbitasok()
{
   IF( Kolcs(0) == 0 )
;
}

AFTER_PROG Fejlec()
{
   NPRINT( "\nA hossszabitasok szama osszesen:",OSSZES,8,"\n" );
}
---------------------------------------------------------------------

Ezt meg biztosan lehet egyszerusiteni!


A kovetkezo kerdesem az lenne, hogy van-e esely a CSAK HOSSZABITO
olvasok szamanak visszanyeresere?

Udv.: smoky