Revision a4b22a8f
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 37 | 37 |
use Data::Dumper; |
| 38 | 38 |
|
| 39 | 39 |
require "$form->{path}/arap.pl";
|
| 40 |
require "bin/mozilla/common.pl"; |
|
| 40 | 41 |
|
| 41 | 42 |
1; |
| 42 | 43 |
|
| ... | ... | |
| 1129 | 1130 |
<td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
|
| 1130 | 1131 |
} |
| 1131 | 1132 |
|
| 1133 |
$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
|
|
| 1134 |
"all" => 1 }); |
|
| 1135 |
|
|
| 1136 |
my %labels = (); |
|
| 1137 |
my @values = ("");
|
|
| 1138 |
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
|
|
| 1139 |
push(@values, $item->{"id"});
|
|
| 1140 |
$labels{$item->{"id"}} = $item->{"projectnumber"};
|
|
| 1141 |
} |
|
| 1142 |
my $projectnumber = |
|
| 1143 |
NTI($cgi->popup_menu('-name' => 'project_id', '-values' => \@values,
|
|
| 1144 |
'-labels' => \%labels)); |
|
| 1145 |
|
|
| 1132 | 1146 |
$form->{fokus} = "search.customer";
|
| 1133 | 1147 |
$form->header; |
| 1134 | 1148 |
|
| ... | ... | |
| 1160 | 1174 |
<th align=right nowrap>| . $locale->text('Notes') . qq|</th>
|
| 1161 | 1175 |
<td colspan=3><input name=notes size=40></td> |
| 1162 | 1176 |
</tr> |
| 1177 |
<tr> |
|
| 1178 |
<th align="right">| . $locale->text("Project Number") . qq|</th>
|
|
| 1179 |
<td colspan="3">$projectnumber</td> |
|
| 1180 |
</tr> |
|
| 1163 | 1181 |
<tr> |
| 1164 | 1182 |
<th align=right nowrap>| . $locale->text('From') . qq|</th>
|
| 1165 | 1183 |
$button1 |
| ... | ... | |
| 1226 | 1244 |
<tr> |
| 1227 | 1245 |
<td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td> |
| 1228 | 1246 |
<td nowrap>| . $locale->text('Subtotal') . qq|</td>
|
| 1247 |
<td align=right><input name="l_globalprojectnumber" class=checkbox type=checkbox value=Y></td> |
|
| 1248 |
<td nowrap>| . $locale->text('Project Number') . qq|</td>
|
|
| 1229 | 1249 |
</tr> |
| 1230 | 1250 |
</table> |
| 1231 | 1251 |
</td> |
| ... | ... | |
| 1331 | 1351 |
$option .= "\n<br>" if ($option); |
| 1332 | 1352 |
$option .= $locale->text('Closed');
|
| 1333 | 1353 |
} |
| 1354 |
if ($form->{globalproject_id}) {
|
|
| 1355 |
$callback .= "&globalproject_id=" . E($form->{globalproject_id});
|
|
| 1356 |
$href .= "&globalproject_id=" . E($form->{globalproject_id});
|
|
| 1357 |
} |
|
| 1334 | 1358 |
|
| 1335 |
@columns = $form->sort_columns( |
|
| 1336 |
qw(transdate id type invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee shippingpoint shipvia) |
|
| 1337 |
); |
|
| 1359 |
@columns = |
|
| 1360 |
qw(transdate id type invnumber ordnumber name netamount tax amount paid |
|
| 1361 |
datepaid due duedate notes employee shippingpoint shipvia |
|
| 1362 |
globalprojectnumber); |
|
| 1338 | 1363 |
|
| 1339 | 1364 |
$form->{"l_type"} = "Y";
|
| 1340 | 1365 |
|
| ... | ... | |
| 1407 | 1432 |
"<th><a class=listheading href=$href&sort=shipvia>" |
| 1408 | 1433 |
. $locale->text('Ship via')
|
| 1409 | 1434 |
. "</a></th>"; |
| 1435 |
$column_header{globalprojectnumber} =
|
|
| 1436 |
qq|<th class="listheading">| . $locale->text('Project Number') . qq|</th>|;
|
|
| 1410 | 1437 |
|
| 1411 | 1438 |
$form->{title} = $locale->text('AR Transactions');
|
| 1412 | 1439 |
|
| ... | ... | |
| 1505 | 1532 |
$column_data{shippingpoint} = "<td>$ar->{shippingpoint} </td>";
|
| 1506 | 1533 |
$column_data{shipvia} = "<td>$ar->{shipvia} </td>";
|
| 1507 | 1534 |
$column_data{employee} = "<td>$ar->{employee} </td>";
|
| 1535 |
$column_data{globalprojectnumber} =
|
|
| 1536 |
"<td>" . H($ar->{globalprojectnumber}) . "</td>";
|
|
| 1508 | 1537 |
|
| 1509 | 1538 |
$i++; |
| 1510 | 1539 |
$i %= 2; |
Auch abrufbar als: Unified diff
Einkaufs- und Verkaufsrechnungen: Filtermöglichkeiten nach Projektnummer sowie Anzeigeoption der Projektnummer hinzugefügt.