Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 456a81dd

Von Philip Reetz vor fast 19 Jahren hinzugefügt

  • ID 456a81dd3b5ccd8b4a48ea166d465ca2b9fb5b6b
  • Vorgänger 41250b50
  • Nachfolger 13c238dd

Splittbuchungen fuer Debitorenbuchungen

Unterschiede anzeigen:

SL/Form.pm
1703 1703
		LEFT Join tax t ON (a.taxkey = t.taxkey)
1704 1704
		WHERE a.trans_id = $self->{id}
1705 1705
		AND a.fx_transaction = '0'
1706
		ORDER BY a.transdate|;
1706
		ORDER BY a.oid,a.transdate|;
1707 1707
    $sth = $dbh->prepare($query);
1708 1708
    $sth->execute || $self->dberror($query);
1709 1709

  
......
1713 1713
    $self->{exchangerate} =
1714 1714
      $self->get_exchangerate($dbh, $self->{currency}, $self->{transdate},
1715 1715
                              $fld);
1716
    my $index=0;
1716 1717

  
1717 1718
    # store amounts in {acc_trans}{$key} for multiple accounts
1718 1719
    while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
1719 1720
      $ref->{exchangerate} =
1720 1721
        $self->get_exchangerate($dbh, $self->{currency}, $ref->{transdate},
1721 1722
                                $fld);
1723
      if ( !($xkeyref{ $ref->{accno} } =~ /tax/)) {
1724
        $index++;
1725
      }
1726
      $ref->{index} = $index;
1722 1727

  
1723 1728
      push @{ $self->{acc_trans}{ $xkeyref{ $ref->{accno} } } }, $ref;
1724 1729
    }

Auch abrufbar als: Unified diff