Merge pull request #29 from tompetrus/master

Bugfix add1xml
2016-06-01 08:59:30 +02:00 · 2016-06-01 08:59:30 +02:00 · ecc6f8e287
commit ecc6f8e287
parent a7d8f9e34e ae8f2d2058
1 changed files with 21 additions and 14 deletions
--- a/ora/xlsx_builder_pkg.pkb
+++ b/ora/xlsx_builder_pkg.pkb
@ -781,9 +781,16 @@ as
    ) 
  is 
    t_tmp blob;
+    l_count binary_integer;
  begin  
    dbms_lob.createtemporary( t_tmp, true );
-    for i in 0 .. trunc( length( p_xml ) / 4000 )
+    l_count := trunc( length( p_xml ) / 4000 );
+    
+    if mod( length( p_xml ), 4000 ) = 0 then
+      l_count := greatest(l_count - 1, 0);
+    end if;
+    
+    for i in 0 .. l_count
    loop 
      dbms_lob.append( t_tmp, utl_i18n.string_to_raw( substr( p_xml, i * 4000 + 1, 4000 ),  'AL32UTF8') ); 
    end loop;