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