Revision 0437033e
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 39 | 39 |
package GL; |
| 40 | 40 |
|
| 41 | 41 |
use Data::Dumper; |
| 42 |
use SL::DBUtils; |
|
| 42 | 43 |
|
| 43 | 44 |
sub delete_transaction {
|
| 44 | 45 |
my ($self, $myconfig, $form) = @_; |
| ... | ... | |
| 179 | 180 |
$posted = 0; |
| 180 | 181 |
} |
| 181 | 182 |
|
| 183 |
$project_id = conv_i($form->{"project_id_$i"});
|
|
| 184 |
|
|
| 182 | 185 |
# if there is an amount, add the record |
| 183 | 186 |
if ($amount != 0) {
|
| 184 |
$project_id = |
|
| 185 |
($form->{"project_id_$i"}) ? $form->{"project_id_$i"} : 'NULL';
|
|
| 186 | 187 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, |
| 187 | 188 |
source, memo, project_id, taxkey) |
| 188 | 189 |
VALUES |
| ... | ... | |
| 192 | 193 |
$amount, '$form->{transdate}', |
|
| 193 | 194 |
. $dbh->quote($form->{"source_$i"}) . qq|, |
|
| 194 | 195 |
. $dbh->quote($form->{"memo_$i"}) . qq|,
|
| 195 |
$project_id, $taxkey)|;
|
|
| 196 |
?, $taxkey)|;
|
|
| 196 | 197 |
|
| 197 |
$dbh->do($query) || $form->dberror($query);
|
|
| 198 |
do_query($form, $dbh, $query, $project_id);
|
|
| 198 | 199 |
} |
| 199 | 200 |
|
| 200 | 201 |
if ($tax != 0) {
|
| 201 |
|
|
| 202 | 202 |
# add taxentry |
| 203 |
$amount = $tax; |
|
| 204 |
|
|
| 205 |
$project_id = |
|
| 206 |
($form->{"project_id_$i"}) ? $form->{"project_id_$i"} : 'NULL';
|
|
| 207 | 203 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, |
| 208 |
source, memo, project_id, taxkey)
|
|
| 204 |
source, memo, taxkey) |
|
| 209 | 205 |
VALUES |
| 210 | 206 |
($form->{id}, (SELECT t.chart_id
|
| 211 | 207 |
FROM tax t |
| 212 | 208 |
WHERE t.id = $form->{"tax_id_$i"}),
|
| 213 |
$amount, '$form->{transdate}', |
|
|
| 209 |
$tax, '$form->{transdate}', |
|
|
| 214 | 210 |
. $dbh->quote($form->{"source_$i"}) . qq|, |
|
| 215 |
. $dbh->quote($form->{"memo_$i"}) . qq|,
|
|
| 216 |
$project_id, $taxkey)|; |
|
| 211 |
. $dbh->quote($form->{"memo_$i"}) . qq|, ?, $taxkey)|;
|
|
| 217 | 212 |
|
| 218 |
$dbh->do($query) || $form->dberror($query);
|
|
| 213 |
do_query($form, $dbh, $query, $project_id);
|
|
| 219 | 214 |
} |
| 220 | 215 |
} |
| 221 | 216 |
|
Auch abrufbar als: Unified diff
Dialogbuchen: Anzeigen und Speichern von Projektnummern für jede Zeile.