Revision 13ab07e6
Von Bernd Bleßmann vor mehr als 5 Jahren hinzugefügt
| SL/Dev/Record.pm | ||
|---|---|---|
| 333 | 333 |
|
| 334 | 334 |
Create a credit note (sales). Use positive quantities when adding items. |
| 335 | 335 |
|
| 336 |
Example including creation of parts and of credit_note |
|
| 336 |
Example including creation of parts and of credit_note: |
|
| 337 |
|
|
| 337 | 338 |
my $part1 = SL::Dev::Part::create_part( partnumber => 'T4254')->save; |
| 338 | 339 |
my $part2 = SL::Dev::Part::create_service(partnumber => 'Serv1')->save; |
| 339 | 340 |
my $credit_note = SL::Dev::Record::create_credit_note( |
| ... | ... | |
| 351 | 352 |
Create a sales order and save it directly via rose, without running |
| 352 | 353 |
calculate_prices_and_taxes: |
| 353 | 354 |
|
| 354 |
my $order = SL::Dev::Record::create_sales_order()->save; |
|
| 355 |
my $order = SL::Dev::Record::create_sales_order()->save;
|
|
| 355 | 356 |
|
| 356 | 357 |
Let create_sales_order run calculate_prices_and_taxes and save: |
| 357 | 358 |
|
| 358 |
my $order = SL::Dev::Record::create_sales_order(save => 1); |
|
| 359 |
my $order = SL::Dev::Record::create_sales_order(save => 1); |
|
| 360 |
|
|
| 359 | 361 |
|
| 362 |
Example including creation of part and of sales order: |
|
| 360 | 363 |
|
| 361 |
Example including creation of part and of sales order. |
|
| 362 | 364 |
my $part1 = SL::Dev::Part::create_part( partnumber => 'T4254')->save; |
| 363 | 365 |
my $part2 = SL::Dev::Part::create_service(partnumber => 'Serv1')->save; |
| 364 | 366 |
my $order = SL::Dev::Record::create_sales_order( |
| ... | ... | |
| 383 | 385 |
See comments for C<create_sales_order>. |
| 384 | 386 |
|
| 385 | 387 |
Example: |
| 386 |
my $purchase_order = SL::Dev::Record::create_purchase_order(save => 1); |
|
| 388 |
|
|
| 389 |
my $purchase_order = SL::Dev::Record::create_purchase_order(save => 1); |
|
| 387 | 390 |
|
| 388 | 391 |
|
| 389 | 392 |
=head2 C<create_item %PARAMS> |
| 390 | 393 |
|
| 391 | 394 |
Creates an item from a part object that can be added to a record. |
| 392 | 395 |
|
| 393 |
Required params: record_type (sales_invoice, sales_order, sales_delivery_order) |
|
| 394 |
part (an SL::DB::Part object) |
|
| 396 |
Required params: |
|
| 397 |
|
|
| 398 |
record_type (sales_invoice, sales_order, sales_delivery_order) |
|
| 399 |
part (an SL::DB::Part object) |
|
| 395 | 400 |
|
| 396 | 401 |
Example including creation of part and of invoice: |
| 402 |
|
|
| 397 | 403 |
my $part = SL::Dev::Part::create_part( partnumber => 'T4254')->save; |
| 398 | 404 |
my $item = SL::Dev::Record::create_invoice_item(part => $part, qty => 2.5); |
| 399 | 405 |
my $invoice = SL::Dev::Record::create_sales_invoice( |
| ... | ... | |
| 406 | 412 |
Creates a default project. |
| 407 | 413 |
|
| 408 | 414 |
Minimal example, creating a project with status "running" and type "Standard": |
| 415 |
|
|
| 409 | 416 |
my $project = SL::Dev::Record::create_project(); |
| 410 | 417 |
|
| 411 | 418 |
$project = SL::Dev::Record::create_project( |
| ... | ... | |
| 423 | 430 |
Creates a default department. |
| 424 | 431 |
|
| 425 | 432 |
Minimal example: |
| 433 |
|
|
| 426 | 434 |
my $department = SL::Dev::Record::create_department(); |
| 427 | 435 |
|
| 428 | 436 |
my $department = SL::Dev::Record::create_department( |
| ... | ... | |
| 435 | 443 |
C<%params> should only contain alterable keys from the object Department. |
| 436 | 444 |
|
| 437 | 445 |
|
| 438 |
=head1 TODO |
|
| 439 |
|
|
| 440 | 446 |
=head1 BUGS |
| 441 | 447 |
|
| 442 | 448 |
Nothing here yet. |
Auch abrufbar als: Unified diff
SL::Dev::Record: POD Formatierung