Revision 77e57dde
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1120 | 1120 |
|
| 1121 | 1121 |
sub sales_reclamation {
|
| 1122 | 1122 |
my $id = $::form->{id};
|
| 1123 |
my $type = $::form->{type};
|
|
| 1123 | 1124 |
|
| 1124 | 1125 |
require SL::Controller::Reclamation; |
| 1125 | 1126 |
my $c = SL::Controller::Reclamation->new(); |
| 1126 | 1127 |
$c->redirect_to( |
| 1127 | 1128 |
controller => 'Reclamation', |
| 1128 |
action => 'add_from_sales_invoice', |
|
| 1129 |
from_id => $id, |
|
| 1130 |
type => 'sales_reclamation', |
|
| 1129 |
action => 'add_from_record', |
|
| 1130 |
type => 'sales_reclamation', |
|
| 1131 |
from_id => $id, |
|
| 1132 |
from_type => $type, |
|
| 1131 | 1133 |
); |
| 1132 | 1134 |
} |
| 1133 | 1135 |
|
| 1134 | 1136 |
sub purchase_reclamation {
|
| 1135 | 1137 |
my $id = $::form->{id};
|
| 1138 |
my $type = $::form->{type};
|
|
| 1136 | 1139 |
|
| 1137 | 1140 |
require SL::Controller::Reclamation; |
| 1138 | 1141 |
my $c = SL::Controller::Reclamation->new(); |
| 1139 | 1142 |
$c->redirect_to( |
| 1140 | 1143 |
controller => 'Reclamation', |
| 1141 |
action => 'add_from_purchase_invoice', |
|
| 1142 |
from_id => $id, |
|
| 1143 |
type => 'purchase_reclamation', |
|
| 1144 |
action => 'add_from_record', |
|
| 1145 |
type => 'purchase_reclamation', |
|
| 1146 |
from_id => $id, |
|
| 1147 |
from_type => $type, |
|
| 1144 | 1148 |
); |
| 1145 | 1149 |
} |
| 1146 | 1150 |
|
Auch abrufbar als: Unified diff
Records: Workflow-Methoden angepasst und vereinheitlicht