@tangelo/tangelo-configuration-toolkit 1.5.5 → 1.8.0-beta.0

package/build/project/tangelo-default-implementation/src/database/decade/plsql/dcf_include.pkb

@@ -1,763 +0,0 @@
-create or replace package body dcf_include
-is
-
-
-DATE_FORMAT     constant varchar2(20)  := 'DD-MM-YYYY';
-DECIMAL_FORMAT  constant varchar2(2)   := '.';
-DECADE_CONFIG   constant varchar2(100) := 'config.xml';
-
-g_user                     varchar2(100) := 'DECADE'; --tanapi.sys_util.authenticated_user
-
-
-function getConfigValue
-( p_xpath    in varchar2
-, p_rsrc_dir in varchar2
-)
-return varchar2
-is
-  l_retval varchar2(1000);
-  l_xml    xmltype;
-begin
-  l_xml := tanapi.sys_util.file_xml(p_rsrc_dir||DECADE_CONFIG);
-
-  select extract(value(x), p_xpath).getStringVal() as "value"
-  into   l_retval
-  from   table(xmlsequence(extract(l_xml, '/config'))) x
-  ;
-
-  return l_retval;
-end getConfigValue;
-
-
-function string2xml
-( p_string IN varchar2
-)
-return xmltype
-is
-  l_retval    xmltype;
-  l_pos       number;
-  l_start     number := 1;
-  l_string    varchar2(1000);
-  l_parameter varchar2(100);
-  l_value     varchar2(100);
-  l_temp      varchar2(1000);
-begin
-  while (l_start <= length(p_string))
-  loop
-    l_pos := INSTR(p_string, ';', l_start);  -- look for delimiter
-
-    if (l_pos > 0) then  -- found token
-      l_string := substr(p_string, l_start, l_pos - l_start);
-      l_start := l_pos + 1;  -- start past end of token
-    else  -- delimiter not found
-      l_string := substr(p_string, l_start, length(p_string) - l_start + 1);   -- last token
-      l_start := length(p_string) + 1;
-    end if;  -- found token
-
-    l_parameter := substr(l_string, 1, instr(l_string, ':', 1) - 1);
-    l_value     := substr(l_string, instr(l_string, ':', 1) + 1, length(l_string));
-
-    if l_parameter is not null
-    then
-      l_temp := l_temp||'<'||l_parameter||'>'||l_value||'</'||l_parameter||'>';
-    end if;
-  end loop;
-
-  l_retval := xmltype('<extra>'||l_temp||'</extra>');
-
-  return l_retval;
-end string2xml;
-
-
-function addXml
-( p_xml_content in xmltype
-, p_extra_xml   in varchar2
-)
-return xmltype
-is
-  l_retval xmltype;
-begin
-  l_retval := p_xml_content.transform(xmltype('
-                <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
-                   <xsl:output method="xml" indent="no"/>
-                   <xsl:template match="DOCUMENT">
-                      <DOCUMENT>
-                         '||string2xml(p_extra_xml).getstringval()||'
-                         <xsl:apply-templates select="@* | node()"/>
-                      </DOCUMENT>
-                   </xsl:template>
-                   <xsl:template match="@*|node()">
-                      <xsl:copy>
-                         <xsl:apply-templates select="@* | node()"/>
-                      </xsl:copy>
-                   </xsl:template>
-                </xsl:stylesheet>'
-              ));
-
-  return l_retval;
-end addXml;
-
-
-procedure save_include
-( p_document_id       in number
-, p_node_id           in number
-, p_type_include      in varchar2
-, p_admn_id           in varchar2
-, p_raps_id           in varchar2
-, p_bgjr              in number
-, p_bgsr_id           in varchar2
-, p_jaarschijf_van    in number
-, p_jaarschijf_tem    in number
-, p_vorigbgrjaar      in number
-, p_boekingsjaar      in number
-, p_kstp_code         in varchar2
-, p_grbr_code_vader   in varchar2
-, p_leidende_dimensie in varchar2
-, p_date_include      in date
-, p_xmldata           in xmltype
-)
-as
-  PRAGMA AUTONOMOUS_TRANSACTION;
-
-  l_document_version_id  integer;
-  l_document_version     varchar2(20);
-begin
-   l_document_version_id := tanapi.obj_select.node(p_node_id).document_version_id;
-   l_document_version    := tanapi.obj_select.document_version(l_document_version_id).version_seq;
-
-   update dcf_includes_xml
-   set document_id 	       = p_document_id
-     , node_id             = p_node_id
-     , document_version    = l_document_version
-     , type_include        = p_type_include
-     , admn_id		         = p_admn_id
-     , raps_id             = p_raps_id
-     , bgjr_jaar_id        = p_bgjr
-     , bgjr_bgsr_id        = p_bgsr_id
-     , jrsf_jaarschijf_van = p_jaarschijf_van
-     , jrsf_jaarschijf_tem = p_jaarschijf_tem
-     , bgjr_jaar_id_vorig  = p_vorigbgrjaar
-     , sagb_jaar_id        = p_boekingsjaar
-     , kstp_code_vader     = p_kstp_code
-     , grbr_code_vader     = p_grbr_code_vader
-     , leidende_dimensie   = p_leidende_dimensie
-     , date_include        = p_date_include
-     , xmldata             = p_xmldata
-   where document_id 	       = p_document_id
-     and node_id             = p_node_id
-     and type_include        = p_type_include
-     and admn_id		         = p_admn_id
-     and raps_id             = p_raps_id
-     and bgjr_jaar_id        = p_bgjr
-     and bgjr_bgsr_id        = p_bgsr_id
-     and jrsf_jaarschijf_van = p_jaarschijf_van
-     and jrsf_jaarschijf_tem = p_jaarschijf_tem
-     and bgjr_jaar_id_vorig  = p_vorigbgrjaar
-     and sagb_jaar_id        = p_boekingsjaar
-     and kstp_code_vader     = p_kstp_code
-     and grbr_code_vader     = p_grbr_code_vader
-     and leidende_dimensie   = p_leidende_dimensie;
-
- if sql%rowcount = 0 then
-
-   insert into dcf_includes_xml
-   ( id
-   , document_id
-   , node_id
-   , document_version
-   , type_include
-   , admn_id
-   , raps_id
-   , bgjr_jaar_id
-   , bgjr_bgsr_id
-   , jrsf_jaarschijf_van
-   , jrsf_jaarschijf_tem
-   , bgjr_jaar_id_vorig
-   , sagb_jaar_id
-   , kstp_code_vader
-   , grbr_code_vader
-   , leidende_dimensie
-   , date_include
-   , xmldata
-   )
-   values
-   ( dcf_id.nextval
-   , p_document_id
-   , p_node_id
-   , l_document_version
-   , p_type_include
-   , p_admn_id
-   , p_raps_id
-   , p_bgjr
-   , p_bgsr_id
-   , p_jaarschijf_van
-   , p_jaarschijf_tem
-   , p_vorigbgrjaar
-   , p_boekingsjaar
-   , p_kstp_code
-   , p_grbr_code_vader
-   , p_leidende_dimensie
-   , p_date_include
-   , p_xmldata
-   );
-   end if;
-
-   commit;
-exception
-  when others then
-    tanapi.sys_util.log('D',sqlerrm);
-    rollback;
-end save_include;
-
-
-function programma_begroting
-( p_rsrc_dir         in varchar2
-, p_admn_id          in varchar2
-, p_raps_id          in varchar2
-, p_bgjr             in number
-, p_bgsr_id          in varchar2
-, p_jaarschijf_van   in number
-, p_jaarschijf_tem   in number
-, p_kstp_code        in varchar2
-, p_grbr_code_vader  in varchar2
-, p_stylesheet_id    in varchar2 default 'programma-ovz'
-, p_extra_xml        in varchar2 default null
-, p_node_id          in number   default 0
-, p_ververs          in varchar2 default 'false'
-)
-return xmltype
-is
-  cursor c_include_xml
-  ( b_vorigbgrjaar      number
-  , b_boekingsjaar      number
-  , b_kstp_code         varchar2
-  , b_leidende_dimensie varchar2
-  , b_document_id       number
-  , b_node_id           number
-  )
-  is
-    select inx.xmldata, inx.date_include
-    from   dcf_includes_xml inx
-    where  inx.document_id         = b_document_id
-      and  inx.node_id             = b_node_id
-      and  inx.type_include        = 'programmabegroting'
-      and  inx.admn_id		         = p_admn_id
-      and  inx.raps_id             = p_raps_id
-      and  inx.bgjr_jaar_id        = p_bgjr
-      and  inx.bgjr_bgsr_id        = p_bgsr_id
-      and  inx.jrsf_jaarschijf_van = p_jaarschijf_van
-      and  inx.jrsf_jaarschijf_tem = p_jaarschijf_tem
-      and  inx.bgjr_jaar_id_vorig  = b_vorigbgrjaar
-      and  inx.sagb_jaar_id        = b_boekingsjaar
-      and  inx.kstp_code_vader     = b_kstp_code
-      and  inx.grbr_code_vader     = p_grbr_code_vader
-      and  inx.leidende_dimensie   = b_leidende_dimensie;
-
-  l_xml               xmltype;
-  l_stylesheet        varchar2(2000) := getConfigValue('//stylesheet[@id = "'||nvl(p_stylesheet_id,'programma-ovz')||'"]/text()',p_rsrc_dir);
-  l_xsl               xmltype;
-  l_vorigbgrjaar      number(4);
-  l_boekingsjaar      number(4);
-  l_leidende_dimensie varchar2(10);
-  l_kstp_code         varchar2(100)  := null;
-  l_gevonden          boolean        := false;
-  l_document_id       number;
-  l_node_id           number;
-  l_date_include      date;
-
-begin
-  l_leidende_dimensie := getConfigValue('//programmabegroting/dimensie/@code',p_rsrc_dir);
-  l_boekingsjaar      := p_bgjr - to_number(getConfigValue('//programmabegroting/boekingsjaar/@begrotingsjaarminus',p_rsrc_dir));
-  l_vorigbgrjaar      := p_bgjr - to_number(getConfigValue('//programmabegroting/vorigbegrotingsjaar/@begrotingsjaarminus',p_rsrc_dir));
-
-  if p_kstp_code = 'ALL' then
-    l_kstp_code := null;
-  else
-    l_kstp_code := p_kstp_code;
-  end if;
-
-  -- Eerst controleren of er al een include met deze parameters is en zo ja, deze xml gebruiken
-  if (p_node_id != 0) then
-    l_document_id := tanapi.obj_select.document_version_for_node(p_node_id).document_id;
-    l_node_id     := p_node_id;
-  else
-    l_document_id := 0;
-    l_node_id     := 0;
-  end if;
-
-  open c_include_xml
-       ( l_vorigbgrjaar
-       , l_boekingsjaar
-       , l_kstp_code
-       , l_leidende_dimensie
-       , l_document_id
-       , l_node_id
-       );
-  fetch c_include_xml into l_xml, l_date_include;
-  l_gevonden := c_include_xml%found;
-  close c_include_xml;
-
-  if (l_gevonden = false or p_ververs = 'true') then
-    -- Zo nee, voer de include uit en sla hem op
-
-    l_xml := xmltype(decade.include_mjb.get_data_001
-                     ( p_admn_id                  => p_admn_id
-                     , p_raps_id                  => p_raps_id
-                     , p_bgjr_jaar_id             => p_bgjr
-                     , p_bgjr_bgsr_id             => p_bgsr_id
-                     , p_jrsf_jaarschijf_van      => p_jaarschijf_van
-                     , p_jrsf_jaarschijf_tem      => p_jaarschijf_tem
-                     , p_bgjr_jaar_id_vorig       => l_vorigbgrjaar
-                     , p_sagb_jaar_id             => l_boekingsjaar
-                     , p_kstp_code_vader          => l_kstp_code
-                     , p_grbr_code_vader          => p_grbr_code_vader
-                     , p_leidende_dimensie        => l_leidende_dimensie
-                     , p_output_date_format       => DATE_FORMAT
-                     , p_output_decimal_separator => DECIMAL_FORMAT
-                     , p_stirred_not_shaken       => g_user
-                     )
-             );
-
-    l_date_include := sysdate;
-
-    save_include
-    ( l_document_id
-    , l_node_id
-    , 'programmabegroting'
-    , p_admn_id
-    , p_raps_id
-    , p_bgjr
-    , p_bgsr_id
-    , p_jaarschijf_van
-    , p_jaarschijf_tem
-    , l_vorigbgrjaar
-    , l_boekingsjaar
-    , l_kstp_code
-    , p_grbr_code_vader
-    , l_leidende_dimensie
-    , l_date_include
-    , l_xml
-    );
-  end if;
-
-  l_xml := addXml(l_xml,p_extra_xml||';includeDate:'||to_char(l_date_include,'dd-mm-yyyy'));
-  l_xsl := tanapi.sys_util.file_xml(l_stylesheet);
-
-  return l_xml.transform(l_xsl);
-end programma_begroting;
-
-
-function programma_begroting_http
-( p_rsrc_dir      in varchar2
-, p_admn_id          in varchar2
-, p_raps_id          in varchar2
-, p_bgjr             in number
-, p_bgsr_id          in varchar2
-, p_jaarschijf_van   in number
-, p_jaarschijf_tem   in number
-, p_kstp_code        in varchar2
-, p_grbr_code_vader  in varchar2
-, p_stylesheet_id    in varchar2 default 'programma-ovz'
-, p_extra_xml        in varchar2 default null
-, p_node_id          in number   default 0
-, p_ververs          in varchar2 default 'false'
-)
-return tanapi.pls_result
-is
-  l_xml xmltype;
-begin
-  l_xml := programma_begroting
-           ( p_rsrc_dir
-           , p_admn_id
-           , p_raps_id
-           , p_bgjr
-           , p_bgsr_id
-           , p_jaarschijf_van
-           , p_jaarschijf_tem
-           , p_kstp_code
-           , p_grbr_code_vader
-           , p_stylesheet_id
-           , p_extra_xml
-           , p_node_id
-           , p_ververs
-           );
-
-  return new tanapi.pls_result(l_xml);
-
-exception
-  when others then
-    return new tanapi.pls_result(xmltype('<error>'||sqlerrm||'</error>'));
-end programma_begroting_http;
-
-
-function product_begroting
-( p_rsrc_dir         in varchar2
-, p_admn_id          in varchar2
-, p_raps_id          in varchar2
-, p_bgjr             in number
-, p_bgsr_id          in varchar2
-, p_jaarschijf_van   in number
-, p_jaarschijf_tem   in number
-, p_kstp_code        in varchar2
-, p_grbr_code_vader  in varchar2
-, p_stylesheet_id    in varchar2 default 'product-ovz'
-, p_extra_xml        in varchar2 default null
-, p_node_id          in number   default 0
-, p_ververs          in varchar2 default 'false'
-)
-return xmltype
-as
-  cursor c_include_xml
-  ( b_vorigbgrjaar      number
-  , b_boekingsjaar      number
-  , b_kstp_code         varchar2
-  , b_leidende_dimensie varchar2
-  , b_document_id       number
-  , b_node_id           number
-  )
-  is
-    select xmldata, inx.date_include
-    from   dcf_includes_xml inx
-    where  inx.document_id         = b_document_id
-      and  inx.node_id             = b_node_id
-      and  inx.type_include        = 'productbegroting'
-      and  inx.admn_id		         = p_admn_id
-      and  inx.raps_id             = p_raps_id
-      and  inx.bgjr_jaar_id        = p_bgjr
-      and  inx.bgjr_bgsr_id        = p_bgsr_id
-      and  inx.jrsf_jaarschijf_van = p_jaarschijf_van
-      and  inx.jrsf_jaarschijf_tem = p_jaarschijf_tem
-      and  inx.bgjr_jaar_id_vorig  = b_vorigbgrjaar
-      and  inx.sagb_jaar_id        = b_boekingsjaar
-      and  inx.kstp_code_vader     = b_kstp_code
-      and  inx.grbr_code_vader     = p_grbr_code_vader
-      and  inx.leidende_dimensie   = b_leidende_dimensie;
-
-  l_xml               xmltype;
-  l_stylesheet        varchar2(2000) := getConfigValue('//stylesheet[@id = "'||nvl(p_stylesheet_id,'product-ovz')||'"]/text()',p_rsrc_dir);
-  l_xsl               xmltype;
-  l_vorigbgrjaar      number(4);
-  l_boekingsjaar      number(4);
-  l_leidende_dimensie varchar2(10);
-  l_kstp_code         varchar2(100);
-  l_gevonden          boolean := false;
-  l_document_id       number;
-  l_node_id           number;
-  l_date_include      date;
-
-begin
-
-  l_leidende_dimensie := getConfigValue('//productbegroting/dimensie/@code',p_rsrc_dir);
-  l_boekingsjaar      := p_bgjr - to_number(getConfigValue('//productbegroting/boekingsjaar/@begrotingsjaarminus',p_rsrc_dir));
-  l_vorigbgrjaar      := p_bgjr - to_number(getConfigValue('//productbegroting/vorigbegrotingsjaar/@begrotingsjaarminus',p_rsrc_dir));
-
-  if p_kstp_code = 'ALL' then
-    l_kstp_code := null;
-  else
-    l_kstp_code := p_kstp_code;
-  end if;
-
-  -- Eerst controleren of er al een include met deze parameters is en zo ja, deze xml gebruiken
-  if (p_node_id is not null and p_node_id != 0) then
-    l_document_id := tanapi.obj_select.document_version_for_node(p_node_id).document_id;
-    l_node_id := p_node_id;
-  else
-    l_document_id := 0;
-    l_node_id := 0;
-  end if;
-
-  open c_include_xml
-       ( l_vorigbgrjaar
-       , l_boekingsjaar
-       , l_kstp_code
-       , l_leidende_dimensie
-       , l_document_id
-       , l_node_id
-       );
-  fetch c_include_xml into l_xml, l_date_include;
-  l_gevonden := c_include_xml%found;
-  close c_include_xml;
-
-  if (l_gevonden = false or p_ververs = 'true') then
-    -- Zo nee, voer de include uit en sla hem op
-
-    l_xml := xmltype(decade.include_mjb.get_data_001
-                     ( p_admn_id => p_admn_id
-                     , p_raps_id => p_raps_id
-                     , p_bgjr_jaar_id => p_bgjr
-                     , p_bgjr_bgsr_id => p_bgsr_id
-                     , p_jrsf_jaarschijf_van => p_jaarschijf_van
-                     , p_jrsf_jaarschijf_tem => p_jaarschijf_tem
-                     , p_bgjr_jaar_id_vorig => l_vorigbgrjaar
-                     , p_sagb_jaar_id => l_boekingsjaar
-                     , p_kstp_code_vader => l_kstp_code
-                     , p_grbr_code_vader => p_grbr_code_vader
-                     , p_leidende_dimensie => l_leidende_dimensie
-                     , p_output_date_format => DATE_FORMAT
-                     , p_output_decimal_separator => DECIMAL_FORMAT
-                     , p_stirred_not_shaken => g_user
-                     )
-             );
-
-    l_date_include := sysdate;
-
-    save_include
-    ( l_document_id
-    , p_node_id
-    , 'productbegroting'
-    , p_admn_id
-    , p_raps_id
-    , p_bgjr
-    , p_bgsr_id
-    , p_jaarschijf_van
-    , p_jaarschijf_tem
-    , l_vorigbgrjaar
-    , l_boekingsjaar
-    , l_kstp_code
-    , p_grbr_code_vader
-    , l_leidende_dimensie
-    , l_date_include
-    , l_xml
-    );
-
-  end if;
-
-  l_xml := addXml(l_xml,p_extra_xml||';includeDate:'||to_char(l_date_include,'dd-mm-yyyy'));
-  l_xsl := tanapi.sys_util.file_xml(l_stylesheet);
-
-  return l_xml.transform(l_xsl);
-end product_begroting;
-
-
-function product_begroting_http
-( p_rsrc_dir         in varchar2
-, p_admn_id          in varchar2
-, p_raps_id          in varchar2
-, p_bgjr             in number
-, p_bgsr_id          in varchar2
-, p_jaarschijf_van   in number
-, p_jaarschijf_tem   in number
-, p_kstp_code        in varchar2
-, p_grbr_code_vader  in varchar2
-, p_stylesheet_id    in varchar2 default 'product-ovz'
-, p_extra_xml        in varchar2 default null
-, p_node_id          in number   default 0
-, p_ververs          in varchar2 default 'false'
-)
-return tanapi.pls_result
-is
-  l_xml   xmltype;
-begin
-  l_xml := product_begroting
-           ( p_rsrc_dir
-           , p_admn_id
-           , p_raps_id
-           , p_bgjr
-           , p_bgsr_id
-           , p_jaarschijf_van
-           , p_jaarschijf_tem
-           , p_kstp_code
-           , p_grbr_code_vader
-           , p_stylesheet_id
-           , p_extra_xml
-           , p_node_id
-           , p_ververs
-           );
-
-  return new tanapi.pls_result(l_xml);
-
-exception
-  when others then
-    return new tanapi.pls_result(xmltype('<error>'||sqlerrm||'</error>'));
-end product_begroting_http;
-
-
-function jaarrekening
-( p_rsrc_dir         in varchar2
-, p_admn_id          in varchar2
-, p_raps_id          in varchar2
-, p_bgjr             in number
-, p_bgsr_id          in varchar2
-, p_kstp_code        in varchar2
-, p_grbr_code_vader  in varchar2
-, p_stylesheet_id    in varchar2 default 'jaarrekening-ovz'
-, p_extra_xml        in varchar2 default null
-, p_type             in varchar2 default 'standaard'
-, p_node_id          in number   default 0
-, p_ververs          in varchar2 default 'false'
-)
-return xmltype
-as
-  cursor c_include_xml
-  ( b_jaarrekening_type varchar2
-  , b_kstp_code         varchar2
-  , b_leidende_dimensie varchar2
-  , b_document_id       number
-  , b_node_id           number
-  )
-  is
-    select xmldata, inx.date_include
-    from   dcf_includes_xml inx
-    where  inx.document_id         = b_document_id
-      and  inx.node_id             = b_node_id
-      and  inx.type_include        = 'jaarrekening'||b_jaarrekening_type
-      and  inx.admn_id		         = p_admn_id
-      and  inx.raps_id             = p_raps_id
-      and  inx.bgjr_jaar_id        = p_bgjr
-      and  inx.bgjr_bgsr_id        = p_bgsr_id
-      and  inx.kstp_code_vader     = b_kstp_code
-      and  inx.grbr_code_vader     = p_grbr_code_vader
-      and  inx.leidende_dimensie   = b_leidende_dimensie
-  ;
-
-  l_xml               xmltype;
-  l_stylesheet        varchar2(2000) := getConfigValue('//stylesheet[@id = "'||nvl(p_stylesheet_id,'jaarrekening-ovz')||'"]/text()',p_rsrc_dir);
-  l_jaarrekeningtype  varchar2(20) := lower(p_type);
-  l_xsl               xmltype;
-  l_leidende_dimensie varchar2(10);
-  l_kstp_code         varchar2(100);
-  l_gevonden          boolean := false;
-  l_document_id       number;
-  l_node_id           number;
-  l_date_include      date;
-
-begin
-  l_leidende_dimensie := getConfigValue('//jaarrekening/dimensie/@code',p_rsrc_dir);
-
-  if p_kstp_code = 'ALL' then
-    l_kstp_code := null;
-  else
-    l_kstp_code := p_kstp_code;
-  end if;
-
-  if l_jaarrekeningtype is null then
-     l_jaarrekeningtype := 'standaard';
-  end if;
-
-  -- Eerst controleren of er al een include met deze parameters is en zo ja, deze xml gebruiken
-  if (p_node_id != 0) then
-    l_document_id := tanapi.obj_select.document_version_for_node(p_node_id).document_id;
-    l_node_id := p_node_id;
-  else
-    l_document_id := 0;
-    l_node_id := 0;
-  end if;
-
-  open c_include_xml
-       ( l_jaarrekeningtype
-       , l_kstp_code
-       , l_leidende_dimensie
-       , l_document_id
-       , l_node_id
-       );
-  fetch c_include_xml into l_xml, l_date_include;
-  l_gevonden := c_include_xml%found;
-  close c_include_xml;
-
-  if (l_gevonden = false or p_ververs = 'true') then
-     -- Zo nee, voer de include uit en sla hem op
-
-    if l_jaarrekeningtype = 'standaard' then
-      l_xml := xmltype(decade.include_mjb.get_data_jaarrekening
-                       ( p_admn_id => p_admn_id
-                       , p_raps_id => p_raps_id
-                       , p_jaar_id => p_bgjr
-                       , p_bgsr_id => p_bgsr_id
-                       , p_kstp_code_vader => l_kstp_code
-                       , p_grbr_code_vader => p_grbr_code_vader
-                       , p_leidende_dimensie => l_leidende_dimensie
-                       , p_output_date_format => DATE_FORMAT
-                       , p_output_decimal_separator => DECIMAL_FORMAT
-                       , p_stirred_not_shaken => g_user
-                       )
-               );
-
-    elsif l_jaarrekeningtype = 'uitgebreid' then
-      l_xml := xmltype(decade.include_mjb.get_data_jaarrek010
-                       ( p_admn_id => p_admn_id
-                       , p_raps_id => p_raps_id
-                       , p_jaar_id => p_bgjr
-                       , p_bgsr_id => p_bgsr_id
-                       , p_kstp_code_vader => l_kstp_code
-                       , p_grbr_code_vader => p_grbr_code_vader
-                       , p_leidende_dimensie => l_leidende_dimensie
-                       , p_output_date_format => DATE_FORMAT
-                       , p_output_decimal_separator => DECIMAL_FORMAT
-                       , p_stirred_not_shaken => g_user
-                       )
-               );
-    end if;
-
-    l_date_include := sysdate;
-
-    save_include
-    ( l_document_id
-    , p_node_id
-    , 'jaarrekening'||l_jaarrekeningtype
-    , p_admn_id
-    , p_raps_id
-    , p_bgjr
-    , p_bgsr_id
-    , 0
-    , 0
-    , 0
-    , 0
-    , l_kstp_code
-    , p_grbr_code_vader
-    , l_leidende_dimensie
-    , l_date_include
-    , l_xml
-    );
-
-  end if;
-
-  l_xml := addXml(l_xml,p_extra_xml||';includeDate:'||to_char(l_date_include,'dd-mm-yyyy'));
-  l_xsl := tanapi.sys_util.file_xml(l_stylesheet);
-
-  return l_xml.transform(l_xsl);
-end jaarrekening;
-
-
-function jaarrekening_http
-( p_rsrc_dir         in varchar2
-, p_admn_id          in varchar2
-, p_raps_id          in varchar2
-, p_bgjr             in number
-, p_bgsr_id          in varchar2
-, p_kstp_code        in varchar2
-, p_grbr_code_vader  in varchar2
-, p_stylesheet_id    in varchar2 default 'jaarrekening-ovz'
-, p_extra_xml        in varchar2 default null
-, p_type             in varchar2 default 'standaard'
-, p_node_id          in number   default 0
-, p_ververs          in varchar2 default 'false'
-)
-return tanapi.pls_result
-is
-  l_xml xmltype;
-begin
-  l_xml := jaarrekening
-           ( p_rsrc_dir
-           , p_admn_id
-           , p_raps_id
-           , p_bgjr
-           , p_bgsr_id
-           , p_kstp_code
-           , p_grbr_code_vader
-           , p_stylesheet_id
-           , p_extra_xml
-           , p_type
-           , p_node_id
-           , p_ververs
-           );
-
-  return new tanapi.pls_result(l_xml);
-
-exception
-  when others then
-    return new tanapi.pls_result(xmltype('<error>'||sqlerrm||'</error>'));
-end jaarrekening_http;
-
-
-end dcf_include;
-/