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/is.pl
1230 1230

  
1231 1231
  $form->{taxincluded} ||= $taxincluded;
1232 1232

  
1233
  $form->{exchangerate} = $exchangerate if
1234
    $form->{forex} = $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'buy');
1233
  $form->{forex}        = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'buy');
1234
  $form->{exchangerate} = $form->{forex} if $form->{forex};
1235 1235

  
1236 1236
  for $i (1 .. $form->{paidaccounts}) {
1237 1237
    next unless $form->{"paid_$i"};
1238 1238
    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
1239
    $form->{"exchangerate_$i"} = $exchangerate if
1240
      $form->{"forex_$i"} = $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy');
1239
    $form->{"forex_$i"}        = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy');
1240
    $form->{"exchangerate_$i"} = $form->{"forex_$i"} if $form->{"forex_$i"};
1241 1241
  }
1242 1242

  
1243 1243
  $i            = $form->{rowcount};
......
1618 1618
  &invoice_links;
1619 1619

  
1620 1620
  $form->{currency}     = $currency;
1621
  $form->{exchangerate} = "";
1622
  $form->{forex}        = "";
1623
  $form->{exchangerate} = $exchangerate
1624
    if (
1625
        $form->{forex} = (
1626
                    $exchangerate =
1627
                      $form->check_exchangerate(
1628
                      \%myconfig, $form->{currency}, $form->{invdate}, $buysell
1629
                      )));
1621
  $form->{forex}        = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{invdate}, $buysell);
1622
  $form->{exchangerate} = $form->{forex} || '';
1630 1623

  
1631 1624
  $form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});
1632 1625

  

Auch abrufbar als: Unified diff