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

KFHT#34512 Exact-koppeling

Browse Source 
svn path=/Customer/trunk/; revision=29646
This commit is contained in:
Maarten van der Heide
2016-06-06 15:24:06 +00:00
parent 2b20b1741b
commit 164cbc64d6
1 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
KFHT/kfht.sql
View File

@@ -801,10 +801,16 @@ AS
-- Cursor loopt over alle ingelezen kostenregels uit Exact.
CURSOR c1
IS
SELECT ticketnumber, amount, changedate
SELECT ticketnumber, -- Ticketnumber met of zonder prefix!
DECODE (fac.safe_to_number (SUBSTR (ticketnumber, 1, 1)),
NULL, TRIM (SUBSTR (ticketnumber, 2)),
ticketnumber)
opdr_id, -- Ticketnumber zonder prefix!
amount,
changedate
FROM kfht_imp_exactmulti
WHERE imp_log_run = p_import_key
ORDER BY 3, 1;
ORDER BY 4, 2;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
@@ -832,7 +838,7 @@ BEGIN
INTO v_mld_key, v_opdr_key, v_opdr_status
FROM mld_opdr
WHERE mld_typeopdr_key != 8 -- Offertaanvraag
AND mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr = rec.ticketnumber;
AND mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr = rec.opdr_id;
-- Alleen iets doen als melding/opdracht succesvol is bepaald.
IF (v_mld_key > 0 AND v_opdr_key > 0)
@@ -840,8 +846,14 @@ BEGIN
-- Bijwerken kosten met amount.
v_errormsg := 'Fout bijwerken kosten.';
--UPDATE mld_opdr
-- SET mld_opdr_kosten = rec.amount,
-- mld_opdr_uren = 0,
-- mld_opdr_uurloon = 0,
-- mld_opdr_materiaal = 0
-- WHERE mld_opdr_key = v_opdr_key;
UPDATE mld_opdr
SET mld_opdr_kosten = rec.amount -- Of mld_opdr_materiaal?
SET mld_opdr_kosten = rec.amount
WHERE mld_opdr_key = v_opdr_key;
-- Bijwerken ordernr met changedate.