ALV Filter Option

Question

Dear All
        I written a program using ALV in which i can get only 10 characters but i want all characters in the field what settings i should do in ALV or in anything else.
Thanks and Regards
Suresh

Answer 1

hi Vasu
thanks for ur ealist reply
my coding  following
wht i can change
REPORT  z_gldetail_withoutpo LINE-SIZE 175 LINE-COUNT 30.
TABLES:  ekko,
         ekpo,
         rbkp,
         lfa1,
         rseg,
         skat,
         bkpf,
         bseg.
TYPE-POOLS slis.
DATA:  BEGIN OF it_lfa OCCURS 0,
       lifnr LIKE lfa1-lifnr,
       name1 LIKE lfa1-name1,
       ORT01 like lfa1-ORT01,
       STRAS like lfa1-STRAS,
       END OF it_lfa.
data:  begin of it_cin occurs 0,
       lifnr LIKE J_1IMOVEND-lifnr,
       J_1ICSTNO like J_1IMOVEND-J_1ICSTNO,
       J_1ILSTNO LIKE J_1IMOVEND-J_1ILSTNO,
       end of it_cin.
for update all data - ALV use
data: begin of FinnalTbl,
      belnr like bkpf-belnr,
     bldat like bkpf-bldat,
      bldat(10) type c ,
      xblnr like bkpf-xblnr,
      wrbtr like bseg-wrbtr,
      dmbtr like bseg-dmbtr,
      lifnr like bseg-lifnr,
     MENGE like bseg-MENGE, qty
      l_MEINS like bseg-MEINS, uom
     land1 like LFA1-LAND1,
      regio like LFA1-REGIO,
      stceg like LFA1-stceg,
      NAME1 like lfa1-NAME1,
       count(5),
       perval type p decimals 2,
       vatamt type p decimals 2,
       ttlval type p decimals 2,
       linevalue type p decimals 2,
       tgjAHR like bseg-gjAHR,
       STRAS  like LFA1-STRAS,
       ORT01 like LFA1-ORT01,
       BKTXT LIKE BKPF-BKTXT,
       BilValue type p decimals 2,
       VatPer type p decimals 2,
       ZUONR like bseg-ZUONR,   "Qty
       holdtax type p decimals 2,
      docdate like bkpf-bldat,
      end of FinnalTbl.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      ct_catalog 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.
for new ALV
*TYPE-POOLS slis.
*DATA: afield TYPE slis_fieldcat_alv.
*DATA: fieldcat TYPE slis_t_fieldcat_alv.
*DATA: gd_layout    TYPE slis_layout_alv.
DATA : BEGIN OF wa_ven_inv,
       l_belnr like bkpf-belnr,
       lifnr LIKE rbkp-lifnr,
       name1 LIKE lfa1-name1,
       ORT01 like lfa1-ORT01,
       STRAS like lfa1-STRAS,
       J_1ICSTNO like J_1IMOVEND-J_1ICSTNO,
       J_1ILSTNO LIKE J_1IMOVEND-J_1ILSTNO,
       kalsb like tmkkt-kalsb,
       l_budat like bkpf-budat,
       l_bldat like bkpf-bldat,
       l_xblnr like bkpf-xblnr,
       l_menge LIKE bseg-menge,
       l_lifnr like bseg-lifnr,
       l_hkont like bseg-hkont,
       l_sgtxt like bseg-sgtxt,
       l_wrbtr like bseg-wrbtr,
       l_dmbtr like bseg-dmbtr,
       l_matnr like bseg-matnr,
       l_pswsl like bseg-pswsl,
       l_vbel2 like bseg-vbel2,
       l_MEINS like bseg-MEINS,
       gldsc like skat-txt50,
       ll_dmbtr like bseg-dmbtr,
       ll_per  type p decimals 2,
       TotalV like bseg-dmbtr,
      l_tmpcountryc like LFA1-LAND1,
      l_tmpregc     like LFA1-REGIO,
      l_STCEG    like LFA1-STCEG,
      l_tmpcountry like T005T-LANDX50,
      l_tmpreg     like T005U-BEZEI,
      l_tmpunitmea like rseg-BSTME,
      l_BKTXT like bkpf-BKTXT,
      l_GSBER like bseg-GSBER,
        qsskz like bseg-qsskz,  "With Holding Tax
      END OF wa_ven_inv.
data: begin of wa_bkpf,
      l_belnr like bkpf-belnr,
      l_budat like bkpf-budat,
      l_bldat like bkpf-bldat,
      l_xblnr like bkpf-xblnr,
      l_hkont like bseg-hkont,
      l_sgtxt like bseg-sgtxt,
      l_wrbtr like bseg-wrbtr,
      l_dmbtr like bseg-dmbtr,
      l_lifnr like bseg-lifnr,
      l_matnr like bseg-matnr,
      l_MENGE like bseg-MENGE,
      l_pswsl like bseg-pswsl,
      l_shkzg like bseg-shkzg,
      l_bschl like bseg-bschl,
      l_buzid like bseg-buzid,
      l_vbel2 like bseg-vbel2,
      l_MEINS like bseg-MEINS,
      l_tmpcountryc like LFA1-LAND1,
      l_tmpregc     like LFA1-REGIO,
      l_tmpcountry like T005T-LANDX50,
      l_tmpreg     like T005U-BEZEI,
      l_tmpunitmea like rseg-BSTME,
      l_BKTXT      like bkpf-BKTXT,
      l_GSBER   like bseg-GSBER,
      qsskz like bseg-qsskz,  "With Holding Tax
      tmpsisn like bseg-SHKZG,
      tmpsisn1 like bseg-SHKZG,
      postkey like bseg-bschl,
      docdate(10) type c,
      end of wa_bkpf.
data : gd_awkey type awkey,
       gltxt type skat-txt50,
       vetxt type lfa1-name1,
       t_kalsk like lfm1-kalsk,
       t_KALSB like tmkkt-kalsb,
       podat(10),
       glpdt(10),
       glddt(10),
       accno(15),
       accyr(4),
       tmpGlNum(15),
       docvl type p decimals 2,
       venam like bseg-lifnr,
       gltot(15) type p decimals 2,
       tebeln like bseg-ebeln,
       tebelp like bseg-ebelp,
       tgjahr like bseg-gjahr,
       tbelnr like bkpf-belnr,
       invnum like rbkp-belnr,
       CSTNO like J_1IMOVEND-J_1ICSTNO,
       LSTNO LIKE J_1IMOVEND-J_1ILSTNO,
       HDMBTR like bseg-DMBTR,
       balDMBTR like bseg-dmbtr,
       peramt type p decimals 2,
       Pamt type p decimals 2,
       MENGE  type bseg-MENGE,
       MEINS type bseg-MEINS,
       TMENGE  type bseg-MENGE,
       count(5),
       VatPer type p decimals 2,
       tempPer type p decimals 2,
       perval type p decimals 2,
       vatamt type p decimals 2,
       ttlval type p decimals 2,
       tmpsisn like bseg-SHKZG,
       tmpsisn1 like bseg-SHKZG,
       linevalue type p decimals 2.
DATA: it_sortcat   TYPE slis_sortinfo_alv OCCURS 1,
      wa_sort LIKE LINE OF it_sortcat.
data: it_bkpf like bkpf occurs 0 with header line,
      it_bseg like bseg occurs 0 with header line,
      it_rbkp like rbkp occurs 0 with header line.
DATA: in_bkpf like wa_bkpf occurs 0 with header line,
      it_ven_inv LIKE wa_ven_inv OCCURS 0 WITH HEADER LINE,
       finaltbl LIKE FinnalTbl OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN : BEGIN OF BLOCK B WITH FRAME TITLE text-002.
parameters       : ekorg like LFM1-ekorg obligatory,
                   GJAHR like BKPF-GJAHR obligatory.
select-options   : Dtype for RBKP-BLART.
SELECTION-SCREEN : END OF BLOCK B.
selection-screen : begin of block D with frame title text-004.
parameters       : glnum like skat-saknr obligatory.
select-options   : gldat for BKPF-budat,
                   dodat for BKPF-BLDAT.
selection-screen : end of block D.
tmpGlNum = glnum.
START-OF-SELECTION.
tmpglnum = tmpglnum+4(6).
count = 0.
  Main Loop (Header Table) -  ForGet Account Doc No
select belnr budat bldat xblnr BKTXT from bkpf
     into (in_bkpf-l_belnr, in_bkpf-l_budat, in_bkpf-l_bldat,
     in_bkpf-l_xblnr,in_bkpf-l_BKTXT)
        where blart in dtype and bukrs eq 'NCCP'
          and budat in gldat and BLDAT in dodat and
               gjahr eq GJAHR  order by belnr.
clear: vatamt, linevalue, in_bkpf-l_dmbtr, Finaltbl-BilValue,
finaltbl-holdtax, in_bkpf-l_lifnr.
Sub Loop - for get Values in Item Table
bschl is posting key
31 - for get bill value - RE & KR Regular entry
21 - for get bill value - RE Reverse entry
22 - for get bill value - KA (this KA is reversed entry key for KR.)
  select GJAHR hkont menge dmbtr BUZID shkzg qsskz from bseg
    into (tgjAHR, in_bkpf-l_hkont, in_bkpf-l_menge,
        in_bkpf-l_dmbtr, in_bkpf-l_BUZID,
          in_bkpf-l_shkzg, in_bkpf-qsskz)
    where belnr = in_bkpf-l_belnr and
        bukrs eq 'NCCP' and gjahr eq gjahr and
        qsskz eq space and
      ( bschl ne '31' and bschl ne '21' and bschl ne '22' ).
for give negative symbol
     if in_bkpf-l_shkzg = 'S'.
        it_ven_inv-l_dmbtr = in_bkpf-l_dmbtr.
     endif.
     if in_bkpf-l_shkzg = 'H'.
       it_ven_inv-l_dmbtr = - in_bkpf-l_dmbtr.
     endif.
*for convert GL Account number in 6 charcter
     in_bkpf-l_hkont = in_bkpf-l_hkont+4(6).
for get VAT & Line Value
      if in_bkpf-l_hkont = tmpglnum.
         vatamt = vatamt + it_ven_inv-l_dmbtr.
      elseif in_bkpf-l_hkont ne  tmpglnum.
          linevalue = linevalue + it_ven_inv-l_dmbtr.
       endif.
*for get withholding tax amount
*Sub Loop1A - For get Bill total value + withholding tax value
select  dmbtr SHKZG from bseg into
(finaltbl-holdtax, in_bkpf-tmpsisn)
  where belnr = in_bkpf-l_belnr and
     bukrs eq 'NCCP' and   gjahr eq gjahr and
    qsskz ne space and
    ( bschl ne '31' or bschl ne '21' or bschl ne '22' ).
for give negative symbol to withholding tax Value
for display bill value in positive value here sigh changed
     if in_bkpf-tmpsisn = 'S'.
         Finaltbl-holdtax  = - Finaltbl-holdtax .
     endif.
     if in_bkpf-tmpsisn = 'H'.
       Finaltbl-holdtax  =  Finaltbl-holdtax .
     endif.
endselect.
*sub Loop1A Ended
   endselect.
*Sub Loop Ended
Sub Loop1 - For get Vendor  Code
clear in_bkpf-postkey .
clear in_bkpf-l_lifnr.
select bschl from bseg into in_bkpf-postkey
  where belnr = in_bkpf-l_belnr and bukrs eq 'NCCP'
      and   gjahr eq gjahr .
if in_bkpf-postkey = '31'.
  select lifnr  into in_bkpf-l_lifnr from bseg   where
      bschl = '31' and belnr = in_bkpf-l_belnr  .
  endselect.
endif.
if in_bkpf-postkey = '21'.
  select lifnr  into in_bkpf-l_lifnr from bseg   where
      bschl = '21' and belnr = in_bkpf-l_belnr  .
  endselect.
endif.
if in_bkpf-postkey = '22'.
  select lifnr  into in_bkpf-l_lifnr from bseg   where
      bschl = '22' and belnr = in_bkpf-l_belnr  .
  endselect.
endif.
endselect.
select lifnr  into in_bkpf-l_lifnr from bseg   where
    ( bschl = '31' or bschl = '21' or bschl = '22' )
        and belnr = in_bkpf-l_belnr  .
*Sub Loop2 - for select vendor details
  if in_bkpf-l_lifnr ne space.
   select regio stceg land1 NAME1 ORT01 STRAS into
      (FinalTbl-regio, FinalTbl-stceg, FinalTbl-land1,
          FinalTbl-name1, FinalTbl-ORT01, FinalTbl-STRAS)
             from lfa1 where lifnr =  in_bkpf-l_lifnr.
for get VAT percentage, VAT and Line Value Total
   if vatamt ne 0 and linevalue ne 0 .
      perval = vatamt / linevalue * 100.
      ttlval = vatamt + linevalue.
   endif .
*assign VAT Percentage 4 & 12.5 to check 100% value for VAT.
  if perval >= 2 and perval <= 6.
    tempPer = 4.
  endif .
  if perval >= 10 and perval <= 14 .
    tempPer = 125 / 10.
  endif  .
  if vatamt ne 0 and tempPer ne 0.
    vatper = vatamt * ( 100 / tempPer ).
  endif.
endselect.
endif.
Sub Loop2 Ended
endselect.
*Sub Loop1 Ended
*Sub Loop3 - For get Bill Value -
select dmbtr ZUONR SHKZG from bseg into
(Finaltbl-BilValue, Finaltbl-ZUONR, in_bkpf-tmpsisn1)
  where belnr = in_bkpf-l_belnr and bukrs eq 'NCCP'
      and   gjahr eq gjahr and
        ( bschl = '31' or bschl = '21' or bschl = '22' ).
for assign negative symbol to Bill Value
for display bill value in positive value here sigh changed
     if in_bkpf-tmpsisn1 = 'S'.
        Finaltbl-BilValue  = - Finaltbl-BilValue .
     endif.
     if in_bkpf-tmpsisn1 = 'H'.
       Finaltbl-BilValue  =  Finaltbl-BilValue .
     endif.
endselect.
*sub Loop3 Ended
Finaltbl-BilValue = Finaltbl-BilValue + Finaltbl-holdtax.
concatenate in_bkpf-l_bldat+6(2) '/'
                in_bkpf-l_bldat+4(2) '/'
                in_bkpf-l_bldat(4) into  wa_bkpf-docdate.
*Move To Temp Table
if vatamt ne 0.   " for avoid 0 values
   count = count + 1.
   FinalTbl-count = count.
   FinalTbl-belnr = in_bkpf-l_belnr.
  FinalTbl-bldat = in_bkpf-l_bldat.
   FinalTbl-bldat = wa_bkpf-docdate.
   FinalTbl-vatamt = vatamt.
   FinalTbl-linevalue = linevalue.
   FinalTbl-perval = perval.
   FinalTbl-ttlval = ttlval.
   FinalTbl-lifnr = in_bkpf-l_lifnr.
   FinalTbl-regio = FinalTbl-regio.
   FinalTbl-stceg = FinalTbl-stceg.
   FinalTbl-land1 = FinalTbl-land1.
   FinalTbl-name1 = FinalTbl-name1.
   finaltbl-tgjAHR  = tgjAHR.
   FinalTbl-ORT01 = FinalTbl-ORT01.
   FinalTbl-STRAS = FinalTbl-STRAS.
   FinalTbl-xblnr = in_bkpf-l_xblnr.
   FinalTbl-BKTXT = in_bkpf-l_BKTXT.
   Finaltbl-BilValue =  Finaltbl-BilValue.
   Finaltbl-vatper = vatper.
   Finaltbl-ZUONR = Finaltbl-ZUONR.
   append finalTbl.
   endif.
   clear in_bkpf-l_lifnr.
   clear FinalTbl-name1.
   clear FinalTbl-STRAS.
clear:  Finaltbl-BilValue.
endselect.
*Main Loop Ended
*coding for ALV
    PERFORM build_sortcat.
    PERFORM build_catalog.
    PERFORM build_layout.
    PERFORM disply.
*&      Form  TOP_OF_PAGE
      LOGO
FORM TOP_OF_PAGE.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
           I_LOGO             = 'ENJOYSAP_LOGO'
            IT_LIST_COMMENTARY = SLIS_EV_TOP_OF_PAGE.
ENDFORM.
*&      Form  Display_Header
      text
FORM disply.
  gd_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name              = gd_repid
   CHANGING
     ct_fieldcat                 = ct_catalog[]
   EXCEPTIONS
     OTHERS                       = 3
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                =  gd_repid
    I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
     is_layout                         =  gd_layout
     it_fieldcat                       = fieldcatalog[]
     it_sort                           = it_sortcat[]
     i_save                            = 'X'
    TABLES
      t_outtab                          = FinalTbl
  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.                    "disply
*&      Form  build_layout
      text
FORM build_layout.
  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-totals_text       = 'Totals'(201).
ENDFORM.                    "build_layout
*&      Form  Build_catalog
      text
FORM build_catalog.
  fieldcatalog-col_pos  = 1.
  fieldcatalog-fieldname = 'COUNT'.
  fieldcatalog-seltext_m = 'S.No'.
   APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'LIFNR'.
  fieldcatalog-seltext_m = 'Vendor Code'.
  fieldcatalog-col_pos  = 2.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'NAME1'.
  fieldcatalog-seltext_m = 'Vendor Name'.
  fieldcatalog-seltext_m = 'Vendor'.
lfa1
  fieldcatalog-ref_fieldname = 'LFA1~NAME1'.
  fieldcatalog-col_pos  = 3.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'STRAS'.
  fieldcatalog-seltext_m = 'Address'.
  fieldcatalog-col_pos  = 4.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'ORT01'.
  fieldcatalog-seltext_m = 'Place'.
  fieldcatalog-col_pos  = 5.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'REGIO'.
  fieldcatalog-seltext_m = 'State'.
  fieldcatalog-col_pos  = 6.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'STCEG'.
  fieldcatalog-seltext_m = 'Tin No'.
  fieldcatalog-col_pos  = 7.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'LAND1'.
  fieldcatalog-seltext_m = 'Country'.
  fieldcatalog-col_pos  = 8.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'BELNR'.
  fieldcatalog-seltext_m = 'Doc Acc No'.
  fieldcatalog-col_pos  = 9.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'BLDAT'.
  fieldcatalog-seltext_m = 'Doc Date'.
  fieldcatalog-col_pos  = 10.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'XBLNR'.
  fieldcatalog-seltext_m = 'Doc Ref No'.
  fieldcatalog-col_pos  = 11.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
fieldcatalog-fieldname = 'BKTXT'.
  fieldcatalog-seltext_m = 'Material'.
  fieldcatalog-col_pos  = 12.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'ZUONR'.
  fieldcatalog-seltext_m = 'Quantity/Uom'.
  fieldcatalog-col_pos  = 13.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'VATAMT'.
  fieldcatalog-seltext_m = 'VAT'.
  fieldcatalog-col_pos  = 14.
  fieldcatalog-do_sum = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'LINEVALUE'.
  fieldcatalog-seltext_m = 'Value'.
  fieldcatalog-col_pos  = 15.
  fieldcatalog-do_sum = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'PERVAL'.
  fieldcatalog-seltext_m = '%'.
  fieldcatalog-col_pos  = 16.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'TTLVAL'.
  fieldcatalog-seltext_m = 'Total Value'.
  fieldcatalog-col_pos  = 17.
  fieldcatalog-do_sum = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname = 'BILVALUE'.
  fieldcatalog-seltext_m = 'Bill Value'.
  fieldcatalog-col_pos  = 18.
  fieldcatalog-do_sum = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
fieldcatalog-fieldname = 'VATPER'.
  fieldcatalog-seltext_m = '100% Value'.
  fieldcatalog-col_pos  = 19.
  fieldcatalog-do_sum = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR fieldcatalog.
ENDFORM.                    "Build_catalog
*&      Form  build_sortcat
      text
FORM build_sortcat .
ENDFORM.                    " build_sortcat
*&      Form  USER_COMMAND
      text
     -->GUCOMM     text
     -->G_SELFIELD text
FORM user_command USING
gucomm TYPE sy-ucomm g_selfield TYPE slis_selfield.
READ TABLE   FinalTbl  INTO  FinalTbl  INDEX
g_selfield-tabindex.
case g_selfield-fieldname.
  when 'BELNR'.
    SET PARAMETER ID 'BLN' FIELD FinalTbl-belnr.
    SET PARAMETER ID 'BUK' FIELD 'NCCP'.
    SET PARAMETER ID 'GJR' FIELD FinalTbl-tGJAHR.
    CALL TRANSACTION 'FB03' AND  SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.                    "USER_COMMAND