01-18-2008 1:20 PM
Hi Experts,
Can anyone tell how to change some field values in ALV.
I was displaying the values which i have retrieved from the DB table.But now i need to change some of the field values and wantto save the data..
can anyone help to resolve this issue
01-18-2008 1:25 PM
Hi,
Please refer to the link below :
http://www.sapdev.co.uk/reporting/alv/alvgrid_editable.htm
Create a pushbutton on the application toolbar. Once you have edited the values. Capture the values into the internal table and use modify statement to update into the table.
Thanks,
Sriram Ponna.
01-18-2008 1:25 PM
Hi,
Please refer to the link below :
http://www.sapdev.co.uk/reporting/alv/alvgrid_editable.htm
Create a pushbutton on the application toolbar. Once you have edited the values. Capture the values into the internal table and use modify statement to update into the table.
Thanks,
Sriram Ponna.
01-18-2008 1:27 PM
01-18-2008 1:27 PM
&----
*& Report ZNNT_ALV
*&
&----
*&
*&
&----
*
REPORT ZPP009_CHANGE_SALESDEMAND.
*
----
MODULE *
*----
*
Objective : Asset Movement with Factory *
Program : Updates Tables ( ) *
: Outputs List ( X ) *
: Downloads data ( ) *
*
Technical Spec No : Central & Production Planning *
Date Created : 2007-12-13 *
Author : Nelson Rodrigo *
Location : Regents Court - Sri Lanka *
LDB : N/A *
*
*----
External Dependencies *
*----
*
*----
Amendment History *
*----
Who Change ID Reason *
*----
************************************************************************
*----
Tables : *
*----
*
TABLES : ZPP009_004.
TABLES : SSCRFIELDS.
*
*----
Types Begin with TY_ *
*----
*
TYPE-POOLS : SLIS.
*
*----
Constants Begin with C_ *
*----
*
CONSTANTS : C_HPD_MLD TYPE ZPP009_011-HPD_MLD VALUE '24'. "Hours per Day
*
*----
Internal tables Begin with IT_ *
*----
*
DATA : IT_ZPP009_006 TYPE STANDARD TABLE OF ZPP009_006,
WA_ZPP009_006 TYPE ZPP009_006.
*
*----
Data Begin with W_ *
*----
*
*------ ALV DATA DECLARATIONSs
DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA : IT_FIELDCAT TYPE LVC_T_FCAT,
WA_FIELDCAT TYPE LVC_S_FCAT,
*
GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
GD_LAYOUT TYPE LVC_S_LAYO,
GD_REPID LIKE SY-REPID.
*
DATA : V_FMPERD TYPE ZPP009_005-VALID_FROM.
DATA : V_TOPERD TYPE ZPP009_005-VALID_TO.
DATA : ZSTAT(3) TYPE C.
DATA : C_DPM_MLD TYPE ZPP009_011-DPM_MLD.
DATA : V_PRDGRP TYPE STRING. "Product Group
DATA : V_HPD TYPE ZPP009_011-HPD_MLD.
*
*----
Field Symbols Begin with FS_ *
*----
*
FIELD-SYMBOLS <FS_ZPP009_006> TYPE ZPP009_006.
*
*----
Select Options Begin with SO_ *
*----
*
*
*----
Parameter Begin with PR_ *
*----
*
*----
I N I T I A L I Z A T I O N *
*----
*
*----
A T S E L E C T I O N S C R E E N *
*----
*
*
************************************************************************
s t a r t o f s e l e c t i o n
************************************************************************
*
START-OF-SELECTION.
*
IMPORT V_FMPERD V_TOPERD C_DPM_MLD V_PRDGRP FROM MEMORY ID 'ZPEROD'.
*
PERFORM ZPP009_COLLECTPARAM.
PERFORM ZPP009_DATA_COLLECTION.
PERFORM ZPP009_BUILD_FELDCAT.
PERFORM ZPP009_BUILD_LAYOUT.
PERFORM ZPP009_DISPLAY_FIELDCAT.
*
END-OF-SELECTION.
*
***********************************************************************
E N D O F S E L E C T I O N
************************************************************************
----
end of page
*----
**********************----
E N D O F A B A P
**********************----
*
*
&----
*& Form ZPP009_DATA_COLLECTION
&----
text
----
--> p1 text
<-- p2 text
----
FORM ZPP009_DATA_COLLECTION .
*
SELECT *
FROM ZPP009_006
INTO CORRESPONDING FIELDS OF TABLE IT_ZPP009_006
WHERE VALID_FROM EQ V_FMPERD
AND VALID_TO EQ V_TOPERD
AND PRD_GRP EQ V_PRDGRP.
*
ENDFORM. " ZPP009_DATA_COLLECTION
*
*
&----
*& Form ZPP009_BUILD_FELDCAT
&----
text
----
--> p1 text
<-- p2 text
----
FORM ZPP009_BUILD_FELDCAT .
*
WA_FIELDCAT-FIELDNAME = 'VALID_FROM'.
WA_FIELDCAT-SCRTEXT_M = 'Valid From'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'VALID_TO'.
WA_FIELDCAT-SCRTEXT_M = 'Valid To'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'MLD_ID'.
WA_FIELDCAT-SCRTEXT_M = 'Mould ID'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'MLD_GRP'.
WA_FIELDCAT-SCRTEXT_M = 'Mould Group'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'MLD_CAPACITY'.
WA_FIELDCAT-SCRTEXT_M = 'Per Mould Capacity'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'CAP_ACHIEVE'.
WA_FIELDCAT-SCRTEXT_M = 'Achived Capacity'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'PRODN_RATE'.
WA_FIELDCAT-SCRTEXT_M = 'Production Rate'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'CAP_REQ'.
WA_FIELDCAT-SCRTEXT_M = 'Capacity Demand'.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'CAP_REQ_ORIG'.
WA_FIELDCAT-SCRTEXT_M = 'Capacity Demand Original'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
WA_FIELDCAT-FIELDNAME = 'MLD_REQ'.
WA_FIELDCAT-SCRTEXT_M = 'Required Moulds'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*
*
ENDFORM. " ZPP009_BUILD_FELDCAT
*
*
&----
*& Form ZPP009_BUILD_LAYOUT
&----
text
----
--> p1 text
<-- p2 text
----
FORM ZPP009_BUILD_LAYOUT .
*
GD_LAYOUT-STYLEFNAME = 'FIELD_STYLE'.
GD_LAYOUT-ZEBRA = 'X'.
*
ENDFORM. " ZPP009_BUILD_LAYOUT
*
*
*
&----
*& Form ZPP009_DISPLAY_FIELDCAT
&----
text
----
--> p1 text
<-- p2 text
----
FORM ZPP009_DISPLAY_FIELDCAT .
*
GD_REPID = SY-REPID.
*
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_PROGRAM = GD_REPID
IS_LAYOUT_LVC = GD_LAYOUT
IT_FIELDCAT_LVC = IT_FIELDCAT
I_SAVE = 'X'
TABLES
T_OUTTAB = IT_ZPP009_006
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
*
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*
ENDFORM. " ZPP009_DISPLAY_FIELDCAT
*
*
*
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD.
*
CASE R_UCOMM.
WHEN '&DATA_SAVE'. " Exploring orders with selected materials
*
LOOP AT IT_ZPP009_006 ASSIGNING <FS_ZPP009_006>.
*
<FS_ZPP009_006>-MLD_REQ = ( V_HPD / <FS_ZPP009_006>-MLD_CAPACITY ) * <FS_ZPP009_006>-CAP_REQ.
ENDLOOP.
*
MODIFY ZPP009_006 FROM TABLE IT_ZPP009_006.
ZSTAT = 'YES'.
*
EXPORT
V_TOPERD ZSTAT C_DPM_MLD TO MEMORY ID 'ZSDSAV'.
SUBMIT ZPP009_GEN_CAP_REQUIREMENT VIA SELECTION-SCREEN AND RETURN.
*
ENDCASE.
*
ENDFORM. "USER_COMMAND
*
*
&----
*& Form ZPP009_COLLECTPARAM
&----
text
----
--> p1 text
<-- p2 text
----
*
FORM ZPP009_COLLECTPARAM .
*
*-- Collect recently updated parameters
SELECT SINGLE HPD_MLD
FROM ZPP009_011
INTO V_HPD
WHERE UPD_TIME IN ( SELECT MAX( UPD_TIME ) FROM ZPP009_011 WHERE UPD_DATE IN ( SELECT MAX( UPD_DATE ) FROM ZPP009_011 ) ).
*
*
ENDFORM. " ZPP009_COLLECTPARAM
dear this is working code
in the field catalog
WA_FIELDCAT-FIELDNAME = 'CAP_REQ'.
WA_FIELDCAT-SCRTEXT_M = 'Capacity Demand'.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-COL_POS = 0.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
in this column editable
in the dispaly field catalog part
u can use save button to update table
if u unable to get reply me.
Rewards if useful.