Smartforms-Texte Datenbanktabelle

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report  YBC_READ_SMARTFORM_XML
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  YBC_READ_SMARTFORM_XML.
constants: c_xml_ns_uri_sf(255)  type c
    value 'urn:sap-com:SmartForms:2000:internal-structure', "#EC NOTEXT
           c_xml_ns_uri_ifr(255) type c
    value 'urn:sap-com:sdixml-ifr:2000'.                    "#EC NOTEXT



types: t_gnode   type ssfgnode,
       t_gnodes  type tsfgnode.

* internal tables
data: g_nodes type t_gnodes with header line,
      wa_g_nodes like line of g_nodes.

data: l_filename          type string,
      l_file_filter       type string,
      l_user_action       type i.
data: wa_node             like line of g_nodes,
      l_element           type ref to if_ixml_element.
data: l_language_str      type string,
      l_language(2)       type c.
data: l_lines             type i,
      l_splitted_name_tab type table of string.
data: l_stylename         type tdssname,
      l_stylevari         type tdvariant,
      l_save_style        type tdssname.


data: g_ixml               type ref to if_ixml,
      xml_document         type ref to if_ixml_document,
      xml_element          type ref to if_ixml_element,
      xml_ns_prefix_sf     type string,
      xml_ns_uri_sf        type string,
      xml_ns_uri_ifr       type string,
      xml_macro_name       type string,
      xml_macro_rc         type i,
      xml_macro_objt       type stxfobjt,
      xml_macro_text       type stxftxt,
      xml_macro_tline      type tline,
      xml_upload_language  type tdspras.

types: t_raw(250) type x.

data: xml_xtable        type table of t_raw with header line,
      xml_document_size type i,
      g_download_path   type string,
      g_xml_fullpath    type string.

data: sform             type ref to cl_ssf_fb_smart_form.

* Namen der aktuell bearbeiteten Objekte
data: formname    type tdsfname,     " Name des Formulars
      variant     type tdvariant,    " Name der Formularvariante
      language    type sy-langu,     " Bearbeitungssprache
      fmnumb      type tdfmnumb,     " Nummer des zugeordneten Fb
      fmnumb_test type tdfmnumb.     " Fb zum Test der inaktiven Fassung



parameters form type TDSFNAME obligatory MATCHCODE OBJECT SH_STXFADM.


formname = form.
language = 'D'.

* create form object
  create object sform.


call method sform->load
     exporting  im_formname    = formname
                im_language    = language
                im_active      = space
     importing  ex_fmnumb      = fmnumb
                ex_fmnumb_test = fmnumb_test.

if g_ixml is initial.
  g_ixml          = cl_ixml=>create( ).
endif.

xml_document      = g_ixml->create_document( ).
xml_ns_prefix_sf  = 'sf'.
xml_ns_uri_sf     = c_xml_ns_uri_sf.
xml_ns_uri_ifr    = c_xml_ns_uri_ifr.
clear: xml_document_size, xml_xtable[].
sform->xml_init( ).

* create XML for the entire smart form
  call method sform->xml_download
              exporting parent   = xml_document
              changing  document = xml_document.

* namespace
l_element  = xml_document->get_root_element( ).
l_element->set_attribute( name      = xml_ns_prefix_sf
                          namespace = 'xmlns'
                          value     = xml_ns_uri_sf ).
l_element->set_attribute( name  = 'xmlns'
                          value = xml_ns_uri_ifr ).

* language
write language to l_language.
l_language_str = l_language.
xml_macro_rc = l_element->set_attribute(
                    name      = 'language'
                    namespace = xml_ns_prefix_sf
                    value     = l_language_str ).


** convert DOM to xml
*call function 'SDIXML_DOM_TO_XML'
*     exporting  document     = xml_document
*     importing  size         = xml_document_size
*     tables     xml_as_table = xml_xtable
*     exceptions others       = 1.
*
*
* DATA d TYPE REF TO if_ixml_document.
* DATA e TYPE REF TO if_ixml_element.
* DATA problems TYPE  dcxmlprbl.
*
*
*e = d->get_root_element( ).
*
*CALL FUNCTION 'SDIXML_DOM_TO_DATA'
*  EXPORTING
*    data_as_dom          = e
**   CONTROL              =
* IMPORTING
*   DATAOBJECT           =
*   PROBLEMS             = problems
** EXCEPTIONS
**   ILLEGAL_OBJECT       = 1
**   OTHERS               = 2
*          .
*IF sy-subrc <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
**         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.





data lv_title type sy-title.
concatenate 'Smartform :' form into lv_title.

CALL FUNCTION 'SDIXML_DOM_TO_SCREEN'
  EXPORTING
    document          = xml_document
    TITLE             = lv_title
 EXCEPTIONS
   NO_DOCUMENT       = 1
   OTHERS            = 2.

IF sy-subrc <> 0.
ENDIF.