PROCEDURE EUROHGW
*eurohgw
*Betrag-Eingangsvariable=hg_w
*Zeilen-Eingangsvariable=zae
*Spalten-Eingangsvariable=spa
**** Endbetrag in Hintergrundw„hrung als letzte Zeile der Rechnung****
//+23.07.2008 11:32 geREMt zum Schutz der r_b_1h und 2h
//////   if xdmeu="D"
//////      end_h=hg_w/xfaktor
//////      @ zae,spa say "(Dieser Betrag entspricht "+ltrim(str(end_h,8,2))+" "+w_gh+".)"
//////   else
//////      end_h=hg_w*xfaktor
//////      @ zae,spa say "(Dieser Betrag entspricht "+ltrim(str(end_h,8,2))+" "+w_gh+".)"
//////   endif
****
return