|
Lines 404-412
sub order_line {
Link Here
|
| 404 |
} |
404 |
} |
| 405 |
my $budget = GetBudget( $orderline->budget_id ); |
405 |
my $budget = GetBudget( $orderline->budget_id ); |
| 406 |
my $ol_fields = { budget_code => $budget->{budget_code}, }; |
406 |
my $ol_fields = { budget_code => $budget->{budget_code}, }; |
| 407 |
if ( $orderline->order_vendornote ) { |
|
|
| 408 |
$ol_fields->{servicing_instruction} = $orderline->order_vendornote; |
| 409 |
} |
| 410 |
my $item_fields = []; |
407 |
my $item_fields = []; |
| 411 |
for my $item (@items) { |
408 |
for my $item (@items) { |
| 412 |
push @{$item_fields}, |
409 |
push @{$item_fields}, |
|
Lines 428-435
sub order_line {
Link Here
|
| 428 |
|
425 |
|
| 429 |
# TBD what if #items exceeds quantity |
426 |
# TBD what if #items exceeds quantity |
| 430 |
|
427 |
|
| 431 |
# FTX free text for current orderline TBD |
428 |
# FTX free text for current orderline |
| 432 |
# dont really have a special instructions field to encode here |
429 |
# Pass vendor note in FTX free text segment |
|
|
430 |
if ( $orderline->order_vendornote ) { |
| 431 |
my $ftx = 'FTX+LIN+++'; |
| 432 |
$ftx .= $orderline->order_vendornote; |
| 433 |
$ftx .= $seg_terminator; |
| 434 |
$self->add_seg($ftx); |
| 435 |
} |
| 433 |
# Encode notes here |
436 |
# Encode notes here |
| 434 |
# PRI-CUX-DTM unit price on which order is placed : optional |
437 |
# PRI-CUX-DTM unit price on which order is placed : optional |
| 435 |
# Coutts read this as 0.00 if not present |
438 |
# Coutts read this as 0.00 if not present |
| 436 |
- |
|
|