Revision e9a4d347
Von Philip Reetz vor fast 19 Jahren hinzugefügt
bin/mozilla/gl.pl | ||
---|---|---|
177 | 177 |
$form->{totalcredit} += $ref->{amount}; |
178 | 178 |
$form->{"credit_$i"} = $ref->{amount}; |
179 | 179 |
} |
180 |
$form->{"taxchart_$i"} = "0--"; |
|
180 | 181 |
$i++; |
181 | 182 |
} |
182 | 183 |
if ($ref->{taxaccno} && !$tax) { |
... | ... | |
1058 | 1059 |
qq|<td><select id="taxchart_$i" name="taxchart_$i" tabindex=| |
1059 | 1060 |
. ($i + 10 + (($i - 1) * 8)) |
1060 | 1061 |
. qq|>$form->{taxchart}</select></td>|; |
1061 |
if ($form->{selectprojectnumber}) { |
|
1062 |
$project = qq| |
|
1063 |
<td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>|; |
|
1064 |
} |
|
1062 |
# if ($form->{selectprojectnumber}) {
|
|
1063 |
# $project = qq|
|
|
1064 |
# <td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>|;
|
|
1065 |
# }
|
|
1065 | 1066 |
$korrektur = |
1066 | 1067 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1" tabindex=| |
1067 | 1068 |
. ($i + 9 + (($i - 1) * 8)) |
... | ... | |
1110 | 1111 |
. ($i + 10 + (($i - 1) * 8)) |
1111 | 1112 |
. qq|>$tax</select></td>|; |
1112 | 1113 |
|
1113 |
if ($form->{selectprojectnumber}) { |
|
1114 |
$form->{"projectnumber_$i"} = "" |
|
1115 |
if $form->{selectprojectnumber} !~ /$form->{"projectnumber_$i"}/; |
|
1116 |
|
|
1117 |
$project = $form->{"projectnumber_$i"}; |
|
1118 |
$project =~ s/--.*//; |
|
1119 |
$project = qq|<td>$project</td>|; |
|
1120 |
} |
|
1114 |
# if ($form->{selectprojectnumber}) {
|
|
1115 |
# $form->{"projectnumber_$i"} = ""
|
|
1116 |
# if $form->{selectprojectnumber} !~ /$form->{"projectnumber_$i"}/;
|
|
1117 |
# |
|
1118 |
# $project = $form->{"projectnumber_$i"};
|
|
1119 |
# $project =~ s/--.*//;
|
|
1120 |
# $project = qq|<td>$project</td>|;
|
|
1121 |
# }
|
|
1121 | 1122 |
|
1122 | 1123 |
if ($form->{transfer}) { |
1123 | 1124 |
$checked = ($form->{"fx_transaction_$i"}) ? "1" : ""; |
... | ... | |
1131 | 1132 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1" $checked tabindex=| |
1132 | 1133 |
. ($i + 9 + (($i - 1) * 8)) |
1133 | 1134 |
. qq|></td>|; |
1134 |
$form->hide_form("accno_$i", "projectnumber_$i");
|
|
1135 |
$form->hide_form("accno_$i"); |
|
1135 | 1136 |
|
1136 | 1137 |
} else { |
1137 | 1138 |
|
... | ... | |
1141 | 1142 |
$tax = qq| |
1142 | 1143 |
<td><select id="taxchart_$i" name="taxchart_$i" tabindex=| |
1143 | 1144 |
. ($i + 10 + (($i - 1) * 8)) . qq|>$taxchart</select></td>|; |
1144 |
if ($form->{selectprojectnumber}) { |
|
1145 |
$project = qq| |
|
1146 |
<td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>|; |
|
1147 |
} |
|
1145 |
# if ($form->{selectprojectnumber}) {
|
|
1146 |
# $project = qq|
|
|
1147 |
# <td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>|;
|
|
1148 |
# }
|
|
1148 | 1149 |
$korrektur = |
1149 | 1150 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1" tabindex=| |
1150 | 1151 |
. ($i + 9 + (($i - 1) * 8)) |
... | ... | |
1179 | 1180 |
$tax |
1180 | 1181 |
$source |
1181 | 1182 |
$memo |
1182 |
$project |
|
1183 | 1183 |
</tr> |
1184 | 1184 |
|
1185 | 1185 |
|; |
1186 | 1186 |
} |
1187 | 1187 |
|
1188 | 1188 |
$form->hide_form(qw(rowcount selectaccno)); |
1189 |
print qq| |
|
1190 |
<input type=hidden name=selectprojectnumber value="| |
|
1191 |
. $form->escape($form->{selectprojectnumber}, 1) . qq|">|; |
|
1189 |
# print qq|
|
|
1190 |
# <input type=hidden name=selectprojectnumber value="|
|
|
1191 |
# . $form->escape($form->{selectprojectnumber}, 1) . qq|">|;
|
|
1192 | 1192 |
$lxdebug->leave_sub(); |
1193 | 1193 |
|
1194 | 1194 |
} |
... | ... | |
1546 | 1546 |
|
1547 | 1547 |
my @flds = |
1548 | 1548 |
qw(accno debit credit projectnumber fx_transaction source memo tax taxchart); |
1549 |
if ($form->{storno}) { |
|
1550 |
for my $i (1 .. $form->{rowcount}) { |
|
1551 |
unless (($form->{"debit_$i"} eq "") && ($form->{"credit_$i"} eq "")) { |
|
1552 |
if ($form->{"debit_$i"} ne "") { |
|
1553 |
$form->{"credit_$i"} = $form->{"debit_$i"}; |
|
1554 |
$form->{"debit_$i"} = ""; |
|
1555 |
} elsif ($form->{"credit_$i"} ne "") { |
|
1556 |
$form->{"debit_$i"} = $form->{"credit_$i"}; |
|
1557 |
$form->{"credit_$i"} = ""; |
|
1558 |
} |
|
1559 |
} |
|
1560 |
} |
|
1561 |
} |
|
1549 | 1562 |
|
1550 | 1563 |
for my $i (1 .. $form->{rowcount}) { |
1551 | 1564 |
|
Auch abrufbar als: Unified diff
Bug #204 behoben: Storno geht jetzt auch bei Splitbuchungen