Revision 01b3feeb
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
|
($form->datetonum($form->{transdate}, \%myconfig) <=
|
||
|
$form->datetonum($form->{closedto}, \%myconfig));
|
||
|
|
||
|
$form->{"ARselected"} = $form->{"AR_1"};
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
|
||
|
$readonly = ($form->{radier}) ? "" : $readonly;
|
||
|
|
||
|
my $ARselected_quoted = quotemeta($form->{"ARselected"});
|
||
|
$form->{selectAR} = $form->{AR};
|
||
|
$form->{selectAR} =~
|
||
|
s/value=\"${ARselected_quoted}\"/value=\"$form->{ARselected}\" selected/;
|
||
|
|
||
|
# set option selected
|
||
|
foreach $item (qw(customer currency department employee)) {
|
||
|
$form->{"select$item"} =~ s/ selected//;
|
||
| ... | ... | |
|
# $form->{selectAR_amount} =~
|
||
|
# s/value=\"$form->{AR_amountselected}\"/value=\"$form->{AR_amountselected}\" selected/;
|
||
|
|
||
|
$form->{selectAR} = $form->{AR};
|
||
|
|
||
|
$form->{selectAR} =~
|
||
|
s/value=\"$form->{ARselected}\"/value=\"$form->{ARselected}\" selected/;
|
||
|
|
||
|
($AR_amountaccno, $AR_amounttaxkey) =
|
||
|
split(/--/, $form->{AR_amountselected});
|
||
|
$form->{selecttaxchart} = $form->{taxchart};
|
||
Auch abrufbar als: Unified diff
Debitorenbuchungen: Beim Aufrufen aus dem Buchungsjournal heraus das richtige Gegenkonto auswählen.