- my $follow_ups = FU->follow_ups('trans_id' => $form->{id});
-
- if (@{ $follow_ups} ) {
- my $num_due = sum map { $_->{due} * 1 } @{ $follow_ups };
- $follow_ups_block = qq|
- <tr>
- <td colspan="2">| . $locale->text("There are #1 unfinished follow-ups of which #2 are due.", scalar @{ $follow_ups }, $num_due) . qq|</td>
- </tr>
-|;
- }
- }
-
- print qq|
- <tr>
- <td>
- <table width="100%">
- <tr valign="bottom">
- <td>
- <table>
- <tr>
- <th align="left">| . $locale->text('Notes') . qq|</th>
- <th align="left">| . $locale->text('Internal Notes') . qq|</th>
- <th align="right">| . $locale->text('Payment Terms') . qq|</th>
- </tr>
- <tr valign="top">
- <td>$notes</td>
- <td>$intnotes</td>
- <td><select name="payment_id" onChange="if (this.value) set_duedate(['payment_id__' + this.value, 'invdate__' + invdate.value],['duedate'])">$payment
- </select></td>
- </tr>
- $follow_ups_block
- </table>
- </td>
- <td>
- <table>
- <tr>
- <th align=left>| . $locale->text('Ertrag') . qq|</th>
- <td>| . $form->format_amount(\%myconfig, $form->{marge_total}, 2, 0) . qq|</td>
- </tr>
- <tr>
- <th align=left>| . $locale->text('Ertrag prozentual') . qq|</th>
- <td>| . $form->format_amount(\%myconfig, $form->{marge_percent}, 2, 0) . qq| %</td>
- </tr>
- <input type=hidden name="marge_total" value="$form->{"marge_total"}">
- <input type=hidden name="marge_percent" value="$form->{"marge_percent"}">
- </table>
- </td>
- <td align="right">
- $taxincluded
- <table>
- $subtotal
- $tax
- <tr>
- <th align="right">| . $locale->text('Total') . qq|</th>
- <td align="right">$form->{invtotal}</td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
-|;
- my $webdav_list;
- if ($main::webdav) {
- $webdav_list = qq|
- <tr>
- <td><hr size="3" noshade></td>
- </tr>
- <tr>
- <th class="listtop" align="left">Dokumente im Webdav-Repository</th>
- </tr>
- <table width="100%">
- <td align="left" width="30%"><b>Dateiname</b></td>
- <td align="left" width="70%"><b>Webdavlink</b></td>
-|;
- foreach my $file (@{ $form->{WEBDAV} }) {
- $webdav_list .= qq|
- <tr>
- <td align="left">$file->{name}</td>
- <td align="left"><a href="$file->{link}">$file->{type}</a></td>
- </tr>
-|;
- }
- $webdav_list .= qq|
- </table>
- </tr>
-|;
-
- print $webdav_list;
- }
-if ($form->{type} eq "credit_note") {
- print qq|
- <tr>
- <td>
- <table width="100%">
- <tr class="listheading">
- <th colspan="6" class="listheading">|
- . $locale->text('Payments') . qq|</th>
- </tr>
-|;
-} else {
- print qq|
- <tr>
- <td>
- <table width="100%">
- <tr class="listheading">
- <th colspan="6" class="listheading">|
- . $locale->text('Incoming Payments') . qq|</th>
- </tr>
-|;
-}
-
- my @column_index;
- if ($form->{currency} eq $form->{defaultcurrency}) {
- @column_index = qw(datepaid source memo paid AR_paid);
- } else {
- @column_index = qw(datepaid source memo paid exchangerate AR_paid);