PROCEDURE PRBEST
* prbest: programm f�r bestattungen
schdat="1111110"
do datei
select 1
unr="1.1  "
ueb="Bestattungs-Daten"
lg=6
ftextnda="Auftrags-Nr nicht vorhanden !!!"
ftextda="Auftrags-Nr bereits vorhanden !!!"
if lg=7
   do upbest1
   do upbest2
   do upbest3
endif
prog1="upbest1"
prog2="upbest2"
prog3="upbest3"
do stbest
return