Revision 5e604127
Von Kivitendo Admin vor mehr als 1 Jahr hinzugefügt
| t/workflow/invoice_to_reclamation.t | ||
|---|---|---|
| 114 | 114 |
|
| 115 | 115 |
##### |
| 116 | 116 |
|
| 117 |
my $sales_reclamation = SL::Dev::Record::create_sales_reclamation(
|
|
| 117 |
my $sales_reclamation = create_sales_reclamation( |
|
| 118 | 118 |
save => 1, |
| 119 | 119 |
employee => $employee, |
| 120 | 120 |
shippingpoint => "sp", |
| ... | ... | |
| 123 | 123 |
delivery_term => $delivery_term, |
| 124 | 124 |
taxincluded => 0, |
| 125 | 125 |
reclamation_items => [ |
| 126 |
SL::Dev::Record::create_reclamation_item(
|
|
| 126 |
create_reclamation_item( |
|
| 127 | 127 |
part => $parts[0], qty => 3, sellprice => 70, |
| 128 | 128 |
reason => $relamation_reason, |
| 129 | 129 |
), |
| 130 |
SL::Dev::Record::create_reclamation_item(
|
|
| 130 |
create_reclamation_item( |
|
| 131 | 131 |
part => $parts[1], qty => 10, sellprice => 50, |
| 132 | 132 |
reason => $relamation_reason, |
| 133 | 133 |
), |
| 134 | 134 |
], |
| 135 | 135 |
)->load; |
| 136 | 136 |
|
| 137 |
my $purchase_reclamation = SL::Dev::Record::create_purchase_reclamation(
|
|
| 137 |
my $purchase_reclamation = create_purchase_reclamation( |
|
| 138 | 138 |
save => 1, |
| 139 | 139 |
employee => $employee, |
| 140 | 140 |
shippingpoint => "sp", |
| ... | ... | |
| 143 | 143 |
delivery_term => $delivery_term, |
| 144 | 144 |
taxincluded => 0, |
| 145 | 145 |
reclamation_items => [ |
| 146 |
SL::Dev::Record::create_reclamation_item(
|
|
| 146 |
create_reclamation_item( |
|
| 147 | 147 |
part => $parts[0], qty => 3, sellprice => 70, |
| 148 | 148 |
reason => $relamation_reason, |
| 149 | 149 |
), |
| 150 |
SL::Dev::Record::create_reclamation_item(
|
|
| 150 |
create_reclamation_item( |
|
| 151 | 151 |
part => $parts[1], qty => 10, sellprice => 50, |
| 152 | 152 |
reason => $relamation_reason, |
| 153 | 153 |
), |
| ... | ... | |
| 155 | 155 |
)->load; |
| 156 | 156 |
|
| 157 | 157 |
|
| 158 |
my $sales_invoice = SL::Dev::Record::create_sales_invoice(
|
|
| 158 |
my $sales_invoice = create_sales_invoice( |
|
| 159 | 159 |
save => 1, |
| 160 | 160 |
employee => $employee, |
| 161 | 161 |
shippingpoint => "sp", |
| ... | ... | |
| 176 | 176 |
payment_terms => $payment_term, |
| 177 | 177 |
delivery_term => $delivery_term, |
| 178 | 178 |
taxincluded => 0, |
| 179 |
invoiceitems => [ SL::Dev::Record::create_invoice_item(part => $parts[0], qty => 3, sellprice => 70),
|
|
| 180 |
SL::Dev::Record::create_invoice_item(part => $parts[1], qty => 10, sellprice => 50),
|
|
| 179 |
invoiceitems => [ create_invoice_item(part => $parts[0], qty => 3, sellprice => 70), |
|
| 180 |
create_invoice_item(part => $parts[1], qty => 10, sellprice => 50),
|
|
| 181 | 181 |
] |
| 182 | 182 |
)->load; |
| 183 | 183 |
|
Auch abrufbar als: Unified diff
invoice_to_reclamation.t - Methodenaufrufe vereinfacht