Revision c35e1e2f
Von Moritz Bunkus vor etwa 15 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 41 | 41 |
use SL::CVar; |
| 42 | 42 |
use SL::DBUtils; |
| 43 | 43 |
use SL::RecordLinks; |
| 44 |
use SL::IC; |
|
| 44 | 45 |
|
| 45 | 46 |
sub transactions {
|
| 46 | 47 |
$main::lxdebug->enter_sub(); |
| ... | ... | |
| 776 | 777 |
|
| 777 | 778 |
my $ic_cvar_configs = CVar->get_configs(module => 'IC'); |
| 778 | 779 |
|
| 780 |
$form->{TEMPLATE_ARRAYS} = { };
|
|
| 781 |
IC->prepare_parts_for_printing(); |
|
| 782 |
|
|
| 779 | 783 |
my @arrays = |
| 780 | 784 |
qw(runningnumber number description longdescription qty unit |
| 781 | 785 |
partnotes serialnumber reqdate projectnumber |
| 782 | 786 |
si_runningnumber si_number si_description |
| 783 | 787 |
si_warehouse si_bin si_chargenumber si_qty si_unit); |
| 784 | 788 |
|
| 789 |
map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays);
|
|
| 790 |
|
|
| 785 | 791 |
push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
|
| 786 | 792 |
|
| 787 | 793 |
my $sameitem = ""; |
Auch abrufbar als: Unified diff
Beim Ausdrucken von Lieferscheinen die Lieferanteninformationen der Artikel aus der Datenbank holen.