Revision c389a0e6
Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt
SL/IS.pm | ||
---|---|---|
dbh => $dbh);
|
||
}
|
||
# link previous items with invoice items
|
||
foreach (qw(delivery_order_items orderitems invoice)) {
|
||
foreach (qw(delivery_order_items orderitems invoice reclamation_items)) {
|
||
if (!$form->{useasnew} && $form->{"converted_from_${_}_id_$i"}) {
|
||
RecordLinks->create_links('dbh' => $dbh,
|
||
'mode' => 'ids',
|
||
... | ... | |
|
||
Common::webdav_folder($form);
|
||
|
||
if ($form->{convert_from_ar_ids}) {
|
||
RecordLinks->create_links('dbh' => $dbh,
|
||
'mode' => 'ids',
|
||
'from_table' => 'ar',
|
||
'from_ids' => $form->{convert_from_ar_ids},
|
||
'to_table' => 'ar',
|
||
'to_id' => $form->{id},
|
||
);
|
||
delete $form->{convert_from_ar_ids};
|
||
}
|
||
|
||
# Link this record to the records it was created from.
|
||
if ($form->{convert_from_oe_ids}) {
|
||
RecordLinks->create_links('dbh' => $dbh,
|
||
'mode' => 'ids',
|
||
'from_table' => 'oe',
|
||
'from_ids' => $form->{convert_from_oe_ids},
|
||
'to_table' => 'ar',
|
||
'to_id' => $form->{id},
|
||
foreach (qw(oe ar reclamations)) {
|
||
if ($form->{"convert_from_${_}_ids"}) {
|
||
RecordLinks->create_links('dbh' => $dbh,
|
||
'mode' => 'ids',
|
||
'from_table' => $_,
|
||
'from_ids' => $form->{"convert_from_${_}_ids"},
|
||
'to_table' => 'ar',
|
||
'to_id' => $form->{id},
|
||
);
|
||
delete $form->{convert_from_oe_ids};
|
||
delete $form->{"convert_from_${_}_ids"};
|
||
}
|
||
}
|
||
|
||
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