Revision 890e057f
Von Bernd Blessmann vor etwa 13 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 693 | 693 |
$form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
|
| 694 | 694 |
} |
| 695 | 695 |
|
| 696 |
print qq|<input type=hidden name="acc_trans_id_$i" value=$form->{"acc_trans_id_$i"}>\n|;
|
|
| 696 | 697 |
print qq|<input type=hidden name="gldate_$i" value=$form->{"gldate_$i"}>\n|;
|
| 697 |
my $changeable = (($form->{"gldate_$i"} eq '') || $form->current_date(\%myconfig) eq $form->{"gldate_$i"});
|
|
| 698 |
$form->{"payment_readonly_$i"} = ($changeable)? 0 : 1;
|
|
| 699 |
print qq|<input type=hidden name="payment_readonly_$i" value=$form->{"payment_readonly_$i"}>\n|;
|
|
| 698 |
my $changeable = 1; |
|
| 699 |
if ($::lx_office_conf{features}->{payments_changeable} == 0) {
|
|
| 700 |
# never |
|
| 701 |
$changeable = ($form->{"acc_trans_id_$i"})? 0 : 1;
|
|
| 702 |
} |
|
| 703 |
if ($::lx_office_conf{features}->{payments_changeable} == 2) {
|
|
| 704 |
# on the same day |
|
| 705 |
$changeable = (($form->{"gldate_$i"} eq '') || $form->current_date(\%myconfig) eq $form->{"gldate_$i"});
|
|
| 706 |
} |
|
| 700 | 707 |
|
| 701 | 708 |
$exchangerate = qq| |; |
| 702 | 709 |
if ($form->{defaultcurrency} && ($form->{currency} ne $form->{defaultcurrency})) {
|
| ... | ... | |
| 1183 | 1190 |
|
| 1184 | 1191 |
$main::auth->assert('general_ledger');
|
| 1185 | 1192 |
|
| 1186 |
map { delete $form->{$_} } qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 gldate_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno);
|
|
| 1193 |
map { delete $form->{$_} } qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno);
|
|
| 1187 | 1194 |
$form->{paidaccounts} = 1;
|
| 1188 | 1195 |
$form->{rowcount}--;
|
| 1189 | 1196 |
$form->{invdate} = $form->current_date(\%myconfig);
|
Auch abrufbar als: Unified diff
Änderbarkeit bei Zahlungen f. Kreditorenbuchungen konfigurierbar machen.
Nie, immer oder am selben Tag, einstellbar in der lx_office.conf