CSUN#34184 -- Extra tekst verwijderen uit melding van ABN

svn path=/Customer/trunk/; revision=28018

CSUN/CSUN.sql

@@ -571,6 +571,7 @@ AS
    v_pos         NUMBER;
    v_pos_begin   NUMBER;
    v_pos_eind    NUMBER;
+   v_result      VARCHAR2(4000);
 BEGIN
    -- controleer of de begintag aanwezig is. Zo nee, dan hebben we niets te tonen.
    v_pos := INSTR (p_text, p_start);
@@ -606,9 +607,18 @@ BEGIN
    END IF;
 
    -- dbms_output.put_line('v_pos_eind:' || v_pos_eind);
-   RETURN    p_start
+   v_result := p_start
           || ': '
           || SUBSTR (p_text, v_pos_begin, v_pos_eind - v_pos_begin);
+   
+   -- Soms wordt een tag niet gevonden. Dan wordt de hele body inclusief CSS meegestuurd.
+   -- Dat willen we natuurlijk niet. Daarom maken we daar maar een lege tag van.
+   IF LENGTH(v_result) > 1000
+   THEN 
+      v_result := p_start || ':';
+   END IF;
+   
+   RETURN v_result;
 END;
 /
 
@@ -707,7 +717,9 @@ BEGIN
                            'Postcode ' || CHR (38) || 'amp; plaats',
                            'Ruimte')
                      || CHR (10)
-                     || csun_get_html_valuepair (pbody, 'Ruimte', 'Melder')
+                     || csun_get_html_valuepair (pbody, 'Ruimtenummer', 'Omschrijving_ruimte')
+                     || CHR (10)
+                     || csun_get_html_valuepair (pbody, 'Omschrijving_ruimte', 'Melder')
                      || CHR (10)
                      || REPLACE (
                            csun_get_html_valuepair (pbody,
@@ -718,12 +730,6 @@ BEGIN
                      || REPLACE (
                            csun_get_html_valuepair (pbody,
                                                     'Contactgegevens',
-                                                    'Telefoonnummer extern'),
-                           CHR (10) || CHR (13))
-                     || CHR (10)
-                     || REPLACE (
-                           csun_get_html_valuepair (pbody,
-                                                    'Telefoonnummer extern',
                                                     'E-mail'),
                            CHR (10) || CHR (13))
                      || CHR (10)
@@ -2023,7 +2029,7 @@ END csun_update_project;
 /
 
 -- rapport om de ingelezen gegevens op te zoeken.
-CREATE VIEW csun_v_rap_imp_project
+CREATE OR REPLACE VIEW csun_v_rap_imp_project
 (
    accountcode,
    accountnaam,
@@ -2425,7 +2431,7 @@ AS
 
 BEGIN adm.systrackscriptId('$Id$', 0); END;
 /
-BEGIN fac.registercustversion('CSUN', 19); END;
+BEGIN fac.registercustversion('CSUN', 20); END;
 /
 COMMIT;
 spool off