Re: ALV reports

Former Member — Fri, 18 Jan 2008 13:27:56 GMT

&----

*& 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.

topic Re: ALV reports in Application Development and Automation Discussions

ALV reports

Re: ALV reports

Re: ALV reports

Re: ALV reports