Revision b87781dc
Von Kivitendo Admin vor mehr als 1 Jahr hinzugefügt
| t/workflow/invoice_to_reclamation.t | ||
|---|---|---|
|
|
||
|
#####
|
||
|
|
||
|
my $sales_reclamation = SL::Dev::Record::create_sales_reclamation(
|
||
|
my $sales_reclamation = create_sales_reclamation(
|
||
|
save => 1,
|
||
|
employee => $employee,
|
||
|
shippingpoint => "sp",
|
||
| ... | ... | |
|
delivery_term => $delivery_term,
|
||
|
taxincluded => 0,
|
||
|
reclamation_items => [
|
||
|
SL::Dev::Record::create_reclamation_item(
|
||
|
create_reclamation_item(
|
||
|
part => $parts[0], qty => 3, sellprice => 70,
|
||
|
reason => $relamation_reason,
|
||
|
),
|
||
|
SL::Dev::Record::create_reclamation_item(
|
||
|
create_reclamation_item(
|
||
|
part => $parts[1], qty => 10, sellprice => 50,
|
||
|
reason => $relamation_reason,
|
||
|
),
|
||
|
],
|
||
|
)->load;
|
||
|
|
||
|
my $purchase_reclamation = SL::Dev::Record::create_purchase_reclamation(
|
||
|
my $purchase_reclamation = create_purchase_reclamation(
|
||
|
save => 1,
|
||
|
employee => $employee,
|
||
|
shippingpoint => "sp",
|
||
| ... | ... | |
|
delivery_term => $delivery_term,
|
||
|
taxincluded => 0,
|
||
|
reclamation_items => [
|
||
|
SL::Dev::Record::create_reclamation_item(
|
||
|
create_reclamation_item(
|
||
|
part => $parts[0], qty => 3, sellprice => 70,
|
||
|
reason => $relamation_reason,
|
||
|
),
|
||
|
SL::Dev::Record::create_reclamation_item(
|
||
|
create_reclamation_item(
|
||
|
part => $parts[1], qty => 10, sellprice => 50,
|
||
|
reason => $relamation_reason,
|
||
|
),
|
||
| ... | ... | |
|
)->load;
|
||
|
|
||
|
|
||
|
my $sales_invoice = SL::Dev::Record::create_sales_invoice(
|
||
|
my $sales_invoice = create_sales_invoice(
|
||
|
save => 1,
|
||
|
employee => $employee,
|
||
|
shippingpoint => "sp",
|
||
| ... | ... | |
|
payment_terms => $payment_term,
|
||
|
delivery_term => $delivery_term,
|
||
|
taxincluded => 0,
|
||
|
invoiceitems => [ SL::Dev::Record::create_invoice_item(part => $parts[0], qty => 3, sellprice => 70),
|
||
|
SL::Dev::Record::create_invoice_item(part => $parts[1], qty => 10, sellprice => 50),
|
||
|
invoiceitems => [ create_invoice_item(part => $parts[0], qty => 3, sellprice => 70),
|
||
|
create_invoice_item(part => $parts[1], qty => 10, sellprice => 50),
|
||
|
]
|
||
|
)->load;
|
||
|
|
||
Auch abrufbar als: Unified diff
invoice_to_reclamation.t - Methodenaufrufe vereinfacht