Revision 222c7e21
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 328 | 328 |
sub form_header {
|
| 329 | 329 |
$lxdebug->enter_sub(); |
| 330 | 330 |
|
| 331 |
$checkedopen = ($form->{closed}) ? "" : "checked";
|
|
| 332 |
$checkedclosed = ($form->{closed}) ? "checked" : "";
|
|
| 331 |
my $checkedclosed = $form->{"closed"} ? "checked" : "";
|
|
| 332 |
my $checkeddelivered = $form->{"delivered"} ? "checked" : "";
|
|
| 333 | 333 |
|
| 334 | 334 |
map { $form->{$_} =~ s/\"/"/g }
|
| 335 | 335 |
qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname |
| ... | ... | |
| 380 | 380 |
$openclosed = qq| |
| 381 | 381 |
<tr> |
| 382 | 382 |
<td colspan=2 align=center> |
| 383 |
<table> |
|
| 384 |
<tr> |
|
| 385 |
<th nowrap><input name=closed type=radio class=radio value=0 $checkedopen> | |
|
| 386 |
. $locale->text('Open') . qq|</th>
|
|
| 387 |
<th nowrap><input name=closed type=radio class=radio value=1 $checkedclosed> | |
|
| 388 |
. $locale->text('Closed') . qq|</th>
|
|
| 389 |
</tr> |
|
| 390 |
</table> |
|
| 391 |
</td> |
|
| 383 |
<input name="closed" id="closed" type="checkbox" class="checkbox" value="1" $checkedclosed> |
|
| 384 |
<label for="closed">| . $locale->text('Closed') . qq|</label>
|
|
| 385 |
|; |
|
| 386 |
|
|
| 387 |
if (($form->{"type"} eq "sales_order") ||
|
|
| 388 |
($form->{"type"} eq "purchase_order")) {
|
|
| 389 |
$openclosed .= qq| |
|
| 390 |
<input name="delivered" id="delivered" type="checkbox" class="checkbox" value="1" $checkeddelivered> |
|
| 391 |
<label for="delivered">| . $locale->text('Delivered') . qq|</label>
|
|
| 392 |
|; |
|
| 393 |
} |
|
| 394 |
|
|
| 395 |
$openclosed .= qq| |
|
| 396 |
</td> |
|
| 392 | 397 |
</tr> |
| 393 | 398 |
|; |
| 394 | 399 |
} |
| ... | ... | |
| 1383 | 1388 |
|; |
| 1384 | 1389 |
} |
| 1385 | 1390 |
|
| 1391 |
my $delivered; |
|
| 1392 |
if (($form->{"type"} eq "sales_order") ||
|
|
| 1393 |
($form->{"type"} eq "purchase_order")) {
|
|
| 1394 |
$delivered = qq| |
|
| 1395 |
<tr> |
|
| 1396 |
<td><input name="notdelivered" id="notdelivered" class="checkbox" type="checkbox" value="1" checked> |
|
| 1397 |
<label for="notdelivered">|. $locale->text('Not delivered') . qq|</label></td>
|
|
| 1398 |
<td><input name="delivered" id="delivered" class="checkbox" type="checkbox" value="1" checked> |
|
| 1399 |
<label for="delivered">| . $locale->text('Delivered') . qq|</label></td>
|
|
| 1400 |
</tr> |
|
| 1401 |
|; |
|
| 1402 |
} |
|
| 1403 |
|
|
| 1386 | 1404 |
# use JavaScript Calendar or not |
| 1387 | 1405 |
$form->{jsscript} = $jscalendar;
|
| 1388 | 1406 |
$jsscript = ""; |
| ... | ... | |
| 1450 | 1468 |
<td colspan=5> |
| 1451 | 1469 |
<table> |
| 1452 | 1470 |
$openclosed |
| 1471 |
$delivered |
|
| 1453 | 1472 |
<tr> |
| 1454 | 1473 |
<td><input name="l_id" class=checkbox type=checkbox value=Y> |
| 1455 | 1474 |
| . $locale->text('ID') . qq|</td>
|
| ... | ... | |
| 1525 | 1544 |
|
| 1526 | 1545 |
# construct href |
| 1527 | 1546 |
$href = |
| 1528 |
"$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse";
|
|
| 1547 |
"$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}¬delivered=$form->{notdelivered}&delivered=$form->{delivered}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse";
|
|
| 1529 | 1548 |
|
| 1530 | 1549 |
# construct callback |
| 1531 | 1550 |
$number = $form->escape($form->{$ordnumber}, 1);
|
| ... | ... | |
| 1534 | 1553 |
$warehouse = $form->escape($form->{warehouse}, 1);
|
| 1535 | 1554 |
|
| 1536 | 1555 |
$callback = |
| 1537 |
"$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse";
|
|
| 1556 |
"$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}¬delivered=$form->{notdelivered}&delivered=$form->{delivered}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse";
|
|
| 1538 | 1557 |
|
| 1539 | 1558 |
@columns = |
| 1540 | 1559 |
$form->sort_columns("transdate", "reqdate", "id", "$ordnumber",
|
| 1541 | 1560 |
"name", "netamount", "tax", "amount", |
| 1542 | 1561 |
"curr", "employee", "shipvia", "open", |
| 1543 |
"closed"); |
|
| 1562 |
"closed", "delivered");
|
|
| 1544 | 1563 |
|
| 1545 | 1564 |
$form->{l_open} = $form->{l_closed} = "Y"
|
| 1546 | 1565 |
if ($form->{open} && $form->{closed});
|
| 1547 | 1566 |
|
| 1567 |
$form->{"l_delivered"} = "Y"
|
|
| 1568 |
if ($form->{"delivered"} && $form->{"notdelivered"});
|
|
| 1569 |
|
|
| 1548 | 1570 |
foreach $item (@columns) {
|
| 1549 | 1571 |
if ($form->{"l_$item"} eq "Y") {
|
| 1550 | 1572 |
push @column_index, $item; |
| ... | ... | |
| 1630 | 1652 |
qq|<th class=listheading>| . $locale->text('O') . qq|</th>|;
|
| 1631 | 1653 |
$column_header{closed} =
|
| 1632 | 1654 |
qq|<th class=listheading>| . $locale->text('C') . qq|</th>|;
|
| 1655 |
$column_header{"delivered"} =
|
|
| 1656 |
qq|<th class="listheading">| . $locale->text("Delivered") . qq|</th>|;
|
|
| 1633 | 1657 |
|
| 1634 | 1658 |
$column_header{employee} =
|
| 1635 | 1659 |
qq|<th><a class=listheading href=$href&sort=employee>$employee</a></th>|; |
| ... | ... | |
| 1757 | 1781 |
$column_data{closed} = "<td> </td>";
|
| 1758 | 1782 |
$column_data{open} = "<td align=center>X</td>";
|
| 1759 | 1783 |
} |
| 1784 |
$column_data{"delivered"} = "<td>" .
|
|
| 1785 |
($oe->{"delivered"} ? $locale->text("Yes") : $locale->text("No")) .
|
|
| 1786 |
"</td>"; |
|
| 1760 | 1787 |
|
| 1761 | 1788 |
$i++; |
| 1762 | 1789 |
$i %= 2; |
Auch abrufbar als: Unified diff
Bei Auftragsbestätigungen und Lieferantenaufträgen ein Feld "Geliefert" eingeführt, das komplett manuell zu setzen ist.