Revision e9013716
Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt
SL/IS.pm | ||
---|---|---|
990 | 990 |
dbh => $dbh); |
991 | 991 |
} |
992 | 992 |
# link previous items with invoice items |
993 |
foreach (qw(delivery_order_items orderitems invoice)) { |
|
993 |
foreach (qw(delivery_order_items orderitems invoice reclamation_items)) {
|
|
994 | 994 |
if (!$form->{useasnew} && $form->{"converted_from_${_}_id_$i"}) { |
995 | 995 |
RecordLinks->create_links('dbh' => $dbh, |
996 | 996 |
'mode' => 'ids', |
... | ... | |
1529 | 1529 |
|
1530 | 1530 |
Common::webdav_folder($form); |
1531 | 1531 |
|
1532 |
if ($form->{convert_from_ar_ids}) { |
|
1533 |
RecordLinks->create_links('dbh' => $dbh, |
|
1534 |
'mode' => 'ids', |
|
1535 |
'from_table' => 'ar', |
|
1536 |
'from_ids' => $form->{convert_from_ar_ids}, |
|
1537 |
'to_table' => 'ar', |
|
1538 |
'to_id' => $form->{id}, |
|
1539 |
); |
|
1540 |
delete $form->{convert_from_ar_ids}; |
|
1541 |
} |
|
1542 |
|
|
1543 | 1532 |
# Link this record to the records it was created from. |
1544 |
if ($form->{convert_from_oe_ids}) { |
|
1545 |
RecordLinks->create_links('dbh' => $dbh, |
|
1546 |
'mode' => 'ids', |
|
1547 |
'from_table' => 'oe', |
|
1548 |
'from_ids' => $form->{convert_from_oe_ids}, |
|
1549 |
'to_table' => 'ar', |
|
1550 |
'to_id' => $form->{id}, |
|
1533 |
foreach (qw(oe ar reclamations)) { |
|
1534 |
if ($form->{"convert_from_${_}_ids"}) { |
|
1535 |
RecordLinks->create_links('dbh' => $dbh, |
|
1536 |
'mode' => 'ids', |
|
1537 |
'from_table' => $_, |
|
1538 |
'from_ids' => $form->{"convert_from_${_}_ids"}, |
|
1539 |
'to_table' => 'ar', |
|
1540 |
'to_id' => $form->{id}, |
|
1551 | 1541 |
); |
1552 |
delete $form->{convert_from_oe_ids}; |
|
1542 |
delete $form->{"convert_from_${_}_ids"}; |
|
1543 |
} |
|
1553 | 1544 |
} |
1554 | 1545 |
|
1555 | 1546 |
my @convert_from_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{convert_from_do_ids}; |
Auch abrufbar als: Unified diff
Workflow: sales_reclamation → credit_note