Revision cfc6a60d
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
SL/OE.pm | ||
---|---|---|
311 | 311 |
|
312 | 312 |
$netamount += $form->{"sellprice_$i"} * $form->{"qty_$i"}; |
313 | 313 |
|
314 |
$project_id = 'NULL'; |
|
315 |
if ($form->{"projectnumber_$i"}) { |
|
316 |
$project_id = $form->{"projectnumber_$i"}; |
|
317 |
} |
|
318 | 314 |
$reqdate = |
319 | 315 |
($form->{"reqdate_$i"}) ? qq|'$form->{"reqdate_$i"}'| : "NULL"; |
320 | 316 |
|
... | ... | |
335 | 331 |
$query .= qq|$form->{id}, $form->{"id_$i"}, |
336 | 332 |
'$form->{"description_$i"}', '$form->{"longdescription_$i"}', $form->{"qty_$i"}, $baseqty, |
337 | 333 |
$fxsellprice, $form->{"discount_$i"}, |
338 |
'$form->{"unit_$i"}', $reqdate, (SELECT id from project where projectnumber = '$project_id'),
|
|
334 |
'$form->{"unit_$i"}', $reqdate, | . conv_i($form->{"project_id_$i"}, 'NULL') . qq|,
|
|
339 | 335 |
'$form->{"serialnumber_$i"}', $form->{"ship_$i"}, '$pricegroup_id', |
340 | 336 |
'$form->{"ordnumber_$i"}', '$form->{"transdate_$i"}', '$form->{"cusordnumber_$i"}', '$subtotal')|; |
341 | 337 |
$dbh->do($query) || $form->dberror($query); |
... | ... | |
671 | 667 |
o.closed, o.reqdate, o.quonumber, o.department_id, o.cusordnumber, |
672 | 668 |
d.description AS department, o.payment_id, o.language_id, o.taxzone_id, |
673 | 669 |
o.delivery_customer_id, o.delivery_vendor_id, o.proforma, o.shipto_id, |
674 |
o.globalproject_id, pr.projectnumber AS globalprojectnumber,
|
|
670 |
o.globalproject_id, |
|
675 | 671 |
o.delivered |
676 | 672 |
FROM oe o |
677 | 673 |
JOIN $form->{vc} cv ON (o.$form->{vc}_id = cv.id) |
678 | 674 |
LEFT JOIN employee e ON (o.employee_id = e.id) |
679 | 675 |
LEFT JOIN department d ON (o.department_id = d.id) |
680 |
LEFT JOIN project pr ON (o.globalproject_id = pr.id) |
|
681 | 676 |
| |
682 | 677 |
. ($form->{id} |
683 | 678 |
? qq|WHERE o.id = $form->{id}| |
Auch abrufbar als: Unified diff
Anzeige und Auswahl von Projektnummern bei Einkaufs- und Verkaufsbelegen nur noch per Drop-Down-Box.