Revision 6f1b36cf
Von Sven Schöling vor mehr als 10 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1910 | 1910 |
push @values, '%' . $form->{"${field}_${i}"} . '%';
|
| 1911 | 1911 |
} |
| 1912 | 1912 |
|
| 1913 |
#Es soll auch nach EAN gesucht werden, ohne Einschränkung durch Beschreibung
|
|
| 1913 |
my (%mm_by_id);
|
|
| 1914 | 1914 |
if ($form->{"partnumber_$i"} && !$form->{"description_$i"}) {
|
| 1915 | 1915 |
$where .= qq| OR (NOT p.obsolete = '1' AND p.ean = ? )|; |
| 1916 | 1916 |
push @values, $form->{"partnumber_$i"};
|
| 1917 |
|
|
| 1918 |
# also search hits in makemodels, but only cache the results by id and merge later |
|
| 1919 |
my $mm_query = qq| |
|
| 1920 |
SELECT parts_id, model FROM makemodel LEFT JOIN parts ON parts.id = parts_id WHERE NOT parts.obsolete AND model ILIKE ?; |
|
| 1921 |
|; |
|
| 1922 |
my $mm_results = selectall_hashref_query($::form, $dbh, $mm_query, '%' . $form->{"partnumber_$i"} . '%');
|
|
| 1923 |
my @mm_ids = map { $_->{parts_id} } @$mm_results;
|
|
| 1924 |
push @{$mm_by_id{ $_->{parts_id} } ||= []}, $_ for @$mm_results;
|
|
| 1925 |
|
|
| 1926 |
if (@mm_ids) {
|
|
| 1927 |
$where .= qq| OR p.id IN (| . join(',', ('?') x @mm_ids) . qq|)|;
|
|
| 1928 |
push @values, @mm_ids; |
|
| 1929 |
} |
|
| 1917 | 1930 |
} |
| 1918 | 1931 |
|
| 1919 | 1932 |
# Search for part ID overrides all other criteria. |
| ... | ... | |
| 1947 | 1960 |
qq|SELECT |
| 1948 | 1961 |
p.id, p.partnumber, p.description, p.sellprice, |
| 1949 | 1962 |
p.listprice, p.inventory_accno_id, p.lastcost, |
| 1963 |
p.ean, |
|
| 1950 | 1964 |
|
| 1951 | 1965 |
c1.accno AS inventory_accno, |
| 1952 | 1966 |
c1.new_chart_id AS inventory_new_chart, |
| ... | ... | |
| 2002 | 2016 |
|
| 2003 | 2017 |
while (my $ref = $sth->fetchrow_hashref('NAME_lc')) {
|
| 2004 | 2018 |
|
| 2019 |
if ($mm_by_id{$ref->{id}}) {
|
|
| 2020 |
$ref->{makemodels} = $mm_by_id{$ref->{id}};
|
|
| 2021 |
push @{ $ref->{matches} ||= [] }, $::locale->text('Model') . ': ' . join ', ', map { $_->{model} } @{ $mm_by_id{$ref->{id}} };
|
|
| 2022 |
} |
|
| 2023 |
|
|
| 2024 |
if ($ref->{ean} eq $::form->{"partnumber_$i"}) {
|
|
| 2025 |
push @{ $ref->{matches} ||= [] }, $::locale->text('EAN') . ': ' . $ref->{ean};
|
|
| 2026 |
} |
|
| 2027 |
|
|
| 2005 | 2028 |
# In der Buchungsgruppe ist immer ein Bestandskonto verknuepft, auch wenn |
| 2006 | 2029 |
# es sich um eine Dienstleistung handelt. Bei Dienstleistungen muss das |
| 2007 | 2030 |
# Buchungskonto also aus dem Ergebnis rausgenommen werden. |
Auch abrufbar als: Unified diff
select_item: Belegmasken finden jetzt auch Warennummern aus makemodels
Außerdem die Präsentation von select_item angepasst, so dass ersichtlich
wird woher die gefundenen Waren stammen.