Revision ca0df4c4
Von Moritz Bunkus vor fast 8 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 174 | 174 |
IS->get_customer(\%myconfig, \%$form); |
| 175 | 175 |
|
| 176 | 176 |
$form->{$_} = $saved{$_} for keys %saved;
|
| 177 |
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
|
|
| 178 | 177 |
$form->{rowcount} = 1;
|
| 179 | 178 |
$form->{AR_chart_id} = $form->{acc_trans} && $form->{acc_trans}->{AR} ? $form->{acc_trans}->{AR}->[0]->{chart_id} : $form->{AR_links}->{AR}->[0]->{chart_id};
|
| 180 | 179 |
|
| 181 | 180 |
# currencies |
| 182 | 181 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
| 183 | 182 |
|
| 184 |
# customers |
|
| 185 |
if (@{ $form->{all_customer} || [] }) {
|
|
| 186 |
$form->{customer} = "$form->{customer}--$form->{customer_id}";
|
|
| 187 |
map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}\n" }
|
|
| 188 |
(@{ $form->{all_customer} });
|
|
| 189 |
} |
|
| 190 |
|
|
| 191 | 183 |
$form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all;
|
| 192 | 184 |
|
| 193 | 185 |
# build the popup menus |
| ... | ... | |
| 215 | 207 |
$form->{invoice_obj} = _retrieve_invoice_object();
|
| 216 | 208 |
|
| 217 | 209 |
my ($title, $readonly, $exchangerate, $rows); |
| 218 |
my ($notes, $customer, $amount, $project);
|
|
| 210 |
my ($notes, $amount, $project); |
|
| 219 | 211 |
|
| 220 |
$form->{initial_focus} = !($form->{amount_1} * 1) ? 'customer' : 'row_' . $form->{rowcount};
|
|
| 212 |
$form->{initial_focus} = !($form->{amount_1} * 1) ? 'customer_id' : 'row_' . $form->{rowcount};
|
|
| 221 | 213 |
|
| 222 | 214 |
$title = $form->{title};
|
| 223 | 215 |
# $locale->text('Add Accounts Receivables Transaction')
|
| ... | ... | |
| 231 | 223 |
: ($::instance_conf->get_ar_changeable == 1); |
| 232 | 224 |
$readonly = ($form->{radier}) ? "" : $readonly;
|
| 233 | 225 |
|
| 234 |
# set option selected |
|
| 235 |
foreach my $item (qw(customer)) {
|
|
| 236 |
$form->{"select$item"} =~ s/ selected//;
|
|
| 237 |
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
|
| 238 |
} |
|
| 239 |
|
|
| 240 | 226 |
$form->{forex} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{transdate}, 'buy');
|
| 241 | 227 |
$form->{exchangerate} = $form->{forex} if $form->{forex};
|
| 242 | 228 |
|
| ... | ... | |
| 274 | 260 |
} |
| 275 | 261 |
} |
| 276 | 262 |
|
| 277 |
my $follow_up_vc = $form->{customer};
|
|
| 278 |
$follow_up_vc =~ s/--.*?//; |
|
| 263 |
my $follow_up_vc = $form->{customer_id} ? SL::DB::Customer->load_cached($form->{customer_id})->name : '';
|
|
| 279 | 264 |
my $follow_up_trans_info = "$form->{invnumber} ($follow_up_vc)";
|
| 280 | 265 |
|
| 281 |
$::request->layout->add_javascripts("autocomplete_chart.js", "show_vc_details.js", "show_history.js", "follow_up.js", "kivi.Draft.js", "kivi.GL.js");
|
|
| 266 |
$::request->layout->add_javascripts("autocomplete_chart.js", "autocomplete_customer.js", "show_vc_details.js", "show_history.js", "follow_up.js", "kivi.Draft.js", "kivi.GL.js");
|
|
| 282 | 267 |
|
| 283 | 268 |
my $transdate = $::form->{transdate} ? DateTime->from_kivitendo($::form->{transdate}) : DateTime->today_local;
|
| 284 | 269 |
my $first_taxchart; |
| ... | ... | |
| 506 | 491 |
|
| 507 | 492 |
$form->{invdate} = $form->{transdate};
|
| 508 | 493 |
|
| 509 |
&check_name("customer");
|
|
| 494 |
if (($form->{previous_customer_id} || $form->{customer_id}) != $form->{customer_id}) {
|
|
| 495 |
IS->get_customer(\%myconfig, $form); |
|
| 496 |
} |
|
| 510 | 497 |
|
| 511 | 498 |
$form->{invtotal} =
|
| 512 | 499 |
($form->{taxincluded}) ? $form->{invtotal} : $form->{invtotal} + $totaltax;
|
| ... | ... | |
| 618 | 605 |
# check if there is an invoice number, invoice and due date |
| 619 | 606 |
$form->isblank("transdate", $locale->text('Invoice Date missing!'));
|
| 620 | 607 |
$form->isblank("duedate", $locale->text('Due Date missing!'));
|
| 621 |
$form->isblank("customer", $locale->text('Customer missing!'));
|
|
| 608 |
$form->isblank("customer_id", $locale->text('Customer missing!'));
|
|
| 622 | 609 |
|
| 623 | 610 |
if ($myconfig{mandatory_departments} && !$form->{department_id}) {
|
| 624 | 611 |
$form->{saved_message} = $::locale->text('You have to specify a department.');
|
| ... | ... | |
| 664 | 651 |
} |
| 665 | 652 |
|
| 666 | 653 |
# if oldcustomer ne customer redo form |
| 667 |
my ($customer) = split /--/, $form->{customer};
|
|
| 668 |
if ($form->{oldcustomer} ne "$customer--$form->{customer_id}") {
|
|
| 654 |
if (($form->{previous_customer_id} || $form->{customer_id}) != $form->{customer_id}) {
|
|
| 669 | 655 |
update(); |
| 670 | 656 |
$::dispatcher->end_request; |
| 671 | 657 |
} |
Auch abrufbar als: Unified diff
Debitorenbuchungen: Kundenauswahl über Picker