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

GVBA#46647 -- Koppeling met Strukton.

Browse Source 
svn path=/Customer/trunk/; revision=35906
This commit is contained in:
Arthur Egberink
2017-11-06 12:45:55 +00:00
parent 34e2c83760
commit 99ac0e44da
1 changed files with 23 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
GVBA/gvba.sql
View File

@@ -2242,7 +2242,7 @@ AS
-- Koppeling met Strukton
-----------------------------------------
CREATE OR REPLACE PROCEDURE ykpn_import_opdrstat_strukton (
CREATE OR REPLACE PROCEDURE gvba_import_opdrstat_strukton (
p_import_key IN NUMBER)
AS
c_delim VARCHAR2 (1) := ';';
@@ -2280,7 +2280,7 @@ AS
ORDER BY fac_imp_file_index;
BEGIN
-- Eerst opruiming
DELETE FROM ykpn_imp_opdrstat_strukton;
DELETE FROM gvba_imp_opdrstat_strukton;
COMMIT;
@@ -2387,11 +2387,7 @@ BEGIN
v_status := 6; -- afgemeld
WHEN v_status_code = '30' -- technisch gereed
THEN
v_status := 6; -- afgemeld
-- YKPN#32991
-- WHEN v_status_code = '40' -- uitgeprijst
-- THEN
-- v_status := 9; -- afgerond
v_status := 6; -- afgemeld -- afgerond
WHEN v_status_code = '70'
THEN
v_status := 1; -- geannuleerd
@@ -2432,7 +2428,7 @@ BEGIN
-- controleer of de opmerking niet leeg is en of dezelfde opmerking al bij een eerdere statusovergang
-- gemeld is.
IF v_opmerking IS NOT NULL AND INSTR(v_mld_opdr_opmerking, v_opmerking) = 0
IF v_opmerking IS NOT NULL AND INSTR(COALESCE(v_mld_opdr_opmerking, 'QueQuLeQue'), v_opmerking) = 0
THEN
v_opmerking :=
'['
@@ -2457,7 +2453,7 @@ BEGIN
|| v_aanduiding
|| ']';
INSERT INTO ykpn_imp_opdrstat_strukton (mld_opdr_key,
INSERT INTO gvba_imp_opdrstat_strukton (mld_opdr_key,
extern_nummer,
status,
datumtijd,
@@ -2487,7 +2483,7 @@ BEGIN
p_import_key,
'E',
v_aanduiding || v_errormsg,
'Fout bij toevoegen regel aan importtabel ykpn_imp_opdr_status_strukton.');
'Fout bij toevoegen regel aan importtabel gvba_imp_opdr_status_strukton.');
END;
ELSE
fac.imp_writelog (p_import_key,
@@ -2530,7 +2526,7 @@ END;
CREATE OR REPLACE PROCEDURE ykpn_update_opdrstat_strukton (
CREATE OR REPLACE PROCEDURE gvba_update_opdrstat_strukton (
p_import_key IN NUMBER)
AS
-- Cursor loopt - in volgorde! - over alle ingelezen opdrachtstatusberichten.
@@ -2542,7 +2538,7 @@ AS
status,
opmerking,
totaal
FROM ykpn_imp_opdrstat_strukton
FROM gvba_imp_opdrstat_strukton
ORDER BY 1, 3;
CURSOR cp (
@@ -2569,6 +2565,7 @@ AS
v_opdr_key NUMBER (10) := 0;
v_opdr_status NUMBER (10) := 0;
v_user_key NUMBER (10) := 0;
v_melding_status NUMBER (10);
v_opdr_approved mld_opdr.mld_opdr_approved%TYPE;
v_approver_key prs_perslid.prs_perslid_key%TYPE;
v_mld_typeopdr_key mld_typeopdr.mld_typeopdr_key%TYPE;
@@ -2706,8 +2703,20 @@ BEGIN
IF rec.status = 6 AND v_opdr_status <> 6
THEN
-- Sinds AADO#30922 wordt de melding niet meer automatisch afgemeld.
MLD.updatemeldingstatusAV (v_mld_key, 0, v_user_key, 0);
-- Als er geen open opdrachten zijn wordt de melding afgemeld.
MLD.updatemeldingstatusAV (v_mld_key, 1, v_user_key, 0);
SELECT mld_melding_status
INTO v_melding_status
FROM mld_melding
WHERE mld_melding_key = v_mld_key;
IF v_melding_status = 5
THEN
UPDATE mld_melding
SET mld_melding_opmerking = rec.opmerking || CHR (10) || CHR (13) || mld_melding_opmerking
WHERE mld_melding_key = v_mld_key;
END IF;
ELSE
IF rec.status = 9 AND v_opdr_status <> 9
THEN