PROCEDURE UPBEST2
* upbest2
//*
LOCAL aData1[ FCount() ]
satzsperren()
aData1 := SatzGet( Select(), RecNo() )
IF funk="1" .and. aData1[1]=0
   Radio( aData1 )
   aData1[1] = val(nr)
ENDIF
*//
schae=0
if funk="1".and.schae=0
//repl plz_ort with "46117 Oberhausen"
//repl eh_ort with "46117 Oberhausen"
//repl ansp_ort with "46117 Oberhausen"
//repl geb_in with "Oberhausen"
//repl verst_in3 with "46117 Oberhausen"
repl todesurs with "nat�rlicher Tod"
repl staatsan with "deutsch"
endif
do while .t.
clear
@  0,0 say "Auftr/Berater " + nr get berater

@  1,0 say "V E R S T O R B E N E R"

@  2,0 say "Anrede    " get anrede
@  3,0 say "Nachname  " get name
@  4,0 say "Vorname   " get vorname
@  5,0 say "Geb-Name  " get geb_name
@  6,0 say "Strasse   " get strasse
@  7,0 say "Plz/Ort   " get Plz_ort
@  8,0 say "Beruf     " get beruf
@  9,0 say "Fam-Stand " get famstand
@  9,21 say "Religion" get konf
@ 10,0 say "Staatsang." get staatsan

@ 11,0 say "geboren am" get geb_datum
@ 11,22 say "Alter= " + str(jahre,3,0)
@ 12,0 say "geboren in" get geb_in

@ 13,0 say "Sterbe-Dat" get gestorben

do while .t.
select 1
@ 14,0 say "Kennz-KH ?" get verst_kz
read
if verst_kz="?"
   select 5
   go top
   zei=1
   do while .not. eof()
      if gruppe="KH"
         @ zei,40 say verskz+" "+substr(name1,1,25)+" "+substr(plz_ort,1,7)
         zei=zei+1
         if zei>23
            wait "Weiter mit ENTER..."
            zei=1
         endif
      endif
      skip
   enddo
*   wait "Weiter mit ENTER..."
   select 1
   loop
endif
if verst_kz<>"     "
   schlvers=upper(verst_kz)
   select 5
   find &schlvers
   if eof()
      @ 15,0 say "Adr-Kennz nicht vorhanden !"
      select 1
      loop
   else
      @ 15,0 say "                           "
   endif
   zname1=name1
   zstrasse=strasse
   zplz_ort=plz_ort
   select 1
satzsperren()
   repl verst_in1 with zname1
   repl verst_in2 with zstrasse
   repl verst_in3 with zplz_ort

endif
exit
enddo
zei=1
do while .t.
   @ zei,40 say space(40)
   zei=zei+1
   if zei>23
      exit
   endif
enddo

select 1
@ 15,0 say "Sterbe-Ort" get verst_in1
@ 16,0 say "          " get verst_in2
@ 17,0 say "          " get verst_in3

@ 18,0 say "Todesurs. " get todesurs
@ 19,0 say "T-Schein  " get totensch

@ 20,0 say "Testament " get testament
@ 21,0 say "Nachla�   " get nachlass
@ 22,0 say "Kr-Rente  " get kriegsrent
@ 22,13 say "VS-Amt" get versorgamt

*********************************************

do while .t.
@  1,40 say "Best.-Art " get best_art
@  1,55 say "Aufbahrung OA,GE,GK" get kzoffge
@  2,40 say "Wohn/KH/Heim" get kzwo
@  2,55 say "Ort O/B/Ausw." get kzort
read
repl best_art with upper(best_art)
repl kzoffge with upper(kzoffge)
repl kzwo with upper(kzwo)
repl kzort with upper(kzort)
if kzoffge="OA".or.kzoffge="GE".or.kzoffge="GK"
else
   @  3,40 say "Aufbahrung: Bitte nur OA-GE-GK eingeben !"
   loop
endif

if kzwo="W".or.kzwo="K".or.kzwo="H"
else
   @  3,40 say "wo gestorben: bitte nur W-K-H eingeben !"
   loop
endif

if kzort="O".or.kzort="B".or.kzort="A"
else
   @  3,40 say "Ort gestorben: Bitte nur O-B-A eingeben !"
   loop
endif
exit
enddo
@  3,40 say space(40)

@  3,40 say "�berf�hr. " get ueberfried
@  4,40 say "Friedhof  " get beifried
@  5,40 say "Gruft/Reih" get grreihe
@  6,40 say "Datum/Zeit" get beerd_dat
@  6,62 say " " get beerd_zeit
@  7,40 say "Kommentar " get kommbeerd1
@  8,40 say "          " get kommbeerd2

@  9,40 say "Kirche    " get messewo
@ 10,40 say "Pastor    " get pastor
@ 11,40 say "Datum/Zeit" get messedat
@ 11,62 say " " get messezeit

@ 12,40 say "Dekoration" get deko
@ 13,40 say "G�rtner   " get gaert
@ 14,40 say "Sarg-Gest." get sgesteck

@ 15,40 say "Bus-Zeit  " get buszeit
@ 15,57 say "Text" get buskomm
@ 16,40 say "Kaffee    " get kaffee
@ 17,40 say "Tr-Briefe " get tbriefe
@ 18,40 say "WAZ       " get waz
@ 19,40 say "Obduktion " get obdukt
@ 20,40 say "R/Schmuck " get ring
@ 21,40 say "Eig.Bekl. " get bekleid
@ 22,40 say "Tr�ger    " get sargtrae

read
*****
* datum/alter
zd1=geb_datum
zd2=gestorben
zcd1=dtoc(geb_datum)
zcd2=dtoc(gestorben)
if zcd1="  .  .  ".or.zcd2="  .  .  "
alter=0
else
do while .t.
if geb_datum<gestorben
   if month(zd1)<month(zd2)
      alter=year(zd2)-year(zd1)
      exit
   endif
   if month(zd1)=month(zd2)
      if day(zd1)<day(zd2).or.day(zd1)=day(zd2)
      alter=year(zd2)-year(zd1)
      exit
      endif
   endif
   alter=year(zd2)-year(zd1)-1
   exit
else
   if month(zd1)<month(zd2)
      alter=100-(year(zd1)-year(zd2))
      exit
   endif
   if month(zd1)=month(zd2)
      if day(zd1)<day(zd2).or.day(zd1)=day(zd2)
      alter=100-(year(zd1)-year(zd2))
      exit
      endif
   endif
   alter=100-(year(zd1)-year(zd2))-1
   exit
endif
enddo
endif
*****
*Tag=beerd_dat
*tagaus=space(10)
*do wochtag
*replace beerdtag with tagaus

*tag=feierdat
*tagaus=space(10)
*do wochtag
*replace feiertag with tagaus

*tag=kidatum
*tagaus=space(10)
*do wochtag
*replace kirchetag with tagaus

replace jahre with alter
*@ 11,51 say beerdtag
*@ 15,51 say feiertag
*@  5,51 say kirchetag

@ 11,22 say "Alter= "+str(jahre,3,0)

  antw=" "
  @24,0 clear
if funk="1"
  @24,0 say "Alle Eingaben O.K. ? (j/n/a)" get antw
else
  @24,0 say "Alle Eingaben O.K. ? (j/n)" get antw
endif
read
  if antw="j" .or. antw="J"
     schae=0
  endif
  if (antw="a" .or. antw="A") .and. funk="1"
              delete
              antw=" "
              nr="      "
              return
  endif
  if antw="n" .or. antw="N"
     schae=1
     delete
     loop
  endif



if funk="1".and.schae=0
   repl eh_name with name
   repl eh_str with strasse
   repl eh_ort with plz_ort
endif

clear
@  1,0 say "E H E P A R T N E R"
@  2,0 say "Nachname " get eh_name
@  3,0 say "Vorname  " get eh_vname
@  4,0 say "Geb-Name " get eh_gebn
@  5,0 say "Stra�e   " get eh_str
@  6,0 say "Ort      " get eh_ort
@  7,0 say "geboren  " get eh_gebd
@  8,0 say "gestorben" get eh_gest

@ 11,0 say "Sonstiges" get sonst1
@ 12,0 say "         " get sonst2
@ 13,0 say "         " get sonst3


read

if funk="1".and.dtoc(eh_gest)="  .".and.schae=0

   repl ansp_name with eh_name
   repl ansp_vname with eh_vname
   repl ansp_str with eh_str
   repl ansp_ort with eh_ort
endif


@  1,40 say "A U F T R A G - G E B E R"
@  2,40 say "Anrede   " get ansp_anr
@  3,40 say "Name     " get ansp_name
@  4,40 say "Vorname  " get ansp_vname
@  5,40 say "Strasse  " get ansp_str
@  6,40 say "Plz/Ort  " get ansp_ort
@  7,40 say "Telefon  " get ansp_telp
@  8,40 say "Bankverb." get ansp_bankv
@  9,40 say "Kto-Nr   " get ansp_kto
@ 10,40 say "BLZ      " get ansp_blz
@ 11,40 say "Kto-Inh. " get ansp_ktoi
@ 12,40 say "Verwandt." get ansp_bez
@ 13,40 say "Archiv      *=zur�ckhalten"
@ 13,50 get stern
  read
//*
antw="n"
@ 15,0 say "Notiz j/n " get antw
read
if antw="j"
   @ 16,3 to 23,77
   @ 16,10 say "Notiz zu Auftrag " + nr + " (beenden mit Strg-W) "
   replace Notiz with memoedit( Notiz,17,5,22,75 )
   @ 16,3 clear to 23,77
endif
*//
  antw=" "
  @24,0 clear
if funk="1"
  @24,0 say "Alle Eingaben O.K. ? (j/n/a)" get antw
else
  @24,0 say "Alle Eingaben O.K. ? (j/n)" get antw
endif
read

  if antw="j" .or. antw="J"
              replace best_art with upper (best_art)
              replace auftrnr with val(nr)
              recall
//*
IF unr="9"
      trckng( 1, RecNo(), aData1, "V" )
   ELSE
      trckng( 1, RecNo(), aData1, "B" )
ENDIF
*//
              nr="      "
              return
  endif
  if (antw="a" .or. antw="A") .and. funk="1"
              delete
              antw=" "
              nr="      "
              return
  endif
  if antw="n" .or. antw="N"
     schae=1
     delete
     loop
  endif
antw=" "
enddo
RETURN