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/io.pl
854 854
  &order_links;
855 855

  
856 856
  $form->{currency}     = $currency;
857
  $form->{exchangerate} = "";
858
  $form->{forex}        = "";
859
  $form->{exchangerate} = $exchangerate
860
    if (
861
        $form->{forex} = (
862
                  $exchangerate =
863
                    $form->check_exchangerate(
864
                    \%myconfig, $form->{currency}, $form->{transdate}, $buysell
865
                    )));
857
  $form->{forex}        = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell);
858
  $form->{exchangerate} = $form->{forex} || '';
866 859

  
867 860
  for $i (1 .. $form->{rowcount}) {
868
    map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
869
                                                     $form->{"${_}_${i}"})
861
    map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"})
870 862
            if ($form->{"${_}_${i}"}) }
871 863
        qw(ship qty sellprice listprice basefactor));
872 864
  }
......
917 909
  &order_links;
918 910

  
919 911
  $form->{currency}     = $currency;
920
  $form->{exchangerate} = "";
921
  $form->{forex}        = "";
922
  $form->{exchangerate} = $exchangerate
923
    if (
924
        $form->{forex} = (
925
                  $exchangerate =
926
                    $form->check_exchangerate(
927
                    \%myconfig, $form->{currency}, $form->{transdate}, $buysell
928
                    )));
912
  $form->{forex}        = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{transdate}, $buysell);
913
  $form->{exchangerate} = $form->{forex} || '';
929 914

  
930 915
  for $i (1 .. $form->{rowcount}) {
931 916
    map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,

Auch abrufbar als: Unified diff