/* ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== fcfa-calculatrice.js ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== Funktion : Berechnung der Werte für die FCFA Kurstabelle Updates : 01 = 15.06.02/HSC 1.0 Erstellt, 02 = 30.06.02/HSC 1.1 T-Gruppen aus Preisberechnung hier zugefügt. Stellt Resultate in Tausender Gruppen dar. Ist noch nicht aktiviert, muss zuerst getestet werden. 03 = 03.07.02/HSC 1.2 Ausgabe der FCFA Werte in 5 F Schritten, Reset on Change, wenn bei InputFeldern unerwünschte Änderungen vorgenommen werden. Feste Währungswerte (EUR) in ajh-fcfa-akt-kurse verlegt 04 = 10.04.2006/HSC js-Fehlermeldung korrigiert bei wert_in 05 = 29.01.2007/HSC js-Fehlermeldung NAN korrigiert bei wert_in 06 = 17.03.2007/HSC js-Fehlermeldung korrigiert bei waehrung_in Zeile60/111 *** PROBLEM nicht gelöst *** 07 = 17.03.2007/HSC Nächster Versuch, die lokale Fehlermeldung und diejenige im MSIE zu korrigieren Zeile 47/50 (debug), Zeile 122/2. //ZEILE 31 ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- */ // Zur Berechnung der allgemeinen Kurse in FCFA. ---- ---- ---- ---- ---- // var kurs_datum ; // Datum der letzten Kurseingabe aus default. var land = "CHF" ; // Default Land var test_anzeige ; // var ajh_default ; var ausgabe ; var waehrung_in = "CHF" ; // Default beim Start var waehrung_out = "FCFA" ; // Allgemeiner Wert, wird nicht verändert var update ; // var form_fcfa_kurse ; var faktor ; var alertnummer ; var kurs_fcfa_eur, kurs_fcfa_fch, kurs_fcfa_gbp, kurs_fcfa_usd ; var wert_waehrung_in_default = 1 ; // vorher 100 var wert_waehrung_in ; // Hier lag der Fehler! wert_waehrung_in_default var wert_in ; // = wert_waehrung_in_default var wert_fcfa_in_default = 1000 ; var wert_fcfa_in ; // alert("wert_waehrung_in = " + wert_waehrung_in ) ; // alert("wert_waehrung_in_default = " + wert_waehrung_in_default ) ; // alert("wert_fcfa_in_default = " + wert_fcfa_in_default) ; // alert("wert_in = " + wert_in ) ; // Zeile 59 ; function ajh_default(form_fcfa_kurse) // Der Formname muss für NN definiert { // sein !!!, MSIE benötigt dies nicht // Beim Weglassen hat man keine Fehlermeldung mehr im MSIE alertnummer = 1 ; /* ausgabe = test_anzeige( 'KursDatum', kurs_datum, 'KursWerte CHF, EUR', kurs_chf[00], kurs_chf[01], 'Werte GBP, USD', kurs_chf[02], kurs_chf[03]) ; */ // ZEILE 57 Einlesen der Werteeingaben aus Form, sonst Defaultwerte verwenden /* if (form_fcfa_kurse.wert_waehrung_in.value == "" ) { wert_waehrung_in = form_fcfa_kurse.wert_waehrung_in.value ; }else { wert_waehrung_in = wert_waehrung_in_default ; } // Versuch vom 16.02.2009/HSC */ // ZEILE 76 ; /* if (wert_waehrung_in == "" ) { wert_waehrung_in = wert_in_default ; wert_in = wert_waehrung_in ; } else { // wert_waehrung_in = wert_waehrung_in_default ; wert_waehrung_in = form_fcfa_kurse.wert_waehrung_in.value ; wert_in = wert_waehrung_in ; } */ // ZEILE 85 if (wert_waehrung_in == "" ) { wert_waehrung_in = wert_waehrung_in_default ; } else { // wert_waehrung_in = form_fcfa_kurse.wert_waehrung_in.value ; wert_waehrung_in = form_fcfa_kurse.wert_in.value ; } wert_in = wert_waehrung_in ; // Das war vermutlich der Punkt! if (wert_fcfa_in == "" ) { wert_fcfa_in = wert_fcfa_in_default ; } else { wert_fcfa_in = wert_fcfa_in_default ; // wert_fcfa_in = parseFloat(form_fcfa_kurse.wert_fcfa_in.value) ; } // if (form_fcfa_kurse.wert_in.value != '') // {wert_in = parseFloat(form_fcfa_kurse.wert_in.value)}; // if (form_fcfa_kurse.kurs_fcfa.value != NULL) // {kurs_fcfa = form_fcfa_kurse.kurs_fcfa.value }; alertnummer = alertnummer++ ; /* ausgabe = test_anzeige('Waehrung', waehrung_in, 'Währung in = ', wert_waehrung_in , 0 , 'Wert FCFA in = ' , wert_fcfa_in , 0 ) ; */ // Z 40 Berechnen der Werte, 1. allg Zeile für Umrechnung in CHF-EUR-GBP-USD kurs_fch = kurs_chf[00]; kurs_eur = kurs_chf[00] / kurs_chf[01] ; kurs_gbp = kurs_chf[00] / kurs_chf[02] ; kurs_usd = kurs_chf[00] / kurs_chf[03] ; // Ausgabe dieser Werte in die Form, V. 1.1 weggelassen !!! /* form_fcfa_kurse.waehrung_chf.value = kurs_fch ; form_fcfa_kurse.waehrung_eur.value = kurs_eur ; form_fcfa_kurse.waehrung_gbp.value = kurs_gbp ; form_fcfa_kurse.waehrung_usd.value = kurs_usd ; */ alertnummer = alertnummer++ ; /* ausgabe = test_anzeige( 'KursArray', kurs_chf[0], 'Werte CHF, EUR', kurs_fch, kurs_eur, 'Werte GBP, USD', kurs_gbp, kurs_usd ) ; */ // Berechnung der Umrechnungskurse für alle Währungen kurs_fcfa_eur = kurs_fcfa_frf * kurs_eur_frf ; kurs_fcfa_chf = kurs_fcfa_eur / kurs_chf[01] ; kurs_fcfa_gbp = kurs_fcfa_chf * kurs_chf[02] ; kurs_fcfa_usd = kurs_fcfa_chf * kurs_chf[03] ; kurs_fcfa_ats = kurs_fcfa_eur / kurs_eur_ats ; kurs_fcfa_bef = kurs_fcfa_eur / kurs_eur_bef ; kurs_fcfa_dem = kurs_fcfa_eur /kurs_eur_dem ; kurs_fcfa_frf = kurs_fcfa_frf ; // Zeile 129 16.02.2009/HSC var waehrung_in = form_fcfa_kurse.waehrung_in.value ; // default = CHF var wert_input = form_fcfa_kurse.wert_in.value ; // default = 1000 var wert_fcfa_input = form_fcfa_kurse.wert_fcfa_in.value ; // def. = 100 alertnummer = alertnummer++ ; /* ausgabe = test_anzeige( 'Währung ', waehrung_in,wert_waehrung_in , 'Werte Input :', wert_input, wert_fcfa_input, 'Werte GBP, USD', NaN, NaN) ; */ update(waehrung_in) ; // Einlesen der ausgewählten Waehrung alertnummer = alertnummer++ ; /* ausgabe = test_anzeige( 'Kurse FCFA in FRF', kurs_fcfa_frf, 'Kurse FCFA in CHF, EUR', kurs_fcfa_chf , kurs_fcfa_eur , 'Kurse FCFA in GBP, USD', kurs_fcfa_gbp, kurs_fcfa_usd ) ; */ /* ausgabe = test_anzeige( 'Kurse FCFA in FRF', kurs_fcfa_eur, 'Kurse FCFA in ATS, BEF', kurs_fcfa_ats , kurs_fcfa_bef , 'Kurse FCFA in DEM, FRF', kurs_fcfa_dem, kurs_fcfa_frf ) ; */ /* ausgabe = test_anzeige( 'Waehrung', waehrung_in, '-', 0 , 0 , '-', 0 , 0 ) ; */ if (waehrung_in == 'ATS') {faktor = kurs_fcfa_ats }; if (waehrung_in == 'BEF') {faktor = kurs_fcfa_bef }; if (waehrung_in == 'DEM') {faktor = kurs_fcfa_dem }; if (waehrung_in == 'FRF') {faktor = kurs_fcfa_frf }; if (waehrung_in == 'CHF') {faktor = kurs_fcfa_chf }; if (waehrung_in == 'EUR') {faktor = kurs_fcfa_eur }; if (waehrung_in == 'GBP') {faktor = kurs_fcfa_gbp }; if (waehrung_in == 'USD') {faktor = kurs_fcfa_usd }; // Ein- und Auslesen der Werte, sowie schöne Darstellung durch // Runden und Leerzeichen wert_input_gerundet = runden_waehrung(wert_waehrung_in) ; // auf 5er wert_fcfa_input_gerundet = runden_waehrung(wert_fcfa_in) //wert_waehrung_in, wert_fcfa_in wert_input // Eingang in def. Währung, Eingang in FCFA // form_fcfa_kurse.wert_fcfa_in.value = buendig(wert_fcfa_input_gerundet) ; // FCFA Eingabe form_fcfa_kurse.wert_fcfa_in.value = buendig(Math.round(wert_fcfa_input)); // FCFA Eingabe form_fcfa_kurse.wert_in.value = buendig(wert_input_gerundet) ; // Fremdwährung Eingabe // Ausgang in FCFA, Ausgang in def. Währung form_fcfa_kurse.wert_fcfa.value = buendig(Math.round(wert_input * faktor)); form_fcfa_kurse.wert_out.value = buendig(runden_waehrung(wert_fcfa_input/faktor )) ; // auf 5er gerundet // form_fcfa_kurse.wert_out.value = buendig(wert_fcfa_input / faktor ) ; // nicht gerundet alertnummer = alertnummer++ ; /* ausgabe = test_anzeige( 'alertnummer = ' + alertnummer + 'Waehrung', waehrung_in, 'Faktor', faktor , 0 , 'wert_in', wert_in , 0 ) ; */ return; } // ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== // ZEILE 190 Änderung der Währung bei Click auf den ausgewählten Radiobutton function update(land) { if (land == 'CHF' ) {waehrung_in = 'CHF'} ; if (land == 'EUR' ) {waehrung_in = 'EUR'} ; if (land == 'GBP' ) {waehrung_in = 'GBP'} ; if (land == 'USD' ) {waehrung_in = 'USD'} ; if (land == 'ATS' ) {waehrung_in = 'ATS'} ; if (land == 'BEF' ) {waehrung_in = 'BEF'} ; if (land == 'DEM' ) {waehrung_in = 'DEM'} ; if (land == 'FRF' ) {waehrung_in = 'FRF'} ; // ZEILE 199 document.form_fcfa_kurse.waehrung_in.value = waehrung_in ; // Hier Fehler document.form_fcfa_kurse.waehrung_out.value = waehrung_out ; document.form_fcfa_kurse.kurs_datum.value = kurs_datum ; /* alertnummer = alertnummer++ ; Alert als Testausgabe alert('Waehrung : ' + " \n" + 'Land ' + " : \t" + land + " \n " + 'Waehrung ' + ": \t" + waehrung_in + "\n"); */ return(0) } // ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== // Rückstellung der Input Fenster, die man nicht verändern darf, wie // Währung & Akt. Kursdatum. // 29.01.2007/HSC nicht mehr notwendig, da auf "readonly" gesetzt. function reset_waehrung() { land=waehrung_in ; /* alert( "Land = " + land + "Währung = " + waehrung_in + "\n" + "Währung out = " + waehrung_out ) ; */ update(land) ; return ; } // ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== // Testanzeige mittels Alert, zur Kontrolle der Berechnung function test_anzeige(textalert_1, arg0, textalert_2, arg1, arg2, textalert_3, arg3, arg4) { if (alertnummer == '') { alertnummer = 1} ; alert('Alert # : ' + alertnummer + " \n" + textalert_1 + " : \t" + arg0 + " \n " + textalert_2 + ": \t" + arg1 + ", \t" + arg2 + "\n " + textalert_3 + ": \t" + arg3 +", \t" + arg4 + "\n"); alertnummer = alertnummer + 1 ; return(true) ; } // Zeile 191 // ENDE des JavaSripts ajh-fcf-calculatric.js ==== ==== ==== ==== ==== ====