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

BLCC#53262 Facturatie additionele diensten

Browse Source 
svn path=/Customer/trunk/; revision=38501
This commit is contained in:
Maarten van der Heide
2018-07-13 14:51:17 +00:00
parent 41c4175cbf
commit 756b0aae5c
1 changed files with 186 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

236
BLCC/blcc.sql
View File

@@ -925,7 +925,8 @@ BEGIN
-- IF nacht na 1e werkdag van de maand (<28>n geen weekend <20>n geen vrije dag)!
-- count_work_days (d1,d2) bepaalt het #werkdagen van d1 tot d2 (als d1=d2,
-- dan return 0); daarom bepalen tov. laatste dag van vorige maand!
IF FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 10
/*
IF FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 99 -- TODO: 10
AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
AND v_holiday = 0
THEN
@@ -1014,7 +1015,7 @@ BEGIN
END;
END LOOP;
END IF;
*/
v_order_count := 0;
v_amount_sum := 0;
FOR rec IN c3
@@ -1972,7 +1973,7 @@ AS -- View bevat alleen inhoud op de dag na de 1e werkdag van de maand!
|| ';vrij_tekstveld_3',
0
FROM DUAL
WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 10
WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 99 -- TODO: Export/view ontmantelen!
AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
AND NOT EXISTS
(SELECT 1
@@ -2041,13 +2042,14 @@ AS -- View bevat alleen inhoud op de dag na de 1e werkdag van de maand!
ORDER BY debiteur,
fclt_x_maand || '-' || SUBSTR (factuurdatum, 1, 2),
grootboek)
WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 10
WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 99 -- TODO: Export/view ontmantelen!
AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
AND NOT EXISTS
(SELECT 1
FROM mld_vrije_dagen
WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (SYSDATE - 1));
-- TODO: Export/view ontmantelen!
/* Formatted on 30-9-2015 10:20:30 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PROCEDURE blcc_select_twinfield (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
@@ -2109,7 +2111,7 @@ BEGIN
-- IF nacht na 1e werkdag van de maand (<28>n geen weekend <20>n geen vrije dag)!
-- count_work_days (d1,d2) bepaalt het #werkdagen van d1 tot d2 (als d1=d2,
-- dan return 0); daarom bepalen tov. laatste dag van vorige maand!
IF FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 10
IF FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 99 -- TODO: Export/view ontmantelen!
AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
AND v_holiday = 0
THEN
@@ -2193,7 +2195,7 @@ AS
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
TRIM (COALESCE (x.cnt_contract_nummer, '-')) po_nr,
x.cnt_contract_nummer_intern || '.' || COALESCE (x.cnt_contract_versie, '0') contract_id,
'1' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) sortering,
'1' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) || x.prs_kostensoort_refcode || x.res_voorziening sortering,
'Crossing campus (banqueting)' regel,
'V' || x.res_id regel_id,
TO_CHAR (x.aantal) || 'x ' || x.res_voorziening regel_oms,
@@ -2364,7 +2366,7 @@ AS
GROUP BY '*CONCEPT*',
TRIM (COALESCE (x.cnt_contract_nummer, '-')),
x.cnt_contract_nummer_intern || '.' || COALESCE (x.cnt_contract_versie, '0'),
'1' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr),
'1' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) || x.prs_kostensoort_refcode || x.res_voorziening,
'Crossing campus (banqueting)',
'V' || x.res_id,
TO_CHAR (x.aantal) || 'x ' || x.res_voorziening,
@@ -2391,7 +2393,7 @@ AS
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
TRIM (COALESCE (x.res_kenmerkreservering_waarde, '-')) po_nr,
NULL contract_id,
'2' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) sortering,
'2' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) || x.prs_kostensoort_refcode || x.res_voorziening sortering,
'Event ' || x.res_id regel,
'E' || x.res_id regel_id,
DECODE (x.volgnr, 0, x.res_voorziening || ' [' || TO_CHAR (ROUND (x.aantal, 2)) || ' uur]', 2, TO_CHAR (x.aantal) || 'x ' || x.res_voorziening, x.res_voorziening) regel_oms,
@@ -2756,7 +2758,7 @@ AS
GROUP BY '*CONCEPT*',
TRIM (COALESCE (x.res_kenmerkreservering_waarde, '-')),
NULL,
'2' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr),
'2' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) || x.prs_kostensoort_refcode || x.res_voorziening,
'Event ' || x.res_id,
'E' || x.res_id,
DECODE (x.volgnr, 0, x.res_voorziening || ' [' || TO_CHAR (ROUND (x.aantal, 2)) || ' uur]', 2, TO_CHAR (x.aantal) || 'x ' || x.res_voorziening, x.res_voorziening),
@@ -2788,7 +2790,7 @@ AS
'Klantwens ' || sd.ins_srtdiscipline_prefix || TO_CHAR (o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) regel,
sd.ins_srtdiscipline_prefix || TO_CHAR (o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) regel_id,
--td.ins_discipline_omschrijving || '/' || sm.mld_stdmelding_omschrijving regel_oms,
DECODE (m.mld_melding_onderwerp, NULL, '', 'Subject: ' || m.mld_melding_onderwerp || CHR (13) || CHR (10)) || 'Description: ' || COALESCE (m.mld_melding_omschrijving, '-')
DECODE (m.mld_melding_onderwerp, NULL, '', 'Subject: ' || m.mld_melding_onderwerp || CHR (13) || CHR (10)) || 'Description: ' || COALESCE (SUBSTR (m.mld_melding_omschrijving, 1, 2000), '-')
regel_oms,
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
'opdracht' xmlnode,
@@ -3054,10 +3056,11 @@ AS
TO_CHAR (vf.fin_verkoopfactuur_d3, 'dd-mm-yyyy') mndeinde,
vf.fin_verkoopfactuur_bedrag mndnet, -- Netto bedrag
vf.fin_verkoopfactuur_btw mndbtw, -- BTW bedrag
vf.prs_kostensoort_oms grtboekrek,
vf.prs_kostensoort_refcode grtboekrek,
vf.prs_kostensoort_oms grtboekrek_oms,
vf.fin_verkoopfactuur_n1 mld_melding_key
FROM fin_verkoopfactuur vf, prs_bedrijf b
WHERE vf.fin_verkoopfactuur_xmlnode != 'contract' -- TODO: Andere conditie?
WHERE SUBSTR (vf.fin_verkoopfactuur_id, 5, 1) = '2' -- Of andere conditie?
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
ORDER BY vf.prs_bedrijf_key, 1, 2, 3, 4;
@@ -3114,7 +3117,7 @@ AS
NULL btwcode -- Hard op NULL
FROM ( SELECT fin_verkoopfactuur_id, debiteur_nr, factuurdatum, maand, vervaldatum,
SUM (mndnet) netsum, SUM (mndbtw) btwsum
FROM blcc_v_addd_actual -- TODO: blcc_v_addd_frozen
FROM blcc_v_addd_frozen
WHERE maand >= TO_CHAR (ADD_MONTHS (SYSDATE, -12), 'yyyy') || '01'
GROUP BY fin_verkoopfactuur_id, debiteur_nr, factuurdatum, maand, vervaldatum)
UNION ALL
@@ -3133,9 +3136,9 @@ AS
NULL prj_activa, -- Hard op NULL
SUM (mndnet) bedrag, -- Totaalbedrag excl. BTW gegroepeerd over andere kolommen!
'credit' debitcredit, -- TODO: Altijd 'credit' (ook negatieve bedragen)???
DECODE (grtboekrek, '812x', grtboekrek_oms || DECODE (fin_btwtabelwaarde_code, 'H', ' high', ' low'), grtboekrek_oms) omschrijving,
DECODE (grtboekrek, '812x', grtboekrek_oms || DECODE (fin_btwtabelwaarde_code, 'H', ' high', ' low'), '8130', regel, grtboekrek_oms) omschrijving,
DECODE (fin_btwtabelwaarde_code, 'H', 'VH', 'L', 'VL', 'VN') btwcode
FROM blcc_v_addd_actual -- TODO: blcc_v_addd_frozen
FROM blcc_v_addd_frozen
WHERE maand >= TO_CHAR (ADD_MONTHS (SYSDATE, -12), 'yyyy') || '01'
GROUP BY fin_verkoopfactuur_id || debiteur_nr || DECODE (grtboekrek, '812x', DECODE (fin_btwtabelwaarde_code, 'H', '8120', '8121'), grtboekrek),
'VRK',
@@ -3151,7 +3154,7 @@ AS
'50900',
NULL,
'credit',
DECODE (grtboekrek, '812x', grtboekrek_oms || DECODE (fin_btwtabelwaarde_code, 'H', ' high', ' low'), grtboekrek_oms),
DECODE (grtboekrek, '812x', grtboekrek_oms || DECODE (fin_btwtabelwaarde_code, 'H', ' high', ' low'), '8130', regel, grtboekrek_oms),
DECODE (fin_btwtabelwaarde_code, 'H', 'VH', 'L', 'VL', 'VN')
UNION ALL
SELECT fin_verkoopfactuur_id || debiteur_nr || '8136' sortering,
@@ -3171,7 +3174,7 @@ AS
'credit' debitcredit, -- TODO: Altijd 'credit' (ook negatieve bedragen)???
'Handling fee' omschrijving,
'VH' btwcode
FROM blcc_v_addd_actual -- TODO: blcc_v_addd_frozen
FROM blcc_v_addd_frozen
WHERE maand >= TO_CHAR (ADD_MONTHS (SYSDATE, -12), 'yyyy') || '01'
GROUP BY fin_verkoopfactuur_id || debiteur_nr || '8136',
'VRK',
@@ -3261,13 +3264,18 @@ AS -- View bevat alleen inhoud op de dag na de 10e werkdag van de maand!
CREATE OR REPLACE PROCEDURE blcc_select_addd (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
AS
-- Factureer/bevries kosten van additionele diensten en verwerk=AV alle eventuele correctiemeldingen!
-- Factureer/bevries kosten van additionele diensten en verwerk=AV alle
-- aanwezige klantwens-opdrachten en correctie-meldingen (1 regel in view)!
CURSOR c1
IS
SELECT '[' || v.regel_id || '|' || v.prs_debiteur_naam || '] ' aanduiding,
v.*, m.mld_melding_status
FROM blcc_v_addd_actual v, mld_melding m
WHERE v.mld_melding_key = m.mld_melding_key(+)
v.*, o.mld_statusopdr_key, m.mld_melding_status
FROM (SELECT *
FROM blcc_v_addd_actual) v
LEFT JOIN mld_opdr o
ON v.xmlnode = 'opdracht' AND v.refkey = o.mld_opdr_key
LEFT JOIN mld_melding m
ON v.mld_melding_key = m.mld_melding_key
ORDER BY v.prs_bedrijf_key, v.po_nr, v.sortering;
-- Verstuur verkoopfactuur naar huurder.
@@ -3278,11 +3286,38 @@ AS
vfk.fin_verkoopfactuurkop_key, vfk.fin_verkoopfactuurkop_id,
b.prs_bedrijf_email
FROM fin_verkoopfactuur vf, fin_verkoopfactuurkop vfk, prs_bedrijf b
WHERE vf.fin_verkoopfactuur_maand = TO_CHAR (ADD_MONTHS (SYSDATE, -1), 'yyyymm')
WHERE SUBSTR (vf.fin_verkoopfactuur_id, 5, 1) = '2' -- vf.fin_verkoopfactuur_xmlnode != 'contract'
AND vf.fin_verkoopfactuur_maand = TO_CHAR (ADD_MONTHS (SYSDATE, -1), 'yyyymm')
AND vf.fin_verkoopfactuurkop_key = vfk.fin_verkoopfactuurkop_key
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
ORDER BY vf.fin_verkoopfactuur_id;
-- Verwerk reserveringen (in juiste volgorde)!
CURSOR c3
IS
SELECT DISTINCT '[' || TO_CHAR (rra.res_rsv_ruimte_key) || '|' || TO_CHAR (rra.res_rsv_artikel_key) || '] ' aanduiding,
rra.res_rsv_ruimte_key,
rra.res_rsv_artikel_key,
rra.res_status_bo_key,
rra.res_artikel_key
FROM fin_verkoopfactuur vf, res_v_aanwezigrsv_artikel rra
WHERE SUBSTR (vf.fin_verkoopfactuur_id, 5, 1) = '2' -- vf.fin_verkoopfactuur_xmlnode != 'contract'
AND vf.fin_verkoopfactuur_maand = TO_CHAR (ADD_MONTHS (SYSDATE, -1), 'yyyymm')
AND vf.fin_verkoopfactuur_xmlnode = 'reservering'
AND vf.fin_verkoopfactuur_refkey = rra.res_rsv_ruimte_key
UNION ALL
SELECT DISTINCT '[' || TO_CHAR (rrr.res_rsv_ruimte_key) || '] ' aanduiding,
rrr.res_rsv_ruimte_key,
NULL res_rsv_artikel_key,
rrr.res_status_bo_key,
NULL res_artikel_key
FROM fin_verkoopfactuur vf, res_v_aanwezigrsv_ruimte rrr
WHERE SUBSTR (vf.fin_verkoopfactuur_id, 5, 1) = '2' -- vf.fin_verkoopfactuur_xmlnode != 'contract'
AND vf.fin_verkoopfactuur_maand = TO_CHAR (ADD_MONTHS (SYSDATE, -1), 'yyyymm')
AND vf.fin_verkoopfactuur_xmlnode = 'reservering'
AND vf.fin_verkoopfactuur_refkey = rrr.res_rsv_ruimte_key
ORDER BY 3, 2;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
@@ -3296,6 +3331,7 @@ AS
v_factkop_id VARCHAR2 (30);
v_verkoopfactuurkop_key NUMBER (10);
v_count NUMBER;
v_prijs NUMBER (9, 2);
BEGIN
-- Eerst opruiming
DELETE FROM imp_log
@@ -3326,7 +3362,7 @@ BEGIN
FOR rec IN c1
LOOP
BEGIN
IF rec.prs_bedrijf_key != v_old_bedr_key OR rec.po_nr != v_old_po_nr
IF rec.mndnet != 0 AND (rec.prs_bedrijf_key != v_old_bedr_key OR rec.po_nr != v_old_po_nr)
THEN
-- Bepaal max. sequence t/m voorgaande jaar (= aantal entries in
-- fin_verkoopfactuurkop-tabel).
@@ -3354,7 +3390,7 @@ BEGIN
v_old_po_nr := rec.po_nr;
END IF;
IF mndnet != 0
IF rec.mndnet != 0
THEN
v_errormsg := 'Fout toevoegen verkoopfactuur';
@@ -3446,37 +3482,45 @@ BEGIN
v_amount_sum := v_amount_sum + rec.mndnet;
END IF;
IF (rec.mld_melding_key IS NOT NULL) -- Correctiemelding?
--IF rec.xmlnode = 'opdracht'
IF rec.xmlnode = 'opdracht' AND rec.mld_statusopdr_key != 7 -- TODO: Tijdelijk checken op nog niet Verwerkt!
THEN
v_errormsg := 'Fout verwerken opdrachtkosten';
MLD.setopdrachtstatus (rec.refkey, 7, NULL);
END IF;
IF rec.mld_melding_key IS NOT NULL -- Correctiemelding?
THEN
v_errormsg := 'Fout verwerken correctiemelding';
-- Overgang van Geaccepteerd naar Verwerkt niet mogelijk, dus
-- eerst afmelden (als nog niet Afgemeld)!
IF (rec.mld_melding_status = 4) -- ACP
IF rec.mld_melding_status = 4 -- ACP
THEN
MLD.setmeldingstatus (rec.mld_melding_key, 5, NULL); -- AFM
END IF;
MLD.setmeldingstatus (rec.mld_melding_key, 6, NULL); -- VER
COMMIT;
END IF;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', rec.aanduiding || v_errormsg, 'M2-freeze');
fac.writelog (p_applname, 'E', rec.aanduiding || v_errormsg, 'ADDD-freeze');
COMMIT;
END;
END LOOP;
fac.writelog (p_applname, 'S', 'M2-verkoop/#regels: ' || TO_CHAR (v_fact_count), TO_CHAR (v_amount_sum));
fac.writelog (p_applname, 'S', 'ADDD-verkoop/#regels: ' || TO_CHAR (v_fact_count), TO_CHAR (v_amount_sum));
-- Verstuur verkoopfactuur naar huurder.
FOR rec IN c2
LOOP
BEGIN
v_errormsg := 'Fout toevoegen CUST01-noti';
v_errormsg := 'Fout toevoegen CUST02-noti';
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
@@ -3491,13 +3535,13 @@ BEGIN
2, -- Mail
DECODE ( -- To-adres
rec.prs_bedrijf_email,
NULL, 'accounting1@brightlands.com',
rec.prs_bedrijf_email || ';accounting1@brightlands.com'),
NULL, 'accountsreceivable@brightlands.com',
rec.prs_bedrijf_email || ';accountsreceivable@brightlands.com'),
'Factuur ' || rec.fin_verkoopfactuur_id || ' ' || rec.fin_verkoopfactuur_maand || ' ' || rec.prs_debiteur_naam,
rec.fin_verkoopfactuurkop_key,
2, -- Prioriteit
TRUNC (SYSDATE) + (7 / 24),
'accounting1@brightlands.com', -- From-adres
'accountsreceivable@brightlands.com', -- From-adres
'/../../Fplace5i/CUST/BLCC/export/PDF/' || rec.fin_verkoopfactuurkop_id || '.pdf');
EXCEPTION
WHEN OTHERS
@@ -3505,7 +3549,98 @@ BEGIN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', rec.aanduiding || v_errormsg, 'M2-noti');
fac.writelog (p_applname, 'E', rec.aanduiding || v_errormsg, 'ADDD-noti');
COMMIT;
END;
END LOOP;
FOR rec IN c3
LOOP
BEGIN
IF rec.res_rsv_artikel_key IS NOT NULL
THEN -- Catering-regel
IF rec.res_status_bo_key = 2
THEN
v_errormsg := 'Fout bepalen res_rsv_artikel_prijs';
SELECT res.getartikelprijs (rec.res_rsv_artikel_key)
INTO v_prijs
FROM DUAL;
v_errormsg := 'Fout afmelden res_rsv_artikel';
UPDATE res_rsv_artikel
SET res_status_bo_key = 5,
res_rsv_artikel_prijs = v_prijs,
res_rsv_artikel_inkoopprijs =
(SELECT res_artikel_inkoopprijs
FROM res_artikel
WHERE res_artikel_key = rec.res_artikel_key),
res_rsv_artikel_btw =
(SELECT res_artikel_btw
FROM res_artikel
WHERE res_artikel_key = rec.res_artikel_key)
WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
v_errormsg := 'Fout tracken afmelding';
fac.trackaction ('RESAFM', rec.res_rsv_ruimte_key, NULL, NULL, 'Catering afgemeld');
END IF;
IF rec.res_status_bo_key != 6
THEN
v_errormsg := 'Fout verwerken res_rsv_artikel';
UPDATE res_rsv_artikel
SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date)
WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
v_errormsg := 'Fout tracken verwerking';
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, 'Catering verwerkt');
END IF;
ELSE -- Ruimte-regel
IF rec.res_status_bo_key = 2
THEN
v_errormsg := 'Fout bepalen res_rsv_ruimte_prijs';
SELECT res.getruimteprijs (rec.res_rsv_ruimte_key)
INTO v_prijs
FROM DUAL;
v_errormsg := 'Fout afmelden res_rsv_ruimte';
UPDATE res_rsv_ruimte
SET res_status_bo_key = 5,
res_rsv_ruimte_prijs = v_prijs
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
v_errormsg := 'Fout tracken afmelding';
fac.trackaction ('RESAFM', rec.res_rsv_ruimte_key, NULL, NULL, NULL);
END IF;
IF rec.res_status_bo_key != 6
THEN
v_errormsg := 'Fout verwerken res_rsv_ruimte';
UPDATE res_rsv_ruimte
SET res_status_bo_key = 6 -- AV
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
v_errormsg := 'Fout tracken verwerking';
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, NULL);
END IF;
END IF;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'W', rec.aanduiding || v_errormsg, 'ADDD-AV');
COMMIT;
END;
END LOOP;
@@ -3516,7 +3651,7 @@ EXCEPTION
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', v_errormsg, 'FACT-export afgebroken!');
fac.writelog (p_applname, 'E', v_errormsg, 'ADDD-export afgebroken!');
END;
/
@@ -5318,7 +5453,7 @@ AS
1
FROM blcc_v_rap_fact_contractgeg;
-- BLCC#37691: Facturatie M2 em de rest!
-- BLCC#37691: Facturatie verhuur (M2 en meer)!
/* Formatted on 21-4-2017 16:28:58 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW blcc_v_fact_actual
AS
@@ -6272,7 +6407,7 @@ AS
--cnt_discipline cd,
--prs_kostensoort ks,
prs_bedrijf b
WHERE vf.fin_verkoopfactuur_xmlnode = 'contract'
WHERE SUBSTR (vf.fin_verkoopfactuur_id, 5, 1) = '1' -- Of andere conditie?
AND vf.fin_verkoopfactuur_refkey = c.cnt_contract_key
--AND c.ins_discipline_key = cd.ins_discipline_key
--AND cd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
@@ -6470,7 +6605,7 @@ AS
vfk.fin_verkoopfactuurkop_key, vfk.fin_verkoopfactuurkop_id,
b.prs_bedrijf_email
FROM fin_verkoopfactuur vf, fin_verkoopfactuurkop vfk, prs_bedrijf b
WHERE vf.fin_verkoopfactuur_xmlnode = 'contract'
WHERE SUBSTR (vf.fin_verkoopfactuur_id, 5, 1) = '1' -- vf.fin_verkoopfactuur_xmlnode = 'contract'
AND vf.fin_verkoopfactuur_maand = TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyymm')
AND vf.fin_verkoopfactuurkop_key = vfk.fin_verkoopfactuurkop_key
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
@@ -6655,12 +6790,12 @@ BEGIN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', rec.aanduiding || v_errormsg, 'M2-freeze');
fac.writelog (p_applname, 'E', rec.aanduiding || v_errormsg, 'FACT-freeze');
COMMIT;
END;
END LOOP;
fac.writelog (p_applname, 'S', 'M2-verkoop/#regels: ' || TO_CHAR (v_fact_count), TO_CHAR (v_amount_sum));
fac.writelog (p_applname, 'S', 'FACT-verkoop/#regels: ' || TO_CHAR (v_fact_count), TO_CHAR (v_amount_sum));
-- Verstuur verkoopfactuur naar huurder.
FOR rec IN c2
@@ -6695,7 +6830,7 @@ BEGIN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', rec.aanduiding || v_errormsg, 'M2-noti');
fac.writelog (p_applname, 'E', rec.aanduiding || v_errormsg, 'FACT-noti');
COMMIT;
END;
END LOOP;
@@ -6728,16 +6863,16 @@ AS -- Facturatie huur
vfk.fin_verkoopfactuurkop_key
FROM fac_notificatie n, fin_verkoopfactuurkop vfk
WHERE n.fac_srtnotificatie_key = 281 -- CUST01-noti
AND n.fac_notificatie_refkey = vfk.fin_verkoopfactuurkop_key
UNION ALL -- Facturatie additionele diensten
SELECT 'CALL GENEREER1FIN_VK_PDF.BAT '
|| TO_CHAR (vfk.fin_verkoopfactuurkop_key)
|| ' '
|| vfk.fin_verkoopfactuurkop_id,
vfk.fin_verkoopfactuurkop_key
FROM fac_notificatie n, fin_verkoopfactuurkop vfk
WHERE n.fac_srtnotificatie_key = 341 -- CUST02-noti
AND n.fac_notificatie_refkey = vfk.fin_verkoopfactuurkop_key;
--UNION ALL -- Facturatie additionele diensten
--SELECT 'CALL GENEREER1FIN_VK_PDF.BAT '
-- || TO_CHAR (vfk.fin_verkoopfactuurkop_key)
-- || ' '
-- || vfk.fin_verkoopfactuurkop_id,
-- vfk.fin_verkoopfactuurkop_key
-- FROM fac_notificatie n, fin_verkoopfactuurkop vfk
-- WHERE n.fac_srtnotificatie_key = 341 -- CUST02-noti
-- AND n.fac_notificatie_refkey = vfk.fin_verkoopfactuurkop_key;
CREATE OR REPLACE VIEW blcc_v_rap_fact_controle
(
@@ -9959,6 +10094,7 @@ AS
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rra.res_artikel_key = ra.res_artikel_key
AND rra.res_rsv_artikel_dirtlevel = 0
AND rrr.res_status_fo_key != 4 -- vervallen
AND rra.res_rsv_artikel_levering > TO_DATE ('20171101', 'yyyymmdd')
AND rra.res_rsv_artikel_levering < TRUNC (SYSDATE, 'IW') + 21) x
LEFT JOIN res_ruimte rr