Quantcast
Channel: SCN: Message List - SAP CRM: Webclient UI - Framework
Viewing all articles
Browse latest Browse all 7775

Re: Reg : change the Partner data while saving

$
0
0

Hi Thomas, Thanks for your help. I have passed the logical key, its worked. you are the best.

Below is the code , This is going to help for other also. I am posting here.

 

DATA:

       lv_ref_handle        TYPE numc4,

       ls_partner_wrk       TYPE crmt_partner_external_wrk,

       lt_partner_wrk       TYPE crmt_partner_external_wrkt,

       ls_partner_com       TYPE crmt_partner_com,

       lt_partner_com       TYPE crmt_partner_comt,

       ls_input_fields      TYPE crmt_input_field.

DATA : lt_partner_attributes TYPE crmt_partner_attribute_com_tab,

        ls_partner_attributes TYPE crmt_partner_attribute_com.

DATA : ls_logical_key TYPE comt_partner_logic_partner_key.

DATA:  lv_handle TYPE crmt_handle.

DATA:  lt_input_fields  TYPE  crmt_input_field_tab,

        ls_input_field   TYPE  crmt_input_field,

       ls_input_field_names TYPE crmt_input_field_names ,

       lt_input_field_names TYPE crmt_input_field_names_tab.

DATA : lit_partner          TYPE CRMT_PARTNER_COMT,

        wa_partner           LIKE LINE OF lit_partner.

DATA : LT_ORDER_H type CRMT_ORDERADM_H_COMT,

        ls_order_H type CRMT_ORDERADM_H_COM.

move-corresponding ls_adminh to ls_order_h.

   insert ls_order_h into table lt_order_h.

           LOOP AT t_partner INTO ls_partner_wrk .

 

             IF ls_partner_wrk-partner_pft = '0005' OR  ls_partner_wrk-partner_pft = '0008'  .

            ls_partner_wrk-zzfld000080 = 'X'.

             ENDIF.

            move-corresponding ls_partner_wrk to wa_partner.

             ls_input_field_names-fieldname = 'DISPLAY_TYPE'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

             ls_input_field_names-fieldname = 'KIND_OF_ENTRY'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

             ls_input_field_names-fieldname = 'MAINPARTNER'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

             ls_input_field_names-fieldname = 'NO_TYPE'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

             ls_input_field_names-fieldname = 'PARTNER_FCT'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

             ls_input_field_names-fieldname = 'CALENDAR'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

             ls_input_field_names-fieldname = 'RELATION_PARTNER'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

             ls_input_field_names-fieldname = 'PARTNER_NO'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

             ls_input_field_names-fieldname = 'ZZFLD000080'.

             INSERT ls_input_field_names INTO TABLE lt_input_field_names.

 

DATA: ls_logic_partner_key  TYPE crmt_partner_logic_partner_key.

ls_logic_partner_key-ref_partner_handle = ls_partner_wrk-ref_partner_handle.

   ls_logic_partner_key-ref_partner_fct = ls_partner_wrk-ref_partner_fct.

   ls_logic_partner_key-ref_partner_no = ls_partner_wrk-ref_partner_no.

   ls_logic_partner_key-ref_no_type = ls_partner_wrk-ref_no_type.

   ls_logic_partner_key-ref_display_type = ls_partner_wrk-ref_display_type.

   ls_input_field-logical_key = ls_logic_partner_key.

 

      ls_input_field-ref_guid    = iv_guid.

       ls_input_field-ref_kind    = 'A'.

       ls_input_field-objectname  = 'PARTNER'.

       ls_input_field-field_names = lt_input_field_names.

       INSERT ls_input_field INTO TABLE lt_input_fields.

        insert wa_partner into table lit_partner.

           ENDLOOP.

 

             CALL FUNCTION 'CRM_ORDER_MAINTAIN'

                  EXPORTING

                       IT_PARTNER = lit_partner

                  CHANGING

                       CT_ORDERADM_H = lt_order_h

                       CT_INPUT_FIELDS = lt_input_fields

                  EXCEPTIONS

                       ERROR_OCCURRED = 1

                       DOCUMENT_LOCKED = 2

                       NO_CHANGE_ALLOWED = 3

                       NO_AUTHORITY = 4

                       OTHERS = 5.


Viewing all articles
Browse latest Browse all 7775

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>