Regarding selection screen output

Question

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

Answer 1

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 AVBELN AKUNRG AFKDAT AWAERK BNAME1 BORT01 INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM VBRK AS A INNER JOIN KNA1 AS B
ON AKUNRG = BKUNNR
WHERE
A~VBELN IN INVOICE
and
A~FKDAT IN PO_DATE
and
B~KUNNR IN PCODE
GROUP BY AVBELN AKUNRG BNAME1 BORT01 AFKDAT AWAERK.
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