Revision 83ddc544
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1548 | 1548 |
sub assembly_row {
|
| 1549 | 1549 |
$lxdebug->enter_sub(); |
| 1550 | 1550 |
my ($numrows) = @_; |
| 1551 |
my (@column_index, %column_data, %column_header);
|
|
| 1552 |
my ($nochange, $callback, $previousform, $linetotal, $href); |
|
| 1551 |
my (@column_index); |
|
| 1552 |
my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
|
|
| 1553 | 1553 |
|
| 1554 | 1554 |
our ($deliverydate); # ToDO: cjeck if this indeed comes from global context |
| 1555 | 1555 |
|
| 1556 |
@column_index = |
|
| 1557 |
qw(runningnumber qty unit bom partnumber description partsgroup lastcost total); |
|
| 1556 |
@column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total); |
|
| 1558 | 1557 |
|
| 1559 | 1558 |
if ($form->{previousform}) {
|
| 1560 | 1559 |
$nochange = 1; |
| ... | ... | |
| 1569 | 1568 |
# delete action |
| 1570 | 1569 |
map { delete $form->{$_} } qw(action header);
|
| 1571 | 1570 |
|
| 1572 |
$previousform = ""; |
|
| 1573 |
|
|
| 1574 | 1571 |
# save form variables in a previousform variable |
| 1575 |
foreach my $key (sort keys %$form) {
|
|
| 1576 |
next unless ref $form->{$key} eq '' && $form->{$key};
|
|
| 1577 |
next if $key =~ /^select/; # get rid of these stupid select things |
|
| 1578 |
|
|
| 1579 |
# escape ampersands |
|
| 1580 |
$form->{$key} =~ s/&/%26/g;
|
|
| 1581 |
if (any { $key eq $_ } qw(sellprice listprice lastcost)) {
|
|
| 1582 |
$previousform .= sprintf qq|%s=%s&|, $key, $form->format_amount(\%myconfig, $form->{$key});
|
|
| 1583 |
} else {
|
|
| 1584 |
$previousform .= qq|$key=$form->{$key}&|;
|
|
| 1585 |
} |
|
| 1586 |
} |
|
| 1587 |
chop $previousform; |
|
| 1588 |
$previousform = $form->escape($form->escape($previousform, 1)); |
|
| 1589 |
$form->{callback} = $callback;
|
|
| 1572 |
$previousform = $form->escape($form->escape(join '&', map {
|
|
| 1573 |
sprintf "%s=%s", Q($_), /^listprice|lastcost|sellprice$/ ? $form->format_amount(\%myconfig, $form->{$key}) : $form->{$key}
|
|
| 1574 |
} grep { ref $form->{$_} eq '' && $form->{$_} } grep { !/^select/ } sort keys %$form ));
|
|
| 1590 | 1575 |
|
| 1576 |
$form->{callback} = $callback;
|
|
| 1591 | 1577 |
$form->{assemblytotal} = 0;
|
| 1592 | 1578 |
$form->{assembly_purchase_price_total} = 0;
|
| 1593 | 1579 |
$form->{weight} = 0;
|
| 1594 |
|
|
| 1595 | 1580 |
} |
| 1596 |
$column_header{runningnumber} =
|
|
| 1597 |
qq|<th nowrap width=5%>| . $locale->text('No.') . qq|</th>|;
|
|
| 1598 |
$column_header{qty} =
|
|
| 1599 |
qq|<th align=left nowrap width=10%>| . $locale->text('Qty') . qq|</th>|;
|
|
| 1600 |
$column_header{unit} =
|
|
| 1601 |
qq|<th align=left nowrap width=5%>| . $locale->text('Unit') . qq|</th>|;
|
|
| 1602 |
$column_header{partnumber} =
|
|
| 1603 |
qq|<th align=left nowrap width=20%>| |
|
| 1604 |
. $locale->text('Part Number')
|
|
| 1605 |
. qq|</th>|; |
|
| 1606 |
$column_header{description} =
|
|
| 1607 |
qq|<th nowrap width=50% align="left">| . $locale->text('Part Description') . qq|</th>|;
|
|
| 1608 |
$column_header{lastcost} =
|
|
| 1609 |
qq|<th nowrap width=50%>| . $locale->text('Purchase Prices') . qq|</th>|;
|
|
| 1610 |
$column_header{total} =
|
|
| 1611 |
qq|<th align=right nowrap>| . $locale->text('Sale Prices') . qq|</th>|;
|
|
| 1612 |
$column_header{bom} = qq|<th>| . $locale->text('BOM') . qq|</th>|;
|
|
| 1613 |
$column_header{partsgroup} = qq|<th>| . $locale->text('Group') . qq|</th>|;
|
|
| 1614 | 1581 |
|
| 1615 |
print qq|
|
|
| 1616 |
<tr class=listheading>
|
|
| 1617 |
<th class=listheading>| . $locale->text('Individual Items') . qq|</th>
|
|
| 1618 |
</tr>
|
|
| 1619 |
<tr>
|
|
| 1620 |
<td>
|
|
| 1621 |
<table width=100%>
|
|
| 1622 |
<tr>
|
|
| 1623 |
|;
|
|
| 1624 |
|
|
| 1625 |
map { print "\n$column_header{$_}" } @column_index;
|
|
| 1582 |
my %header = (
|
|
| 1583 |
runningnumber => { text => $locale->text('No.'), nowrap => 1, width => '5%' },
|
|
| 1584 |
qty => { text => $locale->text('Qty'), nowrap => 1, width => '10%' },
|
|
| 1585 |
unit => { text => $locale->text('Unit'), nowrap => 1, width => '5%' },
|
|
| 1586 |
partnumber => { text => $locale->text('Part Number'), nowrap => 1, width => '20%' },
|
|
| 1587 |
description => { text => $locale->text('Part Description'), nowrap => 1, width => '50%' },
|
|
| 1588 |
lastcost => { text => $locale->text('Purchase Prices'), nowrap => 1, width => '50%' },
|
|
| 1589 |
total => { text => $locale->text('Sale Prices'), nowrap => 1, },
|
|
| 1590 |
bom => { text => $locale->text('BOM'), },
|
|
| 1591 |
partsgroup => { text => $locale->text('Group'), },
|
|
| 1592 |
);
|
|
| 1626 | 1593 |
|
| 1627 |
print qq| |
|
| 1628 |
</tr> |
|
| 1629 |
|; |
|
| 1594 |
my @ROWS; |
|
| 1630 | 1595 |
|
| 1631 | 1596 |
for my $i (1 .. $numrows) {
|
| 1597 |
my (%row, @row_hiddens); |
|
| 1598 |
|
|
| 1632 | 1599 |
$form->{"partnumber_$i"} =~ s/\"/"/g;
|
| 1633 | 1600 |
|
| 1634 |
$linetotal = |
|
| 1635 |
$form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
|
|
| 1636 |
$line_purchase_price = |
|
| 1637 |
$form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4); #lastcost == purchase_price | ungenaue datenbankfeld-uebersetzung
|
|
| 1638 |
$form->{assemblytotal} += $linetotal;
|
|
| 1601 |
$linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
|
|
| 1602 |
$line_purchase_price = $form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
|
|
| 1603 |
$form->{assemblytotal} += $linetotal;
|
|
| 1639 | 1604 |
$form->{assembly_purchase_price_total} += $line_purchase_price;
|
| 1640 |
|
|
| 1641 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 1642 |
|
|
| 1643 |
$linetotal = $form->format_amount(\%myconfig, $linetotal, 2); |
|
| 1605 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 1606 |
$linetotal = $form->format_amount(\%myconfig, $linetotal, 2); |
|
| 1644 | 1607 |
$line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2); |
| 1608 |
$href = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
|
|
| 1609 |
map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
|
|
| 1645 | 1610 |
|
| 1611 |
# last row |
|
| 1646 | 1612 |
if (($i >= 1) && ($i == $numrows)) {
|
| 1647 |
|
|
| 1648 |
if ($nochange) {
|
|
| 1649 |
map { $column_data{$_} = qq|<td></td>| }
|
|
| 1650 |
qw(qty unit partnumber description bom partsgroup); |
|
| 1651 |
} else {
|
|
| 1652 |
|
|
| 1653 |
map { $column_data{$_} = qq|<td></td>| } qw(runningnumber unit bom);
|
|
| 1654 |
|
|
| 1655 |
$column_data{qty} =
|
|
| 1656 |
qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
|
|
| 1657 |
$column_data{partnumber} =
|
|
| 1658 |
qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}"></td>|;
|
|
| 1659 |
$column_data{description} =
|
|
| 1660 |
qq|<td><input name="description_$i" size=40 value="$form->{"description_$i"}"></td>|;
|
|
| 1661 |
$column_data{partsgroup} =
|
|
| 1662 |
qq|<td><input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}"></td>|;
|
|
| 1663 |
|
|
| 1613 |
if (!$form->{previousform}) {
|
|
| 1614 |
$row{partnumber}{data} = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
|
|
| 1615 |
$row{qty}{data} = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
|
|
| 1616 |
$row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
|
|
| 1617 |
$row{partsgroup}{data} = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
|
|
| 1664 | 1618 |
} |
| 1665 |
|
|
| 1619 |
# other rows |
|
| 1666 | 1620 |
} else {
|
| 1667 |
|
|
| 1668 | 1621 |
if ($form->{previousform}) {
|
| 1669 |
$column_data{partnumber} =
|
|
| 1670 |
qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}">$form->{"partnumber_$i"}</td>|;
|
|
| 1671 |
$column_data{qty} =
|
|
| 1672 |
qq|<td align=right><input type=hidden name="qty_$i" value="$form->{"qty_$i"}">$form->{"qty_$i"}</td>|;
|
|
| 1673 |
|
|
| 1674 |
$column_data{bom} =
|
|
| 1675 |
qq|<td align=center><input type=hidden name="bom_$i" value=$form->{"bom_$i"}>|;
|
|
| 1676 |
$column_data{bom} .= ($form->{"bom_$i"}) ? "x" : " ";
|
|
| 1677 |
$column_data{bom} .= qq|</td>|;
|
|
| 1678 |
|
|
| 1679 |
$column_data{partsgroup} =
|
|
| 1680 |
qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$form->{"partsgroup_$i"}</td>|;
|
|
| 1681 |
|
|
| 1622 |
push @row_hiddens, qw(qty bom); |
|
| 1623 |
$row{partnumber}{data} = $form->{"partnumber_$i"};
|
|
| 1624 |
$row{qty}{data} = $form->{"qty_$i"};
|
|
| 1625 |
$row{bom}{data} = $form->{"bom_$i"} ? "x" : " ";
|
|
| 1626 |
$row{qty}{align} = 'right';
|
|
| 1682 | 1627 |
} else {
|
| 1683 |
$href = |
|
| 1684 |
qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
|
|
| 1685 |
$column_data{partnumber} =
|
|
| 1686 |
qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"><a href=$href>$form->{"partnumber_$i"}</a></td>|;
|
|
| 1687 |
$column_data{runningnumber} =
|
|
| 1688 |
qq|<td><input name="runningnumber_$i" size=3 value="$i"></td>|; |
|
| 1689 |
$column_data{qty} =
|
|
| 1690 |
qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
|
|
| 1691 |
|
|
| 1692 |
$form->{"bom_$i"} = ($form->{"bom_$i"}) ? "checked" : "";
|
|
| 1693 |
$column_data{bom} =
|
|
| 1694 |
qq|<td align=center><input name="bom_$i" type=checkbox class=checkbox value=1 $form->{"bom_$i"}></td>|;
|
|
| 1695 |
|
|
| 1696 |
$column_data{partsgroup} =
|
|
| 1697 |
qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$form->{"partsgroup_$i"}</td>|;
|
|
| 1628 |
$row{partnumber}{data} = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
|
|
| 1629 |
$row{qty}{data} = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
|
|
| 1630 |
$row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
|
|
| 1631 |
$row{bom}{data} = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
|
|
| 1632 |
$form->{"bom_$i"} ? 'checked' : '';
|
|
| 1698 | 1633 |
} |
| 1699 |
|
|
| 1700 |
$column_data{unit} =
|
|
| 1701 |
qq|<td><input type=hidden name="unit_$i" value="$form->{"unit_$i"}">$form->{"unit_$i"}</td>|;
|
|
| 1702 |
$column_data{description} =
|
|
| 1703 |
qq|<td><input type=hidden name="description_$i" value="$form->{"description_$i"}">$form->{"description_$i"}</td>|;
|
|
| 1634 |
push @row_hiddens, qw(unit description partnumber partsgroup); |
|
| 1635 |
$row{unit}{data} = $form->{"unit_$i"};
|
|
| 1636 |
$row{description}{data} = $form->{"description_$i"};
|
|
| 1637 |
$row{partsgroup}{data} = $form->{"partsgroup_$i"};
|
|
| 1638 |
$row{bom}{align} = 'center';
|
|
| 1704 | 1639 |
} |
| 1705 | 1640 |
|
| 1706 |
$column_data{lastcost} = qq|<td align=right>$line_purchase_price</td>|;
|
|
| 1707 |
$column_data{total} = qq|<td align=right>$linetotal</td>|;
|
|
| 1708 |
|
|
| 1709 |
$column_data{deliverydate} = qq|<td align=right>$deliverydate</td>|;
|
|
| 1641 |
$row{lastcost}{data} = $line_purchase_price;
|
|
| 1642 |
$row{total}{data} = $linetotal;
|
|
| 1643 |
$row{deliverydate}{data} = $deliverydate;
|
|
| 1644 |
$row{lastcost}{align} = 'right';
|
|
| 1645 |
$row{total}{align} = 'right';
|
|
| 1646 |
$row{deliverydate}{align} = 'right';
|
|
| 1710 | 1647 |
|
| 1711 |
print qq| |
|
| 1712 |
<tr>|; |
|
| 1713 |
|
|
| 1714 |
map { print "\n$column_data{$_}" } @column_index;
|
|
| 1648 |
push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor); |
|
| 1649 |
$row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
|
|
| 1715 | 1650 |
|
| 1716 |
print qq| |
|
| 1717 |
</tr> |
|
| 1718 |
<input type=hidden name="id_$i" value=$form->{"id_$i"}>
|
|
| 1719 |
<input type=hidden name="sellprice_$i" value=$form->{"sellprice_$i"}>
|
|
| 1720 |
<input type=hidden name="lastcost_$i" value=$form->{"lastcost_$i"}>
|
|
| 1721 |
<input type=hidden name="weight_$i" value=$form->{"weight_$i"}>
|
|
| 1722 |
<input type=hidden name="price_factor_id_$i" value=$form->{"price_factor_id_$i"}>
|
|
| 1723 |
<input type=hidden name="price_factor_$i" value=$form->{"price_factor_$i"}>
|
|
| 1724 |
|; |
|
| 1651 |
push @ROWS, \%row; |
|
| 1725 | 1652 |
} |
| 1726 | 1653 |
|
| 1727 |
print qq| |
|
| 1728 |
<tr> |
|
| 1729 |
<td colspan="6"></td> |
|
| 1730 |
<td>| . $locale->text('Totals') . qq|</td>
|
|
| 1731 |
<td align="right">| . $form->format_amount(\%myconfig, $form->{assembly_purchase_price_total}, 2) .
|
|
| 1732 |
qq|</td> |
|
| 1733 |
<td align="right">| . $form->format_amount(\%myconfig, $form->{assemblytotal}, 2) .
|
|
| 1734 |
qq| </td> |
|
| 1735 |
</tr> |
|
| 1736 |
<input type="hidden" name="assembly_rows" value="| . $form->{assembly_rows} .
|
|
| 1737 |
qq|"> |
|
| 1738 |
</table> |
|
| 1739 |
</td> |
|
| 1740 |
</tr> |
|
| 1741 |
|; |
|
| 1654 |
print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
|
|
| 1742 | 1655 |
|
| 1743 | 1656 |
$lxdebug->leave_sub(); |
| 1744 | 1657 |
} |
Auch abrufbar als: Unified diff
Assembly Rows in templates ausgelagert.