Revision 486e5c7c
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
|
}
|
||
|
}
|
||
|
$form->{AP} = $form->{AP_1} unless $form->{id};
|
||
|
my ($chart_accno) = split /--/, $form->{AP};
|
||
|
$form->{AP_chart_id} = $form->{id} ? SL::DB::Manager::Chart->find_by( accno => $chart_accno)->id : $::instance_conf->get_ap_chart_id || $form->{AP_links}->{AP}->[0]->{chart_id};
|
||
|
my ($chart_accno) = split /--/, $form->{AP}; # is empty if total is 0
|
||
|
$form->{AP_chart_id} = $form->{id} && $chart_accno ? SL::DB::Manager::Chart->find_by(accno => $chart_accno)->id
|
||
|
: $::instance_conf->get_ap_chart_id || $form->{AP_links}->{AP}->[0]->{chart_id};
|
||
|
|
||
|
$form->{locked} =
|
||
|
($form->datetonum($form->{invdate}, \%myconfig) <=
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
}
|
||
|
}
|
||
|
$form->{AR} = $form->{AR_1} unless $form->{id};
|
||
|
my ($chart_accno) = split /--/, $form->{AR};
|
||
|
$form->{AR_chart_id} = $form->{id} ? SL::DB::Manager::Chart->find_by( accno => $chart_accno)->id : $::instance_conf->get_ar_chart_id || $form->{AR_links}->{AR}->[0]->{chart_id};
|
||
|
my ($chart_accno) = split /--/, $form->{AR}; # is empty if total is 0
|
||
|
$form->{AR_chart_id} = $form->{id} && $chart_accno ? SL::DB::Manager::Chart->find_by(accno => $chart_accno)->id
|
||
|
: $::instance_conf->get_ar_chart_id || $form->{AR_links}->{AR}->[0]->{chart_id};
|
||
|
|
||
|
$form->{locked} = ($form->datetonum($form->{invdate}, \%myconfig)
|
||
|
<= $form->datetonum($form->{closedto}, \%myconfig));
|
||
Auch abrufbar als: Unified diff
FIX: Buchungskonto setzen bei Summe 0 in VK/EK-Rechnungen