Revision 93d8a5ea
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 379 | 379 |
# $locale->text('Edit Accounts Receivables Transaction')
|
| 380 | 380 |
$form->{title} = $locale->text("$title Accounts Receivables Transaction");
|
| 381 | 381 |
|
| 382 |
$readonly = ($form->{id}) ? "readonly" : "";
|
|
| 383 |
|
|
| 384 |
$form->{radier} = ($::instance_conf->get_ar_changeable == 2)
|
|
| 385 |
? ($form->current_date(\%myconfig) eq $form->{gldate})
|
|
| 386 |
: ($::instance_conf->get_ar_changeable == 1); |
|
| 387 |
$readonly = ($form->{radier}) ? "" : $readonly;
|
|
| 388 | 382 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
| 389 | 383 |
if ($form->{currency} ne $form->{defaultcurrency}) {
|
| 390 | 384 |
($form->{exchangerate}, $form->{record_forex}) = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, "buy", $form->{id}, 'ar');
|
| ... | ... | |
| 1384 | 1378 |
|
| 1385 | 1379 |
$is_linked_bank_transaction = 1; |
| 1386 | 1380 |
} |
| 1381 |
# add readonly state in $::form |
|
| 1382 |
$::form->{readonly} = !$may_edit_create ? 1
|
|
| 1383 |
: $is_closed ? 1 |
|
| 1384 |
: $is_storno ? 1 |
|
| 1385 |
: $has_storno ? 1 |
|
| 1386 |
: ($::form->{id} && $change_never) ? 1
|
|
| 1387 |
: ($::form->{id} && $change_on_same_day_only) ? 1
|
|
| 1388 |
: $is_linked_bank_transaction ? 1 |
|
| 1389 |
: 0; |
|
| 1387 | 1390 |
for my $bar ($::request->layout->get('actionbar')) {
|
| 1388 | 1391 |
$bar->add( |
| 1389 | 1392 |
action => [ |
Auch abrufbar als: Unified diff
Wechselkurs in form_header anzeigen, inkl. Herkunft (Beleg oder Tageskurs)
> form>radier entfernt und den Zustand readonly in allen 4Buchungsmasken auch anhand der Zustände der action_bar Knöpfe
abhängig gemacht (in form oder TMPL_VARS gesetzt)