Revision 1b9948c2
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 purchase_quotation_intake 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 purchase_order_confirmation sales_quotation request_quotation purchase_quotation_intake part service assembly assortment letter),
|
|
21 | 21 |
@{ SL::DB::DeliveryOrder::TypeData::valid_types() }, |
22 | 22 |
); |
23 | 23 |
|
... | ... | |
72 | 72 |
$filters{where} = 'NOT COALESCE(quotation, FALSE)'; |
73 | 73 |
$filters{where} .= $type =~ /^sales/ ? ' AND (customer_id IS NOT NULL)' : ' AND (vendor_id IS NOT NULL)'; |
74 | 74 |
|
75 |
} elsif ($type =~ /^purchase_order_confirmation$/) { |
|
76 |
$filters{trans_number} = "ordnumber"; |
|
77 |
$filters{numberfield} = "pocnumber"; |
|
78 |
$filters{table} = "oe"; |
|
79 |
$filters{where} = 'record_type = ?'; |
|
80 |
$filters{values} = $type; |
|
81 |
|
|
75 | 82 |
} elsif ($type =~ /_quotation$/) { |
76 | 83 |
$filters{trans_number} = "quonumber"; |
77 | 84 |
$filters{numberfield} = $type eq 'sales_quotation' ? "sqnumber" : "rfqnumber"; |
Auch abrufbar als: Unified diff
Lieferantenauftragsbestätigung: DB und Nummernkreis