#! /bin/sh

ENGINE=ingres
export ENGINE

( echo Journal
  echo --------------------------------------------------------------------------

  gsql fibu%$ENGINE \
	'select * from journal' 2>/dev/null | sort -n

  echo ""
  ) >/tmp/Journal.out

( echo Saldenliste
  echo --------------------------------------------------------------------------

  gsql fibu%$ENGINE \
	'select nr, soll, haben, saldo, name
	   from kontenrahmen
	  where (soll>0) or (haben > 0)' 2>/dev/null | sort -n

  echo ""
  ) >/tmp/Salden.out

( gsql fibu%$ENGINE \
	'select nr
	   from kontenrahmen
	  where (soll>0) or (haben > 0)' 2>/dev/null | sort -n |
  while read NR
  do
	gsql fibu%$ENGINE \
		"select nr, name, soll, haben, saldo
		   from kontenrahmen
		  where nr = $NR" 2>/dev/null

	echo ------------------------------------------------------------------

	gsql fibu%$ENGINE \
		"select gkto, gname, sbetr, hbetr, belnr, datum, text
		   from kontenblatt
		  where kto = $NR" 2>/dev/null
	echo ""
  done
  ) >/tmp/Konten.out

LESS=""
export LESS

xterm -title Journal -e less /tmp/Journal.out &
xterm -title Saldenliste -e less /tmp/Salden.out &
xterm -title Kontenblaetter -e less /tmp/Konten.out &
