Commit 0d1790d3 authored by Robert Spencer's avatar Robert Spencer

Increase Code column width by 1 character

Fixes #4

When using the list command under Inventory the Code column does not
show the complete code. It only shows the first 9 characters.

Our longest current inventory codes are 10 characters long.
parent 2353b847
......@@ -113,12 +113,12 @@ sub list
if ($res->{'Result'} == RES_OK) {
print $OUT swrite(<<'END', "ID", "Code", "Type", "Mode", "Description", "Income", "Asset", "Expense", "SellPrice");
+=======+===========+=========+========+==============================================+===============+==============+=============+===========+
| @|||| | @|||||||| | @|||||| | @||||| | @||||||||||||||||||||||||||||||||||||||||||| | @|||||||||||| | @||||||||||| | @|||||||||| | @|||||||| |
| @|||| | @||||||||| | @|||||| | @||||| | @||||||||||||||||||||||||||||||||||||||||||| | @|||||||||||| | @||||||||||| | @|||||||||| | @|||||||| |
+=======+===========+=========+========+==============================================+===============+==============+=============+===========+
END
foreach my $item (@{$res->{'Data'}}) {
print $OUT swrite(<<'END', $item->{'ID'}, $item->{'Code'}, $item->{'Type'}, defined($item->{'Mode'}) ? $item->{'Mode'} : '-', $item->{'Description'}, $item->{'GLIncomeAccountNumber'} ? $item->{'GLIncomeAccountNumber'} : '-', defined($item->{'GLAssetAccountNumber'}) ? $item->{'GLAssetAccountNumber'} : '-', defined($item->{'GLExpenseAccountNumber'}) ? $item->{'GLExpenseAccountNumber'} : '-', sprintf('%.2f',$item->{'SellPrice'}));
| @<<<< | @<<<<<<<< | @|||||| | @||||| | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | @<<<<<<<<<<<< | @<<<<<<<<<<< | @<<<<<<<<<< | @>>>>>>>> |
| @<<<< | @<<<<<<<<< | @|||||| | @||||| | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | @<<<<<<<<<<<< | @<<<<<<<<<<< | @<<<<<<<<<< | @>>>>>>>> |
END
}
print $OUT swrite(<<'END');
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment