Revision 7a1e41c3
Von Kivitendo Admin vor etwa 1 Jahr hinzugefügt
| t/workflow/reclamation_reclamation.t | ||
|---|---|---|
| 111 | 111 |
|
| 112 | 112 |
##### |
| 113 | 113 |
|
| 114 |
my $sales_reclamation = SL::Dev::Record::create_sales_reclamation(
|
|
| 114 |
my $sales_reclamation = create_sales_reclamation( |
|
| 115 | 115 |
save => 1, |
| 116 | 116 |
employee => $employee, |
| 117 | 117 |
shippingpoint => "sp", |
| ... | ... | |
| 120 | 120 |
delivery_term => $delivery_term, |
| 121 | 121 |
taxincluded => 0, |
| 122 | 122 |
reclamation_items => [ |
| 123 |
SL::Dev::Record::create_reclamation_item(
|
|
| 123 |
create_reclamation_item( |
|
| 124 | 124 |
part => $parts[0], qty => 3, sellprice => 70, |
| 125 | 125 |
reason => $relamation_reason, |
| 126 | 126 |
), |
| 127 |
SL::Dev::Record::create_reclamation_item(
|
|
| 127 |
create_reclamation_item( |
|
| 128 | 128 |
part => $parts[1], qty => 10, sellprice => 50, |
| 129 | 129 |
reason => $relamation_reason, |
| 130 | 130 |
), |
| 131 | 131 |
], |
| 132 | 132 |
)->load; |
| 133 | 133 |
|
| 134 |
my $purchase_reclamation = SL::Dev::Record::create_purchase_reclamation(
|
|
| 134 |
my $purchase_reclamation = create_purchase_reclamation( |
|
| 135 | 135 |
save => 1, |
| 136 | 136 |
employee => $employee, |
| 137 | 137 |
shippingpoint => "sp", |
| ... | ... | |
| 140 | 140 |
delivery_term => $delivery_term, |
| 141 | 141 |
taxincluded => 0, |
| 142 | 142 |
reclamation_items => [ |
| 143 |
SL::Dev::Record::create_reclamation_item(
|
|
| 143 |
create_reclamation_item( |
|
| 144 | 144 |
part => $parts[0], qty => 3, sellprice => 70, |
| 145 | 145 |
reason => $relamation_reason, |
| 146 | 146 |
), |
| 147 |
SL::Dev::Record::create_reclamation_item(
|
|
| 147 |
create_reclamation_item( |
|
| 148 | 148 |
part => $parts[1], qty => 10, sellprice => 50, |
| 149 | 149 |
reason => $relamation_reason, |
| 150 | 150 |
), |
Auch abrufbar als: Unified diff
reclamation_reclamation.t - Methodenaufrufe vereinfacht