Revision 9b3c19f3
Von Udo Spallek vor mehr als 18 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 356 | 356 |
. $locale->text('Subtotal') . qq|</td>
|
| 357 | 357 |
<td><input name=l_soldtotal class=checkbox type=checkbox value=Y> | |
| 358 | 358 |
. $locale->text('soldtotal') . qq|</td>
|
| 359 |
<td><input name=l_deliverydate class=checkbox type=checkbox value=Y> | |
|
| 360 |
. $locale->text('deliverydate') . qq|</td>
|
|
| 359 | 361 |
</tr> |
| 360 | 362 |
</table> |
| 361 | 363 |
</td> |
| ... | ... | |
| 1419 | 1421 |
$option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
|
| 1420 | 1422 |
} |
| 1421 | 1423 |
|
| 1424 |
if ($form->{l_deliverydate}) {
|
|
| 1425 |
$callback .= "&deliverydate=$form->{deliverydate}";
|
|
| 1426 |
} |
|
| 1427 |
|
|
| 1422 | 1428 |
@columns = $form->sort_columns( |
| 1423 |
qw(partnumber description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal) |
|
| 1429 |
qw(partnumber description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal deliverydate)
|
|
| 1424 | 1430 |
); |
| 1425 | 1431 |
|
| 1426 | 1432 |
if ($form->{l_linetotal}) {
|
| ... | ... | |
| 1557 | 1563 |
. $locale->text('soldtotal')
|
| 1558 | 1564 |
. qq|</a></th>|; |
| 1559 | 1565 |
|
| 1566 |
$column_header{deliverydate} =
|
|
| 1567 |
qq|<th nowrap><a class=listheading href=$callback&sort=deliverydate&revers=$form->{revers}&lastsort=$form->{lastsort}>|
|
|
| 1568 |
. $locale->text('deliverydate')
|
|
| 1569 |
. qq|</a></th>|; |
|
| 1570 |
|
|
| 1560 | 1571 |
$form->header; |
| 1561 | 1572 |
$colspan = $#column_index + 1; |
| 1562 | 1573 |
|
| ... | ... | |
| 1708 | 1719 |
. $form->format_amount(\%myconfig, $ref->{soldtotal}, '', " ")
|
| 1709 | 1720 |
. "</td>"; |
| 1710 | 1721 |
|
| 1722 |
$column_data{deliverydate} = "<td>$ref->{deliverydate}</td>";
|
|
| 1723 |
|
|
| 1711 | 1724 |
$i++; |
| 1712 | 1725 |
$i %= 2; |
| 1713 | 1726 |
print "<tr class=listrow$i>"; |
| ... | ... | |
| 2612 | 2625 |
|
| 2613 | 2626 |
$column_data{total} = qq|<td align=right>$linetotal</td>|;
|
| 2614 | 2627 |
|
| 2628 |
$column_data{deliverydate} = qq|<td align=right>$deliverydate</td>|;
|
|
| 2629 |
|
|
| 2615 | 2630 |
print qq| |
| 2616 | 2631 |
<tr>|; |
| 2617 | 2632 |
|
Auch abrufbar als: Unified diff
Deliverydate als Option bei Waren-/Dienstleistungs-/Erzeugnisberichten eingefuegt.
Dies ist sehr nuetzlich für die Fahrtkostenabrechnung beim Finanzamt.