Revision 6755770b
Von Moritz Bunkus vor etwa 4 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 922 | 922 |
my $projectnumber_hidden = qq| |
| 923 | 923 |
<input type="hidden" name="project_id_$i" value="$form->{"project_id_$i"}">|;
|
| 924 | 924 |
|
| 925 |
my $copy2credit = $i == 1 ? 'onkeyup="copy_debit_to_credit()"' : ''; |
|
| 926 |
my $balance = $form->format_amount(\%::myconfig, $balances{$accno_id} // 0, 2, 'DRCR');
|
|
| 925 |
my $balance = $form->format_amount(\%::myconfig, $balances{$accno_id} // 0, 2, 'DRCR');
|
|
| 927 | 926 |
|
| 928 | 927 |
# if we have a bt_chart_id we disallow changing the amount of the bank account |
| 929 | 928 |
if ($form->{bt_chart_id}) {
|
| 930 | 929 |
$debitreadonly = $creditreadonly = "readonly" if ($form->{"accno_id_$i"} eq $form->{bt_chart_id});
|
| 931 |
$copy2credit = '' if $i == 1; # and disallow copy2credit |
|
| 932 | 930 |
} |
| 933 | 931 |
|
| 934 | 932 |
print qq|<tr valign=top> |
| 935 | 933 |
$accno |
| 936 | 934 |
<td id="chart_balance_$i" align="right">${balance}</td>
|
| 937 | 935 |
$fx_transaction |
| 938 |
<td><input name="debit_$i" size="8" value="$form->{"debit_$i"}" accesskey=$i $copy2credit $debitreadonly></td>
|
|
| 936 |
<td><input name="debit_$i" size="8" value="$form->{"debit_$i"}" accesskey=$i $debitreadonly></td>
|
|
| 939 | 937 |
<td><input name="credit_$i" size=8 value="$form->{"credit_$i"}" $creditreadonly></td>
|
| 940 | 938 |
<td><input type="hidden" name="tax_$i" value="$form->{"tax_$i"}">$form->{"tax_$i"}</td>
|
| 941 | 939 |
$tax_ddbox|; |
Auch abrufbar als: Unified diff
Dialogbuchen: automatisches Kopieren des Betrags entfernt