Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

MAKT_MAKTX

Go to solution
Former Member

‎03-05-2007 9:54 AM

0 Kudos

hi all,

please compile d code below u can c al d fields r coming except the MAKTX field which is from the MAKT table...plaese help

with regards

vijay

REPORT ZSALES4.

*DATA:X TYPE I,Y TYPE I,A TYPE I,B TYPE I.

TABLES:VBRP,MAKT.

TYPE-POOLS:SLIS.

TYPES:BEGIN OF T_VBRP,

VBELN TYPE VBRP-VBELN,

FBUDA TYPE VBRP-FBUDA,

WERKS TYPE VBRP-WERKS,

LGORT TYPE VBRP-LGORT,

NETWR TYPE VBRP-NETWR,

FKLMG TYPE VBRP-FKLMG,

VRKME TYPE VBRP-VRKME,

MATNR TYPE VBRP-MATNR,

MAKTX TYPE MAKT-MAKTX,

Y TYPE I,

END OF T_VBRP.

DATA: IT_SORT TYPE SLIS_T_SORTINFO_ALV,

T_SORT TYPE SLIS_SORTINFO_ALV.

*DATA IT_MAKT TYPE STANDARD TABLE OF MAKT WITH HEADER LINE.

DATA:IT_VBRP TYPE STANDARD TABLE OF T_VBRP INITIAL SIZE 0 WITH HEADER LINE ,

WA_VBRP TYPE T_VBRP.

DATA:IT_MAKT TYPE STANDARD TABLE OF T_VBRP INITIAL SIZE 0 WITH HEADER LINE ,

WA_makt TYPE T_VBRP.

SELECT-OPTIONS:DATE FOR VBRP-FBUDA OBLIGATORY.

SELECT-OPTIONS:PLANT FOR VBRP-WERKS NO INTERVALS.

SELECT-OPTIONS:LOCATION FOR VBRP-LGORT NO INTERVALS.

DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,

GD_LAYOUT TYPE SLIS_LAYOUT_ALV,

GD_REPID LIKE SY-REPID.

DATA: BEGIN OF IT_FINAL OCCURS 1,

WERKS LIKE IT_VBRP-WERKS,

VBELN LIKE IT_VBRP-VBELN,

  • KUNAG LIKE IT_VBRKUK-KUNAG,

MATNR LIKE IT_VBRP-MATNR,

FBUDA LIKE IT_VBRP-FBUDA,

  • PSTYV LIKE IT_VBRP-PSTYV,

FKLMG LIKE IT_VBRP-FKLMG,

MAKTX LIKE IT_MAKT-MAKTX,

  • NAME1 LIKE IT_KNA1-NAME1,

END OF IT_FINAL.

SELECT FBUDA VBELN WERKS LGORT NETWR FKLMG VRKME MATNR

FROM VBRP

INTO CORRESPONDING FIELDS OF TABLE IT_VBRP

WHERE FBUDA IN DATE AND

WERKS IN PLANT AND

LGORT IN LOCATION.

START-OF-SELECTION.

SELECT FBUDA VBELN WERKS LGORT NETWR FKLMG VRKME MATNR

FROM VBRP

INTO CORRESPONDING FIELDS OF TABLE IT_VBRP

WHERE FBUDA IN DATE AND

WERKS IN PLANT AND

LGORT IN LOCATION.

  • SELECT * FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT

  • FOR ALL ENTRIES IN IT_VBRP

  • WHERE MATNR EQ IT_VBRP-MATNR.

SELECT MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT

FOR ALL ENTRIES IN IT_VBRP

WHERE MATNR EQ IT_VBRP-MATNR.

END-OF-SELECTION.

LOOP at IT_VBRP.

read table it_makt with key matnr = IT_VBRP-matnr.

IF SY-SUBRC EQ 0.

IT_FINAL-WERKS = IT_VBRP-WERKS.

IT_FINAL-FBUDA = IT_VBRP-FBUDA.

IT_FINAL-VBELN = IT_VBRP-VBELN.

*IT_FINAL-KUNAG = IT_VBRKUK-KUNAG.

IT_FINAL-MATNR = IT_VBRP-MATNR.

*IT_FINAL-PSTYV = IT_VBRP-PSTYV.

IT_FINAL-FKLMG = IT_VBRP-FKLMG.

IT_FINAL-MAKTX = IT_MAKT-MAKTX.

*IT_FINAL-NAME1 = IT_KNA1-NAME1.

APPEND IT_FINAL.

endif.

ENDLOOP.

*PERFORM DATA_RETRIEVAL.

PERFORM BUILD_FIELDCATALOG.

PERFORM SORT_FIELDS.

PERFORM BUILD_LAYOUT.

PERFORM DISPLAY_ALV_REPORT.

----

  • FORM build_fieldcatalog *

----

  • ........ *

----

FORM BUILD_FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'WERKS'.

FIELDCATALOG-SELTEXT_M = 'PLANT '.

FIELDCATALOG-COL_POS = 1.

FIELDCATALOG-TABNAME = 'IT_FINAL'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'LGORT'.

FIELDCATALOG-SELTEXT_M = 'STORAGE LOCATION '.

FIELDCATALOG-COL_POS = 2.

FIELDCATALOG-TABNAME = 'IT_FINAL'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'FBUDA'.

FIELDCATALOG-SELTEXT_M = 'DATE '.

FIELDCATALOG-COL_POS = 3.

FIELDCATALOG-TABNAME = 'IT_FINAL'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'NETWR'.

FIELDCATALOG-SELTEXT_M = 'NET VALUE'.

FIELDCATALOG-COL_POS = 4.

FIELDCATALOG-DO_SUM = 'Y'.

FIELDCATALOG-TABNAME = 'IT_FINAL'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'FKLMG'.

FIELDCATALOG-SELTEXT_M = 'BILLING QUANTITY '.

FIELDCATALOG-COL_POS = 5.

FIELDCATALOG-DO_SUM = 'Y'.

FIELDCATALOG-TABNAME = 'IT_FINAL'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'VRKME'.

FIELDCATALOG-SELTEXT_M = ' SALES UNIT '.

FIELDCATALOG-COL_POS = 6.

FIELDCATALOG-TABNAME = 'IT_FINAL'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MATNR'.

FIELDCATALOG-SELTEXT_M = ' MATERIAL NUMBER '.

FIELDCATALOG-COL_POS = 7.

FIELDCATALOG-TABNAME = 'IT_FINAL'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = ' MAKTX '.

FIELDCATALOG-SELTEXT_M = ' MATERIAL DESCRIPTION '.

FIELDCATALOG-COL_POS = 8.

FIELDCATALOG-TABNAME = 'IT_FINAL'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

ENDFORM.

----

  • FORM build_layout *

----

  • ........ *

----

FORM BUILD_LAYOUT.

GD_LAYOUT-NO_INPUT = 'X'.

GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

GD_LAYOUT-TOTALS_TEXT = 'TOTALS'(201).

ENDFORM.

----

  • FORM display_alv_report *

----

  • ........ *

----

FORM DISPLAY_ALV_REPORT.

GD_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = GD_REPID

IS_LAYOUT = GD_LAYOUT

IT_FIELDCAT = FIELDCATALOG[]

IT_SORT = IT_SORT[]

I_SAVE = 'X'

TABLES

T_OUTTAB = IT_VBRP

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

ENDIF.

ENDFORM. " DISPLAY_ALV_REPORT

----

  • FORM data_retrieval *

----

  • ........ *

----

*FORM DATA_RETRIEVAL.

*

  • SELECT FBUDA VBELN WERKS LGORT NETWR FKLMG VRKME MATNR

  • FROM VBRP

  • INTO CORRESPONDING FIELDS OF TABLE IT_VBRP

  • WHERE FBUDA IN DATE AND

  • WERKS IN PLANT AND

  • LGORT IN LOCATION.

  • X = IT_VBRP-NETWR .

  • SELECT MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT

  • FOR ALL ENTRIES IN IT_VBRP WHERE MATNR EQ IT_VBRP-MATNR.

*

  • ADD X TO Y.

*ENDFORM.

&----

*& Form sort_fields

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM SORT_FIELDS.

T_SORT-FIELDNAME = 'WERKS'.

T_SORT-TABNAME = 'IT_VBRP'.

T_SORT-SPOS = 1.

T_SORT-UP = 'X'.

T_SORT-SUBTOT = 'X'.

APPEND T_SORT TO IT_SORT.

CLEAR T_SORT.

T_SORT-FIELDNAME = 'LGORT'.

T_SORT-TABNAME = 'IT_VBRP'.

T_SORT-SPOS = 2.

T_SORT-UP = 'X'.

T_SORT-SUBTOT = 'X'.

APPEND T_SORT TO IT_SORT.

CLEAR T_SORT.

T_SORT-FIELDNAME = 'FBUDA '.

T_SORT-TABNAME = ' IT_VBRP '.

T_SORT-SPOS = 3.

T_SORT-UP = 'X'.

T_SORT-SUBTOT = 'X'.

APPEND T_SORT TO IT_SORT.

CLEAR T_SORT.

ENDFORM. " sort_fields

1 ACCEPTED SOLUTION

Go to solution
Former Member

‎03-05-2007 10:00 AM

0 Kudos

Hello Vijay,

In the below select query make the chang:


  SELECT MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
  FOR ALL ENTRIES IN IT_VBRP
  WHERE MATNR EQ IT_VBRP-MATNR
        AND SPRAS EQ SY-LANGU.

Vasanth

14 REPLIES 14

Go to solution
Former Member

‎03-05-2007 10:00 AM

0 Kudos

Hello Vijay,

In the below select query make the chang:


  SELECT MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
  FOR ALL ENTRIES IN IT_VBRP
  WHERE MATNR EQ IT_VBRP-MATNR
        AND SPRAS EQ SY-LANGU.

Vasanth

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:02 AM

0 Kudos

HI vasanth

couldnt get it,,,

am getting d same output

vijay

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:10 AM

0 Kudos

Hello Vijay,

Select like this:



" Slect Matnr
  SELECT MATNR MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
  FOR ALL ENTRIES IN IT_VBRP
  WHERE MATNR EQ IT_VBRP-MATNR
        and spras     eq sy-langu.

  LOOP AT IT_VBRP.

    READ TABLE IT_MAKT WITH KEY MATNR = IT_VBRP-MATNR.

    IF SY-SUBRC EQ 0.



      IT_FINAL-WERKS = IT_VBRP-WERKS.
      IT_FINAL-FBUDA = IT_VBRP-FBUDA.
      IT_FINAL-VBELN = IT_VBRP-VBELN.
*IT_FINAL-KUNAG = IT_VBRKUK-KUNAG.
      IT_FINAL-MATNR = IT_VBRP-MATNR.
*IT_FINAL-PSTYV = IT_VBRP-PSTYV.
      IT_FINAL-FKLMG = IT_VBRP-FKLMG.
      IT_FINAL-MAKTX = IT_MAKT-MAKTX.
*IT_FINAL-NAME1 = IT_KNA1-NAME1.
      APPEND IT_FINAL.

    ENDIF.
  ENDLOOP.

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:14 AM

0 Kudos

hi

no vasanh still not getting it

vijay

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:29 AM

0 Kudos

hi vasanth

any hopes

vijay

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:35 AM

0 Kudos

Hello,

I ahve made the change.

The problem is with the fieldcatalog


REPORT ZSALES4.
*DATA:X TYPE I,Y TYPE I,A TYPE I,B TYPE I.


TABLES:VBRP,MAKT.
TYPE-POOLS:SLIS.
TYPES:BEGIN OF T_VBRP,
VBELN TYPE VBRP-VBELN,
FBUDA TYPE VBRP-FBUDA,
WERKS TYPE VBRP-WERKS,
LGORT TYPE VBRP-LGORT,
NETWR TYPE VBRP-NETWR,
FKLMG TYPE VBRP-FKLMG,
VRKME TYPE VBRP-VRKME,
MATNR TYPE VBRP-MATNR,
MAKTX TYPE MAKT-MAKTX,
Y TYPE I,
END OF T_VBRP.


DATA: IT_SORT TYPE SLIS_T_SORTINFO_ALV,
T_SORT TYPE SLIS_SORTINFO_ALV.
*DATA IT_MAKT TYPE STANDARD TABLE OF MAKT WITH HEADER LINE.

DATA:IT_VBRP TYPE STANDARD TABLE OF T_VBRP INITIAL SIZE 0 WITH HEADER
LINE ,
WA_VBRP TYPE T_VBRP.


DATA:IT_MAKT TYPE STANDARD TABLE OF T_VBRP INITIAL SIZE 0 WITH HEADER
LINE ,
WA_MAKT TYPE T_VBRP.



TABLES:MARA.
SELECT-OPTIONS:DATE FOR VBRP-FBUDA OBLIGATORY.
SELECT-OPTIONS:PLANT FOR VBRP-WERKS NO INTERVALS.
SELECT-OPTIONS:LOCATION FOR VBRP-LGORT NO INTERVALS.
*SELECT-OPTIONS: MATNR FOR MARA-MATNR.

DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
GD_REPID LIKE SY-REPID.


DATA: BEGIN OF IT_FINAL OCCURS 0,
        WERKS LIKE IT_VBRP-WERKS,
        VBELN LIKE IT_VBRP-VBELN,
        MATNR LIKE IT_VBRP-MATNR,
        FBUDA LIKE IT_VBRP-FBUDA,
        FKLMG LIKE IT_VBRP-FKLMG,
        MAKTX LIKE IT_MAKT-MAKTX,
END OF IT_FINAL.


SELECT FBUDA VBELN WERKS LGORT NETWR FKLMG VRKME MATNR
FROM VBRP
INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
WHERE FBUDA IN DATE AND
WERKS IN PLANT AND
LGORT IN LOCATION.




START-OF-SELECTION.

  SELECT FBUDA VBELN WERKS LGORT NETWR FKLMG VRKME MATNR
  FROM VBRP
  INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
  WHERE FBUDA IN DATE AND
  WERKS IN PLANT AND
  LGORT IN LOCATION.





* SELECT * FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
* FOR ALL ENTRIES IN IT_VBRP
* WHERE MATNR EQ IT_VBRP-MATNR.

  SELECT MATNR MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF TABLE
IT_MAKT
  FOR ALL ENTRIES IN IT_VBRP
  WHERE MATNR EQ IT_VBRP-MATNR.




END-OF-SELECTION.

  LOOP AT IT_VBRP.

    READ TABLE IT_MAKT WITH KEY MATNR = IT_VBRP-MATNR.

    IF SY-SUBRC EQ 0.



      IT_FINAL-WERKS = IT_VBRP-WERKS.
      IT_FINAL-FBUDA = IT_VBRP-FBUDA.
      IT_FINAL-VBELN = IT_VBRP-VBELN.
*IT_FINAL-KUNAG = IT_VBRKUK-KUNAG.
      IT_FINAL-MATNR = IT_VBRP-MATNR.
*IT_FINAL-PSTYV = IT_VBRP-PSTYV.
      IT_FINAL-FKLMG = IT_VBRP-FKLMG.
      IT_FINAL-MAKTX = IT_MAKT-MAKTX.
*IT_FINAL-NAME1 = IT_KNA1-NAME1.
      APPEND IT_FINAL.

    ENDIF.
  ENDLOOP.




*PERFORM DATA_RETRIEVAL.
  PERFORM BUILD_FIELDCATALOG.
  PERFORM SORT_FIELDS.

  PERFORM BUILD_LAYOUT.
  PERFORM DISPLAY_ALV_REPORT.



*---------------------------------------------------------------------*
* FORM build_fieldcatalog *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM BUILD_FIELDCATALOG.








  FIELDCATALOG-FIELDNAME = 'WERKS'.
  FIELDCATALOG-SELTEXT_M = 'PLANT '.
  FIELDCATALOG-COL_POS = 1.
  FIELDCATALOG-TABNAME = 'IT_FINAL'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.



  FIELDCATALOG-FIELDNAME = 'VBELN'.
  FIELDCATALOG-SELTEXT_M = 'SAles Order'.
  FIELDCATALOG-COL_POS = 2.
  FIELDCATALOG-TABNAME = 'IT_FINAL'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'MATNR'.
  FIELDCATALOG-SELTEXT_M = ' MATERIAL NUMBER '.
  FIELDCATALOG-COL_POS = 7.
  FIELDCATALOG-TABNAME = 'IT_FINAL'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

  FIELDCATALOG-FIELDNAME = 'FBUDA'.
  FIELDCATALOG-SELTEXT_M = 'DATE '.
  FIELDCATALOG-COL_POS = 3.
  FIELDCATALOG-TABNAME = 'IT_FINAL'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.




*  FIELDCATALOG-FIELDNAME = 'NETWR'.
*  FIELDCATALOG-SELTEXT_M = 'NET VALUE'.
*  FIELDCATALOG-COL_POS = 4.
*  FIELDCATALOG-DO_SUM = 'Y'.
*  FIELDCATALOG-TABNAME = 'IT_FINAL'.
*  APPEND FIELDCATALOG TO FIELDCATALOG.
*  CLEAR FIELDCATALOG.
*

  FIELDCATALOG-FIELDNAME = 'FKLMG'.
  FIELDCATALOG-SELTEXT_M = 'BILLING QUANTITY '.
  FIELDCATALOG-COL_POS = 5.
  FIELDCATALOG-DO_SUM = 'Y'.
  FIELDCATALOG-TABNAME = 'IT_FINAL'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

*  FIELDCATALOG-FIELDNAME = 'VRKME'.
*  FIELDCATALOG-SELTEXT_M = ' SALES UNIT '.
*  FIELDCATALOG-COL_POS = 6.
*  FIELDCATALOG-TABNAME = 'IT_FINAL'.
*  APPEND FIELDCATALOG TO FIELDCATALOG.
*  CLEAR FIELDCATALOG.



  FIELDCATALOG-FIELDNAME = 'MAKTX '.
  FIELDCATALOG-SELTEXT_M = ' MATERIAL DESCRIPTION '.
  FIELDCATALOG-COL_POS = 8.
  FIELDCATALOG-TABNAME = 'IT_FINAL'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

ENDFORM.



*---------------------------------------------------------------------*
* FORM build_layout *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM BUILD_LAYOUT.
  GD_LAYOUT-NO_INPUT = 'X'.
  GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  GD_LAYOUT-TOTALS_TEXT = 'TOTALS'(201).
ENDFORM.



*---------------------------------------------------------------------*
* FORM display_alv_report *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM DISPLAY_ALV_REPORT.
  GD_REPID = SY-REPID.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM = GD_REPID
            IS_LAYOUT          = GD_LAYOUT
            IT_FIELDCAT        = FIELDCATALOG[]
            IT_SORT            = IT_SORT[]
            I_SAVE             = 'X'
       TABLES
            T_OUTTAB           = IT_FINAL
       EXCEPTIONS
            PROGRAM_ERROR      = 1
            OTHERS             = 2.

  IF SY-SUBRC <> 0.
  ENDIF.
ENDFORM. " DISPLAY_ALV_REPORT




*---------------------------------------------------------------------*
* FORM data_retrieval *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
*FORM DATA_RETRIEVAL.
*
* SELECT FBUDA VBELN WERKS LGORT NETWR FKLMG VRKME MATNR
* FROM VBRP
* INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
* WHERE FBUDA IN DATE AND
* WERKS IN PLANT AND
* LGORT IN LOCATION.
* X = IT_VBRP-NETWR .
* SELECT MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
* FOR ALL ENTRIES IN IT_VBRP WHERE MATNR EQ IT_VBRP-MATNR.
*
* ADD X TO Y.



*ENDFORM.
*&---------------------------------------------------------------------*
*& Form sort_fields
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SORT_FIELDS.






  T_SORT-FIELDNAME = 'WERKS'.
  T_SORT-TABNAME = 'IT_FINAL'.
  T_SORT-SPOS = 1.
  T_SORT-UP = 'X'.
  T_SORT-SUBTOT = 'X'.
  APPEND T_SORT TO IT_SORT.
  CLEAR T_SORT.
*
**  T_SORT-FIELDNAME = 'LGORT'.
**  T_SORT-TABNAME = 'IT_FINAL'.
**  T_SORT-SPOS = 2.
**  T_SORT-UP = 'X'.
**  T_SORT-SUBTOT = 'X'.
**  APPEND T_SORT TO IT_SORT.
**  CLEAR T_SORT.
*
*
  T_SORT-FIELDNAME = 'FBUDA '.
  T_SORT-TABNAME = 'IT_FINAL'.
  T_SORT-SPOS = 3.
  T_SORT-UP = 'X'.
  T_SORT-SUBTOT = 'X'.
  APPEND T_SORT TO IT_SORT.
  CLEAR T_SORT.

ENDFORM. " sort_fields

VAsanth

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:43 AM

0 Kudos

hi

got it.but how did u get it..u put the material number code in d field catalog..please tell me d mechanism...it will b really helpful for me in d future

vijay

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:46 AM

0 Kudos

Hello Vijay,

In ur old code u have selected the data from MAKT table correctly, but without MATNR.

But when u r filling the data to the IT_FINAL u r reading IT_MAKT with MATNR which has no value.

I have corrected that only.

U haven't rewarded the points yet.

Vasanth

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:48 AM

0 Kudos

HEY U REMPVED D LGORT FIELD

VIJAY

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:49 AM

0 Kudos

Ur IT_FINAL table deosn't have LGORT..

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:57 AM

0 Kudos

MORE PROBLEMSS

WHEN I ACCESED D OTHER FIELDS BY REMOVING D COMMENT LINES AND KEPT DEM IN ORDER...AM GETTING RUNTIME ERROR...PLEASE HELPPPP

VIJAY

Go to solution
Former Member

‎03-05-2007 10:05 AM

0 Kudos

Hi,

Try this three things

1.Instead of Maktx Type Makt-Maktx , declare

Maktx like Makt-Maktx.

2.Add language key on select query.

3.After activated log off and login again.

I hope it will work now.

Reward if helpful.

Thanks,

Ponraj.s.

Go to solution
Former Member
In response to Former Member

‎03-05-2007 10:15 AM

0 Kudos

hi

i did those 3 steps still not getting

please help

vijay

Go to solution
Former Member

‎03-05-2007 10:36 AM

0 Kudos

hi vijay

you are selecting the description of the material but while reading the data you are reading it with respect to the material in it_makt which you dint selected so its showing a blank .

so do this

Select matnr

maktx

from makt

into corresponding feilds of it_makt

for all entries in it_vbrp

where matnr = it_vbrp-matnr

and spras = 'EN'.

Reward points if helpful.

Regards

Zarina