
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-----------------------
-----------------------
-----------------------  Aansluiten van een nieuwe leverancier/aannemer
-----------------------
-----------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

SPOOL mareon_ini_nieuwe_aannemer.lst

--ONDERSTAANDE HANDMATIG AANMAKEN VOOR NIEUWE LEVERANCIER....

-- Stap om als leverancier/aannemer gebruik te kunnen maken van Aannemersportaal, altijd leverancier toevoegen, m.n. het prs_leverancier_nr vullen met supplier-id uit AX.

INSERT INTO prs_bedrijf (prs_bedrijf_naam, prs_leverancier_nr, prs_overeenkomst_nr, prs_bedrijf_uitvoerende) VALUES ('&Aannemer_bedrijfs_naam', '&GLN_of_GS1_nummer', '&AX_supplier_id', 1);
PROMPT Vul de andere (NAW)leveranciergegevens eventueel in via relatiebeheer....

-- Stap om als leverancier/aannemer gebruik te kunnen maken om digitaal facturen (e-invoice) te kunnen insturen.

INSERT INTO prs_perslid(prs_perslid_module, prs_srtperslid_key, prs_afdeling_key, prs_perslid_naam, prs_perslid_oslogin, prs_perslid_apikey)
SELECT 'PRS', 1, 1, prs_bedrijf_naam, prs_bedrijf_naam, dbms_random.STRING('x',32)
FROM prs_bedrijf
WHERE prs_bedrijf_key = (SELECT MAX(prs_bedrijf_key) FROM prs_bedrijf);

PROMPT Api-key:
SELECT prs_perslid_apikey FROM prs_perslid
WHERE prs_perslid_key = (SELECT MAX(prs_perslid_key) FROM prs_perslid);

INSERT INTO prs_contactpersoon (prs_contactpersoon_naam, prs_bedrijf_key, prs_perslid_key)
SELECT 
    (SELECT prs_bedrijf_naam FROM prs_bedrijf WHERE prs_bedrijf_key = (SELECT MAX(prs_bedrijf_key) FROM prs_bedrijf)),
    (SELECT MAX(prs_bedrijf_key) FROM prs_bedrijf),
    (SELECT MAX(prs_perslid_key) FROM prs_perslid)
FROM DUAL;
    

-- fac_groep_key 3 is gereserveerd voor aannemer/leverancier
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
SELECT 4, MAX(prs_perslid_key) FROM prs_perslid;



COMMIT;

SPOOL OFF