Revision a295ff26
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1798 | 1798 |
sub sales_order {
|
| 1799 | 1799 |
$lxdebug->enter_sub(); |
| 1800 | 1800 |
|
| 1801 |
$form->{"Watchdog::currency"} = 1;
|
|
| 1802 |
|
|
| 1801 | 1803 |
check_oe_access(); |
| 1802 | 1804 |
$auth->assert('sales_order_edit');
|
| 1803 | 1805 |
|
| ... | ... | |
| 1830 | 1832 |
$form->{transdate} = $form->current_date(\%myconfig);
|
| 1831 | 1833 |
delete $form->{duedate};
|
| 1832 | 1834 |
|
| 1833 |
$form->{closed} = 0;
|
|
| 1835 |
$form->{closed} = 0;
|
|
| 1834 | 1836 |
|
| 1835 | 1837 |
$form->{old_employee_id} = $form->{employee_id};
|
| 1836 | 1838 |
$form->{old_salesman_id} = $form->{salesman_id};
|
| 1837 | 1839 |
|
| 1838 | 1840 |
# reset |
| 1839 |
map { delete $form->{$_} }
|
|
| 1840 |
qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal); |
|
| 1841 |
map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal);
|
|
| 1841 | 1842 |
|
| 1842 | 1843 |
for $i (1 .. $form->{rowcount}) {
|
| 1843 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
|
| 1844 |
$form->{"${_}_${i}"})
|
|
| 1845 |
if ($form->{"${_}_${i}"}) }
|
|
| 1846 |
qw(ship qty sellprice listprice basefactor)); |
|
| 1844 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor);
|
|
| 1847 | 1845 |
} |
| 1848 | 1846 |
|
| 1849 | 1847 |
&order_links; |
| ... | ... | |
| 1852 | 1850 |
|
| 1853 | 1851 |
# format amounts |
| 1854 | 1852 |
for $i (1 .. $form->{rowcount} - 1) {
|
| 1855 |
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
|
| 1856 |
qw(partnumber description unit); |
|
| 1853 |
map { $form->{"${_}_$i"} =~ s/\"/"/g } qw(partnumber description unit);
|
|
| 1857 | 1854 |
} |
| 1858 | 1855 |
|
| 1859 | 1856 |
&update; |
Auch abrufbar als: Unified diff
Kosmetik.