Revision 95f5cbc1
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/Helper/ShippedQty.pm | ||
|---|---|---|
| 162 | 162 |
|
| 163 | 163 |
sub init_services_deliverable {
|
| 164 | 164 |
my ($self) = @_; |
| 165 |
if ($::form->{type} =~ m/^sales_/ || $self->{objects}->[0]->{customer_id}) {
|
|
| 165 |
if (($::form->{type}//'') =~ m/^sales_/ || $self->{objects}->[0]->{customer_id}) {
|
|
| 166 | 166 |
$::instance_conf->get_sales_delivery_order_check_service; |
| 167 |
} elsif ($::form->{type} =~ m/^purchase_/ || $self->{objects}->[0]->{vendor_id}) {
|
|
| 167 |
} elsif (($::form->{type}//'') =~ m/^purchase_/ || $self->{objects}->[0]->{vendor_id}) {
|
|
| 168 | 168 |
$::instance_conf->get_purchase_delivery_order_check_service; |
| 169 | 169 |
} else {
|
| 170 | 170 |
croak "wrong call, no customer or vendor object referenced"; |
Auch abrufbar als: Unified diff
ShippedQty-Helper: undef-Warnung vermeiden