Revision 66881e5e
Von Moritz Bunkus vor fast 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> |
| ... | ... | |
| 1646 | 1648 |
$option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
|
| 1647 | 1649 |
} |
| 1648 | 1650 |
|
| 1651 |
if ($form->{l_deliverydate}) {
|
|
| 1652 |
$callback .= "&deliverydate=$form->{deliverydate}";
|
|
| 1653 |
} |
|
| 1654 |
|
|
| 1649 | 1655 |
@columns = $form->sort_columns( |
| 1650 |
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) |
|
| 1656 |
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)
|
|
| 1651 | 1657 |
); |
| 1652 | 1658 |
|
| 1653 | 1659 |
if ($form->{l_linetotal}) {
|
| ... | ... | |
| 1784 | 1790 |
. $locale->text('soldtotal')
|
| 1785 | 1791 |
. qq|</a></th>|; |
| 1786 | 1792 |
|
| 1793 |
$column_header{deliverydate} =
|
|
| 1794 |
qq|<th nowrap><a class=listheading href=$callback&sort=deliverydate&revers=$form->{revers}&lastsort=$form->{lastsort}>|
|
|
| 1795 |
. $locale->text('deliverydate')
|
|
| 1796 |
. qq|</a></th>|; |
|
| 1797 |
|
|
| 1787 | 1798 |
$form->header; |
| 1788 | 1799 |
$colspan = $#column_index + 1; |
| 1789 | 1800 |
|
| ... | ... | |
| 1935 | 1946 |
. $form->format_amount(\%myconfig, $ref->{soldtotal}, '', " ")
|
| 1936 | 1947 |
. "</td>"; |
| 1937 | 1948 |
|
| 1949 |
$column_data{deliverydate} = "<td>$ref->{deliverydate}</td>";
|
|
| 1950 |
|
|
| 1938 | 1951 |
$i++; |
| 1939 | 1952 |
$i %= 2; |
| 1940 | 1953 |
print "<tr class=listrow$i>"; |
| ... | ... | |
| 2960 | 2973 |
|
| 2961 | 2974 |
$column_data{total} = qq|<td align=right>$linetotal</td>|;
|
| 2962 | 2975 |
|
| 2976 |
$column_data{deliverydate} = qq|<td align=right>$deliverydate</td>|;
|
|
| 2977 |
|
|
| 2963 | 2978 |
print qq| |
| 2964 | 2979 |
<tr>|; |
| 2965 | 2980 |
|
Auch abrufbar als: Unified diff
Recommit von r1126 von udo_spallek: Deliverydate als Option bei Waren-/Dienstleistungs-/Erzeugnisberichten eingefuegt. Dies ist sehr nuetzlich für die Fahrtkostenabrechnung beim Finanzamt.