Rev 328 | Rev 330 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 328 | Rev 329 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | #!/usr/bin/perl -w
|
1 | #!/usr/bin/perl -w
|
| 2 | use strict; |
2 | use strict; |
| 3 | # $Id: inventory.pl 328 2008-12-29 18:07:00Z agaran $
|
3 | # $Id: inventory.pl 329 2008-12-29 18:21:45Z jelle $
|
| 4 | # Thu, 13 Nov 2008 21:06:23 +0100
|
4 | # Thu, 13 Nov 2008 21:06:23 +0100
|
| 5 | # Maciej 'agaran' Pijanka <agaran@pld-linux.org>
|
5 | # Maciej 'agaran' Pijanka <agaran@pld-linux.org>
|
| 6 | # for OpenARM SBC Project
|
6 | # for OpenARM SBC Project
|
| 7 | # license: gpl v3
|
7 | # license: gpl v3
|
| 8 | 8 | ||
| Line 443... | Line 443... | ||
| 443 | 443 | ||
| 444 | printf PARTMAP "%-35s| refdes\n\n", 'part'; |
444 | printf PARTMAP "%-35s| refdes\n\n", 'part'; |
| 445 | 445 | ||
| 446 | my $bomtable = Text::Table->new( |
446 | my $bomtable = Text::Table->new( |
| 447 | { title => '| ', is_sep => 1 }, |
447 | { title => '| ', is_sep => 1 }, |
| 448 | { title => 'id', align => 'right', align_title => 'center' }, |
448 | { title => 'id', align => 'right', align_title => 'left' }, |
| 449 | { title => ' | ', is_sep => 1 }, |
449 | { title => ' | ', is_sep => 1 }, |
| 450 | { title => 'description', align => 'left', align_title => 'center' }, |
450 | { title => 'description', align => 'left', align_title => 'left' }, |
| 451 | { title => ' | ', is_sep => 1 }, |
451 | { title => ' | ', is_sep => 1 }, |
| 452 | { title => 'manufacturer partno', align => 'left', align_title => 'center' }, |
452 | { title => 'manufacturer partid', align => 'left', align_title => 'left' }, |
| 453 | { title => ' | ', is_sep => 1 }, |
453 | { title => ' | ', is_sep => 1 }, |
| 454 | { title => 'manufacturer', align => 'left', align_title => 'center' }, |
454 | { title => 'manufacturer', align => 'left', align_title => 'left' }, |
| 455 | { title => ' | ', is_sep => 1 }, |
455 | { title => ' | ', is_sep => 1 }, |
| 456 | { title => 'order code', align => 'left', align_title => 'center' }, |
456 | { title => 'order code', align => 'left', align_title => 'left' }, |
| 457 | { title => ' | ', is_sep => 1 }, |
457 | { title => ' | ', is_sep => 1 }, |
| 458 | { title => 'quantity', align => 'right', align_title => 'center' }, |
458 | { title => 'quantity', align => 'right', align_title => 'left' }, |
| 459 | { title => ' | ', is_sep => 1 }, |
459 | { title => ' | ', is_sep => 1 }, |
| 460 | { title => "price\nper pcs", align => 'right', align_title => 'center' }, |
460 | { title => "price", align => 'right', align_title => 'left' }, |
| 461 | { title => ' | ', is_sep => 1 }, |
461 | { title => ' | ', is_sep => 1 }, |
| 462 | { title => "cost", align => 'right', align_title => 'center' }, |
462 | { title => "cost", align => 'right', align_title => 'left' }, |
| 463 | { title => ' |', is_sep => 1 }, |
463 | { title => ' |', is_sep => 1 }, |
| 464 | ); |
464 | ); |
| 465 | 465 | ||
| 466 | foreach my $id ( sort {my $p = $Inv[$a]{Manufacturer} cmp $Inv[$b]{Manufacturer}; if ($p == 0) { |
466 | foreach my $id ( sort {my $p = $Inv[$a]{Manufacturer} cmp $Inv[$b]{Manufacturer}; if ($p == 0) { |
| 467 | # return $Inv[$a]{Manufacturer_Partno} cmp $Inv[$b]{Manufacturer_Partno}}; return $p; } keys %BomData) {
|
467 | # return $Inv[$a]{Manufacturer_Partno} cmp $Inv[$b]{Manufacturer_Partno}}; return $p; } keys %BomData) {
|