Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 41faf344

Von Jan Büren vor etwa 2 Jahren hinzugefügt

  • ID 41faf344299ffaff0ea30c8096dd96a5d32bf249
  • Vorgänger f6d8dbb1
  • Nachfolger 566fcc06

Kosmetik, Kommentare

Unterschiede anzeigen:

SL/Form.pm
1472 1472
  }
1473 1473

  
1474 1474
  if ($sth->fetchrow_array) {
1475
    die "this never happens never";
1475
    # die "this never happens never"; # except for credit or debit bookings
1476 1476
    $query = qq|UPDATE exchangerate
1477 1477
                SET $set
1478 1478
                WHERE currency_id = (SELECT id FROM currencies WHERE name = ?)
SL/IR.pm
91 91

  
92 92
  my $all_units = AM->retrieve_units($myconfig, $form);
93 93

  
94
#markierung
94
  #markierung
95 95
  if (!$payments_only) {
96 96
    if ($form->{id}) {
97 97
      &reverse_invoice($dbh, $form);
......
691 691

  
692 692
    $paiddiff = 0;
693 693

  
694
    # update exchange rate
694
    # update exchange rate for PAYMENTS
695 695
    $form->update_exchangerate($dbh, $form->{currency}, $form->{"datepaid_$i"}, 0, $form->{"exchangerate_$i"})
696 696
      if ($form->{currency} ne $defaultcurrency) && !$exchangerate;
697 697
  }
SL/IS.pm
39 39
use List::MoreUtils qw(any);
40 40

  
41 41
use Carp;
42
use Data::Dumper;
43

  
42 44
use SL::AM;
43 45
use SL::ARAP;
44 46
use SL::CVar;
......
63 65
use SL::Presenter::Part qw(type_abbreviation classification_abbreviation);
64 66
use SL::Helper::QrBillFunctions qw(get_qrbill_account assemble_ref_number);
65 67
use SL::Helper::ISO3166;
66
use Data::Dumper;
67 68

  
68 69
use strict;
69 70
use constant PCLASS_OK             =>   0;
......
1434 1435

  
1435 1436
      $diff = 0;
1436 1437

  
1437
      # update exchange rate
1438
      # update exchange rate for PAYMENTS
1439
      # exchangerate contains a new exchangerate of the payment date
1438 1440
      if (($form->{currency} ne $defaultcurrency) && !$exchangerate) {
1439 1441
        $form->update_exchangerate($dbh, $form->{currency},
1440 1442
                                   $form->{"datepaid_$i"},

Auch abrufbar als: Unified diff