Revision 0c69b72f
Von Kivitendo Admin vor etwa 2 Jahren hinzugefügt
| t/workflow/reclamation_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,
|
||
|
),
|
||
Auch abrufbar als: Unified diff
reclamation_reclamation.t - Methodenaufrufe vereinfacht