Revision d331a3d7
Von Niclas Zimmermann 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};
|
|
| 59 | 58 |
|
| 60 | 59 |
($null, $form->{department_id}) = split(/--/, $form->{department});
|
| 61 | 60 |
|
| ... | ... | |
| 185 | 184 |
$query = qq|UPDATE ap SET |
| 186 | 185 |
invnumber = ?, transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?, |
| 187 | 186 |
amount = ?, duedate = ?, paid = ?, netamount = ?, |
| 188 |
curr = ?, notes = ?, department_id = ?, storno = ?, storno_id = ?,
|
|
| 187 |
curr = (SELECT id FROM currencies WHERE curr = ?), notes = ?, department_id = ?, storno = ?, storno_id = ?,
|
|
| 189 | 188 |
globalproject_id = ?, direct_debit = ? |
| 190 | 189 |
WHERE id = ?|; |
| 191 | 190 |
@values = ($form->{invnumber}, conv_date($form->{transdate}),
|
| ... | ... | |
| 665 | 664 |
|
| 666 | 665 |
$form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
|
| 667 | 666 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 668 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 669 | 667 |
|
| 670 | 668 |
# Get the AP accno. |
| 671 | 669 |
$query = |
Auch abrufbar als: Unified diff
Nutzung der Tabelle currencies
Dieser Commmit passt den Code an, um die Tabelle currencies zu nutzen.