ENHANCEMENT 1  ZSD_WS_CREDIT.    "active version
    """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(2) Class CL_UKM_XI_FACADE_R3_50, Interface IF_UKM_CREDIT_QUERY_R3, Method CHECK_CREDIT, Start, Enhancement ZSD_WS_CREDIT, Start                      A
* Data Declarations that would be used for local mapping of structures

    DATA:
          ls_query1     TYPE ukmr3_credit_worthiness_query,
          ls_response1  TYPE ukmr3_cw_response,
          lx_exc1       TYPE REF TO cx_root,
          lx_ai1        TYPE REF TO cx_ai_system_fault,
          e_message1    LIKE LINE OF et_return,
          ltext1        TYPE string.
* Data declaration to get the input data to the proxy
      DATA: ls_input        TYPE ukm_credit_worthiness_q_in,
            ls_ouput        TYPE ukm_credit_worthiness_r_out,
            ls_chk_sch      TYPE ukm_credit_worthiness_query_ch,
*       ls_chk_sch1     TYPE ukmr3_cw_checkingschedule1,
            ls_chk_sch1     LIKE LINE OF ls_query1-credit_worthiness_query-credit_worthiness_query-checking_schedule,
            lref_wor_qu     TYPE REF TO cl_ukm_credit_worthiness_query,
            ls_in_cre_par   TYPE ukm_cw_creditor_party,
*       ls_out_cre_par  TYPE ukmr3_cw_creditor_party2,
            ls_out_cre_par  TYPE ukm_cw_creditor_party,
            ls_in_sel_par   TYPE ukm_cw_seller_party,
*       ls_out_sel_par  TYPE ukmr3_cw_seller_party2,
            ls_out_sel_par  TYPE ukm_cw_seller_party,
            ls_in_pro_cat   TYPE ukm_cw_product_category,
*       ls_out_pro_cat  TYPE ukmr3_cw_product_category2.
            ls_out_pro_cat  TYPE ukm_cw_product_category.

**Using the below method convert the Import Parameters coming into Check Credit Method -  query data being sent to PI
      CALL METHOD cl_ukm_xi_facade_r3_50=>credit_query_convert_outbound
      EXPORTING
        i_partner        = i_partner
        i_credit_sgmnt   = i_credit_sgmnt
        i_amount         = i_amount
        i_currency       = i_currency
        i_checkrule      = i_checkrule
        i_checkseverity  = i_checkseverity
        i_retrieval_flag = i_retrieval_flag
        i_effective_date = i_effective_date
        i_log_reference  = i_log_reference
        it_schedule      = it_schedule
      IMPORTING
        es_query         = ls_query1.




* Map the values from ls_query1 to ls_input and than calling the inbound proxy of FSCM* information of the segment id

      MOVE:
      ls_query1-credit_worthiness_query-credit_worthiness_query-credit_segment_internal_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-credit_segment_internal_id,

*     information of the amount to be checked
      ls_query1-credit_worthiness_query-credit_worthiness_query-checked_amount-currency_code
      TO ls_input-credit_worthiness_query-credit_worthiness_query-checked_amount-currency_code,

      ls_query1-credit_worthiness_query-credit_worthiness_query-checked_amount-VALUE
      TO ls_input-credit_worthiness_query-credit_worthiness_query-checked_amount-VALUE,
*  Details of the rule code
      ls_query1-credit_worthiness_query-credit_worthiness_query-checking_rule_code
      TO ls_input-credit_worthiness_query-credit_worthiness_query-checking_rule_code,

*  Details of severity code
      ls_query1-credit_worthiness_query-credit_worthiness_query-checking_severity_code
      TO ls_input-credit_worthiness_query-credit_worthiness_query-checking_severity_code,

*  Details of permission indicator
      ls_query1-credit_worthiness_query-credit_worthiness_query-car_permission_indicator
      TO ls_input-credit_worthiness_query-credit_worthiness_query-credit_agency_permission_ind.

      LOOP AT ls_query1-credit_worthiness_query-credit_worthiness_query-checking_schedule
      INTO ls_chk_sch1.

        MOVE: ls_chk_sch1-valuation_date                TO ls_chk_sch-valuation_date,
        ls_chk_sch1-checked_amount                TO ls_chk_sch-checked_amount,
        ls_chk_sch1-credit_segment_internal_id    TO ls_chk_sch-credit_segment_internal_id,
        ls_chk_sch1-debtor_party-scheme_id        TO ls_chk_sch-debtor_party-scheme_id,
        ls_chk_sch1-debtor_party-scheme_agency_id TO ls_chk_sch-debtor_party-scheme_agency_id,
        ls_chk_sch1-debtor_party-VALUE            TO ls_chk_sch-debtor_party-VALUE.

        APPEND ls_chk_sch TO
        ls_input-credit_worthiness_query-credit_worthiness_query-checking_schedule.
        CLEAR ls_chk_sch.

      ENDLOOP.

* setting up values of DEBTOR PARTY
      MOVE:
      ls_query1-credit_worthiness_query-credit_worthiness_query-debtor_party-internal_id-scheme_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-debtor_party-internal_id-scheme_id,

      ls_query1-credit_worthiness_query-credit_worthiness_query-debtor_party-internal_id-scheme_agency_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-debtor_party-internal_id-scheme_agency_id,

      ls_query1-credit_worthiness_query-credit_worthiness_query-debtor_party-internal_id-VALUE
      TO ls_input-credit_worthiness_query-credit_worthiness_query-debtor_party-internal_id-VALUE,

*     setting up values of CREDITOR PARTY
      ls_query1-credit_worthiness_query-credit_worthiness_query-creditor_party-internal_id-scheme_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-creditor_party-internal_id-scheme_id,

      ls_query1-credit_worthiness_query-credit_worthiness_query-creditor_party-internal_id-scheme_agency_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-creditor_party-internal_id-scheme_agency_id,

      ls_query1-credit_worthiness_query-credit_worthiness_query-creditor_party-internal_id-VALUE
      TO ls_input-credit_worthiness_query-credit_worthiness_query-creditor_party-internal_id-VALUE,

*     setting up values of seller party
      ls_query1-credit_worthiness_query-credit_worthiness_query-seller_party-internal_id-scheme_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-seller_party-internal_id-scheme_id,

      ls_query1-credit_worthiness_query-credit_worthiness_query-seller_party-internal_id-scheme_agency_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-seller_party-internal_id-scheme_agency_id,

      ls_query1-credit_worthiness_query-credit_worthiness_query-seller_party-internal_id-VALUE
      TO ls_input-credit_worthiness_query-credit_worthiness_query-seller_party-internal_id-VALUE,

*     setting up values of product category
      ls_query1-credit_worthiness_query-credit_worthiness_query-product_category-internal_id-scheme_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-product_category-internal_id-scheme_id,

      ls_query1-credit_worthiness_query-credit_worthiness_query-product_category-internal_id-scheme_agency_id
      TO ls_input-credit_worthiness_query-credit_worthiness_query-product_category-internal_id-scheme_agency_id,

      ls_query1-credit_worthiness_query-credit_worthiness_query-product_category-internal_id-VALUE
      TO ls_input-credit_worthiness_query-credit_worthiness_query-product_category-internal_id-VALUE.

***************************************************************************************

**     Call the inbound Proxy with the data mapped in previous steps                     **

**     This is the Proxy method that is called when the FSCM inbound call is made to ECC **

***************************************************************************************

      CREATE OBJECT lref_wor_qu.

      TRY.
        CALL METHOD lref_wor_qu->ii_ukm_credit_worthiness_query~execute_synchronous
        EXPORTING
          INPUT  = ls_input
        IMPORTING
          OUTPUT = ls_ouput.
      CATCH cx_ukm_cw_check_fault INTO lx_exc1.

        ltext1 = lx_exc1->get_text( ).
        MESSAGE e008(ukm_pi) WITH ltext1 INTO e_message1-MESSAGE.

        e_message1-TYPE         = sy-msgty.
        e_message1-ID           =  sy-msgid.
        e_message1-NUMBER       = sy-msgno.
        e_message1-message_v1   = ltext1.
        APPEND e_message1 TO et_return.
        RAISE credit_check_failed.

      ENDTRY.


* From the response of the Inbound Proxy, map accordingly to the corresponding structures and tables to be converted into the return parameters of the Check Credit Method

      MOVE:
      ls_ouput-credit_worthiness_response-credit_worthiness-credit_segment_internal_id
      TO  ls_response1-credit_worthiness_response-credit_worthiness-credit_segment_internal_id,

      ls_ouput-credit_worthiness_response-credit_worthiness-indicator
      TO  ls_response1-credit_worthiness_response-credit_worthiness-indicator,

      ls_ouput-credit_worthiness_response-credit_worthiness-debtor_party_blocked_indicator
      TO  ls_response1-credit_worthiness_response-credit_worthiness-debtor_party_blocked_indicator,

      ls_ouput-credit_worthiness_response-credit_worthiness-debtor_party_attntn_indicator
      TO  ls_response1-credit_worthiness_response-credit_worthiness-debtor_party_special_attention,

      ls_ouput-credit_worthiness_response-credit_worthiness-horizon_end_date
      TO  ls_response1-credit_worthiness_response-credit_worthiness-horizon_end_date,

*     setting up value for DEBTOR PARTY
      ls_ouput-credit_worthiness_response-credit_worthiness-debtor_party-internal_id-scheme_id
      TO  ls_response1-credit_worthiness_response-credit_worthiness-debtor_party-internal_id-scheme_id,

      ls_ouput-credit_worthiness_response-credit_worthiness-debtor_party-internal_id-scheme_agency_id
      TO  ls_response1-credit_worthiness_response-credit_worthiness-debtor_party-internal_id-scheme_agency_id,

      ls_ouput-credit_worthiness_response-credit_worthiness-debtor_party-internal_id-VALUE
      TO  ls_response1-credit_worthiness_response-credit_worthiness-debtor_party-internal_id-VALUE,

*     setting up value for RATING
      ls_ouput-credit_worthiness_response-credit_worthiness-rating
      TO  ls_response1-credit_worthiness_response-credit_worthiness-rating,

*     setting up value for RISK_CLASS
      ls_ouput-credit_worthiness_response-credit_worthiness-risk_class
      TO  ls_response1-credit_worthiness_response-credit_worthiness-risk_class,

*     setting up value for CREDIT_LIMIT
      ls_ouput-credit_worthiness_response-credit_worthiness-credit_limit
      TO  ls_response1-credit_worthiness_response-credit_worthiness-credit_limit,

      ls_ouput-credit_worthiness_response-credit_worthiness-checking_description[]
      TO  ls_response1-credit_worthiness_response-credit_worthiness-checking_description[].



*     getting the values of the creditor party
      LOOP AT ls_ouput-credit_worthiness_response-credit_worthiness-creditor_party
      INTO ls_in_cre_par.

        MOVE: ls_in_cre_par-internal_id-scheme_id         TO ls_out_cre_par-internal_id-scheme_id,
        ls_in_cre_par-internal_id-scheme_agency_id  TO ls_out_cre_par-internal_id-scheme_agency_id,
        ls_in_cre_par-internal_id-VALUE             TO  ls_out_cre_par-internal_id-VALUE.

        APPEND ls_out_cre_par TO ls_response1-credit_worthiness_response-credit_worthiness-creditor_party.
        CLEAR ls_out_cre_par.
      ENDLOOP.

*     getting the values of the seller party
      LOOP AT ls_ouput-credit_worthiness_response-credit_worthiness-seller_party
      INTO ls_in_sel_par.

        MOVE: ls_in_sel_par-internal_id-scheme_id         TO ls_out_sel_par-internal_id-scheme_id,
        ls_in_sel_par-internal_id-scheme_agency_id  TO ls_out_sel_par-internal_id-scheme_agency_id,
        ls_in_sel_par-internal_id-VALUE             TO ls_out_sel_par-internal_id-VALUE.

        APPEND ls_out_sel_par TO ls_response1-credit_worthiness_response-credit_worthiness-seller_party.
        CLEAR ls_out_sel_par.
      ENDLOOP.

*     getting the values of product category
      LOOP AT ls_ouput-credit_worthiness_response-credit_worthiness-product_category
      INTO ls_in_pro_cat.

        MOVE: ls_in_pro_cat-internal_id-scheme_id         TO ls_out_pro_cat-internal_id-scheme_id,
        ls_in_pro_cat-internal_id-scheme_agency_id  TO ls_out_pro_cat-internal_id-scheme_agency_id,
        ls_in_pro_cat-internal_id-VALUE             TO ls_out_pro_cat-internal_id-VALUE.

        APPEND ls_in_pro_cat TO
        ls_response1-credit_worthiness_response-credit_worthiness-product_category.
        CLEAR ls_in_pro_cat.

      ENDLOOP.

* Use the data populated with the proxy response to convert it to the Export parameters of the Check Credit Method

      CALL METHOD cl_ukm_xi_facade_r3_50=>credit_query_convert_inbound
      EXPORTING
        is_response           = ls_response1
      IMPORTING
        et_credit_messages    = et_credit_messages
        e_check_confirmation  = e_check_confirmation
        e_rating              = e_rating
        e_riskclass           = e_riskclass
        e_creditlimit         = e_creditlimit
        e_limit_currency      = e_limit_currency
        e_limit_valid_to      = e_limit_valid_to
        e_blocked_indicator   = e_blocked_indicator
        e_attntn_indicator    = e_attntn_indicator
        e_credit_horizon_date = e_credit_horizon_date.

* EXIT statement to come out of the method.

      EXIT.

* This EXIT statement would force the execution out of this method by-passing the standard code where PI calls are made


ENDENHANCEMENT.