Revision 0c69b72f
Von Kivitendo Admin vor fast 2 Jahren 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