Kreditorenrechnungen: Projektnummern für jede Zeile bei den Zahlungsausgängen.

diff --git a/SL/AP.pm b/SL/AP.pm
index 3522e62..f6478d3 100644 (file)
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -570,10 +570,11 @@ sub post_payment {
       do_query($form, $dbh, $query, @values);
 
       $query =
-        qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate) | .
-        qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?)|;
+        qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id) | .
+        qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?, ?)|;
       @values = ($form->{id}, $form->{AP}, $amount,
-                 conv_date($form->{"datepaid_$i"}));
+                 conv_date($form->{"datepaid_$i"}),
+                 conv_i($form->{"paid_project_id_$i"}));
       do_query($form, $dbh, $query, @values);
 
       $query =
@@ -587,11 +588,12 @@ sub post_payment {
       do_query($form, $dbh, $query, @values);
 
       $query =
-        qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, source, memo) | .
-        qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?, ?, ?)|;
+        qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, source, memo, project_id) | .
+        qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?, ?, ?, ?)|;
       @values = ($form->{id}, $accno, $form->{"paid_$i"},
                  $form->{"datepaid_$i"},
-                 $form->{"source_$i"}, $form->{"memo_$i"});
+                 $form->{"source_$i"}, $form->{"memo_$i"},
+                 conv_i($form->{"paid_project_id_$i"}));
       do_query($form, $dbh, $query, @values);
 
       # gain/loss

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index c4c513a..60a1048 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -193,6 +193,7 @@ sub create_links {
         $form->{"forex_$j"} = $form->{"exchangerate_$i"} =
           $form->{acc_trans}{$key}->[$i - 1]->{exchangerate};
         $form->{"AP_paid_$j"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}";
+        $form->{"paid_project_id_$j"} = $form->{acc_trans}{$key}->[$i - 1]->{project_id};
         $form->{paidaccounts}++;
       } else {
 
@@ -637,7 +638,7 @@ $jsscript
     <td>
       <table width=100%>
        <tr class=listheading>
-         <th class=listheading colspan=6>| . $locale->text('Payments') . qq|</th>
+         <th class=listheading colspan=7>| . $locale->text('Payments') . qq|</th>
        </tr>
 |;