Revision 01b3feeb
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 292 | 292 |
($form->datetonum($form->{transdate}, \%myconfig) <=
|
| 293 | 293 |
$form->datetonum($form->{closedto}, \%myconfig));
|
| 294 | 294 |
|
| 295 |
$form->{"ARselected"} = $form->{"AR_1"};
|
|
| 296 |
|
|
| 295 | 297 |
$lxdebug->leave_sub(); |
| 296 | 298 |
} |
| 297 | 299 |
|
| ... | ... | |
| 331 | 333 |
($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
|
| 332 | 334 |
$readonly = ($form->{radier}) ? "" : $readonly;
|
| 333 | 335 |
|
| 336 |
my $ARselected_quoted = quotemeta($form->{"ARselected"});
|
|
| 337 |
$form->{selectAR} = $form->{AR};
|
|
| 338 |
$form->{selectAR} =~
|
|
| 339 |
s/value=\"${ARselected_quoted}\"/value=\"$form->{ARselected}\" selected/;
|
|
| 340 |
|
|
| 334 | 341 |
# set option selected |
| 335 | 342 |
foreach $item (qw(customer currency department employee)) {
|
| 336 | 343 |
$form->{"select$item"} =~ s/ selected//;
|
| ... | ... | |
| 799 | 806 |
# $form->{selectAR_amount} =~
|
| 800 | 807 |
# s/value=\"$form->{AR_amountselected}\"/value=\"$form->{AR_amountselected}\" selected/;
|
| 801 | 808 |
|
| 802 |
$form->{selectAR} = $form->{AR};
|
|
| 803 |
|
|
| 804 |
$form->{selectAR} =~
|
|
| 805 |
s/value=\"$form->{ARselected}\"/value=\"$form->{ARselected}\" selected/;
|
|
| 806 |
|
|
| 807 | 809 |
($AR_amountaccno, $AR_amounttaxkey) = |
| 808 | 810 |
split(/--/, $form->{AR_amountselected});
|
| 809 | 811 |
$form->{selecttaxchart} = $form->{taxchart};
|
Auch abrufbar als: Unified diff
Debitorenbuchungen: Beim Aufrufen aus dem Buchungsjournal heraus das richtige Gegenkonto auswählen.