Parameter von CRM System auf ERP System übertragen

Code: Alles auswählen.

method INIT.
  "TRY.
  " CALL METHOD super->init.


  DATA lv_url_builder TYPE REF TO if_crm_ic_ltx_url_admin.
  DATA lv_ltx_id      TYPE        crmt_ic_ltx_id.
  DATA lv_entity TYPE REF TO cl_crm_bol_entity.
  DATA lv_bp_id TYPE bu_partner.
  DATA lv_bp_kind TYPE crmt_bu_account_group.
  DATA lv_guid TYPE bu_partner_guid.
  DATA ls_classification TYPE crmt_bus_frg0040.
  DATA lv_erp_url TYPE crm_rt_url.
  DATA lv_kontengr TYPE crmt_bu_account_group.
  DATA: lv_msgsrv     TYPE REF TO cl_bsp_wd_message_service,
        lv_msg_no     TYPE symsgno,
        lv_max_hit    TYPE symsgv.

*  DATA gv_current TYPE REF TO IF_BOL_BO_PROPERTY_ACCESS.

  me->load_url_customizing( ).

  IF me->is_url_bsp_based( ) = abap_true.
    gs_url-url = me->build_bsp_url( ).
  ELSEIF me->is_other_url( ) = abap_true.
    gs_url-url = me->build_other_url( ).
  ELSE.
    raise_exception_no_url_id_cust( gs_url-url_id ).
  ENDIF.

*----------------------------------------------
* Änderung Ermittlung der SystemURL und Anhängen der GP-Art und GP-ID an die URL.

  DATA: lv_url_string TYPE string.

  lv_url_string = 'http://<DOMAIN>:<PORT>/sap/bc/report/!?sap-client=200&report=z_auslesen'.

  REPLACE '&system_url&' IN gs_url-url_part1 WITH lv_url_string.


*    lv_entity ?= gv_current.
*    lv_entity->get_property_as_value( EXPORTING iv_attr_name = 'BP_NUMBER'
*                                      IMPORTING ev_result = lv_bp_id ).
*
*    lv_entity->get_property_as_value( EXPORTING iv_attr_name = 'BP_GUID'
*                                      IMPORTING ev_result = lv_guid ).

    CONCATENATE gs_url-url_part1 '&ID=' lv_bp_id '&TYPE=' lv_bp_kind INTO gs_url-url.

*----------------------------------------------


    IF gs_url-url_class IS NOT INITIAL.
      CREATE OBJECT lv_url_builder TYPE (gs_url-url_class).

      lv_ltx_id = gv_id.

      CALL METHOD lv_url_builder->get_url_data
        EXPORTING
          iv_ltx_id     = lv_ltx_id
          iv_use_portal = gs_url-use_portal
        IMPORTING
          ev_window_id  = gs_url-window_id
          ev_reload     = gs_url-reload
        CHANGING
          cv_url        = gs_url-url.
    ENDIF.

    IF gs_url-use_portal EQ abap_true.
      me->extract_parameters_from_url( iv_url = gs_url-url ).
    ELSE.

      IF me->is_return_df_requested = abap_true.
        me->add_return_address_to_url( CHANGING cv_url = gs_url-url ).
      ENDIF.
    ENDIF.

   endmethod.

Code: Alles auswählen.

REPORT  Z_AUSLESEN.

* Lokale Datendeklarationen
  TYPES: BEGIN OF tab_type,
           para TYPE string,
           dobj TYPE string,
         END OF tab_type.

  DATA:  lv_type      TYPE string,
         lv_id        TYPE string,
         lv_partner   TYPE bu_partner,
         lv_elem_typ  TYPE bapispsid,
         ls_line      TYPE tab_type,
         lt_tab       TYPE STANDARD TABLE OF tab_type,
         lt_guids     TYPE scmg_tt_case_guid.


* Importieren von der Datenbank
  IMPORT tab_type = lt_tab
         FROM DATABASE indx(ar)
         ID sy-uname.
  CLEAR ls_line.
  READ TABLE lt_tab INTO ls_line WITH KEY para = 'TYPE'.
  lv_type = ls_line-dobj.
  CLEAR ls_line.
  READ TABLE lt_tab INTO ls_line WITH KEY para = 'ID'.
  lv_id = ls_line-dobj.
  FREE MEMORY ID sy-uname.

  WRITE:/ lv_id, lv_type, '/ es geht !!!!!!!!!!!!!!!!!!!!!!!!!!'.