Revision be776964
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.