90 lines
3.2 KiB
SQL
90 lines
3.2 KiB
SQL
--
|
|
-- $Id: PCHE#62772.sql 36063 2020-06-15 12:50:05Z sandersc$
|
|
--
|
|
-- Zet facturen van een bepaalde dag weer klaar om aangemaakt te worden (PDF) en verzonden wordt.
|
|
|
|
DEFINE thisfile = 'PCHE#62772.SQL'
|
|
DEFINE dbuser = '^PCHE'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE ON
|
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
|
WHENEVER SQLERROR EXIT;
|
|
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
SPOOL &fcltlogfile
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
DECLARE
|
|
|
|
-- Onderstaande cursor bepaalt welke facturen klaargezet moeten worden.
|
|
CURSOR c_noti
|
|
IS
|
|
SELECT vk.fin_verkoopfactuurkop_key,
|
|
vk.fin_verkoopfactuurkop_id,
|
|
fin_verkoopfactuur_c2,
|
|
fin_verkoopfactuur_c5
|
|
FROM fin_verkoopfactuur v, fin_verkoopfactuurkop vk
|
|
WHERE v.fin_verkoopfactuurkop_key = vk.fin_verkoopfactuurkop_key
|
|
AND TO_CHAR (v.fin_verkoopfactuur_aanmaak, 'YYYY-MM-DD') =
|
|
'2020-05-25'
|
|
GROUP BY vk.fin_verkoopfactuurkop_key,
|
|
vk.fin_verkoopfactuurkop_id,
|
|
fin_verkoopfactuur_c2,
|
|
fin_verkoopfactuur_c5;
|
|
|
|
BEGIN
|
|
-- facturen klaarzetten voor verzenden (via PCHE_SELECT_EXACT_OUTPUT).
|
|
FOR rec IN c_noti
|
|
LOOP
|
|
BEGIN
|
|
|
|
-- CUST01 notificatie heeft key 181
|
|
-- Datum van de notificatie wordt op middernacht gezet om er voor te zorgen dat na kantooruren de pdf generatie
|
|
-- kan plaatsvinden.
|
|
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
|
|
fac_notificatie_status,
|
|
fac_notificatie_receiver_email,
|
|
fac_notificatie_oms,
|
|
fac_notificatie_refkey,
|
|
fac_notificatie_prioriteit,
|
|
fac_notificatie_attachments,
|
|
fac_notificatie_datum)
|
|
VALUES (181,
|
|
2, -- mail
|
|
rec.fin_verkoopfactuur_c2, -- email
|
|
'Factuur parking Strijp-S',
|
|
rec.fin_verkoopfactuurkop_key,
|
|
2,
|
|
'/../../Fplace5i/CUST/PCHE/export/PDF/' || rec.fin_verkoopfactuur_c5,
|
|
TRUNC(SYSDATE)+1);
|
|
|
|
-- Normaal wordt ook de factuurdatum op huidige dag gezet. Deze verkoopfacturen hebben al een datum (25 mei), die houden we aan
|
|
-- UPDATE fin_verkoopfactuur
|
|
-- SET fin_verkoopfactuur_d5 = SYSDATE
|
|
-- WHERE fin_verkoopfactuurkop_key = rec.fin_verkoopfactuurkop_key;
|
|
|
|
EXCEPTION WHEN OTHERS
|
|
THEN
|
|
fac.writelog ('EXACT_OUTPUT', 'E', 'Overwachte fout bij notificeren: ' || rec.fin_verkoopfactuurkop_key || ' (' || rec.fin_verkoopfactuur_c2 || ')', '');
|
|
END;
|
|
END LOOP;
|
|
|
|
END;
|
|
/
|
|
|
|
------ payload end ------
|
|
|
|
SET DEFINE OFF
|
|
BEGIN adm.systrackscriptId ('$Id: PCHE#62772.sql 36063 2020-06-15 12:50:05Z sandersc$', 1); END;
|
|
/
|
|
|
|
COMMIT;
|
|
SET ECHO OFF
|
|
SPOOL OFF
|
|
SET DEFINE ON
|
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|
|
|
|
--@@ &custid |