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

FMHN#78242 uitbreiding import Relaties

Browse Source 
svn path=/Customer/trunk/; revision=60898
This commit is contained in:
Sander Schepers
2023-06-22 13:45:42 +00:00
parent a1c8c1a84d
commit d2a789c146
1 changed files with 42 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
FMHN/fmhn.sql
View File

@@ -5339,7 +5339,7 @@ AS
IF rec.prs_leverancier_nr IS NULL
THEN
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, 'Leveranciersnummer ongedefinieerd');
COMMIT;
-- COMMIT;
ELSE
SELECT COUNT ( * )
INTO v_count
@@ -5405,11 +5405,13 @@ AS
prs_bedrijf_post_plaats = COALESCE (rec.prs_bedrijf_post_plaats, prs_bedrijf_post_plaats),
prs_bedrijf_post_land = COALESCE (rec.prs_bedrijf_post_land, prs_bedrijf_post_land),
--prs_bedrijf_leverancier = prs_bedrijf_leverancier,
--prs_bedrijf_uitvoerende = prs_bedrijf_uitvoerende,
prs_bedrijf_uitvoerende = DECODE (rec.prs_bedrijf_uitvoerende, 1, 1, NULL),
prs_bedrijf_contract = DECODE (rec.prs_bedrijf_contract, 1, 1, NULL),
--prs_bedrijf_huurder = prs_bedrijf_huurder,
prs_bedrijf_telefoon = COALESCE (rec.prs_bedrijf_telefoon, prs_bedrijf_telefoon),
prs_bedrijf_email = COALESCE (rec.prs_bedrijf_email, prs_bedrijf_email)
prs_bedrijf_email = COALESCE (rec.prs_bedrijf_email, prs_bedrijf_email),
prs_overeenkomst_datum = COALESCE (rec.prs_overeenkomst_datum, prs_overeenkomst_datum)
WHERE prs_bedrijf_key = v_bedrijf_key;
v_count_upd := v_count_upd + 1;
@@ -5423,10 +5425,10 @@ AS
prs.upsertkenmerk (1041, v_bedrijf_key, rec.prs_bedrijf_overig2); -- Sector
v_errormsg := 'Fout bijwerken Subsector';
prs.upsertkenmerk (1042, v_bedrijf_key, rec.prs_bedrijf_overig3); -- Subsector
v_errormsg := 'Fout bijwerken Subsector';
v_errormsg := 'Fout bijwerken Einddatum';
prs.upsertkenmerk (1044, v_bedrijf_key, rec.prs_bedrijf_contact_fax); -- Einddatum
IF MOD (v_count_tot, 500) = 0 THEN COMMIT; END IF;
--IF MOD (v_count_tot, 500) = 0 THEN COMMIT; END IF;
END IF;
EXCEPTION
WHEN OTHERS
@@ -5435,14 +5437,14 @@ AS
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, '');
COMMIT;
-- COMMIT;
END;
END LOOP;
fac.imp_writelog (p_import_key, 'S', 'Relaties/#ingelezen: ' || TO_CHAR (v_count_tot), '');
fac.imp_writelog (p_import_key, 'S', 'Relaties/#toegevoegd: ' || TO_CHAR (v_count_new), '');
fac.imp_writelog (p_import_key, 'S', 'Relaties/#bijgewerkt: ' || TO_CHAR (v_count_upd), '');
COMMIT;
-- COMMIT;
END;
-- SUBPROC
@@ -5467,16 +5469,23 @@ AS
BEGIN
v_aanduiding := '[' || rec.prs_leverancier_nr || '|' || rec.prs_bedrijf_naam || '] ';
--v_errormsg := 'Fout verwijderen bedrijf';
--UPDATE prs_bedrijf
-- SET prs_bedrijf_verwijder = SYSDATE
-- WHERE prs_bedrijf_key = rec.prs_bedrijf_key;
v_errormsg := 'Fout bijwerken Status=Vervallen';
SELECT fac_usrdata_key INTO v_vervallen_key FROM fac_v_aanwezigusrdata WHERE fac_usrtab_key = 3 AND fac_usrdata_upper = 'VERVALLEN';
prs.upsertkenmerk (1043, rec.prs_bedrijf_key, TO_CHAR (v_vervallen_key)); -- Status
v_count_del := v_count_del + 1;
BEGIN
v_errormsg := 'Fout verwijderen bedrijf';
UPDATE prs_bedrijf
SET prs_bedrijf_verwijder = SYSDATE
WHERE prs_bedrijf_key = rec.prs_bedrijf_key;
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, '');
END;
EXCEPTION
WHEN OTHERS
THEN
@@ -5484,12 +5493,12 @@ AS
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, '');
COMMIT;
-- COMMIT;
END;
END LOOP;
fac.imp_writelog (p_import_key, 'S', 'Relaties/#vervallen: ' || TO_CHAR (v_count_del), '');
COMMIT;
-- COMMIT;
END;
-- MAIN
BEGIN
@@ -5502,24 +5511,24 @@ BEGIN
END IF;
-- Toevoegen Status-entries in Eigen tabel 221='Lifecycle REL'!
v_errormsg := 'Fout bijwerken Status-entries';
INSERT INTO fac_usrdata (fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT 3, 'Vervallen', 'Vervallen'
FROM DUAL
WHERE NOT EXISTS
(SELECT 1
FROM fac_usrdata
WHERE fac_usrtab_key = 3 -- Lifecycle REL
AND UPPER (TRIM (fac_usrdata_omschr)) = UPPER ('Vervallen'));
INSERT INTO fac_usrdata (fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT DISTINCT 3, SUBSTR (ib.prs_dienst_omschrijving, 1, 40), SUBSTR (ib.prs_dienst_omschrijving, 1, 60)
FROM fac_imp_ext_bedrijf ib
WHERE NOT EXISTS
(SELECT 1
FROM fac_usrdata
WHERE fac_usrtab_key = 3 -- Lifecycle REL
AND UPPER (TRIM (fac_usrdata_omschr)) = UPPER (ib.prs_dienst_omschrijving));
COMMIT;
-- v_errormsg := 'Fout bijwerken Status-entries';
-- INSERT INTO fac_usrdata (fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
-- SELECT 3, 'Vervallen', 'Vervallen'
-- FROM DUAL
-- WHERE NOT EXISTS
-- (SELECT 1
-- FROM fac_usrdata
-- WHERE fac_usrtab_key = 3 -- Lifecycle REL
-- AND UPPER (TRIM (fac_usrdata_omschr)) = UPPER ('Vervallen'));
-- INSERT INTO fac_usrdata (fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
-- SELECT DISTINCT 3, SUBSTR (ib.prs_dienst_omschrijving, 1, 40), SUBSTR (ib.prs_dienst_omschrijving, 1, 60)
-- FROM fac_imp_ext_bedrijf ib
-- WHERE NOT EXISTS
-- (SELECT 1
-- FROM fac_usrdata
-- WHERE fac_usrtab_key = 3 -- Lifecycle REL
-- AND UPPER (TRIM (fac_usrdata_omschr)) = UPPER (ib.prs_dienst_omschrijving));
-- COMMIT;
add_bedrijf (p_import_key);
del_bedrijf (p_import_key); -- Zet op Status-kenmerkveld op 'Vervallen'!