How to work with text objects in b2b frontend

Question

Hi,
My functional team has assigned new text ids "0012","Z005" and "Z025" in text object "CRM_ORDERH"
and text procedure "ZORDER02".
Now they want me to add five new text input fields to b2b order creation page and they want the data entered by customer to be saved under these text ids.
Suppose there are five fields A,B,C,D and E.Now they want me to send the contents of A under "0012"
and concatenation of rest of four fields to "Z005" and "Z025".
I have no clues what all I need to do.Can anyone please let me know what all I need to write and how to get this requirement done.
Thanks in advance

Answer 1

Hi Laxman,
Thanks for the quick turn around.
I dont get it in the get_head method. I am doing a crm_order_read and reading the output text table.
It has two text ids instead of three which i updated in change_head method.
I checked in debugging in the text_maintIn_ow function module and
i saw that this text id was failing to get updated , the message "Z* text id not maintained in procedure Z100001'. This procedure is assigned to TA and the text id id not assigned to TA. The process type is still TA the first time CRM_ORDER_MAINTAIN is called along with these extension updates. So the text maintain function gets the control data for TA and not for the ZPRO process type.
I have all the text ids maintained for process type ZPRO.
Here is the code when the user selects the process type ZPRO in ISA from the basket page.
And in our case we dont have any payment method page in ISA after this selection.
Code:
Change_head
READ TABLE ct_orderadm_h INTO ls_orderadm_h INDEX 1.
  CHECK sy-subrc = 0. " and ls_orderadm_h-process_type = 'ZPRO'.
LOOP AT it_extension INTO ls_extension WHERE ref_guid EQ ls_orderadm_h-guid.
      CASE ls_extension-name.
* Comments
        WHEN 'ZCOMMENTS' OR 'ZPUR_EMAIL' OR 'ZCC_EMAIL'.
          CALL METHOD fill_text
            EXPORTING
              iv_language     = lv_language
              is_orderadm_h   = ls_orderadm_h
              is_extension    = ls_extension
            CHANGING
              ct_text         = ct_text
              ct_input_fields = ct_input_fields.
      ENDCASE.
    ENDLOOP.
** get_head_get_data*
APPEND is_basket_head-guid TO lt_header_guid.
  ls_req_obj = 'ORDERADM_H'.
  INSERT ls_req_obj INTO TABLE lt_req_obj.
  ls_req_obj = 'PARTNER'.
  INSERT ls_req_obj INTO TABLE lt_req_obj.
  ls_req_obj = 'TEXTS'.
  INSERT ls_req_obj INTO TABLE lt_req_obj.
  ls_req_obj = 'STATUS'.
  INSERT ls_req_obj INTO TABLE lt_req_obj.
  CALL FUNCTION 'CRM_ORDER_READ'
    EXPORTING
      it_header_guid = lt_header_guid
      iv_only_spec_items = 'X'
      it_requested_objects = lt_req_obj
    IMPORTING
     et_orderadm_h        = lt_orderadm_h
*      et_customer_h        = lt_customer_h
       et_partner           = lt_partner
       et_text              = lt_text
*      et_sales             = lt_sales
      et_status            = lt_status
    EXCEPTIONS
      OTHERS               = 99.
  IF sy-subrc <> 0.
  ENDIF.
* check
  READ TABLE lt_orderadm_h INTO ls_orderadm_h INDEX 1.
  CHECK sy-subrc = 0 . "AND ls_orderadm_h-process_type = 'ZPRO'.
  ls_ext-ref_guid = ls_orderadm_h-guid.
  ls_ext-ref_type = 'A'.
* TEXTS
  LOOP AT lt_text INTO ls_text WHERE stxh-tdobject EQ 'CRM_ORDERH'.
    CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'
      EXPORTING
        lf          = ' '
      TABLES
        itf_text    = ls_text-lines[]
        text_stream = lt_text_stream.
    CASE ls_text-stxh-tdid.
      WHEN 'Z003'.
        ls_ext-name = 'ZCOMMENTS'.
      WHEN 'ZEML'.
        ls_ext-name = 'ZPUR_EMAIL'.
      WHEN 'ZECC'.
        ls_ext-name = 'ZCC_EMAIL'.
      WHEN OTHERS.
        CONTINUE.
    ENDCASE.
    READ TABLE lt_text_stream INTO ls_ext-value INDEX 1.
    APPEND ls_ext TO ct_extension.
  ENDLOOP.
Edited by: sri226 on May 9, 2009 6:05 PM
Edited by: sri226 on May 9, 2009 6:12 PM
Edited by: sri226 on May 9, 2009 6:12 PM
Edited by: sri226 on May 9, 2009 6:13 PM