Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision fb37acdc

Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt

  • ID fb37acdc4c87cf9bc4ef6abb54e486c1b3829d6c
  • Vorgänger 2e07a0cd
  • Nachfolger d6bf475a

Probleme mit mehreren Währungen und Wechselkursen behoben.

Unterschiede anzeigen:

bin/mozilla/is.pl
302 302
      }
303 303
    }
304 304
  }
305

  
305
  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
306 306
  $form->{radier} =
307 307
    ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
308 308

  
......
1031 1031
    $form->{"exchangerate_$i"} =
1032 1032
      $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
1033 1033

  
1034
    if ($form->{"exchangerate_$i"} == 0) {
1035
      $form->{"exchangerate_$i"} = "";
1036
    }
1034 1037
    $exchangerate = qq| |;
1035 1038
    if ($form->{currency} ne $form->{defaultcurrency}) {
1036 1039
      if ($form->{"forex_$i"}) {
......
1379 1382

  
1380 1383
sub post_payment {
1381 1384
  $lxdebug->enter_sub();
1385

  
1386
  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1382 1387
  for $i (1 .. $form->{paidaccounts}) {
1383 1388
    if ($form->{"paid_$i"}) {
1384 1389
      $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);
......
1410 1415

  
1411 1416
sub post {
1412 1417
  $lxdebug->enter_sub();
1418

  
1419
  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1413 1420
  $form->isblank("invdate",  $locale->text('Invoice Date missing!'));
1414 1421
  $form->isblank("customer", $locale->text('Customer missing!'));
1415 1422

  

Auch abrufbar als: Unified diff