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

VENR#32284 Vrijgeven facturen lukt niet meer

Browse Source 
svn path=/Customer/trunk/; revision=24930
This commit is contained in:
Maarten van der Heide
2015-04-21 08:32:31 +00:00
parent ed2d747090
commit c0fca8db59
1 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
VENR/venr.sql
View File

@@ -1348,7 +1348,7 @@ AS
AND kl.prs_kenmerk_key = 1061 -- Klant->Exportvariant
AND c.cnt_prs_bedrijf_key = kl.prs_link_key
AND kl.prs_kenmerklink_waarde = '31' -- Export als Main-contract
UNION ALL -- Goedgekeurde <20>n gemarkeerde O-facturen voor SSD => SSD-exceptions
UNION ALL -- Goedgekeurde <20>n gemarkeerde O-facturen voor SSD => SSD-exceptions
SELECT 'SSD1',
f.fin_factuur_key,
f.mld_opdr_key,
@@ -1382,7 +1382,7 @@ AS
AND kl2.prs_kenmerk_key = 1061 -- Klant->Exportvariant
AND kl1.prs_link_key = kl2.prs_link_key
AND kl2.prs_kenmerklink_waarde = '32' -- Export als SSD
UNION ALL -- Goedgekeurde <20>n gemarkeerde C-facturen voor SSD => SSD-exceptions
UNION ALL -- Goedgekeurde <20>n gemarkeerde C-facturen voor SSD => SSD-exceptions
SELECT 'SSD1',
f.fin_factuur_key,
NULL mld_opdr_key,
@@ -1814,8 +1814,8 @@ EXCEPTION
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errormsg := v_errormsg ||
' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname,
'E',
'Proces U4_EXPORT afgebroken!',
@@ -1833,7 +1833,7 @@ AS
END;
/
/* Formatted on 3-9-2014 10:12:48 (QP5 v5.136.908.31019) */
/* Formatted on 21-4-2015 10:24:36 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PACKAGE BODY VENR
AS
PROCEDURE finish_ssdinvoices (p_ordernr IN NUMBER)
@@ -1849,7 +1849,7 @@ AS
AND kf.fin_kenmerkfactuur_verwijder IS NULL
AND kf.fin_kenmerk_key = 42 -- Ordernr
AND f.fin_factuur_key = kf.fin_factuur_key
AND kf.fin_kenmerkfactuur_waarde = p_ordernr
AND kf.fin_kenmerkfactuur_waarde = TO_CHAR (p_ordernr)
AND NOT EXISTS -- GEEN boekstuknr (= NIET gemarkeerd als exception)!
(SELECT 1
FROM fin_kenmerkfactuur
@@ -1863,12 +1863,12 @@ AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200) := '-';
v_usrdata_key NUMBER (10) := NULL;
v_usrdata_key NUMBER (10);
v_boekstuknr VARCHAR2 (20);
v_update NUMBER (10) := 0;
v_count NUMBER (10);
BEGIN
v_aanduiding := '[' || p_ordernr || '] ';
v_aanduiding := '[' || TO_CHAR (p_ordernr) || '] ';
v_errormsg := 'Fout bij bepalen meta-order/SSD';
SELECT fac_usrdata_key
@@ -1876,7 +1876,7 @@ AS
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 25
AND fac_usrdata_vervaldatum IS NULL -- Moet zo zijn!
AND fac_usrdata_code = p_ordernr;
AND fac_usrdata_code = TO_CHAR (p_ordernr);
-- Toevoegen boekstuknr-kenmerk op 1 of meer facturen!
FOR rec IN c1
@@ -1906,7 +1906,8 @@ AS
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
' ORACLE (error '
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
@@ -1927,7 +1928,10 @@ AS
fac.writelog (
c_applname,
'S',
'SSD-borderel ' || p_ordernr || '/#invoices: ' || TO_CHAR (v_update),
'SSD-borderel '
|| TO_CHAR (p_ordernr)
|| '/#invoices: '
|| TO_CHAR (v_update),
'');
COMMIT;
@@ -1937,7 +1941,8 @@ AS
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error '
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
@@ -2070,7 +2075,7 @@ AS
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('VENR', 3); END;
BEGIN fac.registercustversion('VENR', 4); END;
/
commit;
spool off