Commit ad21165a authored by Nigel Kukard's avatar Nigel Kukard

Merge branch 'inventory-code-column-width' into 'master'

Increase Code column width by 1 character

Closes #4

See merge request wiaflos/wiaflos!35
parents 2353b847 0d1790d3
Pipeline #2654 passed with stages
in 1 minute and 26 seconds
......@@ -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