Revision 5b4da8b5
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 642 | 642 |
|; |
| 643 | 643 |
|
| 644 | 644 |
if ($form->{currency} eq $form->{defaultcurrency}) {
|
| 645 |
@column_index = qw(datepaid source memo paid AP_paid); |
|
| 645 |
@column_index = qw(datepaid source memo paid AP_paid paid_project_id);
|
|
| 646 | 646 |
} else {
|
| 647 |
@column_index = qw(datepaid source memo paid exchangerate AP_paid); |
|
| 647 |
@column_index = qw(datepaid source memo paid exchangerate AP_paid paid_project_id);
|
|
| 648 | 648 |
} |
| 649 | 649 |
|
| 650 | 650 |
$column_data{datepaid} = "<th>" . $locale->text('Date') . "</th>";
|
| ... | ... | |
| 653 | 653 |
$column_data{AP_paid} = "<th>" . $locale->text('Account') . "</th>";
|
| 654 | 654 |
$column_data{source} = "<th>" . $locale->text('Source') . "</th>";
|
| 655 | 655 |
$column_data{memo} = "<th>" . $locale->text('Memo') . "</th>";
|
| 656 |
$column_data{paid_project_id} = "<th>" . $locale->text('Project Number') . "</th>";
|
|
| 656 | 657 |
|
| 657 | 658 |
print " |
| 658 | 659 |
<tr> |
| ... | ... | |
| 708 | 709 |
qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
|
| 709 | 710 |
$column_data{"memo_$i"} =
|
| 710 | 711 |
qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|;
|
| 712 |
$column_data{"paid_project_id_$i"} =
|
|
| 713 |
qq|<td>| |
|
| 714 |
. NTI($cgi->popup_menu('-name' => "paid_project_id_$i",
|
|
| 715 |
'-values' => \@project_values, |
|
| 716 |
'-labels' => \%project_labels, |
|
| 717 |
'-default' => $form->{"paid_project_id_$i"} ))
|
|
| 718 |
. qq|</td>|; |
|
| 711 | 719 |
|
| 712 | 720 |
map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
|
| 713 | 721 |
|
| ... | ... | |
| 740 | 748 |
print qq| |
| 741 | 749 |
|
| 742 | 750 |
<input name=callback type=hidden value="$form->{callback}">
|
| 751 |
<input name="gldate" type="hidden" value="| . Q($form->{gldate}) . qq|">
|
|
| 743 | 752 |
|
| 744 | 753 |
<input type=hidden name=path value=$form->{path}>
|
| 745 | 754 |
<input type=hidden name=login value=$form->{login}>
|
| ... | ... | |
| 751 | 760 |
$transdate = $form->datetonum($form->{transdate}, \%myconfig);
|
| 752 | 761 |
$closedto = $form->datetonum($form->{closedto}, \%myconfig);
|
| 753 | 762 |
|
| 763 |
print qq|<input class=submit type=submit name=action value="| |
|
| 764 |
. $locale->text('Update') . qq|">|;
|
|
| 765 |
|
|
| 754 | 766 |
if ($form->{id}) {
|
| 755 | 767 |
|
| 756 | 768 |
# print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
|
| 757 | 769 |
# |; |
| 758 |
if ($form->{radier}) {
|
|
| 759 |
print qq|
|
|
| 770 |
if ($form->{radier}) {
|
|
| 771 |
print qq| |
|
| 760 | 772 |
<input class=submit type=submit name=action value="| |
| 761 | 773 |
. $locale->text('Post') . qq|">
|
| 762 | 774 |
<input class=submit type=submit name=action value="| |
| 763 | 775 |
. $locale->text('Delete') . qq|">
|
| 764 | 776 |
|; |
| 765 |
} |
|
| 777 |
}
|
|
| 766 | 778 |
|
| 767 |
print qq|
|
|
| 779 |
print qq| |
|
| 768 | 780 |
<input class=submit type=submit name=action value="| |
| 769 | 781 |
. $locale->text('Use As Template') . qq|">
|
| 770 |
|; |
|
| 771 |
print qq| |
|
| 772 | 782 |
<input class=submit type=submit name=action value="| |
| 773 | 783 |
. $locale->text('Post Payment') . qq|">
|
| 774 | 784 |
|; |
| 775 |
} else {
|
|
| 776 |
if (($transdate > $closedto) && !$form->{id}) {
|
|
| 777 |
print qq|<input class=submit type=submit name=action value="| |
|
| 778 |
. $locale->text('Update') . qq|">
|
|
| 785 |
} elsif (($transdate > $closedto) && !$form->{id}) {
|
|
| 786 |
print qq| |
|
| 779 | 787 |
<input class=submit type=submit name=action value="| |
| 780 |
. $locale->text('Post') . qq|">|;
|
|
| 781 |
} |
|
| 788 |
. $locale->text('Post') . qq|">|;
|
|
| 782 | 789 |
} |
| 783 | 790 |
|
| 784 | 791 |
print " |
Auch abrufbar als: Unified diff
Kreditorenrechnungsmaske: Buttons richtig anzeigen bzgl. Radierparagraph & "Erneuern" immer anzeigen.