Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a53233e5

Von Sven Schöling vor mehr als 16 Jahren hinzugefügt

  • ID a53233e56a9d4001b47bcf412b4bfe46910d3117
  • Vorgänger 1b95831a
  • Nachfolger 04e9a474

Wechselkurse.

Zum einen den unsaeglichen Algorithmus zum setzen von exchangerate und forex im ganzen Porgramm geaendert.
Dann einen Bug mit der Angzeige der Wechselkurseingabe in oe.pl gefixt.
Ausserdem Bug 666 gefixt.

Unterschiede anzeigen:

bin/mozilla/ar.pl
261 261
      s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
262 262
  }
263 263

  
264
  $form->{exchangerate} = $exchangerate
265
    if (
266
        $form->{forex} = (
267
                     $exchangerate =
268
                       $form->check_exchangerate(
269
                       \%myconfig, $form->{currency}, $form->{transdate}, 'buy'
270
                       )));
264
  $form->{forex}        = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{transdate}, 'buy');
265
  $form->{exchangerate} = $form->{forex} if $form->{forex};
271 266

  
272 267
  # format amounts
273 268
  $form->{exchangerate} =
......
961 956
  $form->{rowcount} = $count + 1;
962 957
  map { $form->{invtotal} += $form->{"amount_$_"} } (1 .. $form->{rowcount});
963 958

  
964
  $form->{exchangerate} = $exchangerate
965
    if (
966
        $form->{forex} = (
967
                     $exchangerate =
968
                       $form->check_exchangerate(
969
                       \%myconfig, $form->{currency}, $form->{transdate}, 'buy'
970
                       )));
959
  $form->{forex}        = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{transdate}, 'buy');
960
  $form->{exchangerate} = $form->{forex} if $form->{forex};
971 961

  
972 962
  $form->{invdate} = $form->{transdate};
973 963
  my $save_AR = $form->{AR};
......
986 976

  
987 977
      $totalpaid += $form->{"paid_$i"};
988 978

  
989
      $form->{"exchangerate_$i"} = $exchangerate
990
        if (
991
            $form->{"forex_$i"} = (
992
                 $exchangerate =
993
                   $form->check_exchangerate(
994
                   \%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy'
995
                   )));
979
      $form->{"forex_$i"}        = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy');
980
      $form->{"exchangerate_$i"} = $form->{"forex_$i"} if $form->{"forex_$i"};
996 981
    }
997 982
  }
998 983

  

Auch abrufbar als: Unified diff