Revision 88e6dce2
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 38 | 38 |
use SL::IO; |
| 39 | 39 |
use SL::MoreCommon; |
| 40 | 40 |
|
| 41 |
use Data::Dumper; |
|
| 42 |
|
|
| 41 | 43 |
use strict; |
| 42 | 44 |
|
| 43 | 45 |
sub post_transaction {
|
| ... | ... | |
| 68 | 70 |
(split(/--/, $form->{"AP_amount_$i"}))[0];
|
| 69 | 71 |
} |
| 70 | 72 |
($form->{AP_amounts}{payables}) = split(/--/, $form->{APselected});
|
| 71 |
($form->{AP}{payables}) = split(/--/, $form->{APselected});
|
|
| 73 |
($form->{AP_payables}) = split(/--/, $form->{APselected});
|
|
| 72 | 74 |
|
| 73 | 75 |
# reverse and parse amounts |
| 74 | 76 |
for my $i (1 .. $form->{rowcount}) {
|
| ... | ... | |
| 270 | 272 |
|
| 271 | 273 |
# get paid account |
| 272 | 274 |
|
| 273 |
($form->{AP}{"paid_$i"}) = split(/--/, $form->{"AP_paid_$i"});
|
|
| 275 |
($form->{"AP_paid_account_$i"}) = split(/--/, $form->{"AP_paid_$i"});
|
|
| 274 | 276 |
$form->{"datepaid_$i"} = $form->{transdate}
|
| 275 | 277 |
unless ($form->{"datepaid_$i"});
|
| 276 | 278 |
|
| ... | ... | |
| 287 | 289 |
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id, taxkey) | . |
| 288 | 290 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, | . |
| 289 | 291 |
qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|; |
| 290 |
@values = ($form->{id}, $form->{AP}{payables}, $amount,
|
|
| 292 |
@values = ($form->{id}, $form->{AP_payables}, $amount,
|
|
| 291 | 293 |
conv_date($form->{"datepaid_$i"}), $project_id,
|
| 292 |
$form->{AP}{payables});
|
|
| 294 |
$form->{AP_payables});
|
|
| 293 | 295 |
do_query($form, $dbh, $query, @values); |
| 294 | 296 |
} |
| 295 | 297 |
$form->{payables} = $amount;
|
| ... | ... | |
| 299 | 301 |
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, source, memo, project_id, taxkey) | . |
| 300 | 302 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?, ?, | . |
| 301 | 303 |
qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|; |
| 302 |
@values = ($form->{id}, $form->{AP}{"paid_$i"}, $form->{"paid_$i"},
|
|
| 304 |
@values = ($form->{id}, $form->{"AP_paid_account_$i"}, $form->{"paid_$i"},
|
|
| 303 | 305 |
conv_date($form->{"datepaid_$i"}), $form->{"source_$i"},
|
| 304 |
$form->{"memo_$i"}, $project_id, $form->{AP}{"paid_$i"});
|
|
| 306 |
$form->{"memo_$i"}, $project_id, $form->{"AP_paid_account_$i"});
|
|
| 305 | 307 |
do_query($form, $dbh, $query, @values); |
| 306 | 308 |
|
| 307 | 309 |
# add exchange rate difference |
| ... | ... | |
| 313 | 315 |
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, fx_transaction, cleared, project_id, taxkey) | . |
| 314 | 316 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 't', 'f', ?, | . |
| 315 | 317 |
qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|; |
| 316 |
@values = ($form->{id}, $form->{AP}{"paid_$i"}, $amount,
|
|
| 318 |
@values = ($form->{id}, $form->{"AP_paid_account_$i"}, $amount,
|
|
| 317 | 319 |
conv_date($form->{"datepaid_$i"}), $project_id,
|
| 318 |
$form->{AP}{"paid_$i"});
|
|
| 320 |
$form->{"AP_paid_account_$i"});
|
|
| 319 | 321 |
do_query($form, $dbh, $query, @values); |
| 320 | 322 |
} |
| 321 | 323 |
|
Auch abrufbar als: Unified diff
Einkaufsrechnung -> Zahlung buchen: sinnlosen Quark gefixt.
Eine Variable, in der HTML Code fürs Frontend steht, erst zu löschen,
dann unter Umständen wieder mit HTML zu befüllen und dann als
symbolische Referenz auf ein Zahlungsobjekt zu nehmen ist einfach nur
Quark.