Revision 4cff1777
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1206 | 1206 |
|
| 1207 | 1207 |
sub sales_reclamation {
|
| 1208 | 1208 |
my $id = $::form->{id};
|
| 1209 |
my $type = $::form->{type};
|
|
| 1209 | 1210 |
|
| 1210 | 1211 |
require SL::Controller::Reclamation; |
| 1211 | 1212 |
my $c = SL::Controller::Reclamation->new(); |
| 1212 | 1213 |
$c->redirect_to( |
| 1213 | 1214 |
controller => 'Reclamation', |
| 1214 |
action => 'add_from_sales_invoice', |
|
| 1215 |
from_id => $id, |
|
| 1216 |
type => 'sales_reclamation', |
|
| 1215 |
action => 'add_from_record', |
|
| 1216 |
type => 'sales_reclamation', |
|
| 1217 |
from_id => $id, |
|
| 1218 |
from_type => $type, |
|
| 1217 | 1219 |
); |
| 1218 | 1220 |
} |
| 1219 | 1221 |
|
| 1220 | 1222 |
sub purchase_reclamation {
|
| 1221 | 1223 |
my $id = $::form->{id};
|
| 1224 |
my $type = $::form->{type};
|
|
| 1222 | 1225 |
|
| 1223 | 1226 |
require SL::Controller::Reclamation; |
| 1224 | 1227 |
my $c = SL::Controller::Reclamation->new(); |
| 1225 | 1228 |
$c->redirect_to( |
| 1226 | 1229 |
controller => 'Reclamation', |
| 1227 |
action => 'add_from_purchase_invoice', |
|
| 1228 |
from_id => $id, |
|
| 1229 |
type => 'purchase_reclamation', |
|
| 1230 |
action => 'add_from_record', |
|
| 1231 |
type => 'purchase_reclamation', |
|
| 1232 |
from_id => $id, |
|
| 1233 |
from_type => $type, |
|
| 1230 | 1234 |
); |
| 1231 | 1235 |
} |
| 1232 | 1236 |
|
Auch abrufbar als: Unified diff
Records: Workflow-Methoden angepasst und vereinheitlicht