*&---------------------------------------------------------------------*
*&  Include           ZSOFTCOPY_HTML_MAIN                              *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*& This file is part of ZSOFTCOPY.                                     *
*&                                                                     *
*& ZSOFTCOPY is free software: you can redistribute it and/or modify   *
*& it under the terms of the GNU General Public License as published   *
*& by the Free Software Foundation, either version 3 of the License,   *
*& or any later version.                                               *
*&                                                                     *
*& ZSOFTCOPY is distributed in the hope that it will be useful,        *
*& but WITHOUT ANY WARRANTY; without even the implied warranty of      *
*& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
*& GNU General Public License for more details.                        *
*&                                                                     *
*& You should have received a copy of the GNU General Public License   *
*& along with ZDOWNLOAD. If not, see <http://www.gnu.org/licenses/>.   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&  Author:     Ruediger von Creytz     ruediger.creytz@globalbit.net  *
*&  Copyright:  globalBIT, LLC          http://www.globalbit.net       *
*&                                                                     *
*&---------------------------------------------------------------------*


*-----------------------------------------------------------------------
* form: html_main_header
*-----------------------------------------------------------------------
FORM html_main_header
  USING
    value(i_title)
    value(i_name_field)
    value(i_name_value)
    value(i_name_active)
    value(i_descr_field)
    value(i_descr_value)
    value(i_onresize)
    it_tabstrip TYPE it_tabstrip
    it_link TYPE it_link
  CHANGING
    ct_html TYPE it_string.

  DATA:
  lt_tabstrip TYPE it_tabstrip,
  ls_html TYPE string,
  l_class TYPE string,
  l_laiso TYPE laiso,
  l_sptxt TYPE sptxt,
  l_title TYPE string.

  FIELD-SYMBOLS:
  <ls_link> TYPE st_link,
  <ls_tabstrip> TYPE st_tabstrip.

  l_title = i_title.
  PERFORM replace_single
      USING '#NAME_VALUE#' i_name_value
      CHANGING l_title.

  PERFORM get_spras
    USING
      sy-langu
      l_laiso
      l_sptxt.
  PERFORM get_tabstrip_defined
    USING it_tabstrip
    CHANGING lt_tabstrip.
***
  CONCATENATE
      '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"'
      ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  CONCATENATE
    '<html xmlns="http://www.w3.org/1999/xhtml"'
    ' xml:lang="' l_laiso '" lang="' l_laiso '">'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  CONCATENATE
      '<head>'
        '<title id="title">' l_title '</title>'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  PERFORM html_add_meta CHANGING ct_html.
*javascript
  PERFORM html_main_js
    USING
      l_title
      i_onresize
      lt_tabstrip
    CHANGING
      ct_html.
*style
  PERFORM html_main_style
    CHANGING
      ct_html.
*
  CONCATENATE
      '</head>'
      '<body id="body" onload="myOnResize()">' INTO ls_html.
  APPEND ls_html TO ct_html.
*
  CONCATENATE
        '<script type="text/javascript">'
            '<!--'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  CONCATENATE
              'if(top==self){'
                'document.write("'
                  '<table>'
                    '<tr>'
                      '<td class=\"button\">'
                        '<a href=\"../index.htm\"'
                        ' onclick=\"addFrame();return false\">'
                          txt_frameset
                        '<\/a>'
                      '<\/td>'
                    '<\/tr>'
                  '<\/table>'
                '");'
              '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  APPEND '//-->' TO ct_html.
  APPEND '</script>' TO ct_html.
*
  CONCATENATE
        '<form action="../index.htm" id="addFrame"'
        ' method="get">'
          '<p style="display:none;visibility:hidden">'
            '<input id="addFrameA" name="pgmid" type="hidden"/>'
            '<input id="addFrameB" name="object" type="hidden"/>'
            '<input id="addFrameC" name="obj_name" type="hidden"/>'
          '</p>'
        '</form>'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*
  IF ( NOT i_name_field IS INITIAL AND NOT i_name_value IS INITIAL )
  OR ( NOT i_descr_field IS INITIAL AND NOT i_descr_value IS INITIAL ).
    APPEND   '<table class="titleTable">' TO ct_html.
    IF NOT i_name_field IS INITIAL AND NOT i_name_value IS INITIAL.
      CONCATENATE
          '<tr>'
            '<td class="titleTableText">' i_name_field '</td>'
            '<td class="titleTableDescr">' i_name_value '</td>'
            '<td>' i_name_active '</td>'
            '<td style="width:100px">'
              '&#160;&#160;&#160;&#160;&#160;'
            '</td>'
          INTO ls_html.
      LOOP AT it_link ASSIGNING <ls_link>.
        CONCATENATE
            ls_html
            '<td>&#160;</td>'
            '<td class="button">'
              '<a href="' <ls_link>-href '"'
              ' onclick="' <ls_link>-onclick ';return false"'
              ' title="' <ls_link>-title '">'
                <ls_link>-descript
              '</a>'
            '</td>'
            INTO ls_html.
      ENDLOOP.
      CONCATENATE ls_html '</tr>' INTO ls_html.
      APPEND ls_html TO ct_html.
    ENDIF.
    IF NOT i_descr_field IS INITIAL AND NOT i_descr_value IS INITIAL.
      CONCATENATE
          '<tr>'
            '<td class="titleTableText">' i_descr_field '</td>'
            '<td class="titleTableDescr" colspan="2">'
              i_descr_value
            '</td>'
            '<td>&#160;</td>'
          INTO ls_html.
      LOOP AT it_link ASSIGNING <ls_link>.
        CONCATENATE
            ls_html
            '<td colspan="2">&#160;</td>'
            INTO ls_html.
      ENDLOOP.
      CONCATENATE ls_html '</tr>' INTO ls_html.
      APPEND ls_html TO ct_html.
    ENDIF.
    APPEND   '</table><div>&#160;</div>' TO ct_html.
  ENDIF.
  CONCATENATE
      '<table border="0" cellpadding="0" cellspacing="0"'
      ' class="contentTable" width="100%">' INTO ls_html.
  APPEND  ls_html TO ct_html.
  IF NOT lt_tabstrip IS INITIAL.
    READ TABLE lt_tabstrip TRANSPORTING NO FIELDS
      WITH KEY firstrow = abap_true
               hidden = abap_false
               parent_id = space.
    IF sy-subrc = 0.
      CONCATENATE
          '<tr>'
            '<td class="contentTable">'
              '<table border="0" cellpadding="0" cellspacing="0"'
              ' class="contentTable">'
                '<tr>'
          INTO ls_html.
      APPEND ls_html TO ct_html.
      LOOP AT lt_tabstrip ASSIGNING <ls_tabstrip>
          WHERE hidden = abap_false
          AND firstrow = abap_true
          AND parent_id IS INITIAL.
        IF <ls_tabstrip>-disabled = abap_true.
          l_class = 'contentTabDisabled'.
        ELSEIF <ls_tabstrip>-active = abap_true.
          l_class = 'contentTabOn'.
        ELSE.
          l_class = 'contentTabOff'.
        ENDIF.
        IF <ls_tabstrip>-disabled = abap_false.
          CONCATENATE '<td class="' l_class '" id="' <ls_tabstrip>-id
            'tab"><a href="#" onclick="openTab('''
            <ls_tabstrip>-id ''')">'
            <ls_tabstrip>-text '</a></td>' INTO ls_html.
          APPEND ls_html TO ct_html.
        ELSE.
          CONCATENATE '<td class="' l_class '" id="' <ls_tabstrip>-id
            'tab"><a class="linkDisabled" href="#"'
            ' onclick="return false">'
            <ls_tabstrip>-text '</a></td>' INTO ls_html.
          APPEND ls_html TO ct_html.
        ENDIF.
      ENDLOOP.
      CONCATENATE
                '</tr>'
              '</table>'
            '</td>'
          '</tr>'
          INTO ls_html.
      APPEND ls_html TO ct_html.
    ENDIF.
    CONCATENATE
        '<tr>'
          '<td class="contentTable">'
            '<table border="0" cellpadding="0" cellspacing="0"'
            ' class="contentTable">'
              '<tr>'
        INTO ls_html.
    APPEND ls_html TO ct_html.
    LOOP AT lt_tabstrip ASSIGNING <ls_tabstrip>
      WHERE hidden = abap_false
      AND firstrow = abap_false
      AND parent_id IS INITIAL.
      IF <ls_tabstrip>-disabled = abap_true.
        l_class = 'contentTabDisabled'.
      ELSEIF <ls_tabstrip>-active = abap_true.
        l_class = 'contentTabOn'.
      ELSE.
        l_class = 'contentTabOff'.
      ENDIF.
      IF <ls_tabstrip>-disabled = abap_false.
        CONCATENATE '<td class="' l_class '" id="' <ls_tabstrip>-id
          'tab"><a href="#" onclick="openTab('''
          <ls_tabstrip>-id ''')">'
          <ls_tabstrip>-text '</a></td>' INTO ls_html.
        APPEND ls_html TO ct_html.
      ELSE.
        CONCATENATE '<td class="' l_class '" id="' <ls_tabstrip>-id
          'tab"><a class="linkDisabled" href="#"'
          ' onclick="return false">'
          <ls_tabstrip>-text '</a></td>' INTO ls_html.
        APPEND ls_html TO ct_html.
      ENDIF.
    ENDLOOP.
    CONCATENATE
              '</tr>'
            '</table>'
          '</td>'
        '</tr>'
        INTO ls_html.
    APPEND ls_html TO ct_html.
  ENDIF.
  APPEND '<tr>' TO ct_html.
  APPEND '<td class="contentBox">' TO ct_html.

ENDFORM.                    "html_main_header


*-----------------------------------------------------------------------
* form: html_main_js
*-----------------------------------------------------------------------
FORM html_main_js
  USING
    value(i_title)
    value(i_onresize)
    it_tabstrip TYPE it_tabstrip
  CHANGING
    ct_html TYPE it_string.

  DATA:
  ls_html TYPE string.

  FIELD-SYMBOLS:
  <ls_tabstrip> TYPE st_tabstrip.

  CONCATENATE
    '<script type="text/javascript">'
      '<!--'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*addFrame
  CONCATENATE
        'function addFrame() {'
          'var parts;'
          'if(window.location.pathname.indexOf("\\") >= 0) {'
            'parts = window.location.pathname.split("\\");'
          '}'
          'else {'
            'parts = window.location.pathname.split("/");'
          '}'
          'var po = parts[parts.length-2].split("_");'
          'document.getElementById("addFrameA").value = po[0];'
          'document.getElementById("addFrameB").value = po[1];'
          'var objName = parts[parts.length-1];'
          'objName = objName.substring(0,objName.lastIndexOf("."));'
          'document.getElementById("addFrameC").value = objName;'
          'document.getElementById("addFrame").submit();'
        '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*loadIFrame
  CONCATENATE
        'function loadIFrame(id, url) {'
          'var iframeElem;'
          'var myHTML;'
          'myHTML="<iframe frameborder=\"0\"'
          ' height=\"400\"'
          ' id=\""+id+"scroll\"'
          ' scrolling=\"auto\"'
          ' src=\""+url+"\"'
          ' width=\"90%\">'
          '<\/iframe>";'
          'iframeElem=document.getElementById(id+"iframe");'
          'iframeElem.innerHTML=myHTML;'
        '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*makeDivSize
  CONCATENATE
        'function makeDivSize(divName) {'
          'var winHeight;'
          'var winWidth;'
          'var bodyHeight;'
          'var divPar;'
          'var divElem;'
          'var divHeight;'
          'var divHeightNew;'
          'var divWidthNew;'
          'divPar = document.getElementById(divName+"div");'
          'if(divPar == null'
          ' || divPar.style.visibility == "hidden") {'
            'return;'
          '}'
          'divElem = document.getElementById(divName+"scroll");'
          'if(divElem == null) {'
            'return;'
          '}'
          'divElem.style.overflowX = "auto";'
          'divElem.style.overflowY = "auto";'
          'winHeight = window.innerHeight;'
          'winWidth = window.innerWidth;'
          'bodyHeight = document.body.offsetHeight;'
          'divHeight = divElem.offsetHeight;'
          'divHeightNew = divHeight+winHeight-bodyHeight-20;'
          'divWidthNew = winWidth-40;'
          'divElem.style.height = divHeightNew + "px";'
          'divElem.style.width = divWidthNew + "px";'
        '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*myOnResize
  CONCATENATE
        'function myOnResize() {'
          i_onresize ';'
        '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*openChildTab
  CONCATENATE
        'function openChildTab(parentID, tabID) {'
          'var elem;'
          'switchChildContent(parentID, tabID);'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  LOOP AT it_tabstrip ASSIGNING <ls_tabstrip>
      WHERE disabled = abap_false
      AND NOT parent_id IS INITIAL.
    IF <ls_tabstrip>-hidden = abap_false.
      CONCATENATE
          'document.getElementById("' <ls_tabstrip>-id 'tab")'
          '.className="contentTabOff";'
          INTO ls_html.
      APPEND ls_html TO ct_html.
    ENDIF.
  ENDLOOP.
  LOOP AT it_tabstrip ASSIGNING <ls_tabstrip>
      WHERE disabled = abap_false
      AND NOT parent_id IS INITIAL
      and ACTIVE = abap_true.
    CONCATENATE
          'if(parentID!="' <ls_tabstrip>-parent_id '"){'
            'document.getElementById(tabID+"tab")'
            '.className="contentTabOn";'
          '}'
        INTO ls_html.
    APPEND ls_html TO ct_html.
  ENDLOOP.
  CONCATENATE
          'document.getElementById(tabID+"tab")'
          '.className="contentTabOn";'
        '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*openTab
  CONCATENATE
        'function openTab(tabID) {'
          'var elem;'
          'switchContent(tabID);'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  LOOP AT it_tabstrip ASSIGNING <ls_tabstrip>
      WHERE disabled = abap_false
      AND parent_id IS INITIAL.
    IF <ls_tabstrip>-hidden = abap_false.
      CONCATENATE
          'document.getElementById("' <ls_tabstrip>-id 'tab")'
          '.className="contentTabOff";'
          INTO ls_html.
      APPEND ls_html TO ct_html.
    ENDIF.
  ENDLOOP.
  CONCATENATE
          'document.getElementById(tabID+"tab")'
          '.className="contentTabOn";'
        '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*setTitle
  CONCATENATE
        'function setTitle() {'
          'try {'
            'if(top!=self) {'
              'parent.setTitle("' i_title '");'
            '}'
          '}'
          'catch(e) {'
          '}'
        '}'
        INTO ls_html.
  APPEND ls_html TO ct_html.
*switchChildContent
  CONCATENATE
        'function switchChildContent(parentID, tabID) {'
          'var elem;'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  LOOP AT it_tabstrip ASSIGNING <ls_tabstrip>
      WHERE disabled = abap_false
      AND NOT parent_id IS INITIAL.
    CONCATENATE
          'elem=document.getElementById("'
            <ls_tabstrip>-id 'div");'
          'elem.style.display="none";'
          'elem.style.visibility="hidden";'
        INTO ls_html.
    APPEND ls_html TO ct_html.
  ENDLOOP.
  LOOP AT it_tabstrip ASSIGNING <ls_tabstrip>
      WHERE disabled = abap_false
      AND NOT parent_id IS INITIAL
      and ACTIVE = abap_true.
    CONCATENATE
          'if(parentID!="' <ls_tabstrip>-parent_id '"){'
            'elem=document.getElementById(tabID+"div");'
            'elem.style.display="block";'
            'elem.style.visibility="visible";'
          '}'
        INTO ls_html.
    APPEND ls_html TO ct_html.
  ENDLOOP.
  CONCATENATE
          'elem=document.getElementById(tabID+"div");'
          'elem.style.display="block";'
          'elem.style.visibility="visible";'
          i_onresize ';'
        '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*switchContent
  CONCATENATE
        'function switchContent(tabID) {'
          'var elem;'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  LOOP AT it_tabstrip ASSIGNING <ls_tabstrip>
      WHERE disabled = abap_false
      AND parent_id IS INITIAL.
    CONCATENATE
          'elem=document.getElementById("'
            <ls_tabstrip>-id 'div");'
          'elem.style.display="none";'
          'elem.style.visibility="hidden";'
        INTO ls_html.
    APPEND ls_html TO ct_html.
  ENDLOOP.
  CONCATENATE
          'elem=document.getElementById(tabID+"div");'
          'elem.style.display="block";'
          'elem.style.visibility="visible";'
          i_onresize ';'
        '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
*
  APPEND '//--></script>' TO ct_html.

ENDFORM.                    "html_main_js


*-----------------------------------------------------------------------
* form: html_main_footer
*-----------------------------------------------------------------------
FORM html_main_footer
  CHANGING
    ct_html TYPE it_string.

  DATA:
  ls_html TYPE string.

  CONCATENATE
              '</td>'
            '</tr>'
          '</table>'
          '<script type="text/javascript">'
            '<!--'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  APPEND 'window.setTimeout("setTitle()",50);' TO ct_html.
  APPEND 'window.onresize = myOnResize;' TO ct_html.
  APPEND '//-->' TO ct_html.
  APPEND '</script>' TO ct_html.
  CONCATENATE
        '</body>'
      '</html>'
      INTO ls_html.
  APPEND ls_html TO ct_html.

ENDFORM.                    "mainAddHTMLFooter


*-----------------------------------------------------------------------
* form: html_main_iFrameHeader
*-----------------------------------------------------------------------
FORM html_main_iframeheader
  USING
    value(i_title)
  CHANGING
    ct_html TYPE it_string.

  DATA:
  ls_html TYPE string,
  l_laiso TYPE laiso,
  l_sptxt TYPE sptxt.

  FIELD-SYMBOLS:
  <ls_tabstrip> TYPE st_tabstrip.

  PERFORM get_spras
    USING
      sy-langu
      l_laiso
      l_sptxt.

  CONCATENATE
      '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"'
      ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  CONCATENATE
      '<html xmlns="http://www.w3.org/1999/xhtml"'
      ' xml:lang="' l_laiso '" lang="' l_laiso '">'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  CONCATENATE
        '<head>'
          '<title id="title">' i_title '</title>'
          INTO ls_html.
  APPEND ls_html TO ct_html.
  PERFORM html_add_meta CHANGING ct_html.
  PERFORM html_main_style
    CHANGING
      ct_html.
  CONCATENATE
        '</head>'
        '<body class="iframebody" id="body">'
      INTO ls_html.
  APPEND ls_html TO ct_html.

ENDFORM.                    "html_main_iFrameHeader


*-----------------------------------------------------------------------
* form: html_main_iFrameFooter
*-----------------------------------------------------------------------
FORM html_main_iframefooter
  CHANGING
    ct_html TYPE it_string.

  DATA:
  ls_html TYPE string.

  CONCATENATE
        '</body>'
      '</html>'
      INTO ls_html.
  APPEND ls_html TO ct_html.

ENDFORM.                    "html_main_iFrameFooter


*-----------------------------------------------------------------------
* form: html_main_popupHeader
*-----------------------------------------------------------------------
FORM html_main_popupheader
  USING
    value(i_title)
  CHANGING
    ct_html TYPE it_string.

  DATA:
  ls_html TYPE string,
  l_laiso TYPE laiso,
  l_sptxt TYPE sptxt.

  FIELD-SYMBOLS:
  <ls_tabstrip> TYPE st_tabstrip.

  PERFORM get_spras
    USING
      sy-langu
      l_laiso
      l_sptxt.

  CONCATENATE
      '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"'
      ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  CONCATENATE
      '<html xmlns="http://www.w3.org/1999/xhtml"'
      ' xml:lang="' l_laiso '" lang="' l_laiso '">'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  CONCATENATE
        '<head>'
          '<title id="title">' i_title '</title>'
          INTO ls_html.
  APPEND ls_html TO ct_html.
  PERFORM html_add_meta CHANGING ct_html.
  PERFORM html_main_style
    CHANGING
      ct_html.
  CONCATENATE
        '</head>'
        '<body class="popupbody" id="body">'
      INTO ls_html.
  APPEND ls_html TO ct_html.

ENDFORM.                    "html_main_popupHeader


*-----------------------------------------------------------------------
* form: html_main_popupFooter
*-----------------------------------------------------------------------
FORM html_main_popupfooter
  CHANGING
    ct_html TYPE it_string.

  DATA:
  ls_html TYPE string.

  CONCATENATE
        '</body>'
      '</html>'
      INTO ls_html.
  APPEND ls_html TO ct_html.

ENDFORM.                    "html_main_popupFooter


*-----------------------------------------------------------------------
* form: html_main_style
*-----------------------------------------------------------------------
FORM html_main_style
  CHANGING
    ct_html TYPE it_string.

  DATA:
  ls_html TYPE string.

  APPEND '<style type="text/css">' TO ct_html.
  CONCATENATE
      'a {'
        'color:black;'
        'font-family:arial;'
        'font-size:10px;'
        'font-style:normal;'
        'font-weight:normal;'
        'text-decoration:none;'
      '}'
      'a:active {'
        'color:darkred;'
      '}'
      'a:focus {'
        'color:darkred;'
      '}'
      'a:hover {'
        'color:red;'
      '}'
      'a:link {'
        'color:black;'
      '}'
      'a:visited {'
        'color:#000000;'
      '}'
      'body {'
        'background-color:#94b6c6;'
        'margin:10px;'
      '}'
      'pre {'
        'font-size:11px;'
        'margin:0px;'
        'padding:0px;'
      '}'
      'span {'
        'color:#000000;'
        'font-family:arial;'
        'font-size:10px;'
        'font-style:normal;'
        'font-weight:normal;'
        'text-decoration:none;'
        'white-space:nowrap;'
      '}'
      'td {'
        'color:black;'
        'empty-cells:show;'
        'font-family:arial;'
        'font-size:10px;'
        'font-style:normal;'
        'font-weight:normal;'
        'text-align:left;'
        'text-decoration:none;'
        'white-space:nowrap;'
      '}'
      'th {'
        'color:black;'
        'empty-cells:show;'
        'font-family:arial;'
        'font-size:10px;'
        'font-style:normal;'
        'font-weight:normal;'
        'text-align:center;'
        'text-decoration:none;'
        'white-space:nowrap;'
      '}'
      '.box {'
        'border:1px solid #73716b;'
        'border-spacing:0px !important;'
        'padding:0px !important;'
        'margin:0px !important;'
      '}'
      '.boxContent {'
        'background-color:#ded7c5;'
        'border-spacing:0px !important;'
        'padding:0px !important;'
        'margin:0px !important;'
      '}'
      '.boxName {'
        'background-color:#cecabd;'
        'border-bottom:1px solid #73716b;'
        'border-left-width:0px;'
        'border-right:1px solid #73716b;'
        'border-top-width:0px;'
        'border-spacing:0px !important;'
        'margin:0px 3px 2px 0px !important;'
        'padding:1px 2px 1px 2px;'
      '}'
      '.boxContainerTd {'
        'border-spacing:0px !important;'
        'padding:0px !important;'
        'margin:0px !important;'
        'vertical-align:top;'
      '}'
      '.button {'
        'background-color:#efefde;'
        'border:1px solid #73716b;'
        'color:#000000;'
        'font-weight:bolder;'
        'font-size:8px;'
        'padding:1px 3px 1px 3px;'
        'text-align:center;'
        'vertical-align:middle;'
      '}'
      '.container {'
        'border-spacing:0px !important;'
      '}'
      '.containerContent {'
        'border:1px solid #73716b;'
        'border-spacing:0px !important;'
        'padding:2px;'
        'margin:0px !important;'
      '}'
      '.containerTitle {'
        'background-color:#cecabd;'
        'border-color:#73716b;'
        'border-spacing:0px !important;'
        'border-style:solid;'
        'border-width:1px 1px 0px 1px;'
        'margin:0px !important;'
        'padding:1px 2px 1px 2px;'
      '}'
      '.contentBox {'
        'background-color:#ded7c5;'
        'border-color:#ffffff #000000 #000000 #ffffff;'
        'border-style:solid;'
        'border-width:1px;'
        'padding:20px 5px 20px 5px;'
      '}'
      '.contentDiv {'
        'background-color:#ded7c5;'
        'height:100%;'
        'width:100%;'
      '}'
      '.contentTable {'
        'padding:0px;'
        'border-spacing:0px;'
      '}'
      '.contentTabDisabled {'
        'background-color:#c5c6b5;'
        'border-color:#ffffff #000000 #000000 #ffffff;'
        'border-style:solid;'
        'border-width:1px;'
        'color:#999999;'
        'padding:1px 10px 1px 10px;'
      '}'
      '.contentTabOff {'
        'background-color:#c5c6b5;'
        'border-color:#ffffff #000000 #000000 #ffffff;'
        'border-style:solid;'
        'border-width:1px;'
        'padding:1px 10px 1px 10px;'
      '}'
      '.contentTabOn {'
        'background-color:#ded7c5;'
        'border-color:#ffffff #000000 #000000 #ffffff;'
        'border-style:solid;'
        'border-width:1px 1px 0px 1px;'
        'padding:1px 10px 1px 10px;'
      '}'
      '.iframebody {'
        'background-color:#ded7c5;'
        'margin:0px;'
      '}'
      '.info {'
        'color:#0000ff'
      '}'
      '.innerTable {'
        'border-color:#73716b;'
        'border-style:solid;'
        'border-width:0px 0px 1px 1px;'
      '}'
      '.innerTableButton {'
        'background-color:#efefde;'
        'border:1px solid #73716b;'
        'color:#000000;'
        'font-weight:bolder;'
        'font-size:8px;'
        'padding:1px 3px 1px 3px;'
        'text-align:center;'
        'vertical-align:middle;'
        'width:20px;'
      '}'
      '.innerTableFlag {'
        'background-color:#cecebd;'
        'border:1px solid #ffffff;'
        'border-spacing:0px;'
        'color:#73716b;'
        'height:12px !important;'
        'margin:0px;'
        'padding:0px;'
        'width:12px !important;'
      '}'
      '.innerTableTD {'
        'background-color:#cecebd;'
        'border-color:#73716b;'
        'border-style:solid;'
        'border-width:1px 1px 0px 0px;'
        'empty-cells:show;'
        'padding:1px 3px 1px 3px;'
      '}'
      '.innerTableTDColored {'
        'background-color:#cecebd;'
        'border-color:#73716b;'
        'border-style:solid;'
        'border-width:1px 1px 0px 0px;'
        'color:#0000ff !important;'
        'empty-cells:show;'
        'padding:1px 3px 1px 3px;'
      '}'
      '.innerTableTH {'
        'background-color:#efefde;'
        'border-color:#73716b;'
        'border-style:solid;'
        'border-width:1px 1px 0px 0px;'
        'padding:1px 3px 1px 3px;'
      '}'
      '.innerTableTHtop {'
        'background-color:#cecabd;'
        'border-color:#73716b;'
        'border-style:solid;'
        'border-width:1px 1px 0px 0px;'
        'padding:1px 3px 1px 3px;'
      '}'
      '.linkDisabled {'
        'color:#888888 !important;'
      '}'
      '.popupbody {'
        'background-color:#94b2c5;'
        'margin:0px;'
      '}'
      '.radio {'
        'margin:0px'
      '}'
      '.scrollDiv {'
        'background-color:#ded7c5;'
      '}'
      '.scrollTable {'
        'border-spacing:0px;'
        'padding:0px;'
      '}'
      '.src {'
        'background-color:#cdcbbd;'
        'border-color:#ffffff #8c8e8c #8c8e8c #ffffff;'
        'border-style:solid;'
        'border-width:1px;'
        'overflow:auto;'
      '}'
      '.srcLine {'
        'color:#000000;'
        'empty-cells:show;'
      '}'
      '.srcLineComment {'
        'color:#0000ff;'
        'empty-cells:show;'
      '}'
      '.srcLineNumber {'
        'padding-right:5px;'
        'text-align:right;'
      '}'
      '.tableLink {'
        'color:#000000 !important;'
      '}'
      '.tableLinkColored {'
        'color:#0000ff !important;'
      '}'
      '.titleTable {'
        'border-spacing:2px;'
      '}'
      '.titleTableDescr {'
        'background-color:#cecebd;'
        'border:1px solid #ffffff;'
        'padding:1px 5px 1px 5px;'
      '}'
      '.titleTableText {'
        'border-bottom:1px solid #ffffff;'
        'padding-right:20px;'
      '}'
      INTO ls_html.
  APPEND ls_html TO ct_html.
  APPEND '</style>' TO ct_html.

ENDFORM.                    "addHTMLStyle
