Revision d331a3d7
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 56 | 56 |
|
| 57 | 57 |
my $dbh = $provided_dbh ? $provided_dbh : $form->dbconnect_noauto($myconfig); |
| 58 | 58 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 59 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 60 | 59 |
|
| 61 | 60 |
# set exchangerate |
| 62 | 61 |
$form->{exchangerate} = ($form->{currency} eq $form->{defaultcurrency}) ? 1 :
|
| ... | ... | |
| 135 | 134 |
} else {
|
| 136 | 135 |
$query = qq|SELECT nextval('glid')|;
|
| 137 | 136 |
($form->{id}) = selectrow_query($form, $dbh, $query);
|
| 138 |
$query = qq|INSERT INTO ar (id, invnumber, employee_id) VALUES (?, 'dummy', ?)|;
|
|
| 139 |
do_query($form, $dbh, $query, $form->{id}, $form->{employee_id});
|
|
| 137 |
$query = qq|INSERT INTO ar (id, invnumber, employee_id, curr) VALUES (?, 'dummy', ?, (SELECT id FROM currencies WHERE curr=?))|;
|
|
| 138 |
do_query($form, $dbh, $query, $form->{id}, $form->{employee_id}, $form->{currency});
|
|
| 140 | 139 |
$form->{invnumber} = $form->update_defaults($myconfig, "invnumber", $dbh) unless $form->{invnumber};
|
| 141 | 140 |
} |
| 142 | 141 |
} |
| ... | ... | |
| 156 | 155 |
qq|UPDATE ar set |
| 157 | 156 |
invnumber = ?, ordnumber = ?, transdate = ?, customer_id = ?, |
| 158 | 157 |
taxincluded = ?, amount = ?, duedate = ?, paid = ?, |
| 159 |
netamount = ?, curr = ?, notes = ?, department_id = ?,
|
|
| 158 |
netamount = ?, notes = ?, department_id = ?, |
|
| 160 | 159 |
employee_id = ?, storno = ?, storno_id = ?, globalproject_id = ?, |
| 161 | 160 |
direct_debit = ? |
| 162 | 161 |
WHERE id = ?|; |
| 163 | 162 |
my @values = ($form->{invnumber}, $form->{ordnumber}, conv_date($form->{transdate}), conv_i($form->{customer_id}), $form->{taxincluded} ? 't' : 'f', $form->{amount},
|
| 164 |
conv_date($form->{duedate}), $form->{paid}, $form->{netamount}, $form->{currency}, $form->{notes}, conv_i($form->{department_id}),
|
|
| 163 |
conv_date($form->{duedate}), $form->{paid}, $form->{netamount}, $form->{notes}, conv_i($form->{department_id}),
|
|
| 165 | 164 |
conv_i($form->{employee_id}), $form->{storno} ? 't' : 'f', $form->{storno_id},
|
| 166 | 165 |
conv_i($form->{globalproject_id}), $form->{direct_debit} ? 't' : 'f', conv_i($form->{id}));
|
| 167 | 166 |
do_query($form, $dbh, $query, @values); |
| ... | ... | |
| 426 | 425 |
|
| 427 | 426 |
$form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
|
| 428 | 427 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 429 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 430 | 428 |
|
| 431 | 429 |
# Get the AR accno (which is normally done by Form::create_links()). |
| 432 | 430 |
$query = |
Auch abrufbar als: Unified diff
Nutzung der Tabelle currencies
Dieser Commmit passt den Code an, um die Tabelle currencies zu nutzen.