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) {
|
||
| bin/mozilla/io.pl | ||
|---|---|---|
|
$form->{old_employee_id} = $form->{employee_id};
|
||
|
$form->{old_salesman_id} = $form->{salesman_id};
|
||
|
|
||
|
map { delete $form->{$_} } qw(id printed emailed queued);
|
||
|
# link doc invoice -> quotation (single id no multi mode)
|
||
|
$form->{convert_from_ar_ids} = delete $form->{id};
|
||
|
|
||
|
delete $form->{$_} foreach (qw(printed emailed queued));
|
||
|
my $buysell;
|
||
|
if ($form->{script} eq 'ir.pl' || $form->{type} eq 'request_quotation') {
|
||
|
$form->{title} = $locale->text('Add Purchase Order');
|
||
| ... | ... | |
|
if ($form->{type} =~ /(sales|purchase)_order/) {
|
||
|
$form->{"converted_from_orderitems_id_$_"} = delete $form->{"orderitems_id_$_"} for 1 .. $form->{"rowcount"};
|
||
|
}
|
||
|
# link doc order -> quotation (single id no multi mode)
|
||
|
$form->{convert_from_oe_ids} = delete $form->{id};
|
||
|
|
||
|
if ($form->{second_run}) {
|
||
|
$form->{print_and_post} = 0;
|
||
|
}
|
||
|
map { delete $form->{$_} } qw(id printed emailed queued);
|
||
|
delete $form->{$_} foreach (qw(printed emailed queued));
|
||
|
|
||
|
my $buysell;
|
||
|
if ($form->{script} eq 'ir.pl' || $form->{type} eq 'purchase_order') {
|
||
| templates/webpages/oe/form_header.html | ||
|---|---|---|
|
[%- END %]
|
||
|
|
||
|
<input type="hidden" name="convert_from_oe_ids" value="[% HTML.escape(convert_from_oe_ids) %]">
|
||
|
<input type="hidden" name="convert_from_ar_ids" value="[% HTML.escape(convert_from_ar_ids) %]">
|
||
|
|
||
|
<input type="hidden" name="follow_up_trans_id_1" value="[% HTML.escape(id) %]">
|
||
|
<input type="hidden" name="follow_up_trans_type_1" value="[% HTML.escape(type) %]">
|
||
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.