Revision 7395cedc
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 124 | 124 |
|
| 125 | 125 |
# Fill $::form from the template. |
| 126 | 126 |
my $today = DateTime->today_local; |
| 127 |
$::form->{title} = "Add";
|
|
| 128 |
$::form->{currency} = $template->currency->name;
|
|
| 129 |
$::form->{direct_debit} = $template->direct_debit;
|
|
| 130 |
$::form->{globalproject_id} = $template->project_id;
|
|
| 127 |
$::form->{title} = "Add";
|
|
| 128 |
$::form->{currency} = $template->currency->name;
|
|
| 129 |
$::form->{direct_debit} = $template->direct_debit;
|
|
| 130 |
$::form->{globalproject_id} = $template->project_id;
|
|
| 131 | 131 |
$::form->{transaction_description} = $template->transaction_description;
|
| 132 |
$::form->{AR_chart_id} = $template->ar_ap_chart_id;
|
|
| 133 |
$::form->{transdate} = $today->to_kivitendo;
|
|
| 134 |
$::form->{duedate} = $today->to_kivitendo;
|
|
| 135 |
$::form->{rowcount} = @{ $template->items };
|
|
| 136 |
$::form->{paidaccounts} = 1;
|
|
| 137 |
$::form->{$_} = $template->$_ for qw(department_id ordnumber taxincluded employee_id notes);
|
|
| 132 |
$::form->{AR_chart_id} = $template->ar_ap_chart_id;
|
|
| 133 |
$::form->{transdate} = $today->to_kivitendo;
|
|
| 134 |
$::form->{duedate} = $today->to_kivitendo;
|
|
| 135 |
$::form->{rowcount} = @{ $template->items };
|
|
| 136 |
$::form->{paidaccounts} = 1;
|
|
| 137 |
$::form->{$_} = $template->$_ for qw(department_id ordnumber taxincluded employee_id notes);
|
|
| 138 | 138 |
|
| 139 | 139 |
if ($template->customer) {
|
| 140 | 140 |
$::form->{customer_id} = $template->customer_id;
|
| ... | ... | |
| 198 | 198 |
} (1..($::form->{rowcount} || 1));
|
| 199 | 199 |
|
| 200 | 200 |
$template->assign_attributes( |
| 201 |
template_type => 'ar_transaction', |
|
| 202 |
template_name => $new_name, |
|
| 203 |
|
|
| 204 |
currency_id => SL::DB::Manager::Currency->find_by(name => $::form->{currency})->id,
|
|
| 205 |
ar_ap_chart_id => $::form->{AR_chart_id} || undef,
|
|
| 206 |
customer_id => $::form->{customer_id} || undef,
|
|
| 207 |
department_id => $::form->{department_id} || undef,
|
|
| 208 |
project_id => $::form->{globalproject_id} || undef,
|
|
| 209 |
employee_id => $::form->{employee_id} || undef,
|
|
| 210 |
taxincluded => $::form->{taxincluded} ? 1 : 0,
|
|
| 211 |
direct_debit => $::form->{direct_debit} ? 1 : 0,
|
|
| 212 |
ordnumber => $::form->{ordnumber},
|
|
| 213 |
notes => $::form->{notes},
|
|
| 201 |
template_type => 'ar_transaction',
|
|
| 202 |
template_name => $new_name,
|
|
| 203 |
|
|
| 204 |
currency_id => SL::DB::Manager::Currency->find_by(name => $::form->{currency})->id,
|
|
| 205 |
ar_ap_chart_id => $::form->{AR_chart_id} || undef,
|
|
| 206 |
customer_id => $::form->{customer_id} || undef,
|
|
| 207 |
department_id => $::form->{department_id} || undef,
|
|
| 208 |
project_id => $::form->{globalproject_id} || undef,
|
|
| 209 |
employee_id => $::form->{employee_id} || undef,
|
|
| 210 |
taxincluded => $::form->{taxincluded} ? 1 : 0,
|
|
| 211 |
direct_debit => $::form->{direct_debit} ? 1 : 0,
|
|
| 212 |
ordnumber => $::form->{ordnumber},
|
|
| 213 |
notes => $::form->{notes},
|
|
| 214 | 214 |
transaction_description => $::form->{transaction_description},
|
| 215 | 215 |
|
| 216 |
items => \@items, |
|
| 216 |
items => \@items,
|
|
| 217 | 217 |
); |
| 218 | 218 |
|
| 219 | 219 |
eval {
|
Auch abrufbar als: Unified diff
Kosmetik Debitorenbuchung ar.pl: Ausrichtung