PROCEDURE VPRBEST
* prbest: programm f�r bestattungen
schdat="1111110"
do vdatei
select 1
unr="9.1  "
ueb="Vorvertr.-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 vstamm
return