Revision 77350196
Von Jan Büren vor etwa 10 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
|
$form->save_status($dbh);
|
||
|
|
||
|
# Link this record to the records it was created from.
|
||
|
# check every record type we may link. i am not happy with converting the string to array back
|
||
|
# should be a array from the start (OE.pm -> retrieve).
|
||
|
# and that i need the local array ref for close_quotation_rfqs. better ideas welcome
|
||
|
$form->{convert_from_oe_ids} =~ s/^\s+//;
|
||
|
$form->{convert_from_oe_ids} =~ s/\s+$//;
|
||
|
my @convert_from_oe_ids = split m/\s+/, $form->{convert_from_oe_ids};
|
||
|
delete $form->{convert_from_oe_ids};
|
||
|
|
||
|
if (scalar @convert_from_oe_ids) {
|
||
|
RecordLinks->create_links('dbh' => $dbh,
|
||
|
'mode' => 'ids',
|
||
|
'from_table' => 'oe',
|
||
|
'from_ids' => \@convert_from_oe_ids,
|
||
|
'to_table' => 'oe',
|
||
|
'to_id' => $form->{id},
|
||
|
);
|
||
|
|
||
|
@{ $form->{convert_from_oe_ids} } = @convert_from_oe_ids;
|
||
|
foreach (qw(ar oe)) {
|
||
|
if ($form->{"convert_from_${_}_ids"}) {
|
||
|
RecordLinks->create_links('dbh' => $dbh,
|
||
|
'mode' => 'ids',
|
||
|
'from_table' => $_,
|
||
|
'from_ids' => $form->{"convert_from_${_}_ids"},
|
||
|
'to_table' => 'oe',
|
||
|
'to_id' => $form->{id},
|
||
|
);
|
||
|
delete $form->{"convert_from_${_}_ids"};
|
||
|
}
|
||
|
$self->_close_quotations_rfqs('dbh' => $dbh,
|
||
|
'from_id' => \@convert_from_oe_ids,
|
||
|
'to_id' => $form->{id});
|
||
|
'to_id' => $form->{id}) if $_ eq 'oe';
|
||
|
}
|
||
|
|
||
|
if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
|
||
Auch abrufbar als: Unified diff
Ticket 29 Verknüpfte Belege -> keine Verknüpfung von Rechnung nach Auftrag
Verknüpfung von Rechnung nach Angebot, sowie Auftrag nach Angebot umgesetzt.
Ferner ein einfaches delete $form->{variable_die_resettet_wird} foreach an dieser Stelle
eingebaut (ohne map).
Ferner die Verknüpfung der Belege in eine Schleife gesetzt.