admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

STPH#31353: [BES] Kostensoorten bij Artikelgroep.

Browse Source 
svn path=/Database/trunk/; revision=24259
This commit is contained in:
Maykel Geerdink
2015-02-24 08:22:46 +00:00
parent 7e95173afb
commit c6eb385ef7
3 changed files with 24 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
BES/BES_VIE.SRC
View File

@@ -95,17 +95,23 @@ AS
(SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = COALESCE(fac.gettrackinguserkey ('BESNEW', b.bes_bestelling_key), fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key))) invoerder,
(select ksg.prs_kostensoortgrp_oms
from prs_kostensoortgrp ksg, prs_kostensoort ks
where ksg.PRS_KOSTENSOORTGRP_KEY = ks.PRS_KOSTENSOORTGRP_KEY
and ks.PRS_KOSTENSOORT_KEY = (select disc.PRS_KOSTENSOORT_KEY
from bes_discipline disc
where disc.ins_DISCIPLINE_KEY = d.ins_discipline_key)) kostensoortgroep,
(select ks.prs_kostensoort_oms
from prs_kostensoort ks
where ks.PRS_KOSTENSOORT_KEY = (select disc.PRS_KOSTENSOORT_KEY
from bes_discipline disc
where disc.ins_DISCIPLINE_KEY = d.ins_discipline_key)) kostensoort,
(SELECT ksg.prs_kostensoortgrp_oms
FROM prs_kostensoortgrp ksg,
prs_kostensoort ks
WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
AND ks.prs_kostensoort_key =
(SELECT MAX(COALESCE(bsg.prs_kostensoort_key, disc.prs_kostensoort_key))
FROM bes_discipline disc,
bes_srtgroep bsg
WHERE disc.ins_discipline_key = d.ins_discipline_key)) kostensoortgroep,
(SELECT ks.prs_kostensoort_oms
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_key =
(SELECT MAX(COALESCE(bsg.prs_kostensoort_key, disc.prs_kostensoort_key))
FROM bes_discipline disc,
bes_srtgroep bsg
WHERE disc.ins_discipline_key = bsg.ins_discipline_key
AND disc.ins_discipline_key = d.ins_discipline_key)) kostensoort,
k.prs_kostenplaats_nr kpn,
k.prs_kostenplaats_omschrijving kpn_omschrijving,
(SELECT prs_bedrijf_key

3
FAC/FAC_LCLASP.SRC
View File

@@ -2912,7 +2912,8 @@ FACXSL_LCL('lcl_bes_article_details', 'Artikeldetails', 'Article details', 'Arti
FACXSL_LCL('lcl_bes_bestelopdracht', 'Bestelopdracht', 'Purchase order', 'Bestellauftrag', 'Ordre d''achat')
FACXSL_LCL('lcl_bes_out_of_stock', 'Onvoldoende op voorraad', 'Insufficient stock', 'keine ausreichende Anzahl am Lager', 'Stock insuffisant')
FACXSL_LCL('lcl_bes_exceed_stock', 'Onvoldoende op voorraad', 'Insufficient stock', 'keine ausreichende Anzahl am Lager', 'Stock insuffisant')
FACXSL_LCL('lcl_bes_reduced_to_max', 'Er zijn nog slechts {0} stuks op voorraad, het aangevraagde aantal is verlaagd naar {0}.', 'There are only {0} pieces on stock, the number requested is reduced to {0}.', 'Es gibt nur {0} St<53>ck auf Lager, die angeforderte Anzahl ist reduziert auf {0}.', 'Il y a seulement {0} pi<70>ces sur stock, le nombre demand<6E> est r<>duits <20> {0}.')
FACXSL_LCL('lcl_bes_stock_too_low', 'De voorraad is te laag voor een bestelling', 'The stock is too low for an order', 'Der Vorrat ist zu niedrig f<>r eine Bestellung', 'Le stock est trop faible pour une ordonnance')
FACXSL_LCL('lcl_bes_reduced_to_max', 'Er zijn nog slechts {0} stuks op voorraad, het aangevraagde aantal is verlaagd naar {0}.', 'There are only {0} pieces on stock, the number requested will be reduced to {0}.', 'Es gibt nur {0} St<53>ck auf Lager, die angeforderte Anzahl werden reduziert auf {0}.', 'Il y a seulement {0} pi<70>ces sur stock, le nombre demand<6E> sera r<>duits <20> {0}.')
FACXSL_LCL('lcl_bes_reject_order_req', 'Afwijzen bestelaanvragen', 'Reject purchase order requests', 'Bestellungsantrag abweisen', 'Rejeter demande d''achat')
FACXSL_LCL('lcl_bes_rejectfollowing', 'De volgende bestelaanvragen worden afgewezen: ', 'The following purchase order requests have been rejected: ', 'Die folgenden Bestellanforderungen wurden abgelehnt: ', 'Les demandes d''achat suivantes seront rejet<65>es: ')
FACXSL_LCL('lcl_bes_reject_1', 'Wilt u bestelaanvraag {0} afwijzen?', 'Do you want to reject purchase order request {0}?', 'M<>chten Sie den Bestellungsantrag {0} Abweisen?', 'Voulez-vous rejeter demande d''achat {0}?')

8
FIN/FIN_PAC.SRC
View File

@@ -360,11 +360,13 @@ AS
factmatchmode := fin.getfactmatchmode (discipline, 'B');
-- Zijn de bestelbedragen incl. of excl. BTW.
SELECT ks.prs_kostensoort_btw
SELECT MAX((SELECT ks.prs_kostensoort_btw
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_key = COALESCE(bsg.prs_kostensoort_key, bd.prs_kostensoort_key)))
INTO inclbtw
FROM bes_discipline bd,
prs_kostensoort ks
WHERE bd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
bes_srtgroep bsg
WHERE bd.ins_discipline_key = bsg.ins_discipline_key
AND bd.ins_discipline_key = discipline;
-- Bereken dan nu de voor de matching relevante bedragen