SMARTFORM X-System Comparer

Hinweise, Tips und Tricks, FAQs - keine Anfragen!!
1 Beitrag • Seite 1 von 1
1 Beitrag Seite 1 von 1

SMARTFORM X-System Comparer

Beitrag von Tron (Top Expert / 1327 / 35 / 331 ) »
Moin.
Auf der Suche nach einer geeigneten Möglichkeit Smartform Formularversionen über die Systemgrenzen hinaus zu vergleichen, bin ich leider nirgends fündig geworden.
Der Bedarf an einem solchen Tools scheint mir jedoch sehr groß zu sein , deshalb .....

Smartform Comparer X-System.
000.png
Der Smartformvergleicher besteht aus:
1.) einem RFC-fähigen Funktionsbaustein der eine Smartform Formular Definition als XML einliest und
via Tabellenparameter über die Schnittstelle bereitstellt. Dieser Funktionsbaustein sollte in alle verbundenen Systeme transportiert werden.

2.) Einem Report, welcher die Definitionen vergleicht (was einfacher klingt, als es ist.)
Wenn man genau wissen möchte was unterschiedlich ist, kann man die Ergebnistabelle (lt_xx) des Bausteins RS_CMP_COMPUTE_DELTA auf einem ALV ausgeben.
Die Differenzen sind gekennzeichnet (oder was er dafür hält) . Alle Tags eines Smartform formulars, welche generell unterschiedlich sind, wie FORMNAME LASTDATE ..
werden über ein Range Objekt abgefangen, da sonst jeder Vergleich zu Differenzen führen würde. (Also falls noch jemand etwas entdecken sollte...)
Mein Tipp wäre hier noch, die Liste ab der Differenz, Richtung Anfang zu gehen, bis zum Element INAME , das Element kann man dann in Smartforms suchen ! :wink:
Der Vergleich reagiert auf Übersetzungen und funktioniert sogar mit nicht aktivierten Formularen.
Der Report kann im Entwicklungssystem bleiben, solange man nicht von den angeschlossenen Systemen aus vergleichen möchte.

Der RFC Funktionsbaustein:

Code: Alles auswählen.

FUNCTION Z_BC_READSFXML.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_FORM) TYPE  TDSFNAME
*"     VALUE(I_LANGU) TYPE  SPRAS DEFAULT 'E'
*"  TABLES
*"      SFTAB STRUCTURE  SMUM_XMLTB
*"      RETURN STRUCTURE  BAPIRET2 OPTIONAL
*"  EXCEPTIONS
*"      FORM_NOT_EXIST
*"----------------------------------------------------------------------
  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 tyt_tab_xml TYPE TABLE OF smum_xmltb.


  TYPES: t_gnode  TYPE ssfgnode,
         t_gnodes TYPE tsfgnode.


  DATA: l_filename    TYPE string,
        l_file_filter TYPE string,
        l_user_action TYPE i.
  DATA: 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: 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


  DATA: gv_xml_xstring TYPE          xstring,
        gv_size        TYPE          sy-tabix.

  DATA ls_admin TYPE stxfadm.

  SELECT SINGLE * FROM stxfadm INTO ls_admin WHERE formname = i_form.

  IF ls_admin IS INITIAL.
    RAISE form_not_exist.
  ELSE.
    formname = i_form.
  ENDIF.

  IF i_langu IS INITIAL.
    language =  ls_admin-masterlang.
  ELSE.
    language = i_langu.
  ENDIF.

* 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.
  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 ).


  CALL FUNCTION 'SDIXML_DOM_TO_XML'
    EXPORTING
      document      = xml_document
*     PRETTY_PRINT  = ' '
    IMPORTING
      xml_as_string = gv_xml_xstring
      size          = gv_size
    EXCEPTIONS
      no_document   = 1
      OTHERS        = 2.

*== Convert XML to itab
  CALL FUNCTION 'SMUM_XML_PARSE'
    EXPORTING
      xml_input = gv_xml_xstring
    TABLES
      xml_table = sftab
      return    = return.

ENDFUNCTION.
siehe auch https://www.tricktresor.de/blog/beliebi ... -einlesen/

Der Report

Code: Alles auswählen.

REPORT ztest_sf_comp.
TABLES: sscrfields.

* Info Destinationen
DATA: des1_info TYPE rfcsi,
      des2_info TYPE rfcsi.
DATA lv_mandt1(3).
DATA lv_mandt2(3).

DATA rt_exc TYPE smum_xmltb-cname.
RANGES gr_excl FOR rt_exc.

START-OF-SELECTION.

  SELECTION-SCREEN FUNCTION KEY 1.

  PARAMETERS:
    p_form1 TYPE tdsfname OBLIGATORY MATCHCODE OBJECT sh_stxfadm,
    p_form2 TYPE tdsfname OBLIGATORY MATCHCODE OBJECT sh_stxfadm.

  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-001.
  PARAMETERS p_des1 TYPE rfcdes-rfcdest OBLIGATORY DEFAULT 'NONE'.
  SELECTION-SCREEN END OF BLOCK b.

  SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-002.
  PARAMETERS p_des2 TYPE rfcdes-rfcdest OBLIGATORY DEFAULT 'NONE'.
  SELECTION-SCREEN END OF BLOCK a.

END-OF-SELECTION.

  PERFORM check_avail.
  IF des1_info IS INITIAL.
    MESSAGE s368(00) DISPLAY LIKE 'E' WITH p_des1 ':RFC-Destination not reachable.' .
    EXIT.
  ENDIF.

  IF des2_info IS INITIAL.
    MESSAGE s368(00) DISPLAY LIKE 'E' WITH p_des2 ':RFC-Destination not reachable.' .
    EXIT.
  ENDIF.

  PERFORM fill_exclude_range.


  PERFORM compare_sf.
*&---------------------------------------------------------------------*
*&      Form  Check_avail
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->DEST       text
*----------------------------------------------------------------------*
FORM check_avail.
  DATA:
"  info LIKE rfcsi,
  msg_text(80) TYPE c. "Message text

  CALL FUNCTION 'RFC_SYSTEM_INFO'
    DESTINATION p_des1
    IMPORTING
      rfcsi_export          = des1_info
    EXCEPTIONS
      communication_failure = 1 MESSAGE msg_text
      system_failure        = 2 MESSAGE msg_text.

  CALL FUNCTION 'RFC_SYSTEM_INFO'
    DESTINATION p_des2
    IMPORTING
      rfcsi_export          = des2_info
    EXCEPTIONS
      communication_failure = 1 MESSAGE msg_text
      system_failure        = 2 MESSAGE msg_text.

ENDFORM.                    "Check_avail
*&---------------------------------------------------------------------*
*&      Form  write_for_display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM write_for_display.
  DATA: t1(80),t2(80).
  DATA: info         LIKE rfcsi,
        msg_text(80) TYPE c. "Message text

  FORMAT COLOR COL_HEADING.
  WRITE: / '*** STATUS RFC-connectivity ***' , AT sy-linsz space.
  ULINE.
  FORMAT COLOR OFF.

  CLEAR msg_text.
  CALL FUNCTION 'RFC_PING'
    DESTINATION p_des2
    EXCEPTIONS
      communication_failure = 1 MESSAGE msg_text
      system_failure        = 2 MESSAGE msg_text.


  t1 = p_des2.
  CONDENSE t1.

  IF msg_text IS INITIAL.
    CONCATENATE 'Destination :' t1 'reachable.' INTO t2 SEPARATED BY space.
    FORMAT INTENSIFIED OFF.

    WRITE: / icon_led_green AS ICON,
                t2 COLOR COL_POSITIVE.

  ELSE.
    CONCATENATE 'Destination :' t1 'not reachable.' INTO t2 SEPARATED BY space.
    FORMAT INTENSIFIED OFF.

    WRITE: /      icon_led_red AS ICON,
                  t2 COLOR COL_NEGATIVE.

  ENDIF.

  CLEAR msg_text.
  CALL FUNCTION 'RFC_PING'
    DESTINATION p_des1
    EXCEPTIONS
      communication_failure = 1 MESSAGE msg_text
      system_failure        = 2 MESSAGE msg_text.


  t1 = p_des1.
  CONDENSE t1.

  IF msg_text IS INITIAL.
    CONCATENATE 'Destination :' t1 'reachable.' INTO t2 SEPARATED BY space.
    FORMAT INTENSIFIED OFF.

    WRITE: / icon_led_green AS ICON,
                t2 COLOR COL_POSITIVE.

  ELSE.
    CONCATENATE 'Destination :' t1 'not reachable.' INTO t2 SEPARATED BY space.
    FORMAT INTENSIFIED OFF.

    WRITE: /      icon_led_red AS ICON,
                  t2 COLOR COL_NEGATIVE.

  ENDIF.

ENDFORM.                    "write_for_display

AT SELECTION-SCREEN.
  IF sy-ucomm = 'FC01'." n = 1 up to 5
* Teste Erreichbarkeit

    PERFORM write_for_display.

    CALL FUNCTION 'C14A_POPUP_LIST_DISPLAY'
      EXPORTING
        i_callback            = 'WRITE_FOR_DISPLAY'
        i_callback_program    = sy-repid
        i_title               = 'RFC-connections'
        i_col                 = 4
        i_row                 = 4
        i_width               = 84
        i_height              = 10
*       I_TEXT_WIDTH          =
*       I_FLG_SHOW_PRINT_BUTTON = ESP1_FALSE
      EXCEPTIONS
        no_callback_specified = 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.
  ENDIF.

INITIALIZATION.

  sscrfields-functxt_01 = '@FC@ Check RFC-Destinations'(003).

FORM compare_sf.



  DATA t_sftab1 TYPE TABLE OF smum_xmltb.
  DATA t_sftab2 TYPE TABLE OF smum_xmltb.
  FIELD-SYMBOLS <sft> TYPE smum_xmltb.
  DATA lt_t1 TYPE rswsourcet.
  DATA lt_t2 TYPE rswsourcet.
  DATA lv_equal(1).
  DATA lt_xx TYPE TABLE OF rsedcresul WITH HEADER LINE.
  DATA lv_str TYPE string.

  DATA msg_text(80).

  CALL FUNCTION 'Z_BC_READSFXML' DESTINATION p_des1
    EXPORTING
      i_form                  = p_form1
      i_langu                 = ' '
    TABLES
      sftab                   = t_sftab1
*     RETURN                  =
    EXCEPTIONS
      form_not_exist          = 1
      wrong_access_to_archive = 2
      communication_failure   = 3 MESSAGE msg_text
      system_failure          = 4 MESSAGE msg_text
      OTHERS                  = 5.

  LOOP AT t_sftab1 ASSIGNING <sft> WHERE cname IN gr_excl AND type NE 'A' .
    CONCATENATE <sft>-cname <sft>-cvalue INTO lv_str.
    APPEND lv_str TO lt_t1.
  ENDLOOP.

  CALL FUNCTION 'Z_BC_READSFXML' DESTINATION p_des2
    EXPORTING
      i_form                  = p_form2
      i_langu                 = ' '
    TABLES
      sftab                   = t_sftab2
*     RETURN                  =
    EXCEPTIONS
      form_not_exist          = 1
      wrong_access_to_archive = 2
      communication_failure   = 3 MESSAGE msg_text
      system_failure          = 4 MESSAGE msg_text
      OTHERS                  = 5.

  LOOP AT t_sftab2 ASSIGNING <sft> WHERE cname IN gr_excl AND type NE 'A' .
    CONCATENATE <sft>-cname <sft>-cvalue INTO lv_str.
    APPEND lv_str TO lt_t2.
  ENDLOOP.

  CALL FUNCTION 'RS_CMP_COMPUTE_DELTA'
    EXPORTING
*     COMPARE_MODE            = '1'
*     FLG_EXT_IGNORE          = ' '
      ignore_case_differences = ' '
*     FLG_WB99                = ' '
    IMPORTING
      flg_equal               = lv_equal
    TABLES
      text_tab1               = lt_t1
      text_tab2               = lt_t2
      text_tab_res            = lt_xx
    EXCEPTIONS
      parameter_invalid       = 1
      difference_not_found    = 2
      OTHERS                  = 3.

  IF lv_equal IS INITIAL.
    MESSAGE s000(su) WITH 'Forms are not equal !' DISPLAY LIKE 'E'.
  ELSE.
    MESSAGE s000(su) WITH 'Forms are equal !'.
  ENDIF.

ENDFORM.

FORM fill_exclude_range.

  CLEAR   gr_excl .

  gr_excl-sign = 'E'.
  gr_excl-option = 'EQ'.

  gr_excl-low = 'FORMNAME'. APPEND gr_excl.
  gr_excl-low = 'FIRSTUSER'. APPEND gr_excl.
  gr_excl-low = 'FIRSTDATE'. APPEND gr_excl.
  gr_excl-low = 'FIRSTTIME'. APPEND gr_excl.
  gr_excl-low = 'LASTUSER'. APPEND gr_excl.
  gr_excl-low = 'LASTDATE'. APPEND gr_excl.
  gr_excl-low = 'LASTTIME'. APPEND gr_excl.
  gr_excl-low = 'CAPTION'. APPEND gr_excl.
  gr_excl-low = 'DEVCLASS'. APPEND gr_excl.
  gr_excl-low = 'STATUS'. APPEND gr_excl.
  gr_excl-low = 'LANGU'. APPEND gr_excl.

ENDFORM.
viel Erfolg :-)
gruß Jens

Folgende Benutzer bedankten sich beim Autor Tron für den Beitrag (Insgesamt 3):
tm987456Legxisqyurryus

<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Seite 1 von 1

Vergleichbare Themen

1
Antw.
151
Views
2
Antw.
3260
Views
Transport Management System / virtuelles System
von Mike » 13.09.2004 17:46 • Verfasst in Basis
7
Antw.
7261
Views
Favoriten von System zu System kopieren ???
von airwaver » 06.01.2006 09:08 • Verfasst in ABAP® für Anfänger
4
Antw.
2468
Views
HR System auf separatem System - warum?
von ABAP_User » 20.06.2011 23:28 • Verfasst in Human Resources
0
Antw.
1716
Views

Über diesen Beitrag

Tron

Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.