PCHD#41923 -- Crediteurgegevens overnemen uit de PCHD omgeving
svn path=/Customer/trunk/; revision=40564
This commit is contained in:
Arthur Egberink
702
PCHX/pchx.sql
702
PCHX/pchx.sql
@@ -2575,7 +2575,7 @@ NOTI_CODE,
|
|||||||
STATUS_OUD,
|
STATUS_OUD,
|
||||||
STATUS_NIEUW)
|
STATUS_NIEUW)
|
||||||
AS
|
AS
|
||||||
SELECT
|
SELECT
|
||||||
f.factuur_key,
|
f.factuur_key,
|
||||||
t.fac_tracking_key,
|
t.fac_tracking_key,
|
||||||
t.fac_tracking_datum,
|
t.fac_tracking_datum,
|
||||||
@@ -2628,12 +2628,12 @@ SELECT
|
|||||||
''
|
''
|
||||||
END
|
END
|
||||||
AS status_nieuw
|
AS status_nieuw
|
||||||
FROM fac_tracking t,
|
FROM fac_tracking t,
|
||||||
fac_srtnotificatie sn,
|
fac_srtnotificatie sn,
|
||||||
fin_v_udr_factuur f,
|
fin_v_udr_factuur f,
|
||||||
prs_v_perslid_fullnames_all p
|
prs_v_perslid_fullnames_all p
|
||||||
WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
|
WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
|
||||||
AND SUBSTR (sn.fac_srtnotificatie_code, 1, 3) = 'FIN'
|
AND SUBSTR (sn.fac_srtnotificatie_code, 1, 3) = 'FIN'
|
||||||
AND t.fac_tracking_refkey = f.factuur_key
|
AND t.fac_tracking_refkey = f.factuur_key
|
||||||
AND p.prs_perslid_key = t.prs_perslid_key;
|
AND p.prs_perslid_key = t.prs_perslid_key;
|
||||||
|
|
||||||
@@ -2695,9 +2695,9 @@ SELECT f.factuur_key,
|
|||||||
f.status,
|
f.status,
|
||||||
(SELECT t2.status_nieuw
|
(SELECT t2.status_nieuw
|
||||||
FROM pchx_v_fintrack t2
|
FROM pchx_v_fintrack t2
|
||||||
WHERE t2.tracking_key =
|
WHERE t2.tracking_key =
|
||||||
(SELECT MAX(t2.tracking_key)
|
(SELECT MAX(t2.tracking_key)
|
||||||
FROM pchx_v_fintrack t2
|
FROM pchx_v_fintrack t2
|
||||||
WHERE t2.status_nieuw IS NOT NULL
|
WHERE t2.status_nieuw IS NOT NULL
|
||||||
AND t2.tracking_key < t1.fac_tracking_key)) AS status_melding_afwijzing,
|
AND t2.tracking_key < t1.fac_tracking_key)) AS status_melding_afwijzing,
|
||||||
f.opmerking,
|
f.opmerking,
|
||||||
@@ -2706,7 +2706,7 @@ SELECT f.factuur_key,
|
|||||||
p.prs_perslid_naam_friendly,
|
p.prs_perslid_naam_friendly,
|
||||||
(SELECT ud.fac_usrdata_omschr
|
(SELECT ud.fac_usrdata_omschr
|
||||||
FROM fin_kenmerkfactuur kf, fin_kenmerk k, fac_kenmerkdomein fkd, fac_usrdata ud
|
FROM fin_kenmerkfactuur kf, fin_kenmerk k, fac_kenmerkdomein fkd, fac_usrdata ud
|
||||||
WHERE k.fin_kenmerk_key = 21 -- Key voor aanvullend gegeven Grootboekrekening
|
WHERE k.fin_kenmerk_key = 21 -- Key voor aanvullend gegeven Grootboekrekening
|
||||||
AND f.factuur_key = kf.fin_factuur_key
|
AND f.factuur_key = kf.fin_factuur_key
|
||||||
AND k.fin_kenmerk_key = kf.fin_kenmerk_key
|
AND k.fin_kenmerk_key = kf.fin_kenmerk_key
|
||||||
AND fkd.fac_kenmerkdomein_key = k.fac_kenmerkdomein_key
|
AND fkd.fac_kenmerkdomein_key = k.fac_kenmerkdomein_key
|
||||||
@@ -2714,13 +2714,13 @@ SELECT f.factuur_key,
|
|||||||
AND kf.fin_kenmerkfactuur_waarde = ud.fac_usrdata_key),
|
AND kf.fin_kenmerkfactuur_waarde = ud.fac_usrdata_key),
|
||||||
(SELECT b.prs_bedrijf_naam
|
(SELECT b.prs_bedrijf_naam
|
||||||
FROM fin_kenmerkfactuur kf, fin_kenmerk k, fac_kenmerkdomein fkd, pchx_v_fin_bedrijf b
|
FROM fin_kenmerkfactuur kf, fin_kenmerk k, fac_kenmerkdomein fkd, pchx_v_fin_bedrijf b
|
||||||
WHERE k.fin_kenmerk_key = 41 -- Key voor aanvullend gegeven Afw. bedrijf
|
WHERE k.fin_kenmerk_key = 41 -- Key voor aanvullend gegeven Afw. bedrijf
|
||||||
AND f.factuur_key = kf.fin_factuur_key
|
AND f.factuur_key = kf.fin_factuur_key
|
||||||
AND k.fin_kenmerk_key = kf.fin_kenmerk_key
|
AND k.fin_kenmerk_key = kf.fin_kenmerk_key
|
||||||
AND fkd.fac_kenmerkdomein_key = k.fac_kenmerkdomein_key
|
AND fkd.fac_kenmerkdomein_key = k.fac_kenmerkdomein_key
|
||||||
AND kf.fin_kenmerkfactuur_waarde = b.prs_bedrijf_key)
|
AND kf.fin_kenmerkfactuur_waarde = b.prs_bedrijf_key)
|
||||||
FROM fin_v_udr_factuur f,
|
FROM fin_v_udr_factuur f,
|
||||||
fac_tracking t1,
|
fac_tracking t1,
|
||||||
fac_srtnotificatie sn,
|
fac_srtnotificatie sn,
|
||||||
prs_v_perslid_fullnames_all p
|
prs_v_perslid_fullnames_all p
|
||||||
WHERE t1.fac_tracking_refkey = f.factuur_key
|
WHERE t1.fac_tracking_refkey = f.factuur_key
|
||||||
@@ -2728,6 +2728,692 @@ SELECT f.factuur_key,
|
|||||||
AND sn.fac_srtnotificatie_code = 'FINFNO'
|
AND sn.fac_srtnotificatie_code = 'FINFNO'
|
||||||
AND p.prs_perslid_key = t1.prs_perslid_key;
|
AND p.prs_perslid_key = t1.prs_perslid_key;
|
||||||
|
|
||||||
|
|
||||||
|
-- Koppeling om crediteurgegevens vanuit PCHD te verspreiden over de andere PCH omgevingen.
|
||||||
|
CREATE OR REPLACE PROCEDURE pchx_import_bedrijf_gegevens (
|
||||||
|
p_import_key NUMBER)
|
||||||
|
AS
|
||||||
|
CURSOR c
|
||||||
|
IS
|
||||||
|
SELECT *
|
||||||
|
FROM fac_imp_file
|
||||||
|
WHERE fac_import_key = p_import_key
|
||||||
|
ORDER BY fac_imp_file_index;
|
||||||
|
|
||||||
|
v_bedrijf_key VARCHAR2 (1000);
|
||||||
|
v_bedrijf_naam VARCHAR2 (1000);
|
||||||
|
v_bedrijf_post_adres VARCHAR2 (1000);
|
||||||
|
v_bedrijf_post_postcode VARCHAR2 (1000);
|
||||||
|
v_bedrijf_post_plaats VARCHAR2 (1000);
|
||||||
|
v_bedrijf_post_land VARCHAR2 (1000);
|
||||||
|
v_bedrijf_bezoek_adres VARCHAR2 (1000);
|
||||||
|
v_bedrijf_bezoek_postcode VARCHAR2 (1000);
|
||||||
|
v_bedrijf_bezoek_plaats VARCHAR2 (1000);
|
||||||
|
v_bedrijf_bezoek_land VARCHAR2 (1000);
|
||||||
|
v_bedrijf_telefoon VARCHAR2 (1000);
|
||||||
|
v_bedrijf_fax VARCHAR2 (1000);
|
||||||
|
v_bedrijf_telefoon2 VARCHAR2 (1000);
|
||||||
|
v_bedrijf_contact_persoon VARCHAR2 (1000);
|
||||||
|
v_bedrijf_contact_telefoon VARCHAR2 (1000);
|
||||||
|
v_bedrijf_contact_fax VARCHAR2 (1000);
|
||||||
|
v_bedrijf_opmerking VARCHAR2 (1000);
|
||||||
|
v_bedrijf_opmerking2 VARCHAR2 (1000);
|
||||||
|
v_bedrijf_uurloon VARCHAR2 (1000);
|
||||||
|
v_leverancier_nr VARCHAR2 (1000);
|
||||||
|
v_overeenkomst_nr VARCHAR2 (1000);
|
||||||
|
v_overeenkomst_datum VARCHAR2 (1000);
|
||||||
|
v_bedrijf_email VARCHAR2 (1000);
|
||||||
|
v_bedrijf_order_confirm VARCHAR2 (1000);
|
||||||
|
v_bedrijf_image_loc VARCHAR2 (1000);
|
||||||
|
v_bedrijf_details_loc VARCHAR2 (1000);
|
||||||
|
v_bedrijf_xmldetails_loc VARCHAR2 (1000);
|
||||||
|
v_bedrijf_xmlcatalogus_loc VARCHAR2 (1000);
|
||||||
|
v_bedrijf_bes_limiet VARCHAR2 (1000);
|
||||||
|
v_bedrijf_bes_kosten VARCHAR2 (1000);
|
||||||
|
v_bedrijf_aanmaak VARCHAR2 (1000);
|
||||||
|
v_bedrijf_verwijder VARCHAR2 (1000);
|
||||||
|
v_bedrijf_leverancier VARCHAR2 (1000);
|
||||||
|
v_bedrijf_uitvoerende VARCHAR2 (1000);
|
||||||
|
v_bedrijf_contract VARCHAR2 (1000);
|
||||||
|
v_bedrijf_intern VARCHAR2 (1000);
|
||||||
|
v_bedrijf_huurder VARCHAR2 (1000);
|
||||||
|
v_bedrijf_bezoeker VARCHAR2 (1000);
|
||||||
|
v_bedrijf_ingids VARCHAR2 (1000);
|
||||||
|
v_bedrijf_bes_factor VARCHAR2 (1000);
|
||||||
|
v_relatietype_omschrijving VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_key VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_type VARCHAR2 (1000);
|
||||||
|
v_typeopdr_omschrijving VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_url VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_ordermode VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_certificate VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_xsl VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_ext VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_username VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_password VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_attachfile VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_flexfiles VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_encoding VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_authmethod VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_soapversion VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_soapaction VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_lockuser_naam VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_locksecret VARCHAR2 (1000);
|
||||||
|
v_bedrijfadres_lockexpire VARCHAR2 (1000);
|
||||||
|
v_typeopdr_key NUMBER (10);
|
||||||
|
v_relatietype_key NUMBER (10);
|
||||||
|
v_bedrijfadres_lockuser_key NUMBER (10);
|
||||||
|
|
||||||
|
v_newline VARCHAR2 (4000); -- Import line
|
||||||
|
v_field VARCHAR2 (1000); -- Import field
|
||||||
|
v_fielddelimitor VARCHAR2 (1);
|
||||||
|
v_errormsg VARCHAR (200);
|
||||||
|
v_errorhint VARCHAR (200);
|
||||||
|
v_header_is_valid NUMBER (1) := 0;
|
||||||
|
oracle_err_num NUMBER;
|
||||||
|
oracle_err_mes VARCHAR2 (200);
|
||||||
|
BEGIN
|
||||||
|
v_fielddelimitor := ';';
|
||||||
|
|
||||||
|
DELETE pchx_imp_bedrijf_gegevens;
|
||||||
|
|
||||||
|
FOR rec IN c
|
||||||
|
LOOP
|
||||||
|
BEGIN
|
||||||
|
v_newline := rec.fac_imp_file_line;
|
||||||
|
|
||||||
|
IF v_header_is_valid = 1
|
||||||
|
THEN
|
||||||
|
fac.imp_getfield (v_newline, v_fielddelimitor, v_bedrijf_key);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_naam);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_post_adres);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_post_postcode);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_post_plaats);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_post_land);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_bezoek_adres);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_bezoek_postcode);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_bezoek_plaats);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_bezoek_land);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_telefoon);
|
||||||
|
fac.imp_getfield (v_newline, v_fielddelimitor, v_bedrijf_fax);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_telefoon2);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_contact_persoon);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_contact_telefoon);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_contact_fax);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_opmerking);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_opmerking2);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_uurloon);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_leverancier_nr);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_overeenkomst_nr);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_overeenkomst_datum);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_email);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_order_confirm);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_image_loc);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_details_loc);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_xmldetails_loc);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_xmlcatalogus_loc);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_bes_limiet);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_bes_kosten);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_aanmaak);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_verwijder);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_leverancier);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_uitvoerende);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_contract);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_intern);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_huurder);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_bezoeker);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_ingids);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijf_bes_factor);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_relatietype_omschrijving);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_key);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_type);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_typeopdr_omschrijving);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_url);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_ordermode);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_certificate);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_xsl);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_ext);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_username);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_password);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_attachfile);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_flexfiles);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_encoding);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_authmethod);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_soapversion);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_soapaction);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_lockuser_naam);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_locksecret);
|
||||||
|
fac.imp_getfield (v_newline,
|
||||||
|
v_fielddelimitor,
|
||||||
|
v_bedrijfadres_lockexpire);
|
||||||
|
|
||||||
|
|
||||||
|
SELECT MAX (prs_relatietype_key)
|
||||||
|
INTO v_relatietype_key
|
||||||
|
FROM prs_relatietype rt
|
||||||
|
WHERE UPPER (rt.prs_relatietype_omschrijving) =
|
||||||
|
UPPER (v_relatietype_omschrijving);
|
||||||
|
|
||||||
|
SELECT MAX (mld_typeopdr_key)
|
||||||
|
INTO v_typeopdr_key
|
||||||
|
FROM mld_typeopdr ot
|
||||||
|
WHERE UPPER (ot.mld_typeopdr_omschrijving) =
|
||||||
|
UPPER (v_typeopdr_omschrijving);
|
||||||
|
|
||||||
|
SELECT MAX (prs_perslid_key)
|
||||||
|
INTO v_bedrijfadres_lockuser_key
|
||||||
|
FROM prs_perslid p
|
||||||
|
WHERE UPPER (p.prs_perslid_naam) =
|
||||||
|
UPPER (v_bedrijfadres_lockuser_naam);
|
||||||
|
|
||||||
|
INSERT INTO pchx_imp_bedrijf_gegevens (
|
||||||
|
prs_bedrijf_key,
|
||||||
|
prs_bedrijf_naam,
|
||||||
|
prs_bedrijf_post_adres,
|
||||||
|
prs_bedrijf_post_postcode,
|
||||||
|
prs_bedrijf_post_plaats,
|
||||||
|
prs_bedrijf_post_land,
|
||||||
|
prs_bedrijf_bezoek_adres,
|
||||||
|
prs_bedrijf_bezoek_postcode,
|
||||||
|
prs_bedrijf_bezoek_plaats,
|
||||||
|
prs_bedrijf_bezoek_land,
|
||||||
|
prs_bedrijf_telefoon,
|
||||||
|
prs_bedrijf_fax,
|
||||||
|
prs_bedrijf_telefoon2,
|
||||||
|
prs_bedrijf_contact_persoon,
|
||||||
|
prs_bedrijf_contact_telefoon,
|
||||||
|
prs_bedrijf_contact_fax,
|
||||||
|
prs_bedrijf_opmerking,
|
||||||
|
prs_bedrijf_opmerking2,
|
||||||
|
prs_bedrijf_uurloon,
|
||||||
|
prs_leverancier_nr,
|
||||||
|
prs_overeenkomst_nr,
|
||||||
|
prs_overeenkomst_datum,
|
||||||
|
prs_bedrijf_email,
|
||||||
|
prs_bedrijf_order_confirm,
|
||||||
|
prs_bedrijf_image_loc,
|
||||||
|
prs_bedrijf_details_loc,
|
||||||
|
prs_bedrijf_xmldetails_loc,
|
||||||
|
prs_bedrijf_xmlcatalogus_loc,
|
||||||
|
prs_bedrijf_bes_limiet,
|
||||||
|
prs_bedrijf_bes_kosten,
|
||||||
|
prs_bedrijf_aanmaak,
|
||||||
|
prs_bedrijf_verwijder,
|
||||||
|
prs_bedrijf_leverancier,
|
||||||
|
prs_bedrijf_uitvoerende,
|
||||||
|
prs_bedrijf_contract,
|
||||||
|
prs_bedrijf_intern,
|
||||||
|
prs_bedrijf_huurder,
|
||||||
|
prs_bedrijf_bezoeker,
|
||||||
|
prs_bedrijf_ingids,
|
||||||
|
prs_bedrijf_bes_factor,
|
||||||
|
prs_relatietype_key,
|
||||||
|
prs_bedrijfadres_key,
|
||||||
|
prs_bedrijfadres_type,
|
||||||
|
mld_typeopdr_key,
|
||||||
|
prs_bedrijfadres_url,
|
||||||
|
prs_bedrijfadres_ordermode,
|
||||||
|
prs_bedrijfadres_certificate,
|
||||||
|
prs_bedrijfadres_xsl,
|
||||||
|
prs_bedrijfadres_ext,
|
||||||
|
prs_bedrijfadres_username,
|
||||||
|
prs_bedrijfadres_password,
|
||||||
|
prs_bedrijfadres_attachfile,
|
||||||
|
prs_bedrijfadres_flexfiles,
|
||||||
|
prs_bedrijfadres_encoding,
|
||||||
|
prs_bedrijfadres_authmethod,
|
||||||
|
prs_bedrijfadres_soapversion,
|
||||||
|
prs_bedrijfadres_soapaction,
|
||||||
|
prs_bedrijfadres_lockuser_key,
|
||||||
|
prs_bedrijfadres_locksecret,
|
||||||
|
prs_bedrijfadres_lockexpire)
|
||||||
|
VALUES (
|
||||||
|
v_bedrijf_key,
|
||||||
|
v_bedrijf_naam,
|
||||||
|
v_bedrijf_post_adres,
|
||||||
|
v_bedrijf_post_postcode,
|
||||||
|
v_bedrijf_post_plaats,
|
||||||
|
v_bedrijf_post_land,
|
||||||
|
v_bedrijf_bezoek_adres,
|
||||||
|
v_bedrijf_bezoek_postcode,
|
||||||
|
v_bedrijf_bezoek_plaats,
|
||||||
|
v_bedrijf_bezoek_land,
|
||||||
|
v_bedrijf_telefoon,
|
||||||
|
v_bedrijf_fax,
|
||||||
|
v_bedrijf_telefoon2,
|
||||||
|
v_bedrijf_contact_persoon,
|
||||||
|
v_bedrijf_contact_telefoon,
|
||||||
|
v_bedrijf_contact_fax,
|
||||||
|
v_bedrijf_opmerking,
|
||||||
|
v_bedrijf_opmerking2,
|
||||||
|
FAC.safe_to_number(REPLACE(v_bedrijf_uurloon, ',', '.')),
|
||||||
|
v_leverancier_nr,
|
||||||
|
v_overeenkomst_nr,
|
||||||
|
FAC.safe_to_date (
|
||||||
|
v_overeenkomst_datum,
|
||||||
|
'yyyy-mm-dd hh24:mi:ss'),
|
||||||
|
v_bedrijf_email,
|
||||||
|
v_bedrijf_order_confirm,
|
||||||
|
v_bedrijf_image_loc,
|
||||||
|
v_bedrijf_details_loc,
|
||||||
|
v_bedrijf_xmldetails_loc,
|
||||||
|
v_bedrijf_xmlcatalogus_loc,
|
||||||
|
FAC.safe_to_number(REPLACE(v_bedrijf_bes_limiet, ',', '.')),
|
||||||
|
FAC.safe_to_number(REPLACE(v_bedrijf_bes_kosten, ',', '.')),
|
||||||
|
FAC.safe_to_date (
|
||||||
|
v_bedrijf_aanmaak,
|
||||||
|
'yyyy-mm-dd hh24:mi:ss'),
|
||||||
|
FAC.safe_to_date (
|
||||||
|
v_bedrijf_verwijder,
|
||||||
|
'yyyy-mm-dd hh24:mi:ss'),
|
||||||
|
v_bedrijf_leverancier,
|
||||||
|
v_bedrijf_uitvoerende,
|
||||||
|
v_bedrijf_contract,
|
||||||
|
v_bedrijf_intern,
|
||||||
|
v_bedrijf_huurder,
|
||||||
|
v_bedrijf_bezoeker,
|
||||||
|
v_bedrijf_ingids,
|
||||||
|
FAC.safe_to_number(REPLACE(v_bedrijf_bes_factor, ',', '.')),
|
||||||
|
v_relatietype_key,
|
||||||
|
v_bedrijfadres_key,
|
||||||
|
v_bedrijfadres_type,
|
||||||
|
v_typeopdr_key,
|
||||||
|
v_bedrijfadres_url,
|
||||||
|
v_bedrijfadres_ordermode,
|
||||||
|
v_bedrijfadres_certificate,
|
||||||
|
v_bedrijfadres_xsl,
|
||||||
|
v_bedrijfadres_ext,
|
||||||
|
v_bedrijfadres_username,
|
||||||
|
v_bedrijfadres_password,
|
||||||
|
v_bedrijfadres_attachfile,
|
||||||
|
v_bedrijfadres_flexfiles,
|
||||||
|
v_bedrijfadres_encoding,
|
||||||
|
v_bedrijfadres_authmethod,
|
||||||
|
v_bedrijfadres_soapversion,
|
||||||
|
v_bedrijfadres_soapaction,
|
||||||
|
v_bedrijfadres_lockuser_key,
|
||||||
|
v_bedrijfadres_locksecret,
|
||||||
|
v_bedrijfadres_lockexpire);
|
||||||
|
ELSE
|
||||||
|
IF LOWER (v_newline) LIKE
|
||||||
|
'prs_bedrijf_key;prs_bedrijf_naam;prs_bedrijf_post_adres;prs_bedrijf_post_postcode;prs_bedrijf_post_plaats;prs_bedrijf_post_land;prs_bedrijf_bezoek_adres;prs_bedrijf_bezoek_postcode;prs_bedrijf_bezoek_plaats;prs_bedrijf_bezoek_land;prs_bedrijf_telefoon;prs_bedrijf_fax;prs_bedrijf_telefoon2;prs_bedrijf_contact_persoon;prs_bedrijf_contact_telefoon;prs_bedrijf_contact_fax;prs_bedrijf_opmerking;prs_bedrijf_opmerking2;prs_bedrijf_uurloon;prs_leverancier_nr;prs_overeenkomst_nr;prs_overeenkomst_datum;prs_bedrijf_email;prs_bedrijf_order_confirm;prs_bedrijf_image_loc;prs_bedrijf_details_loc;prs_bedrijf_xmldetails_loc;prs_bedrijf_xmlcatalogus_loc;prs_bedrijf_bes_limiet;prs_bedrijf_bes_kosten;prs_bedrijf_aanmaak;prs_bedrijf_verwijder;prs_bedrijf_leverancier;prs_bedrijf_uitvoerende;prs_bedrijf_contract;prs_bedrijf_intern;prs_bedrijf_huurder;prs_bedrijf_bezoeker;prs_bedrijf_ingids;prs_bedrijf_bes_factor;prs_relatietype_omschrijving;prs_bedrijfadres_key;prs_bedrijfadres_type;mld_typeopdr_omschrijving;prs_bedrijfadres_url;prs_bedrijfadres_ordermode;prs_bedrijfadres_certificate;prs_bedrijfadres_xsl;prs_bedrijfadres_ext;prs_bedrijfadres_username;prs_bedrijfadres_password;prs_bedrijfadres_attachfile;prs_bedrijfadres_flexfiles;prs_bedrijfadres_encoding;prs_bedrijfadres_authmethod;prs_bedrijfadres_soapversion;prs_bedrijfadres_soapaction;bedrijfadres_lockuser_naam;prs_bedrijfadres_locksecret;prs_bedrijfadres_lockexpire%'
|
||||||
|
THEN
|
||||||
|
v_header_is_valid := 1;
|
||||||
|
END IF;
|
||||||
|
END IF;
|
||||||
|
END;
|
||||||
|
END LOOP;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS
|
||||||
|
THEN
|
||||||
|
oracle_err_num := SQLCODE;
|
||||||
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||||
|
v_errormsg :=
|
||||||
|
'OTHERS (error '
|
||||||
|
|| oracle_err_num
|
||||||
|
|| '/'
|
||||||
|
|| oracle_err_mes
|
||||||
|
|| ')';
|
||||||
|
fac.imp_writelog (p_import_key,
|
||||||
|
'E',
|
||||||
|
SUBSTR (v_errormsg, 1, 1000),
|
||||||
|
'');
|
||||||
|
END;
|
||||||
|
/
|
||||||
|
|
||||||
|
|
||||||
|
CREATE OR REPLACE PROCEDURE pchx_update_bedrijf_gegevens (
|
||||||
|
p_import_key NUMBER)
|
||||||
|
AS
|
||||||
|
CURSOR c
|
||||||
|
IS
|
||||||
|
SELECT DISTINCT prs_bedrijf_key,
|
||||||
|
prs_bedrijf_naam,
|
||||||
|
prs_bedrijf_post_adres,
|
||||||
|
prs_bedrijf_post_postcode,
|
||||||
|
prs_bedrijf_post_plaats,
|
||||||
|
prs_bedrijf_post_land,
|
||||||
|
prs_bedrijf_bezoek_adres,
|
||||||
|
prs_bedrijf_bezoek_postcode,
|
||||||
|
prs_bedrijf_bezoek_plaats,
|
||||||
|
prs_bedrijf_bezoek_land,
|
||||||
|
prs_bedrijf_telefoon,
|
||||||
|
prs_bedrijf_fax,
|
||||||
|
prs_bedrijf_telefoon2,
|
||||||
|
prs_bedrijf_contact_persoon,
|
||||||
|
prs_bedrijf_contact_telefoon,
|
||||||
|
prs_bedrijf_contact_fax,
|
||||||
|
prs_bedrijf_opmerking,
|
||||||
|
prs_bedrijf_opmerking2,
|
||||||
|
prs_bedrijf_uurloon,
|
||||||
|
prs_leverancier_nr,
|
||||||
|
prs_overeenkomst_nr,
|
||||||
|
prs_overeenkomst_datum,
|
||||||
|
prs_bedrijf_email,
|
||||||
|
prs_bedrijf_order_confirm,
|
||||||
|
prs_bedrijf_image_loc,
|
||||||
|
prs_bedrijf_details_loc,
|
||||||
|
prs_bedrijf_xmldetails_loc,
|
||||||
|
prs_bedrijf_xmlcatalogus_loc,
|
||||||
|
prs_bedrijf_bes_limiet,
|
||||||
|
prs_bedrijf_bes_kosten,
|
||||||
|
prs_bedrijf_aanmaak,
|
||||||
|
prs_bedrijf_verwijder,
|
||||||
|
prs_bedrijf_leverancier,
|
||||||
|
prs_bedrijf_uitvoerende,
|
||||||
|
prs_bedrijf_contract,
|
||||||
|
prs_bedrijf_intern,
|
||||||
|
prs_bedrijf_huurder,
|
||||||
|
prs_bedrijf_bezoeker,
|
||||||
|
prs_bedrijf_ingids,
|
||||||
|
prs_bedrijf_bes_factor,
|
||||||
|
prs_relatietype_key
|
||||||
|
FROM pchx_imp_bedrijf_gegevens;
|
||||||
|
|
||||||
|
CURSOR c_addr(c_bedrijf_key NUMBER)
|
||||||
|
IS
|
||||||
|
SELECT DISTINCT prs_bedrijfadres_type,
|
||||||
|
mld_typeopdr_key,
|
||||||
|
prs_bedrijfadres_url,
|
||||||
|
prs_bedrijfadres_ordermode,
|
||||||
|
prs_bedrijfadres_certificate,
|
||||||
|
prs_bedrijfadres_xsl,
|
||||||
|
prs_bedrijfadres_ext,
|
||||||
|
prs_bedrijfadres_username,
|
||||||
|
prs_bedrijfadres_password,
|
||||||
|
prs_bedrijfadres_attachfile,
|
||||||
|
prs_bedrijfadres_flexfiles,
|
||||||
|
prs_bedrijfadres_encoding,
|
||||||
|
prs_bedrijfadres_authmethod,
|
||||||
|
prs_bedrijfadres_soapversion,
|
||||||
|
prs_bedrijfadres_soapaction,
|
||||||
|
prs_bedrijfadres_lockuser_key,
|
||||||
|
prs_bedrijfadres_locksecret,
|
||||||
|
prs_bedrijfadres_lockexpire
|
||||||
|
FROM pchx_imp_bedrijf_gegevens
|
||||||
|
WHERE prs_bedrijf_key = c_bedrijf_key;
|
||||||
|
|
||||||
|
|
||||||
|
v_leverancier_nr prs_bedrijf.prs_leverancier_nr%TYPE;
|
||||||
|
v_bedrijf_key prs_bedrijf.prs_bedrijf_key%TYPE;
|
||||||
|
v_bedrijf_key_pchd prs_bedrijf.prs_bedrijf_key%TYPE;
|
||||||
|
|
||||||
|
v_errormsg VARCHAR (200);
|
||||||
|
v_errorhint VARCHAR (200);
|
||||||
|
oracle_err_num NUMBER;
|
||||||
|
oracle_err_mes VARCHAR2 (200);
|
||||||
|
BEGIN
|
||||||
|
FOR rec IN c
|
||||||
|
LOOP
|
||||||
|
BEGIN
|
||||||
|
v_bedrijf_key_pchd := rec.prs_bedrijf_key;
|
||||||
|
|
||||||
|
SELECT prs_bedrijf_key
|
||||||
|
INTO v_bedrijf_key
|
||||||
|
FROM prs_bedrijf
|
||||||
|
WHERE prs_leverancier_nr = rec.prs_leverancier_nr;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN NO_DATA_FOUND
|
||||||
|
THEN
|
||||||
|
INSERT INTO prs_bedrijf (prs_bedrijf_naam,
|
||||||
|
prs_bedrijf_post_adres,
|
||||||
|
prs_bedrijf_post_postcode,
|
||||||
|
prs_bedrijf_post_plaats,
|
||||||
|
prs_bedrijf_post_land,
|
||||||
|
prs_bedrijf_bezoek_adres,
|
||||||
|
prs_bedrijf_bezoek_postcode,
|
||||||
|
prs_bedrijf_bezoek_plaats,
|
||||||
|
prs_bedrijf_bezoek_land,
|
||||||
|
prs_bedrijf_telefoon,
|
||||||
|
prs_bedrijf_fax,
|
||||||
|
prs_bedrijf_telefoon2,
|
||||||
|
prs_bedrijf_contact_persoon,
|
||||||
|
prs_bedrijf_contact_telefoon,
|
||||||
|
prs_bedrijf_contact_fax,
|
||||||
|
prs_bedrijf_opmerking,
|
||||||
|
prs_bedrijf_opmerking2,
|
||||||
|
prs_bedrijf_uurloon,
|
||||||
|
prs_leverancier_nr,
|
||||||
|
prs_overeenkomst_nr,
|
||||||
|
prs_overeenkomst_datum,
|
||||||
|
prs_bedrijf_email,
|
||||||
|
prs_bedrijf_order_confirm,
|
||||||
|
prs_bedrijf_image_loc,
|
||||||
|
prs_bedrijf_details_loc,
|
||||||
|
prs_bedrijf_xmldetails_loc,
|
||||||
|
prs_bedrijf_xmlcatalogus_loc,
|
||||||
|
prs_bedrijf_bes_limiet,
|
||||||
|
prs_bedrijf_bes_kosten,
|
||||||
|
prs_bedrijf_aanmaak,
|
||||||
|
prs_bedrijf_verwijder,
|
||||||
|
prs_bedrijf_leverancier,
|
||||||
|
prs_bedrijf_uitvoerende,
|
||||||
|
prs_bedrijf_contract,
|
||||||
|
prs_bedrijf_intern,
|
||||||
|
prs_bedrijf_huurder,
|
||||||
|
prs_bedrijf_bezoeker,
|
||||||
|
prs_bedrijf_ingids,
|
||||||
|
prs_bedrijf_bes_factor,
|
||||||
|
prs_relatietype_key)
|
||||||
|
VALUES (rec.prs_bedrijf_naam,
|
||||||
|
rec.prs_bedrijf_post_adres,
|
||||||
|
rec.prs_bedrijf_post_postcode,
|
||||||
|
rec.prs_bedrijf_post_plaats,
|
||||||
|
rec.prs_bedrijf_post_land,
|
||||||
|
rec.prs_bedrijf_bezoek_adres,
|
||||||
|
rec.prs_bedrijf_bezoek_postcode,
|
||||||
|
rec.prs_bedrijf_bezoek_plaats,
|
||||||
|
rec.prs_bedrijf_bezoek_land,
|
||||||
|
rec.prs_bedrijf_telefoon,
|
||||||
|
rec.prs_bedrijf_fax,
|
||||||
|
rec.prs_bedrijf_telefoon2,
|
||||||
|
rec.prs_bedrijf_contact_persoon,
|
||||||
|
rec.prs_bedrijf_contact_telefoon,
|
||||||
|
rec.prs_bedrijf_contact_fax,
|
||||||
|
rec.prs_bedrijf_opmerking,
|
||||||
|
rec.prs_bedrijf_opmerking2,
|
||||||
|
rec.prs_bedrijf_uurloon,
|
||||||
|
rec.prs_leverancier_nr,
|
||||||
|
rec.prs_overeenkomst_nr,
|
||||||
|
rec.prs_overeenkomst_datum,
|
||||||
|
rec.prs_bedrijf_email,
|
||||||
|
rec.prs_bedrijf_order_confirm,
|
||||||
|
rec.prs_bedrijf_image_loc,
|
||||||
|
rec.prs_bedrijf_details_loc,
|
||||||
|
rec.prs_bedrijf_xmldetails_loc,
|
||||||
|
rec.prs_bedrijf_xmlcatalogus_loc,
|
||||||
|
rec.prs_bedrijf_bes_limiet,
|
||||||
|
rec.prs_bedrijf_bes_kosten,
|
||||||
|
rec.prs_bedrijf_aanmaak,
|
||||||
|
rec.prs_bedrijf_verwijder,
|
||||||
|
rec.prs_bedrijf_leverancier,
|
||||||
|
rec.prs_bedrijf_uitvoerende,
|
||||||
|
rec.prs_bedrijf_contract,
|
||||||
|
rec.prs_bedrijf_intern,
|
||||||
|
rec.prs_bedrijf_huurder,
|
||||||
|
rec.prs_bedrijf_bezoeker,
|
||||||
|
rec.prs_bedrijf_ingids,
|
||||||
|
rec.prs_bedrijf_bes_factor,
|
||||||
|
rec.prs_relatietype_key)
|
||||||
|
RETURNING prs_bedrijf_key INTO v_bedrijf_key;
|
||||||
|
|
||||||
|
FOR rec1 IN c_addr(v_bedrijf_key_pchd)
|
||||||
|
LOOP
|
||||||
|
INSERT INTO prs_bedrijfadres (prs_bedrijf_key,
|
||||||
|
prs_bedrijfadres_type,
|
||||||
|
mld_typeopdr_key,
|
||||||
|
prs_bedrijfadres_url,
|
||||||
|
prs_bedrijfadres_ordermode,
|
||||||
|
prs_bedrijfadres_certificate,
|
||||||
|
prs_bedrijfadres_xsl,
|
||||||
|
prs_bedrijfadres_ext,
|
||||||
|
prs_bedrijfadres_username,
|
||||||
|
prs_bedrijfadres_password,
|
||||||
|
prs_bedrijfadres_attachfile,
|
||||||
|
prs_bedrijfadres_flexfiles,
|
||||||
|
prs_bedrijfadres_encoding,
|
||||||
|
prs_bedrijfadres_authmethod,
|
||||||
|
prs_bedrijfadres_soapversion,
|
||||||
|
prs_bedrijfadres_soapaction,
|
||||||
|
prs_bedrijfadres_lockuser_key,
|
||||||
|
prs_bedrijfadres_locksecret,
|
||||||
|
prs_bedrijfadres_lockexpire)
|
||||||
|
VALUES (v_bedrijf_key,
|
||||||
|
rec1.prs_bedrijfadres_type,
|
||||||
|
rec1.mld_typeopdr_key,
|
||||||
|
rec1.prs_bedrijfadres_url,
|
||||||
|
rec1.prs_bedrijfadres_ordermode,
|
||||||
|
rec1.prs_bedrijfadres_certificate,
|
||||||
|
rec1.prs_bedrijfadres_xsl,
|
||||||
|
rec1.prs_bedrijfadres_ext,
|
||||||
|
rec1.prs_bedrijfadres_username,
|
||||||
|
rec1.prs_bedrijfadres_password,
|
||||||
|
rec1.prs_bedrijfadres_attachfile,
|
||||||
|
rec1.prs_bedrijfadres_flexfiles,
|
||||||
|
rec1.prs_bedrijfadres_encoding,
|
||||||
|
rec1.prs_bedrijfadres_authmethod,
|
||||||
|
rec1.prs_bedrijfadres_soapversion,
|
||||||
|
rec1.prs_bedrijfadres_soapaction,
|
||||||
|
rec1.prs_bedrijfadres_lockuser_key,
|
||||||
|
rec1.prs_bedrijfadres_locksecret,
|
||||||
|
rec1.prs_bedrijfadres_lockexpire);
|
||||||
|
|
||||||
|
END LOOP;
|
||||||
|
|
||||||
|
END;
|
||||||
|
END LOOP;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS
|
||||||
|
THEN
|
||||||
|
oracle_err_num := SQLCODE;
|
||||||
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||||
|
v_errormsg :=
|
||||||
|
'OTHERS (error '
|
||||||
|
|| oracle_err_num
|
||||||
|
|| '/'
|
||||||
|
|| oracle_err_mes
|
||||||
|
|| ')';
|
||||||
|
fac.imp_writelog (p_import_key,
|
||||||
|
'E',
|
||||||
|
SUBSTR (v_errormsg, 1, 1000),
|
||||||
|
'');
|
||||||
|
END;
|
||||||
|
/
|
||||||
|
|
||||||
------ payload end ------
|
------ payload end ------
|
||||||
|
|
||||||
SET DEFINE OFF
|
SET DEFINE OFF
|
||||||
|
|||||||
Reference in New Issue
Block a user