Revision a2c920be
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
|
# $locale->text('Edit Accounts Receivables Transaction')
|
||
|
$form->{title} = $locale->text("$title Accounts Receivables Transaction");
|
||
|
|
||
|
$readonly = ($form->{id}) ? "readonly" : "";
|
||
|
|
||
|
$form->{radier} = ($::instance_conf->get_ar_changeable == 2)
|
||
|
? ($form->current_date(\%myconfig) eq $form->{gldate})
|
||
|
: ($::instance_conf->get_ar_changeable == 1);
|
||
|
$readonly = ($form->{radier}) ? "" : $readonly;
|
||
|
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
||
|
if ($form->{currency} ne $form->{defaultcurrency}) {
|
||
|
($form->{exchangerate}, $form->{record_forex}) = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, "buy", $form->{id}, 'ar');
|
||
| ... | ... | |
|
|
||
|
$is_linked_bank_transaction = 1;
|
||
|
}
|
||
|
# add readonly state in $::form
|
||
|
$::form->{readonly} = !$may_edit_create ? 1
|
||
|
: $is_closed ? 1
|
||
|
: $is_storno ? 1
|
||
|
: $has_storno ? 1
|
||
|
: ($::form->{id} && $change_never) ? 1
|
||
|
: ($::form->{id} && $change_on_same_day_only) ? 1
|
||
|
: $is_linked_bank_transaction ? 1
|
||
|
: 0;
|
||
|
for my $bar ($::request->layout->get('actionbar')) {
|
||
|
$bar->add(
|
||
|
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)