Revision c5651754
Von Bernd Bleßmann vor mehr als 11 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 740 | 740 |
sub order_details {
|
| 741 | 741 |
$main::lxdebug->enter_sub(); |
| 742 | 742 |
|
| 743 |
my ($self) = @_; |
|
| 744 |
|
|
| 745 |
my $myconfig = \%main::myconfig; |
|
| 746 |
my $form = $main::form; |
|
| 743 |
my ($self, $myconfig, $form) = @_; |
|
| 747 | 744 |
|
| 748 | 745 |
# connect to database |
| 749 | 746 |
my $dbh = $form->get_standard_dbh($myconfig); |
| ... | ... | |
| 808 | 805 |
my $ic_cvar_configs = CVar->get_configs(module => 'IC'); |
| 809 | 806 |
|
| 810 | 807 |
$form->{TEMPLATE_ARRAYS} = { };
|
| 811 |
IC->prepare_parts_for_printing(); |
|
| 808 |
IC->prepare_parts_for_printing(myconfig => $myconfig, form => $form);
|
|
| 812 | 809 |
|
| 813 | 810 |
my @arrays = |
| 814 | 811 |
qw(runningnumber number description longdescription qty unit |
| SL/Form.pm | ||
|---|---|---|
| 3407 | 3407 |
IC->retrieve_accounts(\%::myconfig, $self, map { $_ => $self->{"id_$_"} } 1 .. $self->{rowcount});
|
| 3408 | 3408 |
|
| 3409 | 3409 |
if ($self->{type} =~ /_delivery_order$/) {
|
| 3410 |
DO->order_details(); |
|
| 3410 |
DO->order_details(\%::myconfig, $self);
|
|
| 3411 | 3411 |
} elsif ($self->{type} =~ /sales_order|sales_quotation|request_quotation|purchase_order/) {
|
| 3412 | 3412 |
OE->order_details(\%::myconfig, $self); |
| 3413 | 3413 |
} else {
|
| SL/IC.pm | ||
|---|---|---|
| 1632 | 1632 |
my $self = shift; |
| 1633 | 1633 |
my %params = @_; |
| 1634 | 1634 |
|
| 1635 |
my $myconfig = \%main::myconfig; |
|
| 1636 |
my $form = $main::form; |
|
| 1635 |
my $myconfig = $params{myconfig} || \%main::myconfig;
|
|
| 1636 |
my $form = $params{form} || $main::form;
|
|
| 1637 | 1637 |
|
| 1638 | 1638 |
my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
|
| 1639 | 1639 |
|
| SL/IS.pm | ||
|---|---|---|
| 144 | 144 |
|
| 145 | 145 |
$form->{discount} = [];
|
| 146 | 146 |
|
| 147 |
IC->prepare_parts_for_printing(); |
|
| 147 |
IC->prepare_parts_for_printing(myconfig => $myconfig, form => $form);
|
|
| 148 | 148 |
|
| 149 | 149 |
my $ic_cvar_configs = CVar->get_configs(module => 'IC'); |
| 150 | 150 |
|
| SL/OE.pm | ||
|---|---|---|
| 1111 | 1111 |
$form->{discount} = [];
|
| 1112 | 1112 |
|
| 1113 | 1113 |
$form->{TEMPLATE_ARRAYS} = { };
|
| 1114 |
IC->prepare_parts_for_printing(); |
|
| 1114 |
IC->prepare_parts_for_printing(myconfig => $myconfig, form => $form);
|
|
| 1115 | 1115 |
|
| 1116 | 1116 |
my $ic_cvar_configs = CVar->get_configs(module => 'IC'); |
| 1117 | 1117 |
|
| bin/mozilla/io.pl | ||
|---|---|---|
| 1393 | 1393 |
|
| 1394 | 1394 |
# create the form variables |
| 1395 | 1395 |
if ($form->{type} =~ /_delivery_order$/) {
|
| 1396 |
DO->order_details(); |
|
| 1396 |
DO->order_details(\%myconfig, \%$form);
|
|
| 1397 | 1397 |
} elsif ($order) {
|
| 1398 | 1398 |
OE->order_details(\%myconfig, \%$form); |
| 1399 | 1399 |
} else {
|
Auch abrufbar als: Unified diff
OE::, DO::order_details und IC::prepare_parts_for_printing mit lokaler form ...
und myconfig arbeiten lassen
Betrifft #2247.