Revision 0a7acc87
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
SL/AR.pm | ||
---|---|---|
192 | 192 |
# add recievables |
193 | 193 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey, tax_id, chart_link) |
194 | 194 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
195 |
(SELECT tax_id
|
|
196 |
FROM taxkeys
|
|
197 |
WHERE chart_id= (SELECT id
|
|
198 |
FROM chart
|
|
199 |
WHERE accno = ?)
|
|
200 |
AND startdate <= ?
|
|
195 |
(SELECT tax_id |
|
196 |
FROM taxkeys |
|
197 |
WHERE chart_id= (SELECT id |
|
198 |
FROM chart |
|
199 |
WHERE accno = ?) |
|
200 |
AND startdate <= ? |
|
201 | 201 |
ORDER BY startdate DESC LIMIT 1), |
202 | 202 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
203 | 203 |
@values = (conv_i($form->{id}), $form->{AR_amounts}{receivables}, conv_i($form->{receivables}), conv_date($form->{transdate}), |
... | ... | |
240 | 240 |
# add receivable |
241 | 241 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id, taxkey, tax_id, chart_link) |
242 | 242 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
243 |
(SELECT tax_id
|
|
244 |
FROM taxkeys
|
|
245 |
WHERE chart_id= (SELECT id
|
|
246 |
FROM chart
|
|
247 |
WHERE accno = ?)
|
|
248 |
AND startdate <= ?
|
|
243 |
(SELECT tax_id |
|
244 |
FROM taxkeys |
|
245 |
WHERE chart_id= (SELECT id |
|
246 |
FROM chart |
|
247 |
WHERE accno = ?) |
|
248 |
AND startdate <= ? |
|
249 | 249 |
ORDER BY startdate DESC LIMIT 1), |
250 | 250 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
251 | 251 |
@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"}), |
... | ... | |
261 | 261 |
$amount = $form->{"paid_$i"} * -1; |
262 | 262 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, gldate, source, memo, project_id, taxkey, tax_id, chart_link) |
263 | 263 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?, ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
264 |
(SELECT tax_id
|
|
265 |
FROM taxkeys
|
|
266 |
WHERE chart_id= (SELECT id
|
|
267 |
FROM chart
|
|
268 |
WHERE accno = ?)
|
|
269 |
AND startdate <= ?
|
|
264 |
(SELECT tax_id |
|
265 |
FROM taxkeys |
|
266 |
WHERE chart_id= (SELECT id |
|
267 |
FROM chart |
|
268 |
WHERE accno = ?) |
|
269 |
AND startdate <= ? |
|
270 | 270 |
ORDER BY startdate DESC LIMIT 1), |
271 | 271 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
272 | 272 |
@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"}, |
... | ... | |
279 | 279 |
if ($amount != 0) { |
280 | 280 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, fx_transaction, cleared, project_id, taxkey, tax_id, chart_link) |
281 | 281 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 't', 'f', ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
282 |
(SELECT tax_id
|
|
283 |
FROM taxkeys
|
|
284 |
WHERE chart_id= (SELECT id
|
|
285 |
FROM chart
|
|
286 |
WHERE accno = ?)
|
|
287 |
AND startdate <= ?
|
|
282 |
(SELECT tax_id |
|
283 |
FROM taxkeys |
|
284 |
WHERE chart_id= (SELECT id |
|
285 |
FROM chart |
|
286 |
WHERE accno = ?) |
|
287 |
AND startdate <= ? |
|
288 | 288 |
ORDER BY startdate DESC LIMIT 1), |
289 | 289 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
290 | 290 |
@values = (conv_i($form->{id}), $form->{AR}{"paid_$i"}, $amount, conv_date($form->{"datepaid_$i"}), $project_id, $form->{AR}{"paid_$i"}, |
... | ... | |
299 | 299 |
my $accno = ($amount > 0) ? $form->{fxgain_accno} : $form->{fxloss_accno}; |
300 | 300 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, fx_transaction, cleared, project_id, taxkey, tax_id, chart_link) |
301 | 301 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 't', 'f', ?, (SELECT taxkey_id FROM chart WHERE accno = ?), |
302 |
(SELECT tax_id
|
|
303 |
FROM taxkeys
|
|
304 |
WHERE chart_id= (SELECT id
|
|
305 |
FROM chart
|
|
306 |
WHERE accno = ?)
|
|
307 |
AND startdate <= ?
|
|
302 |
(SELECT tax_id |
|
303 |
FROM taxkeys |
|
304 |
WHERE chart_id= (SELECT id |
|
305 |
FROM chart |
|
306 |
WHERE accno = ?) |
|
307 |
AND startdate <= ? |
|
308 | 308 |
ORDER BY startdate DESC LIMIT 1), |
309 | 309 |
(SELECT c.link FROM chart c WHERE c.accno = ?))|; |
310 | 310 |
@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
Trailing Whitespaces entfernen
Dieser Commit entfernt lediglich Leerzeichen am Ende der Zeilen.