How to make field value of TO of BT126h_mail mail componnet Empty

Hi All,
In one of my requriment When user click send email buuton from over view page,it will go to the component BT126h_mail with requried details.
My requriment is that TO fields should be empty and the user Will manuallly add the Mail id in to,
Navigation BT126h_AAPt to BT126h_mail.
Thanks and Regards
RR PRadhan

Hi Pradhan,
In component BT126H_MAIL view send_screen, check there is method in IMPL class GET_EMAIL_TO_FROM_PARTNERS, system is population global table GT_TO with email ids.
Redefine this method and try clearing this GT_TO table data.
Best Regards,
Dharmakasi.

Similar Messages

How to make default values in selection field?

hi,
      i have selection field date , using data element 'QENTST' using following code in view INIT Method. i get the input selection field when i test application.
DATA: LT_RANGE_TABLE TYPE REF TO DATA.
CALL METHOD WD_THIS->M_HANDLER->CREATE_RANGE_TABLE
EXPORTING
    I_TYPENAME                     =     'QENTST'
RECEIVING
    RT_RANGE_TABLE           =     LT_RANGE_TABLE.
CALL METHOD WD_THIS->M_HANDLER->ADD_SELECTION_FIELD
EXPORTING
    I_ID                                     = 'QENTST'
    IT_RESULT                         = LT_RANGE_TABLE
    I_OBLIGATORY                 = ABAP_TRUE.
What i need now , to make default value in this selection field( low = sy-datum and high = sy-datum + 10 ) . I have checked , i found one method called... SET_RANGE_TABLE_OF_SEL_FIELD. Bt i m not able to understand how to assign values to input table parameter in this method?
Thanks In Advance.
Saurin Shah

Hi,
Refer this Article by Thomas on how to make default values in Select Options:
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/60474842-91ca-2b10-3390-d2fd30f335fd
I hope it would solve your problem.

How to make visible value attributes of a Search Node

Hi All,
We have a requirement to enhance the search context node SEARCH ( Dynamic Query Object SVYQ ) of component SVY_S.
But the enhancement category of Attribute Structure CRMST_QUERY_SVYIL is 'Can't be enhanced'.
So we are adding value attributes to this context node. How to make this value attributes available in view configuration tab?
Please suggest a better approach if there is any.
Thanks in adv.

Hi Suchindra,
You assign these enhanced attributes to design layer. so you can see these fields in Config tab.
How to do:
IMG->Customer Relationship Management -> UI Framework -> UI Framework definition -> Maintain
design layer
Here include the enhanced attributes and then go to component work bench and in context attributes right click assign the desing layer, selct your attribute and in the bottom click on SAVE button.
Then check it in configuration tab your attributes will available in show available fields.
I hope this will solve your problem
Regards,
Sagar

How to make fields required in an updateble multi line form?

How to make fields required in an updateble multi line form?

You need to create a validation item that is triggered when the user clicks the submit button.
Set the validation type to "Function Returning Error Text".
Then add your validation into the "Validation Expression 1" field. Something like:
BEGIN
FOR I IN 1.. HTMLDB_APPLICATION.G_F02.COUNT LOOP
IF HTMLDB_APPLICATION.G_F02(I) IS NULL THEN
RETURN 'Please enter in a value for xxxxx on line ' || TO_CHAR(I,'0');
END IF;
END LOOP;
RETURN NULL;
END;
As long as the function returns a string, an error is generated - as there is no single field where this error can be displayed, it will need to be displayed "On Error Page".
If the return value is NULL, then the fields are valid and the submit process can continue.
Andy

How To Print Field Value in TOP-OF-PAGE During Line Selection.

How To Print Field Value in TOP-OF-PAGE During Line Selection when double click on field.

(If my memory serves me well (not used for long time ago)
Assign values to system fields sy-tvar0 - sy-tvar9, they will replace the placeholders "&0" through "&9" in the list headers and column headers.
TOP-OF-PAGE DURING LINE-SELECTION.
WRITE: / 'Interactive Report &3'.
WRITE record-vbeln TO sy-tvar3.
Regards,
Raymond

How to update field values in a database table using module pool prg?

hi
how to update field values in a database table using module pool prg?
we created a customized table, and we put 2 push buttons in screen painter update and display.
but update is not working?
data is enter into screen fields and to internal table, but it is not updated in database table.
thanks in adv
vidya

HI,
we already used the update statement. but its not working.
plz check this.
*& Module Pool       ZCUST_CALL_REC
PROGRAM ZCUST_CALL_REC.
TABLES: ZCUST_CALL_REC,ZREMARKS.
data: v_kun_low like ZCUST_CALL_REC-kunnr ,
       v_kun_high like ZCUST_CALL_REC-kunnr,
       v_bud_low like ZCUST_CALL_REC-budat,
       v_bud_high like ZCUST_CALL_REC-budat.
ranges r_kunnr for ZCUST_CALL_REC-kunnr .
ranges r_budat for zcust_call_rec-budat.
DATA: ITAB TYPE STANDARD TABLE OF ZCUST_CALL_REC WITH HEADER LINE,
      JTAB TYPE STANDARD TABLE OF ZREMARKS WITH HEADER LINE.
*data:begin of itab occurs 0,
    MANDT LIKE ZCUST_CALL_REC-MANDT,
    kunnr like ZCUST_CALL_REC-kunnr,
    budat like ZCUST_CALL_REC-budat,
    code like ZCUST_CALL_REC-code,
    remarks like ZCUST_CALL_REC-remarks,
    end of itab.
*data:begin of Jtab occurs 0,
    MANDT LIKE ZCUST_CALL_REC-MANDT,
    kunnr like ZCUST_CALL_REC-kunnr,
    budat like ZCUST_CALL_REC-budat,
    code like ZCUST_CALL_REC-code,
    remarks like ZCUST_CALL_REC-remarks,
    end of Jtab.
CONTROLS:vcontrol TYPE TABLEVIEW USING SCREEN '9001'.
CONTROLS:vcontrol1 TYPE TABLEVIEW USING SCREEN '9002'.
*start-of-selection.
*&      Module USER_COMMAND_9000 INPUT
      text
MODULE USER_COMMAND_9000 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
WHEN 'ENQUIRY'.
perform multiple_selection.
perform append_CUSTOMER_code.
PERFORM SELECT_DATA.
call screen '9001'.
WHEN 'UPDATE'.
      perform append_CUSTOMER_code.
      PERFORM SELECT_DATA.
      call screen '9002'.
      perform update on commit.
WHEN 'DELETE'.
      perform append_CUSTOMER_code.
      PERFORM SELECT_DATA.
      call screen '9002'.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000 INPUT
*&      Module STATUS_9000 OUTPUT
      text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9000 OUTPUT
*&      Module USER_COMMAND_9001 INPUT
      text
MODULE USER_COMMAND_9001 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
endcase.
ENDMODULE.                 " USER_COMMAND_9001 INPUT
*&      Module STATUS_9001 OUTPUT
      text
MODULE STATUS_9001 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
move itab-MANDT   to zcust_call_rec-MANDT.
move itab-kunnr   to zcust_call_rec-kunnr.
move itab-budat   to zcust_call_rec-budat.
move itab-code    to zcust_call_rec-code.
move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
ENDMODULE.                 " STATUS_9001 OUTPUT
*&      Module USER_COMMAND_9002 INPUT
      text
module USER_COMMAND_9002 input.
CASE sy-ucomm.
   WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
      SET SCREEN 0.
      LEAVE SCREEN.
      CLEAR sy-ucomm.
   WHEN 'UPDATE'.
         perform move_data.
     UPDATE ZCUST_CALL_REC FROM TABLE ITAB.
        IF SY-SUBRC = 0.
           MESSAGE I000(0) WITH 'RECORDS ARE UPDATED'.
         ELSE.
           MESSAGE E001(0) WITH 'RECORDS ARE NOT UPDATED'.
        ENDIF.
WHEN 'DELETE'.
         perform move_data.
         DELETE ZCUST_CALL_REC FROM TABLE ITAB.
          IF SY-SUBRC = 0.
           MESSAGE I000(0) WITH 'RECORDS ARE DELETED'.
         ELSE.
           MESSAGE E001(0) WITH 'RECORDS ARE NOT DELETED'.
        ENDIF.
endcase.
endmodule.                 " USER_COMMAND_9002 INPUT
*&      Module STATUS_9002 OUTPUT
      text
module STATUS_9002 output.
SET PF-STATUS 'ZCUSTOMER1'.
SET TITLEBAR 'xxx'.
endmodule.                 " STATUS_9002 OUTPUT
*&      Module update_table OUTPUT
      text
module update_table output.
     move itab-MANDT   to zcust_call_rec-MANDT.
     move itab-kunnr   to zcust_call_rec-kunnr.
     move itab-budat   to zcust_call_rec-budat.
     move itab-code    to zcust_call_rec-code.
     move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
endmodule.                 " update_table OUTPUT
***Selection Data
FORM SELECT_DATA.
SELECT mandt kunnr budat code remarks FROM zcust_call_rec INTO
                        table itab
                         WHERE kunnr IN r_kunnr AND BUDAT IN R_BUDAT.
ENDFORM.
****append vendor code
FORM APPEND_CUSTOMER_CODE.
clear r_kunnr.
clear itab.
clear r_budat.
refresh r_kunnr.
refresh itab.
refresh r_kunnr.
IF r_kunnr IS INITIAL
              AND NOT v_kun_low IS INITIAL
               AND NOT v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                              EXPORTING
                                  input         = v_kun_high
                              IMPORTING
                                  OUTPUT        = r_kunnr-high.
                 r_kunnr-option = 'BT'.
                 r_kunnr-sign = 'I'.
                 append r_kunnr.
   PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND NOT v_kun_low IS INITIAL
               AND v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                r_kunnr-SIGN = 'I'.
                r_kunnr-OPTION = 'EQ'.
                APPEND r_kunnr.
   PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND v_kun_low IS INITIAL
               AND NOT v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                r_kunnr-SIGN = 'I'.
                r_kunnr-OPTION = 'EQ'.
                APPEND r_kunnr.
      PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND v_kun_low IS INITIAL
               AND v_kun_high IS INITIAL.
                    IF SY-SUBRC = 0.
                         MESSAGE I003(0) WITH 'ENTER CUSTOMER NUMBER'.
                          CALL SCREEN '9000'.
                    ENDIF.
PERFORM V_BUDAT.
ENDIF.
ENDFORM.
FORM V_BUDAT.
IF R_BUDAT IS INITIAL
               AND NOT v_BUD_low IS INITIAL
               AND NOT v_BUD_high IS INITIAL.
                 r_budat-low = v_bud_low.
                 r_budat-high = v_bud_high.
                 r_budat-option = 'BT'.
                 r_budat-sign = 'I'.
                 append r_budat.
         ELSEIF R_BUDAT IS INITIAL
               AND NOT v_BUD_low IS INITIAL
               AND v_BUD_high IS INITIAL.
                 r_budat-low = v_bud_low.
                 r_budat-high = v_bud_high.
                 r_budat-option = 'EQ'.
                 r_budat-sign = 'I'.
                 append r_budat.
         ELSEIF R_BUDAT IS INITIAL
               AND v_BUD_low IS INITIAL
               AND NOT v_BUD_high IS INITIAL.
                 r_budat-HIGH = v_bud_HIGH.
                 r_budat-option = 'EQ'.
                 r_budat-sign = 'I'.
                 append r_budat.
          ELSEIF R_BUDAT IS INITIAL
               AND v_BUD_low IS INITIAL
               AND v_BUD_high IS INITIAL.
               IF SY-SUBRC = 0.
                   MESSAGE I002(0) WITH 'ENTER POSTING DATE'.
                  CALL SCREEN '9000'.
                r_budat-low = ''.
                r_budat-option = ''.
                r_budat-sign = ''.
                ENDIF.
        ENDIF.
ENDFORM.
*&      Form update
      text
--> p1        text
<-- p2        text
form update .
commit work.
endform.                    " update
*&      Form move_data
      text
--> p1        text
<-- p2        text
form move_data .
   clear itab.
refresh itab.
       move-corresponding zcust_call_rec to itab.
       MOVE ZCUST_CALL_REC-MANDT   TO ITAB-MANDT.
       MOVE ZCUST_CALL_REC-KUNNR   TO ITAB-KUNNR.
       MOVE ZCUST_CALL_REC-BUDAT   TO ITAB-BUDAT.
       MOVE ZCUST_CALL_REC-CODE    TO ITAB-CODE.
       MOVE ZCUST_CALL_REC-REMARKS TO ITAB-REMARKS.
     APPEND ITAB.
     delete itab where kunnr is initial.
endform.                    " move_data
thanks in adv
vidya

How to add field value to the standard table

Hi,
How to add field value to the standard table?
for example:
when we go to TCODE SE16-> VBAK table -> on the selection screen if we press F4 against VBTYP we get all the available values for that field. How to add a new document Category value to this field so that it shows up in F4 help for that field.

Hi Asif,
I don't think it is possible and feasible for adding new field value to the field VBTYP because it is not possible through SPRO.
If u see the domain of this field VBTYP we have fixed values provided by SAP. There is no value table for this. If u have value table then it will be updated through SPRO. But still if u really want to add some value u can do that by getting access key and add the value in the fixed values of the domain. But of no use other than simply displaying in F4. Because for what ever value u created here there will be no documents in VBAK or any table using this domain.
Hope this is clear for u.
Thanks,
Vinod.

How to make field ( F110V-LIST1 ) mandatatory in free selection tab of F110

hi
How to make field ( F110V-LIST1 ) mandatatory in free selection tab of F110
regards,
Billa

Hi,
Standard transaction variant is not possible ,i dont want to use as zf110.
Regards,
Billa
Edited by: Billa Mahe on Sep 3, 2010 3:14 PM

How to set field value in workflow SPD2013?

Hi All,
how to set field value in workflow SPD2013? Actually using Infopath, i need to update a field value through workflow.(Little differnt from SPD2010). How to do this?

As Amit says, some elaboration here would be good. You can use InfoPath as a form for either a list or a library and then set it to trigger a workflow upon item creation. The workflow will consist a number of actions, one of which is the Update
Field Item.
More information on the available steps can be seen here.
http://msdn.microsoft.com/en-us/library/office/jj164026.aspx
Steven Andrews
SharePoint Business Analyst: LiveNation Entertainment
Blog: baron72.wordpress.com
Twitter: Follow @backpackerd00d
My Wiki Articles:
CodePlex Corner Series
Please remember to mark your question as "answered" if this solves (or helps) your problem.

How to make field is editable in ALV CL_SALV_TABLE only)

Hi,
How to make field is editable in ALV CL_SALV_TABLE only)
Any one has tried to make field si editable by using CL_SALV_TABLE class.
*I know how to do it in REUSEALV function module and CL_GUI_ALV class.*_
Please reply only if you riedin CL_SALV_TABLE class method.
Regards
Rajesh V
Moderator message: not supported, please read class documentation and search for previous discussions.
Edited by: Thomas Zloch on Mar 17, 2011 2:07 PM

Hi Chad,
Please refer the link,
Edit field in alv
Regards,
Hema.
Reward points if it is useful.

How to make fields mandatory in cost center

Hi Sap Experts,
How to make fields mandatory in cost center.
Please give me advise.
Regards,
Raj

If you want to make "Profit Center" field as mandatory, then OBA5 transaction code
Application Area - KS
Number 096
make this as error for online and batch input. Then profit center will become mandatory.

How to make fields editable in an alv tree

hi
there is an alv grid for which tree view shud also be made. The cells that are editable in the grid should also be editable in the tree.
please let me know how to make the specific cells of the tree editable

after setting the edit field in the field catalogue its bot working.
i am posting the code snippet.
please let me know what else should be done and how to add INPUT field to the fieldcat.
field-symbols: <fs_fieldcat> type lvc_s_fcat.
data: l_tabix type sy-tabix.
data: g_fieldcatalog type lvc_t_fcat,
        wa_fcat like line of g_fieldcatalog.
data : hide type c value 'X'.
call function 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'RSTHIE_M'
      i_client_never_display = 'X'
      i_bypassing_buffer     = 'X'
    CHANGING
      ct_fieldcat            = g_fieldcatalog.
***-set table header on middle width
LOOP AT g_fieldcatalog ASSIGNING <fs_fieldcat>.
    <fs_fieldcat>-FIX_COLUMN = 'X'.
    <fs_fieldcat>-edit = 'X'.
ENDLOOP.

How to make fields editable in an custom enhancement

Hi Experts,
My requirement is to perform some custom validations against a field FKONT(BSEG) at the line item level of FB60 and display appropriate message and make the incorrect field editable.
I have implemented an implicit enhancement point in include MF05AFGENJ.
The error messages are coming but I am unable to make the GL account, cost center and profit center fields editable.
Please let me know how to make the above fields editable after displaying the error message.
For reference, I have done the coding like this:
IF sy-tcode = 'FB60' .
CHECK GL_ITEMS IS NOT INITIAL.
DATA: L_COUNT TYPE I,
      L_STRING TYPE STRING,
      L_FKONT TYPE FIPLS,
      L_TABIX TYPE SY-TABIX,
      G_FLAG TYPE C.
DATA: WA_ZZFSTP LIKE ZZFSTP.          "Work area for ZZFSTP table
CONSTANTS:C_MK TYPE TXJCD VALUE 'MK0000000'.
*-- Validating the Financial budget item field
IF GL_ITEMS-FKONT IS NOT INITIAL.
SELECT SINGLE FKONT
                    INTO L_FKONT
                    FROM ZFSTP
                    WHERE FKONT = GL_ITEMS-FKONT. "cost center
IF SY-SUBRC NE 0.
   CLEAR: G_FLAG.
   G_FLAG = 'X'.
   MESSAGE W003(ZZFI) WITH 'Please enter 'Financial' 'Budget Item Field' DISPLAY LIKE 'E'.
   EXIT.
ENDIF.
*-- Copying the first line item financial budget item field to all the line items in the internal table
DESCRIBE TABLE GL_ITEMS LINES L_COUNT.
IF L_COUNT > 1.
READ TABLE GL_ITEMS INDEX 1.
IF SY-SUBRC = 0.
        CLEAR: L_FKONT.
        L_FKONT = GL_ITEMS-FKONT.
*-- Assign the tax jurisdiction codes in all the line items
         LOOP AT GL_ITEMS.
           CLEAR: L_TABIX.
           L_TABIX = SY-TABIX.
           GL_ITEMS-FKONT = L_FKONT.
           GL_ITEMS-TXJCD = C_MK.
*-- Copy the first financial budget item number and tax jurisdiction code MK0000000 in all line items
           MODIFY GL_ITEMS INDEX L_TABIX TRANSPORTING FKONT TXJCD.
*-- Populate tax jurisdiction and FKONT financial budget item number in XBSEG table
           L_TABIX = L_TABIX + 1. "top record in XBSEG is for header
           READ TABLE XBSEG INDEX L_TABIX.
           IF SY-SUBRC = 0.
             XBSEG-FKONT = L_FKONT.
             XBSEG-TXJCD = C_MK.
             MODIFY XBSEG INDEX L_TABIX.
           ENDIF.
         ENDLOOP.
ENDIF.
ENDIF. "describe statement
CLEAR: WA_ZZSTP.
*-- Validate the amount and GL account against the FKONT(financial budget item) number
SELECT SINGLE FKONT
              ZZWRBTR
              ZZHKONT
              ZZKOSTL
              ZZPRCTR
       INTO CORRESPONDING FIELDS OF WA_ZZFSTP
       FROM ZFSTP
       WHERE FKONT EQ GL_ITEMS-FKONT.
IF sy-subrc EQ 0.
IF BSEG-WRBTR > WA_ZZFSTP-ZWRBTR.
       CLEAR: G_FLAG.
       G_FLAG = 'X'.
       MESSAGE W003(ZZFI) WITH 'Amount entered' 'cannot be' 'greater than ' WA_ZFSTP-ZZWRBTR DISPLAY LIKE 'E'.
       EXIT.
ELSE.
         CLEAR: G_FLAG.
        G_FLAG = 'X'.
        SET CURSOR FIELD 'GL_ITEMS-HKONT'.
        MESSAGE W003(ZZFI) WITH 'Incorrect GL account' 'number entered for' 'given financial' 'budget item number'.
        EXIT.
       ELSE.
*-- Check for cost center and profit center at line item level
         LOOP AT GL_ITEMS.
*-- Both cost center and profit center is initial.
            IF GL_ITEMS-KOSTL IS INITIAL AND GL_ITEMS-PRCTR IS INITIAL.
                CLEAR: G_FLAG.
                G_FLAG = 'X'.
                SET CURSOR FIELD 'GL_ITEMS-PRCTR' LINE SY-STEPL.
                SET CURSOR FIELD 'GL_ITEMS-KOSTL' LINE SY-STEPL.
                MESSAGE W003(ZZFI) WITH 'Please enter' 'cost center' 'or' 'profit center'.
                EXIT.
*-- Either cost center or profit center is initial
            ELSEIF GL_ITEMS-KOSTL IS INITIAL AND GL_ITEMS-PRCTR IS NOT INITIAL.
                CHECK GL_ITEMS-PRCTR NE WA_ZZFSTP-ZPRCTR.
                  CLEAR: G_FLAG.
                  G_FLAG = 'X'.
                  SET CURSOR FIELD 'GL_ITEMS-PRCTR' LINE SY-STEPL.
                  MESSAGE W003(ZZFI) WITH 'Incorrect profit' 'center entered' 'for given' 'financial budget item' DISPLAY LIKE 'E'.
                  EXIT.
            ELSEIF GL_ITEMS-KOSTL IS NOT INITIAL AND GL_ITEMS-PRCTR IS INITIAL.
               CHECK GL_ITEMS-KOSTL NE WA_ZFSTP-ZKOSTL.
                  CLEAR: G_FLAG.
                  G_FLAG = 'X'.
                  SET CURSOR FIELD 'GL_ITEMS-KOSTL' LINE SY-STEPL.
                  MESSAGE W003(ZZFI) WITH 'Incorrect cost' 'center entered' 'for given' 'financial budget item' DISPLAY LIKE 'E'.
                  EXIT.
            ENDIF.
         ENDLOOP.
       ENDIF. "GL Account
ENDIF. "Amount check
ENDIF. "SY-SUBRC check
ENDIF.
EXPORT G_FLAG FROM G_FLAG TO MEMORY ID 'ZER'.
Please let me know how to make GLaccount,cost center and profit center fields editable.
Regards,
Sangeeta.

Hi.. chaek the below links. may be useful to u.
Making Table control records Editable / Non-editable
Table control with both Editable and non Editable fields
Regards,
KP.

How to make field editable in ALV tree in OOPs?

Hi Gems,
Again I need help from you all.
I am writing a program using OOPs and the uotput will be in ALV tree. I need to make a field editable in a perticular row.
I am doing it using layout but the program is giving error during
CALL METHOD CL_GUI_CFW=>FLUSH
      EXCEPTIONS
        CNTL_SYSTEM_ERROR = 1
        CNTL_ERROR        = 2.
This method is returning sy-subrc = 2 and I am unable to get the output.
I am using below code to make the field editable:
DATA: LT_LAYOUT_ITEM TYPE LVC_T_LAYI,
            LS_LAYOUT_ITEM TYPE LVC_S_LAYI.
LS_LAYOUT_ITEM-FIELDNAME = 'ACPCKTWRT'.     "ACPCKTWRT is the field name in the Internal table
LS_LAYOUT_ITEM-EDITABLE = 'X'.
APPEND LS_LAYOUT_ITEM TO LT_LAYOUT_ITEM.
CALL METHOD G_ALV_TREE->ADD_NODE
    EXPORTING
      I_RELAT_NODE_KEY     = FP_RELAT_KEY
      I_RELATIONSHIP       = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
      IS_OUTTAB_LINE       = LS_TMP_FINFCNO                                                "structure of the internal table
     IS_NODE_LAYOUT       =
      IT_ITEM_LAYOUT       = LT_LAYOUT_ITEM                                                "Added layout to make the field editable
      I_NODE_TEXT          = LV_NODE_TEXT                                                      "Node text
    IMPORTING
      E_NEW_NODE_KEY       = FP_NODE_KEY
    EXCEPTIONS
      RELAT_NODE_NOT_FOUND = 1
      NODE_NOT_FOUND       = 2
      OTHERS               = 3
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Please help me and let me know how to get the solution.

Hello
The ALV tree control is not intended for making values editable (e.g. see
[How to make ALV tree columns editable|http://sap.ittoolbox.com/groups/technical-functional/sap-abap/how-to-make-alv-tree-columns-editable-2052414])
However, if you need an editable tree control then you have to use a different class (e.g. CL_ITEM_TREE_MODEL or CL_COLUMN_TREE_MODEL) but you will not have the ALV functionality of the ALV tree control.
Regards
Uwe

HOW TO MAKE FIELDS AS READ ONLY IN TABLE MAINTAINANCE

HI ABAPers,
HOW TO MAKE SOME FIELDS AS DISPLAY MODE.
FOR SUPPOSE, THERE ARE 5 FIELDS in SM30.
AMONG THEM 1 FIELD SHUD BE USED FOR EDITING AND THE OTHER 4 FIELDS SHUD ONLY BE USED FOR DISPLAY PURPOSE
WHEN EVER I ENTER A VALUE IN THAT 1 PARTICULAR FIELD THEN THE DATA OF THE REMAINING 4 FIELDS SHUD BE DISPLAYED IN THE SAME SCREEN ITSELF.
HOW CAN IT BE POSSIBLE...
PLZ HELP.
THNX IN ADV,
SP.

Hello SP,
You can create a maintenance view for the table & here you can define the maintenance attribute for individual fields.
For the fields you want to be READ-ONLY pass 'R' to those fields. (It is the 4th column from the left, the one to the immediate left of the Key column).
Don't change the TMG function group directly. If you regenerate the TMG the changes would be overwritten !
You can use the Event '01' to fulfill your requirement:
*&      Form f_event_01
*       text
FORM f_event_01.
DATA: v_indx TYPE sy-index,
        v_land1 TYPE land1,
        v_name1 TYPE name1.
FIELD-SYMBOLS: <vendor> TYPE lifnr,
                 <val> TYPE ANY.
BREAK-POINT.
"TOTAL contains all data which are read, changed and created in TMG
LOOP AT total.
    IF <action> = neuer_eintrag " New Entry.
    OR <action> = aendern "Changed entry
    OR <action> = original. "Same as DB
      READ TABLE extract WITH KEY <vim_xtotal_key>.
      IF sy-subrc = 0.
        v_indx = sy-tabix.
      ELSE.
        CLEAR v_indx.
      ENDIF.
      ASSIGN COMPONENT 'LIFNR' OF STRUCTURE total TO <vendor>.
      CHECK sy-subrc = 0.
*     select data from the LFA1 based on LIFNR
      SELECT SINGLE name1 land1 FROM lfa1
        INTO (v_name1,v_land1)
        WHERE lifnr = <vendor>.
      CHECK sy-subrc = 0.
*     Populate the hidden fields NAME1 & LAND1
      ASSIGN COMPONENT 'NAME1' OF STRUCTURE total TO <val>.
      CHECK sy-subrc = 0.
      <val> = v_name1.
      ASSIGN COMPONENT 'LAND1' OF STRUCTURE total TO <val>.
      CHECK sy-subrc = 0.
      <val> = v_land1.
      MODIFY total.
      CHECK v_indx GT 0.
      extract = total. "Pass the changes in TOTAL to EXTRACT
      MODIFY extract INDEX v_indx.
    ENDIF.
ENDLOOP.
sy-subrc = 0.
ENDFORM.                                                    "f_event_01
BR,
Suhas
Edited by: Suhas Saha on Aug 16, 2010 11:58 AM

How to make field value of TO of BT126h_mail mail componnet Empty

Similar Messages

Maybe you are looking for