Revision 9557707c
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 55 | 55 |
my $exchangerate = 0; |
| 56 | 56 |
|
| 57 | 57 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 58 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 58 | 59 |
|
| 59 | 60 |
($null, $form->{department_id}) = split(/--/, $form->{department});
|
| 60 | 61 |
|
| ... | ... | |
| 184 | 185 |
$query = qq|UPDATE ap SET |
| 185 | 186 |
invnumber = ?, transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?, |
| 186 | 187 |
amount = ?, duedate = ?, paid = ?, netamount = ?, |
| 187 |
curr = (SELECT id FROM currencies WHERE curr = ?), notes = ?, department_id = ?, storno = ?, storno_id = ?,
|
|
| 188 |
curr = ?, notes = ?, department_id = ?, storno = ?, storno_id = ?,
|
|
| 188 | 189 |
globalproject_id = ?, direct_debit = ? |
| 189 | 190 |
WHERE id = ?|; |
| 190 | 191 |
@values = ($form->{invnumber}, conv_date($form->{transdate}),
|
| ... | ... | |
| 664 | 665 |
|
| 665 | 666 |
$form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
|
| 666 | 667 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 668 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 667 | 669 |
|
| 668 | 670 |
# Get the AP accno. |
| 669 | 671 |
$query = |
Auch abrufbar als: Unified diff
Revert "Nutzung der Tabelle currencies"
This reverts commit be776964b83340e69fa2f02eae59b703c0c95b88.