Skip to Content
0
Former Member
Jul 21, 2008 at 01:27 PM

alv report

32 Views

hi gurus,

plz check this program that with variant cwm103*, plant , stloc....

that output i need get is cwm103* rest of the things should be hide.....

and append 14 fields i use to get only 4fields like 1 .slno

2. pmatnr

3. idnrk1

4. labst1

plz plz its urgent

plz plz its urgent

thanks

&----


*& Report ZPP_BOM_ITEM *

*& *

&----


*& *

*& *

&----


REPORT ZPP_BOM_ITEM .

type-pools: slis.

tables: mard,stpo,t001l,MARC.

TYPES: BEGIN OF ty_final,

labst TYPE mard-labst,

lgort TYPE mard-lgort,

matnr TYPE mard-matnr,

werks type mard-werks,

idnrk type stpo-idnrk,

pmatnr type mard-matnr,

IDNRK1 type STPO-IDNRK,

IDNRK2 type STPO-IDNRK,

IDNRK3 type STPO-IDNRK,

IDNRK4 type STPO-IDNRK,

IDNRK5 type STPO-IDNRK,

IDNRK6 type STPO-IDNRK,

IDNRK7 type STPO-IDNRK,

IDNRK8 type STPO-IDNRK,

labst1 type I,

labst2 type I,

labst3 type I,

labst4 type I,

labst5 type I,

labst6 type I,

labst7 type I,

labst8 type I,

slno type sy-cucol,

TABCOLOR type slis_t_specialcol_alv,

eND OF ty_final,

BEGIN OF ty_stloc,

matnr TYPE mard-matnr,

werks TYPE mard-werks,

lgort TYPE mard-lgort,

labst type mard-labst,

END OF ty_stloc,

BEGIN OF ty_stpo,

stlnr TYPE stpo-stlnr,

idnrk TYPE stpo-idnrk,

END OF ty_stpo,

BEGIN OF ty_parent,

matnr TYPE mard-matnr,

werks TYPE mard-werks,

fmatnr TYPE mard-matnr,

END OF ty_parent.

*************************************************************************

  • INTERNAL TABLE DECLARATION

************************************************************************

DATA: wa_final TYPE ty_final,

it_final TYPE TABLE OF ty_final,

it_stloc TYPE TABLE OF ty_stloc,

wa_stloc TYPE ty_stloc,

wa_stloc1 type ty_stloc,

wa_parent TYPE ty_parent,

it_parent TYPE TABLE OF ty_parent,

it_stpo TYPE TABLE OF ty_stpo,

wa_stpo TYPE ty_stpo.

DATA: W_PCHK.

&----


*& types-pools declartion *

&----


DATA: LAYOUT1 TYPE SLIS_LAYOUT_ALV,

FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

DATA: linecolor TYPE slis_specialcol_alv OCCURS 0 WITH HEADER LINE.

data: itopmat type cstmat ."occurs 0 with header line.

data: idstst type csdata-xfeld.

data: istb like table of stpox.

data: wa_istb type stpox." occurs 0 with header line .

data: imatcat type cscmat." occurs 0 with header line.

PARAMETERS: P_werks TYPE MARd-werks,

P_lgort TYPE MARd-lgort.

select-options: s_matnr for mard-matnr.

at selection-screen.

IF sy-ucomm = 'ONLI'.

perform inputcheck.

ENDIF.

start-of-selection.

perform fieldcat.

perform display_data.

&----


*& Form fetch_data

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fetch_data .

SELECT MATNR

WERKS

lgort

labst FROM MARd INTO TABLE iT_stloc WHERE MATNR IN S_matnr AND WERKS = P_werks AND lgort = P_lgort.

ENDFORM. " fetch_data

&----


*& Form fieldcat

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fieldcat .

Data: w_pos type sy-cucol.

clear fcat.

w_pos = w_pos + 1.

fcat-row_pos = 1.

FCAT-SELTEXT_L = 'SLNO'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'SLNO'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 7.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'PARENT'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'PMATNR'.

FCAT-NO_ZERO = 'X'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 7.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Tube S/A'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'IDNRK1'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 18.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Tube Qty'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'LABST1'.

FCAT-NO_ZERO = 'X'.

FCAT-FIX_COLUMN = 'X'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 10.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'P.Rod S/A'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'IDNRK2'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 18.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'P.Rod S/A Qty'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'LABST2'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-NO_ZERO = 'X'.

FCAT-outputlen = 10.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Port A/S'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'IDNRK4'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 18.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Port Qty'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'LABST4'.

FCAT-NO_ZERO = 'X'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 10.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Pipe'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'IDNRK5'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 18.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Pipe Qty'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'LABST5'.

FCAT-NO_ZERO = 'X'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 10.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Pipe S/A'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'IDNRK6'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 18.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Pipe S/A Qty'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'LABST6'.

FCAT-NO_ZERO = 'X'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 10.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'P.Rod'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'IDNRK7'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 18.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'P.Rod Qty'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'LABST7'.

FCAT-NO_ZERO = 'X'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 10.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Tube'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'IDNRK8'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 18.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Tube Qty'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'LABST8'.

FCAT-NO_ZERO = 'X'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 10.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Spare Seal Kit'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'IDNRK3'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 18.

APPEND FCAT.

CLEAR FCAT.

w_pos = w_pos + 1.

FCAT-SELTEXT_L = 'Pipe S/A Qty'.

FCAT-COL_POS = W_POS.

FCAT-FIELDNAME = 'LABST3'.

FCAT-NO_ZERO = 'X'.

FCAT-TABNAME = 'IT_FINAL'.

FCAT-outputlen = 10.

APPEND FCAT.

CLEAR FCAT.

ENDFORM. " fieldcat

&----


*& Form display_data

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM display_data .

layout1-coltab_fieldname = 'TABCOLOR'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY-CPROG

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

  • I_GRID_TITLE = i_title

  • I_GRID_SETTINGS =

IS_LAYOUT = LAYOUT1

IT_FIELDCAT = FCAT[]

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

  • IT_SORT =

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

  • IT_EVENTS =

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • I_HTML_HEIGHT_TOP =

  • I_HTML_HEIGHT_END =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = it_final.

  • 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. " display_data

&----


*& Form inputcheck

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM inputcheck .

IF P_werks IS initial.

set cursor field 'P_WERKS'.

message 'plz check PLANT' TYPE 'E'.

ELSE.

SELECT SINGLE WERKS FROM MARD INTO WA_FINAL-WERKS WHERE WERKS = P_WERKS.

IF SY-SUBRC NE 0.

SET CURSOR FIELD 'P_WERKS'.

MESSAGE 'PLZ CHECK PLANT NUMBER NOT MATCH' TYPE 'E'.

ENDIF.

ENDIF.

IF P_lgort IS initial.

set cursor field 'P_LGORT'.

message 'plz check STORAGE LOCATION' TYPE 'E'.

ELSE.

SELECT SINGLE LGORT FROM MARD INTO WA_FINAL-LGORT WHERE LGORT = P_LGORT.

IF SY-SUBRC NE 0.

SET CURSOR FIELD 'P_LGORT'.

MESSAGE 'PLZ CHECK STORAGE LOCATION NOT MATCH' TYPE 'E'.

ENDIF.

ENDIF.

IF s_MATNR IS initial.

s_matnr-sign = 'I'.

s_matnr-option = 'CP'.

s_matnr-low = 'CWM103*'.

APPEND S_MATNR.

CLEAR S_MATNR.

s_matnr-sign = 'I'.

s_matnr-option = 'CP'.

s_matnr-low = 'CWM102*'.

APPEND S_MATNR.

clear s_matnr.

s_matnr-sign = 'I'.

s_matnr-option = 'CP'.

s_matnr-low = 'SSP*'.

APPEND S_MATNR.

clear s_matnr.

s_matnr-sign = 'I'.

s_matnr-option = 'CP'.

s_matnr-low = 'CWM002*'.

APPEND S_MATNR.

clear s_matnr.

s_matnr-sign = 'I'.

s_matnr-option = 'CP'.

s_matnr-low = 'CWM003*'.

APPEND S_MATNR.

clear s_matnr.

s_matnr-sign = 'I'.

s_matnr-option = 'CP'.

s_matnr-low = 'CWM037*'.

APPEND S_MATNR.

clear s_matnr.

s_matnr-sign = 'I'.

s_matnr-option = 'CP'.

s_matnr-low = 'CWM044*'.

APPEND S_MATNR.

clear s_matnr.

s_matnr-sign = 'I'.

s_matnr-option = 'CP'.

s_matnr-low = 'CWM144*'.

APPEND S_MATNR.

clear s_matnr.

ELSE.

SELECT SINGLE MATNR FROM MARD INTO WA_FINAL-MATNR WHERE MATNR IN S_MATNR.

IF SY-SUBRC NE 0.

SET CURSOR FIELD 'S_MATNR'.

MESSAGE 'PLZ CHECK MATRIAL NUMBER NOT MATCH' TYPE 'E'.

ENDIF.

ENDIF.

perform fetch_data.

perform format_data.

if it_final[] is initial.

message ' No Corresponding input found' type 'E'.

endif.

ENDFORM. " inputcheck

&----


*& Form format_data

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM format_data .

data w_slno type sy-cucol.

SORT: IT_STLOC BY MATNR,

IT_STLOC BY LGORT.

LOOP AT IT_STLOC INTO WA_STLOC.

REFRESH it_parent.

clear w_pchk.

PERFORM get_p_material_ref USING wa_stloc-matnr wa_stloc-werks w_pchk.

CLEAR WA_PARENT.

read table it_parent into wa_parent with key fmatnr+0(1) = 'P'.

wa_final-pmatnr = wa_parent-fmatnr.

PERFORM get_c_material_ref using wa_parent-fmatnr wa_parent-werks.

if wa_final-idnrk1 is initial

and wa_final-labst1 is initial

and wa_final-idnrk2 is initial

and wa_final-labst2 is initial

and wa_final-idnrk3 is initial

and wa_final-labst3 is initial

and wa_final-idnrk4 is initial

and wa_final-labst4 is initial

and wa_final-idnrk5 is initial

and wa_final-labst5 is initial

and wa_final-idnrk6 is initial

and wa_final-labst6 is initial

and wa_final-idnrk7 is initial

and wa_final-labst7 is initial

and wa_final-idnrk8 is initial

and wa_final-labst8 is initial.

continue.

endif.

if w_slno = '999999'.

clear w_slno.

endif.

w_slno = w_slno + 1.

WA_final-slno = w_slno.

wa_final-tabcolor[] = linecolor[].

APPEND WA_FINAL TO IT_FINAL.

CLEAR WA_FINAL.

CLEAR WA_PARENT.

ENDLOOP.

ENDFORM. " format_data

&----


*& Form get_p_material_ref

&----


  • text

----


  • -->P_WA_STLOC_MATNR text

  • -->P_WA_STLOC_WERKS text

  • -->P_W_PCHK text

----


FORM get_p_material_ref USING ap_matnr ap_werks ap_pchk.

if w_pchk = 'X'.

exit.

endif.

DATA: wa_ltb TYPE stpov,

it_ltb TYPE TABLE OF stpov,

wa_matcat TYPE cscmat,

it_matcat TYPE TABLE OF cscmat.

DATA: BEGIN OF equicat OCCURS 0.

INCLUDE STRUCTURE cscequi.

DATA: END OF equicat.

DATA: BEGIN OF kndcat OCCURS 0.

INCLUDE STRUCTURE cscknd.

DATA: END OF kndcat.

DATA: BEGIN OF stdcat OCCURS 0.

INCLUDE STRUCTURE cscstd.

DATA: END OF stdcat.

DATA: BEGIN OF tplcat OCCURS 0.

INCLUDE STRUCTURE csctpl.

DATA: END OF tplcat.

DATA: BEGIN OF prjcat OCCURS 0.

INCLUDE STRUCTURE cscprj.

DATA: END OF prjcat.

CALL FUNCTION 'CS_WHERE_USED_MAT'

EXPORTING

datub = sy-datum

datuv = sy-datum

matnr = ap_matnr

werks = ap_werks

stltp = 'M'

TABLES

wultb = it_ltb

equicat = equicat

kndcat = kndcat

matcat = it_matcat

stdcat = stdcat

tplcat = tplcat

prjcat = prjcat

EXCEPTIONS

call_invalid = 1

material_not_found = 2

no_where_used_rec_found = 3

no_where_used_rec_selected = 4

no_where_used_rec_valid = 5

OTHERS = 6.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT it_ltb INTO wa_ltb.

wa_parent-matnr = wa_ltb-idnrk.

wa_parent-werks = wa_ltb-werks.

wa_parent-fmatnr = wa_ltb-matnr.

APPEND wa_parent TO it_parent.

if wa_parent-fmatnr+0(1) = 'P'.

ap_pchk = 'X'.

exit.

endif.

PERFORM get_p_material_ref USING wa_ltb-matnr wa_ltb-werks ap_pchk.

CLEAR: wa_parent.

ENDLOOP.

ENDFORM. " get_p_material_ref

&..........................................................................&

  • TOP_OF_PAGE *&

&..........................................................................&

FORM TOP-OF-PAGE.

*ALV Header declarations

DATA: T_HEADER TYPE SLIS_T_LISTHEADER,

WA_HEADER TYPE SLIS_LISTHEADER,

T_LINE LIKE WA_HEADER-INFO,

LD_LINES TYPE I,

LD_LINESC(10) TYPE C.

  • Title

WA_HEADER-TYP = 'H'.

WA_HEADER-INFO = 'Bill Of Material'.

APPEND WA_HEADER TO T_HEADER.

CLEAR WA_HEADER.

WA_HEADER-TYP = 'S'.

WA_HEADER-key = 'Material---->'.

wa_header-info = s_matnr-low.

APPEND WA_HEADER TO T_HEADER.

CLEAR WA_HEADER.

WA_HEADER-TYP = 'S'.

WA_HEADER-key = 'Plant---->'.

wa_header-info = p_werks.

APPEND WA_HEADER TO T_HEADER.

CLEAR WA_HEADER.

WA_HEADER-TYP = 'S'.

WA_HEADER-key = 'Stor.Location---->'.

wa_header-info = p_lgort.

APPEND WA_HEADER TO T_HEADER.

CLEAR WA_HEADER.

  • Date

WA_HEADER-TYP = 'S'.

WA_HEADER-KEY = 'Date----> '.

CONCATENATE SY-DATUM+6(2) '.'

SY-DATUM+4(2) '.'

SY-DATUM(4) INTO WA_HEADER-INFO. "todays date

APPEND WA_HEADER TO T_HEADER.

CLEAR: WA_HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER.

ENDFORM. "top-of-page

&.................................................................................&

&......................CHILD DATA.................................................&

&.................................................................................&

&----


*& Form get_c_material_ref

&----


  • text

----


  • -->P_WA_STLOC_MATNR text

  • -->P_WA_STLOC_WERKS text

----


FORM get_c_material_ref USING wa_parent-fmatnr

wa_parent-WERKS.

clear istb.

  • if wa_parent-fmatnr is not initial.

CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'

EXPORTING

  • AUFSW = ' '

  • AUMNG = 0

capid = 'PP01'

datuv = sy-datum

mktls = 'X'

mehrs = 'X'

mtnrv = wa_parent-fmatnr

svwvo = 'X'

werks = wa_stloc-WERKS

vrsvo = 'X'

IMPORTING

topmat = itopmat

dstst = idstst

TABLES

stb = istb

  • MATCAT = imatcat " chk this later

EXCEPTIONS

alt_not_found = 1

call_invalid = 2

material_not_found = 3

missing_authorization = 4

no_bom_found = 5

no_plant_data = 6

no_suitable_bom_found = 7

conversion_error = 8

OTHERS = 9

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

DATA: LS_CELLCOLOR TYPE LVC_S_SCOL.

clear wa_istb.

READ TABLE ISTB INTO WA_ISTB WITH KEY IDNRK+0(6) = 'CWM103' .

if sy-subrc eq 0.

read table it_stloc into wa_stloc1 with key matnr = wa_istb-idnrk.

if sy-subrc eq 0.

clear wa_stloc.

read table it_Stloc into wa_stloc with key matnr = wa_istb-idnrk .

if wa_stloc-labst gt '0'.

if sy-subrc eq 0.

wa_final-labst1 = wa_stloc-labst.

wA_final-idnrk1 = WA_istb-idnrk.

delete it_stloc where matnr = wa_istb-idnrk.

linecolor-fieldname = 'IDNRK1'.

linecolor-color-col = 1.

append linecolor.

linecolor-fieldname = 'LABST1'.

linecolor-color-col = 1.

append linecolor.

endif.

endif.

endif.

endif.

clear wa_istb.

READ TABLE ISTB INTO WA_ISTB WITH KEY IDNRK+0(6) = 'CWM102' .

if sy-subrc eq 0.

read table it_stloc into wa_stloc1 with key matnr = wa_istb-idnrk.

if sy-subrc eq 0.

clear wa_stloc.

read table it_Stloc into wa_stloc with key matnr = wa_istb-idnrk.

if wa_stloc-labst gt '0'.

if sy-subrc eq 0.

wA_final-idnrk2 = WA_istb-idnrk.

wa_final-labst2 = wa_stloc-labst.

delete it_stloc where matnr = wa_istb-idnrk.

linecolor-fieldname = 'IDNRK2'.

linecolor-color-col = 2.

append linecolor.

linecolor-fieldname = 'LABST1'.

linecolor-color-col = 2.

append linecolor.

endif.

endif.

endif.

endif.

clear wa_istb.

READ TABLE ISTB INTO WA_ISTB WITH KEY IDNRK+0(3) = 'SSP' werks = wa_stloc-werks .

if sy-subrc eq 0.

read table it_stloc into wa_stloc1 with key matnr = wa_istb-idnrk.

if sy-subrc eq 0.

clear wa_stloc.

read table it_Stloc into wa_stloc with key matnr = wa_istb-idnrk.

if wa_stloc-labst gt '0'.

if sy-subrc eq 0.

wa_final-labst3 = wa_stloc-labst.

wA_final-idnrk3 = WA_istb-idnrk.

delete it_stloc where matnr = wa_istb-idnrk.

linecolor-fieldname = 'IDNRK3'.

linecolor-color-col = 3.

append linecolor.

linecolor-fieldname = 'LABST3'.

linecolor-color-col = 3.

append linecolor.

endif.

endif.

endif.

endif.

clear wa_istb.

READ TABLE ISTB INTO WA_ISTB WITH KEY IDNRK+0(6) = 'CWM037' werks = wa_stloc-werks .

if sy-subrc eq 0.

read table it_stloc into wa_stloc1 with key matnr = wa_istb-idnrk.

if sy-subrc eq 0.

clear wa_stloc.

read table it_Stloc into wa_stloc with key matnr = wa_istb-idnrk.

if wa_stloc-labst gt '0'.

if sy-subrc eq 0.

wa_final-labst4 = wa_stloc-labst.

wA_final-idnrk4 = WA_istb-idnrk.

delete it_stloc where matnr = wa_istb-idnrk.

linecolor-fieldname = 'IDNRK4'.

linecolor-color-col = 4.

append linecolor.

linecolor-fieldname = 'LABST4'.

linecolor-color-col = 4.

append linecolor.

endif.

endif.

endif.

endif.

clear wa_istb.

READ TABLE ISTB INTO WA_ISTB WITH KEY IDNRK+0(6) = 'CWM044' werks = wa_stloc-werks.

if sy-subrc eq 0.

read table it_stloc into wa_stloc1 with key matnr = wa_istb-idnrk.

if sy-subrc eq 0.

clear wa_stloc.

if wa_stloc-labst gt '0'.

if sy-subrc eq 0.

read table it_Stloc into wa_stloc with key matnr = wa_istb-idnrk.

wa_final-labst5 = wa_stloc-labst.

wA_final-idnrk5 = WA_istb-idnrk.

delete it_stloc where matnr = wa_istb-idnrk.

linecolor-fieldname = 'IDNRK5'.

linecolor-color-col = 5.

append linecolor.

linecolor-fieldname = 'LABST5'.

linecolor-color-col = 5.

append linecolor.

endif.

endif.

endif.

endif.

clear wa_istb.

READ TABLE ISTB INTO WA_ISTB WITH KEY IDNRK+0(6) = 'CWM144' werks = wa_stloc-werks.

if sy-subrc eq 0.

read table it_stloc into wa_stloc1 with key matnr = wa_istb-idnrk.

if sy-subrc eq 0.

clear wa_stloc.

read table it_Stloc into wa_stloc with key matnr = wa_istb-idnrk.

if wa_stloc-labst gt '0'.

if sy-subrc eq 0.

wa_final-labst6 = wa_stloc-labst.

wA_final-idnrk6 = WA_istb-idnrk.

delete it_stloc where matnr = wa_istb-idnrk.

linecolor-fieldname = 'IDNRK6'.

linecolor-color-col = 6.

append linecolor.

linecolor-fieldname = 'LABST6'.

linecolor-color-col = 6.

append linecolor.

endif.

endif.

endif.

endif.

clear wa_istb.

READ TABLE ISTB INTO WA_ISTB WITH KEY IDNRK+0(6) = 'CWM002' werks = wa_stloc-werks .

if sy-subrc eq 0.

read table it_stloc into wa_stloc1 with key matnr = wa_istb-idnrk.

if sy-subrc eq 0.

clear wa_stloc.

read table it_Stloc into wa_stloc with key matnr = wa_istb-idnrk.

if wa_stloc-labst gt '0'.

if sy-subrc eq 0.

wa_final-labst7 = wa_stloc-labst.

wA_final-idnrk7 = WA_istb-idnrk.

delete it_stloc where matnr = wa_istb-idnrk.

linecolor-fieldname = 'IDNRK7'.

linecolor-color-col = 7.

append linecolor.

linecolor-fieldname = 'LABST7'.

linecolor-color-col = 7.

append linecolor.

endif.

endif.

endif.

endif.

clear wa_istb.

READ TABLE ISTB INTO WA_ISTB WITH KEY IDNRK+0(6) = 'CWM003' werks = wa_stloc-werks.

if sy-subrc eq 0.

read table it_stloc into wa_stloc1 with key matnr = wa_istb-idnrk.

if sy-subrc eq 0.

clear wa_stloc.

read table it_Stloc into wa_stloc with key matnr = wa_istb-idnrk.

if wa_stloc-labst gt '0'.

if sy-subrc eq 0.

wa_final-labst8 = wa_stloc-labst.

wA_final-idnrk8 = WA_istb-idnrk.

delete it_stloc where matnr = wa_istb-idnrk.

linecolor-fieldname = 'IDNRK8'.

linecolor-color-col = 8.

append linecolor.

linecolor-fieldname = 'LABST8'.

linecolor-color-col = 8.

append linecolor.

endif.

endif.

endif.

endif.

ENDFORM.

Edited by: santosh jajur on Jul 21, 2008 3:35 PM