From 638f06c4a2918e2a81149df61b7024c0b1623335 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Tue, 19 Apr 2016 15:10:52 +0200 Subject: [PATCH] Erzeugnis fertigen verbessert MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Transfertyp assembled hinzugefügt Bei gefertigten Erzeugnissen sowie bei verbrauchten Waren das tagesaktuelle Datum gesetzt (vorher wurde gar keins gesetzt). --- SL/WH.pm | 11 +++++++---- bin/mozilla/wh.pl | 1 + doc/changelog | 3 +++ locale/de/all | 1 + sql/Pg-upgrade2/transfer_type_assembled.sql | 6 ++++++ 5 files changed, 18 insertions(+), 4 deletions(-) create mode 100644 sql/Pg-upgrade2/transfer_type_assembled.sql diff --git a/SL/WH.pm b/SL/WH.pm index 97f0a7553..f1dd565c5 100644 --- a/SL/WH.pm +++ b/SL/WH.pm @@ -203,9 +203,11 @@ sub transfer_assembly { my $sth_part_qty_assembly = prepare_execute_query($form, $dbh, $query, $params{assembly_id}); # Hier wird das prepared Statement für die Schleife über alle Lagerplätze vorbereitet - my $transferPartSQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore, comment, employee_id, qty, trans_id, trans_type_id) + my $transferPartSQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore, comment, employee_id, qty, + trans_id, trans_type_id, shippingdate) VALUES (?, ?, ?, ?, ?, ?, (SELECT id FROM employee WHERE login = ?), ?, nextval('id'), - (SELECT id FROM transfer_type WHERE direction = 'out' AND description = 'used'))|; + (SELECT id FROM transfer_type WHERE direction = 'out' AND description = 'used'), + (SELECT current_date))|; my $sthTransferPartSQL = prepare_query($form, $dbh, $transferPartSQL); # der return-string für die fehlermeldung inkl. welche waren zum fertigen noch fehlen @@ -289,9 +291,10 @@ sub transfer_assembly { # soweit alles gut. Jetzt noch die wirkliche Lagerbewegung für das Erzeugnis ausführen ... my $transferAssemblySQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, bestbefore, - comment, employee_id, qty, trans_id, trans_type_id) + comment, employee_id, qty, trans_id, trans_type_id, shippingdate) VALUES (?, ?, ?, ?, ?, ?, (SELECT id FROM employee WHERE login = ?), ?, nextval('id'), - (SELECT id FROM transfer_type WHERE direction = 'in' AND description = 'stock'))|; + (SELECT id FROM transfer_type WHERE direction = 'in' AND description = 'assembled'), + (select current_date))|; my $sthTransferAssemblySQL = prepare_query($form, $dbh, $transferAssemblySQL); do_statement($form, $sthTransferAssemblySQL, $transferAssemblySQL, $params{assembly_id}, $params{dst_warehouse_id}, $params{dst_bin_id}, $params{chargenumber}, conv_date($params{bestbefore}), $params{comment}, $params{login}, $params{qty}); diff --git a/bin/mozilla/wh.pl b/bin/mozilla/wh.pl index fbc645e65..5c0a5e7d0 100644 --- a/bin/mozilla/wh.pl +++ b/bin/mozilla/wh.pl @@ -67,6 +67,7 @@ use strict; # $locale->text('used') # $locale->text('return_material') # $locale->text('release_material') +# $locale->text('assembled') # -------------------------------------------------------------------- # Transfer diff --git a/doc/changelog b/doc/changelog index c93fde77b..cdcb78f47 100644 --- a/doc/changelog +++ b/doc/changelog @@ -14,6 +14,9 @@ einere neue Features und Detailverbesserungen: - Das Drucken von Briefen direkt auf Drucker wurde gefixt. - Die Auswahl einer Ansprechpersonen in der Brieffunktion wurde gefixt. - Briefe können nun per E-Mail verschickt werden. + - Lagereingangs-Typ gefertigt hinzugefügt + - Fertigungsdatum von Erzeugnissen und Bestandteilen von Erzeugnissen + in Lagerbuchungen mitprotokollieren (Tagesdatum der Fertigung). 2016-03-12 - Release 3.4.0 diff --git a/locale/de/all b/locale/de/all index ea7f88368..e1a69b67b 100755 --- a/locale/de/all +++ b/locale/de/all @@ -3386,6 +3386,7 @@ $self->{texts} = { 'ar_aging_list' => 'liste_offene_forderungen', 'ar_chart isn\'t a valid chart' => 'Das Forderungskonto ist kein gültiges Konto.', 'as at' => 'zum Stand', + 'assembled' => 'Gefertigt', 'assembly' => 'Erzeugnis', 'assembly_list' => 'erzeugnisliste', 'averaged values, in invoice mode only useful when filtered by a part' => 'gemittelte Werte, im Rechnungsmodus nur sinnvoll wenn nach Artikel gefiltert wird', diff --git a/sql/Pg-upgrade2/transfer_type_assembled.sql b/sql/Pg-upgrade2/transfer_type_assembled.sql new file mode 100644 index 000000000..790002ac2 --- /dev/null +++ b/sql/Pg-upgrade2/transfer_type_assembled.sql @@ -0,0 +1,6 @@ +-- @tag: transfer_type_assembled +-- @description: Transfertyp "gefertigt" wird benötigt. +-- @depends: release_3_4_0 warehouse +-- @encoding: utf-8 + +INSERT INTO transfer_type (direction, description, sortkey) VALUES ('in', 'assembled', (SELECT COALESCE(MAX(sortkey), 0) + 1 FROM transfer_type)); -- 2.20.1