Revision 96dbc076
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
SL/AR.pm | ||
---|---|---|
191 | 191 |
# add recievables |
192 | 192 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey, tax_id, chart_link) |
193 | 193 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
194 |
(SELECT tax_id
|
|
195 |
FROM taxkeys
|
|
196 |
WHERE chart_id= (SELECT id
|
|
197 |
FROM chart
|
|
198 |
WHERE accno = ?)
|
|
199 |
AND startdate <= ?
|
|
194 |
(SELECT tax_id |
|
195 |
FROM taxkeys |
|
196 |
WHERE chart_id= (SELECT id |
|
197 |
FROM chart |
|
198 |
WHERE accno = ?) |
|
199 |
AND startdate <= ? |
|
200 | 200 |
ORDER BY startdate DESC LIMIT 1), |
201 | 201 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
202 | 202 |
@values = (conv_i($form->{id}), $form->{AR_amounts}{receivables}, conv_i($form->{receivables}), conv_date($form->{transdate}), |
... | ... | |
239 | 239 |
# add receivable |
240 | 240 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id, taxkey, tax_id, chart_link) |
241 | 241 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
242 |
(SELECT tax_id
|
|
243 |
FROM taxkeys
|
|
244 |
WHERE chart_id= (SELECT id
|
|
245 |
FROM chart
|
|
246 |
WHERE accno = ?)
|
|
247 |
AND startdate <= ?
|
|
242 |
(SELECT tax_id |
|
243 |
FROM taxkeys |
|
244 |
WHERE chart_id= (SELECT id |
|
245 |
FROM chart |
|
246 |
WHERE accno = ?) |
|
247 |
AND startdate <= ? |
|
248 | 248 |
ORDER BY startdate DESC LIMIT 1), |
249 | 249 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
250 | 250 |
@values = (conv_i($form->{id}), $form->{AR}{receivables}, $amount, conv_date($form->{"datepaid_$i"}), $project_id, $form->{AR}{receivables}, $form->{AR}{receivables}, conv_date($form->{"datepaid_$i"}), |
... | ... | |
260 | 260 |
$amount = $form->{"paid_$i"} * -1; |
261 | 261 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, gldate, source, memo, project_id, taxkey, tax_id, chart_link) |
262 | 262 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?, ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
263 |
(SELECT tax_id
|
|
264 |
FROM taxkeys
|
|
265 |
WHERE chart_id= (SELECT id
|
|
266 |
FROM chart
|
|
267 |
WHERE accno = ?)
|
|
268 |
AND startdate <= ?
|
|
263 |
(SELECT tax_id |
|
264 |
FROM taxkeys |
|
265 |
WHERE chart_id= (SELECT id |
|
266 |
FROM chart |
|
267 |
WHERE accno = ?) |
|
268 |
AND startdate <= ? |
|
269 | 269 |
ORDER BY startdate DESC LIMIT 1), |
270 | 270 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
271 | 271 |
@values = (conv_i($form->{id}), $form->{AR}{"paid_$i"}, $amount, conv_date($form->{"datepaid_$i"}), $gldate, $form->{"source_$i"}, $form->{"memo_$i"}, $project_id, $form->{AR}{"paid_$i"}, |
... | ... | |
278 | 278 |
if ($amount != 0) { |
279 | 279 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, fx_transaction, cleared, project_id, taxkey, tax_id, chart_link) |
280 | 280 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 't', 'f', ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
281 |
(SELECT tax_id
|
|
282 |
FROM taxkeys
|
|
283 |
WHERE chart_id= (SELECT id
|
|
284 |
FROM chart
|
|
285 |
WHERE accno = ?)
|
|
286 |
AND startdate <= ?
|
|
281 |
(SELECT tax_id |
|
282 |
FROM taxkeys |
|
283 |
WHERE chart_id= (SELECT id |
|
284 |
FROM chart |
|
285 |
WHERE accno = ?) |
|
286 |
AND startdate <= ? |
|
287 | 287 |
ORDER BY startdate DESC LIMIT 1), |
288 | 288 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
289 | 289 |
@values = (conv_i($form->{id}), $form->{AR}{"paid_$i"}, $amount, conv_date($form->{"datepaid_$i"}), $project_id, $form->{AR}{"paid_$i"}, |
... | ... | |
298 | 298 |
my $accno = ($amount > 0) ? $form->{fxgain_accno} : $form->{fxloss_accno}; |
299 | 299 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, fx_transaction, cleared, project_id, taxkey, tax_id, chart_link) |
300 | 300 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 't', 'f', ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
301 |
(SELECT tax_id
|
|
302 |
FROM taxkeys
|
|
303 |
WHERE chart_id= (SELECT id
|
|
304 |
FROM chart
|
|
305 |
WHERE accno = ?)
|
|
306 |
AND startdate <= ?
|
|
301 |
(SELECT tax_id |
|
302 |
FROM taxkeys |
|
303 |
WHERE chart_id= (SELECT id |
|
304 |
FROM chart |
|
305 |
WHERE accno = ?) |
|
306 |
AND startdate <= ? |
|
307 | 307 |
ORDER BY startdate DESC LIMIT 1), |
308 | 308 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
309 | 309 |
@values = (conv_i($form->{id}), $accno, $amount, conv_date($form->{"datepaid_$i"}), $project_id, $accno, $accno, conv_date($form->{"datepaid_$i"}), $accno); |
Auch abrufbar als: Unified diff
Entfernung von trailing whitespaces