regarding selection screen output

[Former Member]

hi,

i have created ALV report by using selection screen.in this i have displayed kunnr field from kna1 table.

but it is showing someextra zero's and then code now i want to display only code not extra zero.here below i am giving example:----

sap code

00001562

but i want like this....

sap code

1562.

thanx/regards,

vaneet thakur

[jaideepsharma]

Hi,

Try to call conversion exit alpha function module to changes kunnr from internal sap format to external sap format before populating it in the internal table. You can find this function module in domain for kunnr.

KR Jaideep,

[Former Member]

Hi,

Use the Fm "BKK_DELETE_LEADING_ZERO" hope you will slove the problem

[Former Member]

Hi,

Use FIELDCATALOG-NO-ZERO = 'X'.

while defining the fieldcatalog for kunnr in ur report.

[Former Member]

Hi vaneet,

try function module

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = kna1-kunnr

IMPORTING

OUTPUT = kna1-kunnr.

regards

Vendhan

[Former Member]

hi,

problem still not solved.......

plz do the needfull.

regards,

vaneet thakur

[Former Member]

Hi vaneet,

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = kna1-kunnr

IMPORTING

OUTPUT = kna1-kunnr.

inside the fm pass ur internal table field and get o/p in same field for ex:

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = itab-kunnr

IMPORTING

OUTPUT = itab-kunnr.

it will solve ur problem else send ur code.

regards

vendhan

[Former Member]

hi,

Try this--

data: input(10) TYPE c VALUE '0001290'.

SHIFT input left DELETING LEADING '0'.

write:/ input.

Output----

input = 1290.

Hope it will solve ur problem.

[Former Member]

hi,,,,

but still this is not working....

regards,

vaneet thakur

[Former Member]

hi,

Did u try the same code i gave u as a trial in creating a separate trial program...? If not pls try it by copying the same.

It works, I tried it at my end.

Edited by: mujib tirandaz on May 30, 2009 11:51 AM

[Former Member]

Hi,,,,

I havn't use your code in separate program but i know dis is ok and will work as you wrote but it is not working in my program...

Regards,

Vaneet Thakur..

[Former Member]

Hi vaneet,

send ur coding ....

Regards

vendhan

[Former Member]

TABLES : VBRK,KNA1.

TYPE-POOLS : SLIS.

.

DATA : T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

L_FIELDCAT TYPE SLIS_FIELDCAT_ALV, "DECLARATION OF FIELDCAT FOR OUTPUT DISPLAY

T_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA : BEGIN OF ITAB OCCURS 0,

VBELN LIKE VBRK-VBELN, "PO NUMBER

VTEG LIKE VBRK-VTWEG, "DC

SPART LIKE VBRK-SPART, "DIVISION

FKDAT LIKE VBRK-FKDAT, "DATE

KUNRG LIKE VBRK-KUNRG, "CUSTOMER PLANT

WERKS LIKE VBRK-WAERK, "SITE

VKORG LIKE VBRK-VKORG, "SALE ORGANIZATION

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

END OF ITAB.

SELECTION-SCREEN : BEGIN OF BLOCK VANEET WITH FRAME TITLE TEXT-001.

*SELECT-OPTIONS : SITE FOR VBRK-WAERK.

SELECT-OPTIONS : PCODE FOR VBRK-KUNRG.

*SELECT-OPTIONS : INVOICE FOR VBRK-VBELN.

SELECT-OPTIONS : S_ORG FOR VBRK-VKORG OBLIGATORY.

SELECT-OPTIONS : DC FOR VBRK-VTWEG OBLIGATORY.

SELECT-OPTIONS : DIVISION FOR VBRK-SPART obligatory.

*SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT.

SELECTION-SCREEN : END OF BLOCK VANEET.

SELECTION-SCREEN : BEGIN OF BLOCK VANEET1 WITH FRAME TITLE TEXT-002.

SELECT-OPTIONS : INVOICE FOR VBRK-VBELN.

SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT.

SELECTION-SCREEN : END OF BLOCK VANEET1.

*PERFORM TOP-OF-PAGE.

PERFORM FETCH-DATA.

*PERFORM DISP_DATA.

PERFORM T_FIELDCAT.

PERFORM REUSE_ALV.

*&----

---

**& Form TOP-OF-PAGE

*&----

---

• text

*----

---

• --> p1 text

• <-- p2 text

*----

---

*FORM TOP-OF-PAGE .

*

*FORMAT COLOR 3 INTENSIFIED OFF.

*FORMAT COLOR 5 INTENSIFIED OFF.

*write : /48(120) 'NAHAR RETAIL LTD'.

*FORMAT COLOR 3 INTENSIFIED OFF.

*write : /48(120) 'FOCAL POINT'.

*FORMAT COLOR 6 INTENSIFIED OFF.

*write : /48(120) 'LUDHIANA'.

*write : / sy-uline.

*format color 4.

*

**WRITE: /1(20) 'INVOICENO',

• 25(15) 'SAP CODE',

• 55(15) 'PARTYNAME',

• 100(50) 'LOCATION'.

• format color 7 INTENSIFIED ON.

**

*ENDFORM. " TOP-OF-PAGE

&----

---

*& Form FETCH-DATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM FETCH-DATA .

REFRESH ITAB.

SELECT A_{VBELN A}KUNRG A_{FKDAT A}WAERK B_{NAME1 B}ORT01 INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM VBRK AS A INNER JOIN KNA1 AS B

ON A_{KUNRG = B}KUNNR

WHERE

A~VBELN IN INVOICE

and

A~FKDAT IN PO_DATE

and

B~KUNNR IN PCODE

GROUP BY A_{VBELN A}KUNRG B_{NAME1 B}ORT01 A_{FKDAT A}WAERK.

SORT ITAB ascending BY VBELN.

*ENDSELECT.

ENDFORM. " FETCH-DATA

*&----

---

**& Form DISP_DATA

*&----

---

• text

*----

---

• --> p1 text

• <-- p2 text

*----

---

*FORM DISP_DATA .

*

*

*loop at itab.

*write :/1(18) itab-VBELN,

• 27(5) ITAB-KUNRG,

• 55(25) ITAB-NAME1,

• 100(50) ITAB-ORT01.

*

*

*endloop.

*

*ENDFORM. " DISP_DATA

&----

---

*& Form T_FIELDCAT

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM T_FIELDCAT .

PERFORM fill_field USING 'VBELN' 'PO NO'.

PERFORM fill_field USING 'KUNRG' 'CUSTOMER PLANT'.

PERFORM fill_field USING 'NAME1' 'PARTY NAME'.

PERFORM fill_field USING 'ORT01' 'LOCATION'.

• PERFORM fill_field USING 'BASME' 'UOM'.

PERFORM SELECTION_WIDTH.

ENDFORM. " T_FIELDCAT

&----

---

*& Form fill_field

&----

---

• text

----

---

• -->P_0267 text

• -->P_0268 text

----

---

FORM fill_field USING p_fieldname

p_seltext.

L_FIELDCAT-FIELDNAME = p_fieldname.

L_FIELDCAT-TABNAME = 'ITAB'.

L_FIELDCAT-SELTEXT_M = p_seltext.

L_FIELDCAT-OUTPUTLEN = 10.

APPEND L_FIELDCAT TO T_FIELDCAT.

CLEAR L_FIELDCAT.

ENDFORM. " fill_field

&----

---

*& Form REUSE_ALV

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM REUSE_ALV .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

• I_CALLBACK_PROGRAM = ' '

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_CALLBACK_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_GRID_SETTINGS =

IS_LAYOUT = T_LAYOUT

IT_FIELDCAT = T_FIELDCAT

• 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

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = ITAB

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. " REUSE_ALV

&----

---

*& Form SELECTION_WIDTH

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM SELECTION_WIDTH .

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = itab-kunrg

IMPORTING

OUTPUT = itab-kunrg

.

[Former Member]

Hi vaneet,

coding is ok but u should diclare alpha convertion fm before write field. try it, defly u will get o/p.

Regards

vendhan

[Former Member]

hai....

i am not understanding how you are saying that declare alpha fm.plz change my program and send it back to me.it will be very helpful to me.

Regards,

Vaneet Thakur

[jaideepsharma]

Hi,

Please do the below depicted change in your code in subroutine T_FIELDCAT and SELECTION_WIDTH.

*&---------------------------------------------------------------------*
*& Form T_FIELDCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM t_fieldcat .
  PERFORM fill_field USING 'VBELN' 'PO NO'.
  PERFORM fill_field USING 'KUNRG' 'CUSTOMER PLANT'.
  PERFORM fill_field USING 'NAME1' 'PARTY NAME'.
  PERFORM fill_field USING 'ORT01' 'LOCATION'.
  PERFORM fill_field USING 'BASME' 'UOM'.

  LOOP AT itab.
    PERFORM selection_width.
    MODIFY itab FROM itab.
  ENDLOOP.
  
  
ENDFORM. "T_FIELDCAT

Instead of calling input conversion exit you have to call output conversion exit which will convert internal sap data into external format.

FORM selection_width .

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input  = itab-kunrg
    IMPORTING
      output = itab-kunrg.

ENDFORM.                    "selection_width

[Former Member]

Hi vaneet,

TABLES : VBRK,KNA1. TYPE-POOLS : SLIS. . DATA : T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, L_FIELDCAT TYPE SLIS_FIELDCAT_ALV, "DECLARATION OF FIELDCAT FOR OUTPUT DISPLAY T_LAYOUT TYPE SLIS_LAYOUT_ALV. DATA : BEGIN OF ITAB OCCURS 0, VBELN LIKE VBRK-VBELN, "PO NUMBER VTEG LIKE VBRK-VTWEG, "DC SPART LIKE VBRK-SPART, "DIVISION FKDAT LIKE VBRK-FKDAT, "DATE KUNRG LIKE VBRK-KUNRG, "CUSTOMER PLANT WERKS LIKE VBRK-WAERK, "SITE VKORG LIKE VBRK-VKORG, "SALE ORGANIZATION NAME1 LIKE KNA1-NAME1, ORT01 LIKE KNA1-ORT01, END OF ITAB. SELECTION-SCREEN : BEGIN OF BLOCK VANEET WITH FRAME TITLE TEXT-001. *SELECT-OPTIONS : SITE FOR VBRK-WAERK. SELECT-OPTIONS : PCODE FOR VBRK-KUNRG. *SELECT-OPTIONS : INVOICE FOR VBRK-VBELN. SELECT-OPTIONS : S_ORG FOR VBRK-VKORG OBLIGATORY. SELECT-OPTIONS : DC FOR VBRK-VTWEG OBLIGATORY. SELECT-OPTIONS : DIVISION FOR VBRK-SPART obligatory. *SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT. SELECTION-SCREEN : END OF BLOCK VANEET. SELECTION-SCREEN : BEGIN OF BLOCK VANEET1 WITH FRAME TITLE TEXT-002. SELECT-OPTIONS : INVOICE FOR VBRK-VBELN. SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT. SELECTION-SCREEN : END OF BLOCK VANEET1. *PERFORM TOP-OF-PAGE. PERFORM FETCH-DATA. *PERFORM DISP_DATA. PERFORM T_FIELDCAT. PERFORM REUSE_ALV. *&----

---

**& Form TOP-OF-PAGE *&----

---

** text *----

---

** > p1 text ** < p2 text *----

---

*FORM TOP-OF-PAGE . * *FORMAT COLOR 3 INTENSIFIED OFF. *FORMAT COLOR 5 INTENSIFIED OFF. *write : /48(120) 'NAHAR RETAIL LTD'. *FORMAT COLOR 3 INTENSIFIED OFF. *write : /48(120) 'FOCAL POINT'. *FORMAT COLOR 6 INTENSIFIED OFF. *write : /48(120) 'LUDHIANA'. *write : / sy-uline. *format color 4. * **WRITE: /1(20) 'INVOICENO', ** 25(15) 'SAP CODE', ** 55(15) 'PARTYNAME', ** 100(50) 'LOCATION'. ** format color 7 INTENSIFIED ON. ** *ENDFORM. " TOP-OF-PAGE &----

---

*& Form FETCH-DATA &----

---

* text ----

---

* > p1 text * < p2 text ----

---

FORM FETCH-DATA . REFRESH ITAB. SELECT A_{VBELN A}KUNRG A_{FKDAT A}WAERK B_{NAME1 B}ORT01 INTO CORRESPONDING FIELDS OF TABLE ITAB FROM VBRK AS A INNER JOIN KNA1 AS B ON A_{KUNRG = B}KUNNR WHERE A_{VBELN IN INVOICE and A}FKDAT IN PO_DATE and B_{KUNNR IN PCODE GROUP BY A}VBELN A_{KUNRG B}NAME1 B_{ORT01 A}FKDAT A~WAERK. SORT ITAB ascending BY VBELN. *ENDSELECT. ENDFORM.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING INPUT = itab-kunrg

IMPORTING OUTPUT = itab-kunrg .

" FETCH-DATA *&----

---

**& Form DISP_DATA *&----

---

** text *----

---

** > p1 text ** < p2 text *----

---

*FORM DISP_DATA .

• * *loop at itab. *write :/1(18) itab-VBELN, * 27(5) ITAB-KUNRG, * 55(25) ITAB-NAME1, * 100(50) ITAB-ORT01. * * *endloop. * *ENDFORM. " DISP_DATA &--------------------------------------------------------------------- *& Form T_FIELDCAT &--------------------------------------------------------------------- * text ---------------------------------------------------------------------- * > p1 text * < p2 text ---------------------------------------------------------------------- FORM T_FIELDCAT . PERFORM fill_field USING 'VBELN' 'PO NO'. PERFORM fill_field USING 'KUNRG' 'CUSTOMER PLANT'. PERFORM fill_field USING 'NAME1' 'PARTY NAME'. PERFORM fill_field USING 'ORT01' 'LOCATION'. * PERFORM fill_field USING 'BASME' 'UOM'. PERFORM SELECTION_WIDTH. ENDFORM. " T_FIELDCAT &--------------------------------------------------------------------- *& Form fill_field &--------------------------------------------------------------------- * text ---------------------------------------------------------------------- * -->P_0267 text * >P_0268 text *------------------------------------------------------------------* FORM fill_field USING p_fieldname p_seltext. L_FIELDCAT-FIELDNAME = p_fieldname. L_FIELDCAT-TABNAME = 'ITAB'. L_FIELDCAT-SELTEXT_M = p_seltext. L_FIELDCAT-OUTPUTLEN = 10. APPEND L_FIELDCAT TO T_FIELDCAT. CLEAR L_FIELDCAT. ENDFORM. " fill_field *&-----------------------------------------------------------------* *& Form REUSE_ALV *&-----------------------------------------------------------------* * text *--------------------------------------------------------------------* * > p1 text * < p2 text ---------------------------------------------------------------------- FORM REUSE_ALV . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' * I_CALLBACK_PROGRAM = ' ' * I_CALLBACK_PF_STATUS_SET = ' ' * I_CALLBACK_USER_COMMAND = ' ' * I_CALLBACK_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_GRID_SETTINGS = IS_LAYOUT = T_LAYOUT IT_FIELDCAT = T_FIELDCAT * 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 * I_HTML_HEIGHT_TOP = 0 * I_HTML_HEIGHT_END = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IT_EXCEPT_QINFO = * IR_SALV_FULLSCREEN_ADAPTER = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES T_OUTTAB = ITAB 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. " REUSE_ALV &--------------------------------------------------------------------- *& Form SELECTION_WIDTH &--------------------------------------------------------------------- * text ---------------------------------------------------------------------- * > p1 text * < p2 text ---------------------------------------------------------------------- FORM SELECTION_WIDTH .

regards

vendhan

[Former Member]

Hi vaneet,

TABLES : VBRK,KNA1. TYPE-POOLS : SLIS. . DATA : T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, L_FIELDCAT TYPE SLIS_FIELDCAT_ALV, "DECLARATION OF FIELDCAT FOR OUTPUT DISPLAY T_LAYOUT TYPE SLIS_LAYOUT_ALV. DATA : BEGIN OF ITAB OCCURS 0, VBELN LIKE VBRK-VBELN, "PO NUMBER VTEG LIKE VBRK-VTWEG, "DC SPART LIKE VBRK-SPART, "DIVISION FKDAT LIKE VBRK-FKDAT, "DATE KUNRG LIKE VBRK-KUNRG, "CUSTOMER PLANT WERKS LIKE VBRK-WAERK, "SITE VKORG LIKE VBRK-VKORG, "SALE ORGANIZATION NAME1 LIKE KNA1-NAME1, ORT01 LIKE KNA1-ORT01, END OF ITAB. SELECTION-SCREEN : BEGIN OF BLOCK VANEET WITH FRAME TITLE TEXT-001. *SELECT-OPTIONS : SITE FOR VBRK-WAERK. SELECT-OPTIONS : PCODE FOR VBRK-KUNRG. *SELECT-OPTIONS : INVOICE FOR VBRK-VBELN. SELECT-OPTIONS : S_ORG FOR VBRK-VKORG OBLIGATORY. SELECT-OPTIONS : DC FOR VBRK-VTWEG OBLIGATORY. SELECT-OPTIONS : DIVISION FOR VBRK-SPART obligatory. *SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT. SELECTION-SCREEN : END OF BLOCK VANEET. SELECTION-SCREEN : BEGIN OF BLOCK VANEET1 WITH FRAME TITLE TEXT-002. SELECT-OPTIONS : INVOICE FOR VBRK-VBELN. SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT. SELECTION-SCREEN : END OF BLOCK VANEET1. *PERFORM TOP-OF-PAGE. PERFORM FETCH-DATA. *PERFORM DISP_DATA. PERFORM T_FIELDCAT. PERFORM REUSE_ALV. *&----

---

**& Form TOP-OF-PAGE *&----

---

** text *----

---

** > p1 text ** < p2 text *----

---

*FORM TOP-OF-PAGE . * *FORMAT COLOR 3 INTENSIFIED OFF. *FORMAT COLOR 5 INTENSIFIED OFF. *write : /48(120) 'NAHAR RETAIL LTD'. *FORMAT COLOR 3 INTENSIFIED OFF. *write : /48(120) 'FOCAL POINT'. *FORMAT COLOR 6 INTENSIFIED OFF. *write : /48(120) 'LUDHIANA'. *write : / sy-uline. *format color 4. * **WRITE: /1(20) 'INVOICENO', ** 25(15) 'SAP CODE', ** 55(15) 'PARTYNAME', ** 100(50) 'LOCATION'. ** format color 7 INTENSIFIED ON. ** *ENDFORM. " TOP-OF-PAGE &----

---

*& Form FETCH-DATA &----

---

* text ----

---

* > p1 text * < p2 text ----

---

FORM FETCH-DATA . REFRESH ITAB. SELECT A_{VBELN A}KUNRG A_{FKDAT A}WAERK B_{NAME1 B}ORT01 INTO CORRESPONDING FIELDS OF TABLE ITAB FROM VBRK AS A INNER JOIN KNA1 AS B ON A_{KUNRG = B}KUNNR WHERE A_{VBELN IN INVOICE and A}FKDAT IN PO_DATE and B_{KUNNR IN PCODE GROUP BY A}VBELN A_{KUNRG B}NAME1 B_{ORT01 A}FKDAT A~WAERK. SORT ITAB ascending BY VBELN. *ENDSELECT. ENDFORM.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING INPUT = itab-kunrg

IMPORTING OUTPUT = itab-kunrg .

" FETCH-DATA *&----

---

**& Form DISP_DATA *&----

---

** text *----

---

** > p1 text ** < p2 text *----

---

*FORM DISP_DATA .

• * *loop at itab. *write :/1(18) itab-VBELN, * 27(5) ITAB-KUNRG, * 55(25) ITAB-NAME1, * 100(50) ITAB-ORT01. * * *endloop. * *ENDFORM. " DISP_DATA &--------------------------------------------------------------------- *& Form T_FIELDCAT &--------------------------------------------------------------------- * text ---------------------------------------------------------------------- * > p1 text * < p2 text ---------------------------------------------------------------------- FORM T_FIELDCAT . PERFORM fill_field USING 'VBELN' 'PO NO'. PERFORM fill_field USING 'KUNRG' 'CUSTOMER PLANT'. PERFORM fill_field USING 'NAME1' 'PARTY NAME'. PERFORM fill_field USING 'ORT01' 'LOCATION'. * PERFORM fill_field USING 'BASME' 'UOM'. PERFORM SELECTION_WIDTH. ENDFORM. " T_FIELDCAT &--------------------------------------------------------------------- *& Form fill_field &--------------------------------------------------------------------- * text ---------------------------------------------------------------------- * -->P_0267 text * >P_0268 text *------------------------------------------------------------------* FORM fill_field USING p_fieldname p_seltext. L_FIELDCAT-FIELDNAME = p_fieldname. L_FIELDCAT-TABNAME = 'ITAB'. L_FIELDCAT-SELTEXT_M = p_seltext. L_FIELDCAT-OUTPUTLEN = 10. APPEND L_FIELDCAT TO T_FIELDCAT. CLEAR L_FIELDCAT. ENDFORM. " fill_field *&-----------------------------------------------------------------* *& Form REUSE_ALV *&-----------------------------------------------------------------* * text *--------------------------------------------------------------------* * > p1 text * < p2 text ---------------------------------------------------------------------- FORM REUSE_ALV . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' * I_CALLBACK_PROGRAM = ' ' * I_CALLBACK_PF_STATUS_SET = ' ' * I_CALLBACK_USER_COMMAND = ' ' * I_CALLBACK_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_GRID_SETTINGS = IS_LAYOUT = T_LAYOUT IT_FIELDCAT = T_FIELDCAT * 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 * I_HTML_HEIGHT_TOP = 0 * I_HTML_HEIGHT_END = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IT_EXCEPT_QINFO = * IR_SALV_FULLSCREEN_ADAPTER = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES T_OUTTAB = ITAB 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. " REUSE_ALV &--------------------------------------------------------------------- *& Form SELECTION_WIDTH &--------------------------------------------------------------------- * text ---------------------------------------------------------------------- * > p1 text * < p2 text ---------------------------------------------------------------------- FORM SELECTION_WIDTH .

regards

vendhan

[Former Member]

Hi vaneet,

SELECT A_{VBELN A}KUNRG A_{FKDAT A}WAERK B_{NAME1 B}ORT01 INTO CORRESPONDING FIELDS OF TABLE ITAB FROM VBRK AS A INNER JOIN KNA1 AS B ON A_{KUNRG = B}KUNNR WHERE A~VBELN IN INVOICE and

A~FKDAT IN PO_DATE and

B~KUNNR IN PCODE

GROUP BY A_{VBELN A}KUNRG B_{NAME1 B}ORT01 A_{FKDAT A}WAERK.

SORT ITAB ascending BY VBELN.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING INPUT = itab-kunrg

IMPORTING OUTPUT = itab-kunrg

after this u write remaining queries. i hope it will clear u.

Regards

vendhan

Edited by: vendhan g on May 30, 2009 12:28 PM