*ausw.prg
set talk off
set bell off
eras
@ 3,15 say "Auswertung der Einlasskontrolle"
@ 4,15 say '==============================='
tag,an,ant=' '
sele prim
use tagdat
@ 6,1 say "Koennen die Daten geloescht werden? " get ant pict 'X'
read
if !(ant)='J'
 dele all
 pack
endif
@ 8,1 say "Welcher Tag soll ausgewertet werden? " get tag pict '9999'
read
eszeit='6'
emzeit='40'
@ 10,1 say "Ist dieser Tag ein Freitag? " get an pict 'X'
read
if !(an)='J'
 aszeit='13'
 amzeit='15'
else
 aszeit='15'
 amzeit='50'
endif
datei='p'+tag+'.dat'
datei2='L'+tag
set console off
set print on
set print to &datei2
? '        Auswertung der Einlasskontrolle vom '+$(tag,1,2)+'.'+$(tag,3,2)+'.1992'
?
set print off
set console on
eras
@ 12,15 say 'Anlegen einer neuen Tagesdatei!'
appe blank
appe from &datei SDF
dele reco 2
pack
set inde to itagdat
rein
sele seco
use pers inde ipers
go top
pernr=' '
satz=#
eing,ausg=0
pernr=persnr
sele prim
find &pernr
do while pernr=persnr .and. .not. eof
if satz<>0
 if kz=' '
  if fe='E'
   eing=eing+1
   ezeit=zeit
   if $(ezeit,1,2)>eszeit .or. $(ezeit,4,2)>emzeit
    bemerk1='Zeitabweichung Eingang: '+ezeit
   else
    bemerk1=' '
   endif
  else
   ausg=ausg+1
   azeit=zeit
   if $(azeit,1,2)<aszeit .or. $(azeit,4,2)<amzeit
    bemerk2='Zeitabweichung Ausgang: '+azeit
   else
    bemerk2=' '
   endif
   if $(azeit,1,2)>aszeit
    bemerk3='Spaetausgang: '+azeit
   else
    bemerk3=' '
   endif
  endif
  if eing<>ausg
   sat='Es wurden '+str(eing,1)+' Eingaenge und '+str(ausg,1)+' Ausgaenge registriert.'
  else
   sat=' '
  endif
  sele prim
  skip
  if pernr=p.persnr
   satz=#
   loop
  else
   if bemerk1=' ' .and. bemerk2=' ' .and. bemerk3=' ' .and. sat=' '
    eras
    @ 3,2 say s.persnr+' '+trim(s.name)+' '+trim(s.vorname)
   else
    eras
    set print on
    set print to &datei2
    ? s.persnr+' '+s.kst+' '+trim(s.name)+' '+trim(s.vorname)
    ? '           '+tag
    ? '           '+bemerk1
    ? '           '+bemerk2
    ? '           '+bemerk3
    ? '            '+$(sat,1,35)
    set print off
   endif
  endif
  sele seco
  skip
  pernr=persnr
  sele prim
  find &pernr
  eing,ausg=0
  satz=#
  eras
  loop
 else
  if fe='E'
   eing=eing+1
   ezeit=zeit
   bemerk4='Eingang: '+ezeit
  else
   ausg=ausg+1
   azeit=zeit
   bemerk5='Ausgang: '+azeit
  endif
  sele prim
  skip
  if pernr=p.persnr
   eras
   loop
  else
   if eing<>ausg
    sat='Es wurden '+str(eing,1)+' Eingaenge und '+str(ausg,1)+' Ausgaenge registriert.'
   else
    sat=' '
   endif
   eras
   set print on
   set print to &datei2
   ? s.persnr+' '+s.kst+' '+trim(s.name)+' '+trim(s.vorname)
   ? '           '+tag
   ? '           '+bemerk4
   ? '           '+bemerk5
   ? '           '+$(sat,1,35)
   set print off
   sele prim
   sele seco
   skip
   pernr=persnr
   eras
   eing,ausg=0
   loop
  endif
else
 bemerk1='ist nicht erschienen'
 set print on
 set print to &datei2
 ? s.persnr+' '+s.kst+' '+trim(s.name)+' '+trim(s.vorname)
 ? '           '+tag
 ? '           '+bemerk1
 set print off
 sele prim
 sele seco
 skip
 pernr=persnr
 eras
 eing,ausg=0
 loop
endif
endif
enddo