Revision 61824c45
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
SL/CP.pm | ||
---|---|---|
332 | 332 |
|
333 | 333 |
$form->{"paid_$i"} = |
334 | 334 |
$form->round_amount($form->{"paid_$i"} * $exchangerate, 2); |
335 |
|
|
336 | 335 |
$pth->execute($form->{"id_$i"}) || $form->dberror; |
337 | 336 |
($amount) = $pth->fetchrow_array; |
338 | 337 |
$pth->finish; |
... | ... | |
350 | 349 |
$query = qq|UPDATE $arap SET $paid, datepaid = ? WHERE id = ?|; |
351 | 350 |
@values = (conv_date($form->{datepaid}), conv_i($form->{"id_$i"})); |
352 | 351 |
do_query($form, $dbh, $query, @values); |
352 |
# saving the history |
|
353 |
$form->{id} = $form->{"id_$i"}; |
|
354 |
if(!exists $form->{addition}) { |
|
355 |
$form->{snumbers} = qq|invnumber_| . $form->{"invnumber_$i"}; |
|
356 |
$form->{addition} = "POSTED"; |
|
357 |
$form->save_history($form->dbconnect($myconfig)); |
|
358 |
} |
|
359 |
# /saving the history |
|
353 | 360 |
} |
354 | 361 |
} |
355 | 362 |
|
Auch abrufbar als: Unified diff
Anpassung der Historienfunktion