PROCEDURE PRBETR
*prbetr
use kbbetrag index xkbbetr
select 1
unr="6.3  "
ueb="Verwalten šbertr„ge"
znr="        "
lg=8
ftextda="Eintragung schon vorhanden !!!"
ftextnda="Keine Eintragungen zu diesem Datum !!!"
if lg=99
   do upbetr1
   do upbetr2
   do upbetr3
endif
prog1="upbetr1"
prog2="upbetr2"
prog3="upbetr3"
do bbstamm
return