Scribd
Upload
52 views39 pages

Include 23

The document defines the layout and field catalog for a form. It sets properties like column position, field names, column widths and totals for multiple fields. It also defines text and formatting properties for fields. Additional fields were added and properties of some existing fields were modified based on comments in the code.

Uploaded by

Hridya Prasad
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
52 views39 pages

Include 23

The document defines the layout and field catalog for a form. It sets properties like column position, field names, column widths and totals for multiple fields. It also defines text and formatting properties for fields. Additional fields were added and properties of some existing fields were modified based on comments in the code.

Uploaded by

Hridya Prasad
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

*&---------------------------------------------------------------------*

*& Include Y_DISPLAY

*&---------------------------------------------------------------------*

FORM LAYOUT.

*gs_layout-graphics = space.

GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

* gs_layout-no_totalline = 'X'.

* gs_layout-frontend = space.

* gs_layout-template = space.

** gs_layout-totals_bef = 'X'.

* gs_layout-no_rowmark = space.

** gs_layout-sel_mode = 'D'.

* gs_layout-no_totline = space.

* gs_layout-weblook = space.

** gs_layout-numc_total = 'X'.

* gs_layout-no_utsplit = space.

* gs_layout-no_hgridln = space.

** gs_layout-no_totarr = 'X'.

* gs_layout-detailinit = space.

* gs_layout-edit = space.

* gs_layout-edit_mode = 'X'.

* gs_layout-zebra = 'X'.

** gs_layout-grid_title = text-030. "'List of Open Items'.

** gs_layout-info_fname = 'LINECOLOR'.

** GS_LAYOUT-CTAB_FNAME = 'CELLCOLORS'.

ENDFORM. " LAYOUT

*&---------------------------------------------------------------------*

*& Form FIELDCATALOG

*&---------------------------------------------------------------------*

* text
*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM FIELDCATALOG .

LV_COL = 1.

CLEAR LS_FIELDCATALOG.

LS_FIELDCATALOG-FIELDNAME = 'BUKRS'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-048.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

LS_FIELDCATALOG-FIELDNAME = 'KUNNR'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-001.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'NAME'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-020.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.
LS_FIELDCATALOG-FIELDNAME = 'TEXT'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-060.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'PRCTR'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-022.

LS_FIELDCATALOG-NO_ZERO = 'X'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

* CLEAR LS_FIELDCATALOG.

* LV_COL = LV_COL + 1.

* LS_FIELDCATALOG-FIELDNAME = 'WAERS'.

* LS_FIELDCATALOG-SELTEXT_M = TEXT-049.

* LS_FIELDCATALOG-COL_POS = LV_COL.

* APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

* CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'WAERS'.

* LS_FIELDCATALOG-SELTEXT_M = TEXT-049.

LS_FIELDCATALOG-SELTEXT_M = TEXT-076.

LS_FIELDCATALOG-COL_POS = LV_COL.
APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

"-----begin of changes / anand /14.09.2021 /---------------"

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'UNADJUST'.

* LS_FIELDCATALOG-SELTEXT_M = TEXT-049.

LS_FIELDCATALOG-SELTEXT_M = 'UN-ADJUSTED AMT'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

"-----end of changes / anand /14.09.2021/------------------"

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'TOTAL'.

LS_FIELDCATALOG-SELTEXT_M = 'Total Amount Due'."Previous--->TEXT-050.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'WAERS1'.
LS_FIELDCATALOG-SELTEXT_M = TEXT-077.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

* CLEAR ls_fieldcatalog..

* lv_col = lv_col + 1.

* ls_fieldcatalog-fieldname = 'TOTAL1'.

* ls_fieldcatalog-seltext_m = TEXT-078.

* ls_fieldcatalog-do_sum = 'X'.

* ls_fieldcatalog-cfieldname = 'WAERS1'.

* ls_fieldcatalog-col_pos = lv_col.

* APPEND ls_fieldcatalog TO lt_fieldcatalog.

* CLEAR ls_fieldcatalog..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUDAT_L'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-061.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'DMBTR'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-062.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..
* CLEAR LS_FIELDCATALOG.

* LV_COL = LV_COL + 1.

* LS_FIELDCATALOG-FIELDNAME = 'TOTAL'.

* LS_FIELDCATALOG-SELTEXT_M = TEXT-050.

* LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

* LS_FIELDCATALOG-DO_SUM = 'X'.

* LS_FIELDCATALOG-COL_POS = LV_COL.

* APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

* CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK14'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-070.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK1'.

LS_FIELDCATALOG-SELTEXT_M = TEXT1.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..
CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK2'.

LS_FIELDCATALOG-SELTEXT_M = TEXT2.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK3'.

LS_FIELDCATALOG-SELTEXT_M = TEXT3.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK4'.

LS_FIELDCATALOG-SELTEXT_M = TEXT4.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK5'.

LS_FIELDCATALOG-SELTEXT_M = TEXT5.
LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK6'.

LS_FIELDCATALOG-SELTEXT_M = TEXT6.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK7'.

LS_FIELDCATALOG-SELTEXT_M = TEXT7.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK8'.

LS_FIELDCATALOG-SELTEXT_M = TEXT8.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.


CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK9'.

LS_FIELDCATALOG-SELTEXT_M = TEXT9.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK10'.

LS_FIELDCATALOG-SELTEXT_M = TEXT10.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK11'.

LS_FIELDCATALOG-SELTEXT_M = TEXT11.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK12'.
LS_FIELDCATALOG-SELTEXT_M = TEXT12.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK13'.

LS_FIELDCATALOG-SELTEXT_M = TEXT13.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCKETDND15'.

LS_FIELDCATALOG-SELTEXT_M = 'Total'. "Previous-->'Total Amount Due'

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'SRCH1'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-046.
LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'SRCH2'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-044.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'STRAS'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-024.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'ORT01'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-026.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..
LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'REGIO'.

LS_FIELDCATALOG-SELTEXT_L = TEXT-068.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BEZEI'.

LS_FIELDCATALOG-SELTEXT_L = TEXT-069.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'LANDX'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-027.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'PSTLZ'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-030.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..
CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'NAMEV'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-034.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'TELF1'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-039.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'TLFNS'.

LS_FIELDCATALOG-SELTEXT_L = TEXT-040.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

ENDFORM. " FIELDCATALOG

*&---------------------------------------------------------------------*

*& Form DISPLAY


*----------------------------------------------------------------------*

FORM DISPLAY .

REFRESH : IT_SORT.

CLEAR LS_SORT.

* LOOP AT IT_FINAL INTO WA_FINAL .

* IF WA_FINAL-BLART = 'DZ'.

* APPEND WA_FINAL TO IT_sum1 .

* CLEAR WA_FINAL .

* ELSE .

* APPEND WA_FINAL TO IT_sum2 .

* CLEAR WA_FINAl .

* ENDIF .

* ENDLOOP .

* DATA : L_TOTAL1 TYPE BSID-WRBTR .

* LOOP AT IT_sum2 INTO WA_sum2 .

* CLEAR L_TOTAL1 .

* LOOP AT IT_sum1 INTO WA_sum1 WHERE KUNNR = WA_sum2-KUNNR

* AND BUKRS = WA_sum2-BUKRS .

* L_TOTAL1 = L_TOTAL1 + WA_sum1-TOTAL .

* ENDLOOP .

* WA_sum2-TOTAL = WA_sum2-TOTAL + L_TOTAL1 .

* MODIFY IT_sum2 FROM WA_sum2 INDEX SY-TABIX .

*
* CLEAR WA_sum2 .

* ENDLOOP .

LS_SORT-FIELDNAME = 'BUKRS'.

LS_SORT-TABNAME = 'IT_FINAL'.

* ls_sort-subtot = 'X'.

* LS_SORT-TABNAME = 'IT_SUM2'.

APPEND LS_SORT TO IT_SORT.

CLEAR LS_SORT.

LS_SORT-FIELDNAME = 'WAERS'.

LS_SORT-TABNAME = 'IT_FINAL'.

* LS_SORT-TABNAME = 'IT_SUM2'.

LS_SORT-SUBTOT = 'X'.

LS_SORT-GROUP = 'X'.

APPEND LS_SORT TO IT_SORT.

CLEAR LS_SORT.

SORT IT_FINAL BY BUKRS.

IF IT_FINAL IS NOT INITIAL .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

* I_CALLBACK_HTML_TOP_OF_PAGE = 'TOP_OF_PAGE' "---- added by anand

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE' "---commented by anand

IS_LAYOUT = GS_LAYOUT

IT_SORT = IT_SORT

IT_FIELDCAT = LT_FIELDCATALOG[]

I_DEFAULT = 'X'

I_SAVE = 'A'

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.

ELSE .

MESSAGE 'Data not found' TYPE 'I' .

ENDIF.

ENDFORM. " DISPLAY

*---------------------------------------------------------------------*

* Form 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,

IT_T001 TYPE TABLE OF T001,

WA_T001 TYPE T001.

* ld_linesc(10) TYPE c.

SELECT BUKRS

ADRNR

BUTXT FROM T001

INTO CORRESPONDING FIELDS


OF TABLE IT_T001

WHERE BUKRS = COMPANY.

LOOP AT IT_T001 INTO WA_T001.

IF SY-TABIX = 1.

WA_HEADER-KEY = TEXT-071.

ENDIF.

IF NOT SUMMARY IS INITIAL.

CLEAR WA_FINAL.

READ TABLE IT_FINAL

INTO WA_FINAL

WITH KEY BUKRS = WA_T001-BUKRS.

SELECT single name1 , name2 from adrc into (@data(lv_name1) , @data(lv_name2)) where
ADDRNUMBER = @WA_T001-adrnr.

IF SY-SUBRC IS INITIAL.

WA_HEADER-TYP = 'S'.

CONCATENATE WA_T001-BUKRS

'-'

* 'Satyam Auto Components Ltd.'" WA_T001-BUTXT

lv_name1 lv_name2

INTO WA_HEADER-INFO

SEPARATED BY SPACE.

APPEND WA_HEADER TO T_HEADER.

CLEAR WA_HEADER.

ENDIF.

ENDIF.

IF NOT DETAILED IS INITIAL.

CLEAR WA_FINAL2.

READ TABLE IT_FINAL2

INTO WA_FINAL2

WITH KEY BUKRS = WA_T001-BUKRS.


IF SY-SUBRC IS INITIAL.

WA_HEADER-TYP = 'S'.

CONCATENATE WA_T001-BUKRS

'-'

WA_T001-BUTXT

INTO WA_HEADER-INFO

SEPARATED BY SPACE.

APPEND WA_HEADER TO T_HEADER.

CLEAR WA_HEADER.

ENDIF.

ENDIF.

ENDLOOP.

* Title

* Date

WA_HEADER-TYP = 'S'.

WA_HEADER-KEY = TEXT-072.

CONCATENATE KEYDATE+6(2) '.'

KEYDATE+4(2) '.'

KEYDATE(4) INTO WA_HEADER-INFO. "todays date

APPEND WA_HEADER TO T_HEADER.

CLEAR: WA_HEADER.

* Vendor ID

WA_HEADER-TYP = 'S'.

WA_HEADER-KEY = TEXT-073.

CONCATENATE CUSTOMER-LOW '-'

CUSTOMER-HIGH INTO WA_HEADER-INFO. "todays date

APPEND WA_HEADER TO T_HEADER.


CLEAR: WA_HEADER.

** Vendor ID

* wa_header-typ = 'S'.

* wa_header-key = 'Company Code:'.

* CONCATENATE company-low '-'

* company-high 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.

*&---------------------------------------------------------------------*

*& Form FIELDCATALOG1

*----------------------------------------------------------------------*

FORM FIELDCATALOG1 .

LV_COL = 1.

CLEAR LS_FIELDCATALOG.

LS_FIELDCATALOG-FIELDNAME = 'BUKRS'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-048.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.
LS_FIELDCATALOG-FIELDNAME = 'KUNNR'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-001.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'NAME'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-020.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

*begin of addition by Anirban 11.11.2021

if DETAILED = 'X'.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'ZTERM'.

LS_FIELDCATALOG-SELTEXT_M = 'Payment Term'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

ELSEIF SUMMARY = 'X'.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'ZTERM'.

LS_FIELDCATALOG-SELTEXT_M = 'Credit day'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.


CLEAR LS_FIELDCATALOG.

ENDIF.

*end of addition by ANirban 11.11.2021

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'TEXT'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-060.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

if SUMMARY ne 'X'.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BELNR'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-018. "sap document no

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'VBELN'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-019. "Invoice #

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

ENDIF.
*begin of addition by ANirban 12.11.2021

if DETAILED = 'X'.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BLART'.

LS_FIELDCATALOG-SELTEXT_M = 'Doc type'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

ENDIF.

*End of addition by ANirban 12.11.2021

IF SUMMARY NE 'X'.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'XREF1_HD'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-074.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUDAT'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-021.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.
CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BLDAT '.

LS_FIELDCATALOG-SELTEXT_M = TEXT-023.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

* WA_FINAL2-NETDUE

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'ZFBDT'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-075.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'NETDUE '.

LS_FIELDCATALOG-SELTEXT_M = 'Net Due Date'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

ENDIF.
*begin of addition by Anirban 12.11.2021

if SUMMARY ne 'X'.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'DELAYDATE'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-083.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

ENDIF.

*end of addition by Anirban 12.11.2021

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'PRCTR'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-022.

LS_FIELDCATALOG-NO_ZERO = 'X'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'ZTERM'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-065.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.
LS_FIELDCATALOG-FIELDNAME = 'VTEXT'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-067.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

IF SUMMARY NE 'X'.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'UMSKZ'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-079.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'GLTEXT'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-080.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

ENDIF.

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'WAERS'.

* LS_FIELDCATALOG-SELTEXT_M = TEXT-049.
LS_FIELDCATALOG-SELTEXT_M = TEXT-076.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

"-----begin of changes / anand /14.09.2021 /---------------"

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'UNADJUST'.

* LS_FIELDCATALOG-SELTEXT_M = TEXT-049.

LS_FIELDCATALOG-SELTEXT_M = 'UN-ADJUSTED AMT'.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

"-----end of changes / anand /14.09.2021/------------------"

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'TOTAL'.

IF DETAILED = 'X'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-050. "Total

ELSEIF SUMMARY = 'X'.

LS_FIELDCATALOG-SELTEXT_M = 'Total Due Amount'. " TEXT-050.

ENDIF.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.
LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'WAERS1'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-077.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

* CLEAR ls_fieldcatalog..

* lv_col = lv_col + 1.

* ls_fieldcatalog-fieldname = 'TOTAL1'.

* ls_fieldcatalog-seltext_m = TEXT-078.

* ls_fieldcatalog-do_sum = 'X'.

* ls_fieldcatalog-cfieldname = 'WAERS1'.

* ls_fieldcatalog-col_pos = lv_col.

* APPEND ls_fieldcatalog TO lt_fieldcatalog.

* CLEAR ls_fieldcatalog..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK14'.

* ls_fieldcatalog-seltext_m = TEXT-070.

* LS_FIELDCATALOG-SELTEXT_M = 'Not Due As Per Due Date'. "commented by Anirban 12.11.2021

LS_FIELDCATALOG-SELTEXT_M = 'Amount Not Due'. "addde by ANirban 12.11.2021

LS_FIELDCATALOG-DO_SUM = 'X'.
LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK1'.

LS_FIELDCATALOG-SELTEXT_M = TEXT1.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG.

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK2'.

LS_FIELDCATALOG-SELTEXT_M = TEXT2.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK3'.

LS_FIELDCATALOG-SELTEXT_M = TEXT3.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.
APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK4'.

LS_FIELDCATALOG-SELTEXT_M = TEXT4.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK5'.

LS_FIELDCATALOG-SELTEXT_M = TEXT5.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK6'.

LS_FIELDCATALOG-SELTEXT_M = TEXT6.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.
LS_FIELDCATALOG-FIELDNAME = 'BUCK7'.

LS_FIELDCATALOG-SELTEXT_M = TEXT7.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK8'.

LS_FIELDCATALOG-SELTEXT_M = TEXT8.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK9'.

LS_FIELDCATALOG-SELTEXT_M = TEXT9.

LS_FIELDCATALOG-DO_SUM = 'X'..

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK10'.

LS_FIELDCATALOG-SELTEXT_M = TEXT10.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.
LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK11'.

LS_FIELDCATALOG-SELTEXT_M = TEXT11.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK12'.

LS_FIELDCATALOG-SELTEXT_M = TEXT12.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCK13'.

LS_FIELDCATALOG-SELTEXT_M = TEXT13.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..
LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BUCKETDND15'.

if DETAILED = 'X'.

LS_FIELDCATALOG-SELTEXT_M = 'Total Amount Due As Per Key Date'.

ELSEIF SUMMARY = 'X'.

LS_FIELDCATALOG-SELTEXT_M = 'Ageing Total'.

ENDIF.

LS_FIELDCATALOG-DO_SUM = 'X'.

LS_FIELDCATALOG-CFIELDNAME = 'WAERS'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

* CLEAR ls_fieldcatalog..

* lv_col = lv_col + 1.

* ls_fieldcatalog-fieldname = 'BUCK14'.

* ls_fieldcatalog-seltext_m = text-070.

* ls_fieldcatalog-do_sum = 'X'.

* ls_fieldcatalog-cfieldname = 'WAERS'.

* ls_fieldcatalog-col_pos = lv_col.

* APPEND ls_fieldcatalog TO lt_fieldcatalog.

* CLEAR ls_fieldcatalog..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'SRCH1'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-046.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..
CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'SRCH2'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-044.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'STRAS'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-024.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'ORT01'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-026.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'REGIO'.

LS_FIELDCATALOG-SELTEXT_L = TEXT-068.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.


CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BEZEI'.

LS_FIELDCATALOG-SELTEXT_L = TEXT-069.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'LANDX'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-027.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'PSTLZ'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-030.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

* CLEAR ls_fieldcatalog..

* lv_col = lv_col + 1.

* ls_fieldcatalog-fieldname = 'SMTP_ADDR'.

* ls_fieldcatalog-seltext_m = text-032.
* ls_fieldcatalog-col_pos = lv_col.

* APPEND ls_fieldcatalog TO lt_fieldcatalog.

* CLEAR ls_fieldcatalog..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'NAMEV'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-034.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'TELF1'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-039.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'TLFNS'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-040.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'BKTXT'.
LS_FIELDCATALOG-SELTEXT_M = TEXT-082.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'SGTXT'.

LS_FIELDCATALOG-SELTEXT_M = TEXT-081.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

CLEAR LS_FIELDCATALOG..

LV_COL = LV_COL + 1.

LS_FIELDCATALOG-FIELDNAME = 'XBLNR1'.

LS_FIELDCATALOG-SELTEXT_M = 'REFERENCE NO.'.

LS_FIELDCATALOG-COL_POS = LV_COL.

APPEND LS_FIELDCATALOG TO LT_FIELDCATALOG.

CLEAR LS_FIELDCATALOG..

ENDFORM. " FIELDCATALOG1

*&---------------------------------------------------------------------*

*& Form DISPLAY1

*----------------------------------------------------------------------*

FORM DISPLAY1 .

****

* BREAK-POINT .

LOOP AT IT_FINAL2 INTO WA_FINAL2 .

IF WA_FINAL2-BLART = 'DZ'.

APPEND WA_FINAL2 TO IT_NEW1 .

CLEAR WA_FINAL2 .
ELSE .

APPEND WA_FINAL2 TO IT_NEW2 .

CLEAR WA_FINAL2 .

ENDIF .

ENDLOOP .

DATA : L_TOTAL TYPE BSID-WRBTR .

* LOOP AT IT_NEW2 INTO WA_NEW2 .

* CLEAR L_TOTAL .

* LOOP AT IT_NEW1 INTO WA_NEW1 WHERE KUNNR = WA_NEW2-KUNNR

* AND BUKRS = WA_NEW2-BUKRS .

* L_TOTAL = L_TOTAL + WA_NEW1-TOTAL .

* ENDLOOP .

* WA_NEW2-TOTAL = WA_NEW2-TOTAL + L_TOTAL .

* MODIFY IT_NEW2 FROM WA_NEW2 INDEX SY-TABIX .

* CLEAR WA_NEW2 .

* ENDLOOP .

REFRESH : IT_SORT.

CLEAR LS_SORT.

LS_SORT-FIELDNAME = 'BUKRS'.

LS_SORT-TABNAME = 'IT_FINAL2'.

* LS_SORT-TABNAME = 'IT_NEW2'.

* ls_sort-subtot = 'X'.

APPEND LS_SORT TO IT_SORT.

CLEAR LS_SORT.
LS_SORT-FIELDNAME = 'WAERS'.

LS_SORT-TABNAME = 'IT_FINAL2'.

* LS_SORT-TABNAME = 'IT_NEW2'.

LS_SORT-SUBTOT = 'X'.

APPEND LS_SORT TO IT_SORT.

CLEAR LS_SORT.

SORT IT_FINAL2 BY BUKRS.

GS_LAYOUT-ZEBRA = 'X'.

IF IT_FINAL2 IS NOT INITIAL .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

IS_LAYOUT = GS_LAYOUT

IT_SORT = IT_SORT

IT_FIELDCAT = LT_FIELDCATALOG[]

I_DEFAULT = 'X'

I_SAVE = 'A'

TABLES

T_OUTTAB = IT_FINAL2

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.
ELSE .

MESSAGE 'Data not found' TYPE 'I' .

ENDIF .

ENDFORM. " DISPLAY1

You might also like