PROCEDURE EUROBU2
*eurobu2
*upbuch2

if einn=0
   repl einn with round(einneu*xfaktor,2)
endif
if ausg=0
   repl ausg with round(ausgeu*xfaktor,2)
endif

if einneu=0
   repl einneu with round(einn/xfaktor,2)
endif
if ausgeu=0
   repl ausgeu with round(ausg/xfaktor,2)
endif

  @ 6,5 say "Einnahme       " + str(&e_n,8,2)           && ****EURO
  @ 6,29 say w_g +" "+str(&e_nh,8,2)                    && ****EURO
  @ 6,42 say w_gh                               && ****EURO

  @ 7,5 say "Ausgabe        " +str(&a_g,8,2)           && ****EURO
  @ 7,29 say w_g +" "+str(&a_gh,8,2)                    && ****EURO
  @ 7,42 say w_gh                               && ****EURO

if (einn/xfaktor)-einneu >0.01 .or. (einn/xfaktor)-einneu <-0.01
   fehl_feld="Einnahme"
   do eurof
endif
if (ausg/xfaktor)-ausgeu >0.01 .or. (ausg/xfaktor)-ausgeu <-0.01
   fehl_feld="Ausgabe"
   do eurof
endif
return

* ab hier stehen die EURO-Programmteile von UPBUCH2.PRG:

  @ 6,5 say "Einnahme      " get &e_n           && ****EURO
  @ 6,29 say w_g get &e_nh                    && ****EURO
  @ 6,42 say w_gh                               && ****EURO

  @ 7,5 say "Ausgabe       " get &a_g           && ****EURO
  @ 7,29 say w_g get &a_gh                    && ****EURO
  @ 7,42 say w_gh                               && ****EURO


*** EURO *********
eurofehl=0
do eurobu2
if eurofehl=1
   eurofehl=0
*   loop
endif
******************
RETURN