Revision d4c21246
Von Bernd Bleßmann vor 12 Monaten hinzugefügt
| SL/TransNumber.pm | ||
|---|---|---|
| 17 | 17 |
); |
| 18 | 18 |
|
| 19 | 19 |
my @SUPPORTED_TYPES = ( |
| 20 |
qw(invoice invoice_for_advance_payment final_invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order_intake sales_order purchase_order sales_quotation request_quotation part service assembly assortment letter), |
|
| 20 |
qw(invoice invoice_for_advance_payment final_invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order_intake sales_order purchase_order sales_quotation request_quotation purchase_quotation_intake part service assembly assortment letter),
|
|
| 21 | 21 |
@{ SL::DB::DeliveryOrder::TypeData::valid_types() },
|
| 22 | 22 |
); |
| 23 | 23 |
|
| ... | ... | |
| 79 | 79 |
$filters{where} = 'COALESCE(quotation, FALSE)';
|
| 80 | 80 |
$filters{where} .= $type =~ /^sales/ ? ' AND (customer_id IS NOT NULL)' : ' AND (vendor_id IS NOT NULL)';
|
| 81 | 81 |
|
| 82 |
} elsif ($type =~ /^purchase_quotation_intake$/) {
|
|
| 83 |
$filters{trans_number} = "quonumber";
|
|
| 84 |
$filters{numberfield} = "pqinumber";
|
|
| 85 |
$filters{table} = "oe";
|
|
| 86 |
$filters{where} = 'COALESCE(quotation, FALSE) AND (vendor_id IS NOT NULL)';
|
|
| 87 |
|
|
| 82 | 88 |
} elsif ($type =~ /^(part|service|assembly|assortment)$/) {
|
| 83 | 89 |
$filters{trans_number} = "partnumber";
|
| 84 | 90 |
my %numberfield_hash = ( service => 'servicenumber', |
Auch abrufbar als: Unified diff
Angebots-Eingang: DB und Nummernkreis