Skip to Content
0
Former Member
Nov 28, 2006 at 06:36 AM

Asset aquisition report help req (urgent)

53 Views

hi all,

in my following code there is a problem ie i am not getting all line items from

table ANLC & ANEK.

check the query whether there is any problem in the loop or query .

send me the modification for that or otherwise if u have devloped the code

for asset aquisition then send me that to my id- sanjeevsingh_sap@yahoo.com

Report Z_FA_ACQ NO STANDARD PAGE HEADING

LINE-SIZE 400

LINE-COUNT 65(3).

TYPE-POOLS : SLIS.

TABLES : ANLA, "ASSET MASTER RECORD-SEGMENT

ANLZ. "time dependent asset allocations

DATA : BEGIN OF T_ANLA OCCURS 0,

BUKRS LIKE ANLA-BUKRS,

ANLN1 LIKE ANLA-ANLN1,

ANLN2 LIKE ANLA-ANLN2,

AKTIV LIKE ANLA-AKTIV,

TXT50 LIKE ANLA-TXT50,

ZUGDT LIKE ANLA-ZUGDT,

MENGE LIKE ANLA-MENGE,

MEINS LIKE ANLA-MEINS,

END OF T_ANLA.

DATA : BEGIN OF T_ANLZ OCCURS 0,

BUKRS LIKE ANLZ-BUKRS,

ANLN1 LIKE ANLZ-ANLN1,

ANLN2 LIKE ANLZ-ANLN2,

GSBER LIKE ANLZ-GSBER,

KOSTL LIKE ANLZ-KOSTL,

STORT LIKE ANLZ-STORT,

RAUMN LIKE ANLZ-RAUMN,

KFZKZ LIKE ANLZ-KFZKZ,

END OF T_ANLZ.

DATA : BEGIN OF T_ANEK OCCURS 0,

BUKRS LIKE ANEK-BUKRS,

ANLN1 LIKE ANEK-ANLN1,

ANLN2 LIKE ANEK-ANLN2,

BELNR LIKE ANEK-BELNR,

BUDAT LIKE ANEK-BUDAT,

XBLNR LIKE ANEK-XBLNR,

SGTXT LIKE ANEK-SGTXT,

END OF T_ANEK.

DATA : BEGIN OF T_ANLC OCCURS 0,

BUKRS LIKE ANLC-BUKRS,

ANLN1 LIKE ANLC-ANLN1,

ANLN2 LIKE ANLC-ANLN2,

KANSW LIKE ANLC-KANSW,

KNAFA LIKE ANLC-KNAFA,

AAFAP LIKE ANLC-AAFAP,

AFABE LIKE ANLC-AFABE,

GJAHR LIKE ANLC-GJAHR,

END OF T_ANLC.

DATA : BEGIN OF IT_FINAL OCCURS 0,

ANLN1 LIKE ANLA-ANLN1,

ANLN2 LIKE ANLA-ANLN2,

AKTIV LIKE ANLA-AKTIV,

TXT50 LIKE ANLA-TXT50,

ZUGDT LIKE ANLA-ZUGDT,

MENGE LIKE ANLA-MENGE,

MEINS LIKE ANLA-MEINS,

GSBER LIKE ANLZ-GSBER,

KOSTL LIKE ANLZ-KOSTL,

STORT LIKE ANLZ-STORT,

RAUMN LIKE ANLZ-RAUMN,

KFZKZ LIKE ANLZ-KFZKZ,

BELNR LIKE ANEK-BELNR,

BUDAT LIKE ANEK-BUDAT,

XBLNR LIKE ANEK-XBLNR,

SGTXT LIKE ANEK-SGTXT,

KANSW LIKE ANLC-KANSW,

KNAFA LIKE ANLC-KNAFA,

AAFAP LIKE ANLC-AAFAP,

GJAHR LIKE ANEK-GJAHR,

END OF IT_FINAL.

DATA : LINE_COLOR(4) TYPE C.

DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

GD_LAYOUT TYPE SLIS_LAYOUT_ALV.

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

SELECT-OPTIONS : S_BUKRS FOR ANLA-BUKRS DEFAULT 'ML',

S_ANLN1 FOR ANLA-ANLN1,

S_ANLN2 FOR ANLA-ANLN2.

  • s_gjahr FOR anlc-gjahr.

SELECTION-SCREEN : END OF BLOCK B_FA.

*SELECT-OPTIONS : s_belnr FOR anek-belnr.

SELECT BUKRS ANLN1 ANLN2 AKTIV TXT50 ZUGDT MENGE MEINS

FROM ANLA

INTO CORRESPONDING FIELDS OF TABLE T_ANLA

WHERE ANLN1 IN S_ANLN1

AND ANLN2 IN S_ANLN2

AND BUKRS IN S_BUKRS.

SELECT BUKRS ANLN1 ANLN2 GSBER KOSTL STORT RAUMN KFZKZ

FROM ANLZ

INTO CORRESPONDING FIELDS OF TABLE T_ANLZ

FOR ALL ENTRIES IN T_ANLA

WHERE ANLN1 = T_ANLA-ANLN1

AND ANLN2 = T_ANLA-ANLN2

AND BUKRS = T_ANLA-BUKRS.

*IF sy-subrc EQ 0.

SELECT BUKRS ANLN1 ANLN2 BELNR BUDAT XBLNR SGTXT GJAHR

FROM ANEK

INTO CORRESPONDING FIELDS OF TABLE T_ANEK

FOR ALL ENTRIES IN T_ANLA

WHERE ANLN1 = T_ANLA-ANLN1

AND ANLN2 = T_ANLA-ANLN2

AND BUKRS = T_ANLA-BUKRS.

  • AND gjahr = t_anek-gjahr.

*ENDIF.

SELECT BUKRS ANLN1 ANLN2 KANSW KNAFA AAFAP AFABE GJAHR

FROM ANLC

INTO CORRESPONDING FIELDS OF TABLE T_ANLC

FOR ALL ENTRIES IN T_ANLA

WHERE ANLN1 = T_ANLA-ANLN1

AND ANLN2 = T_ANLA-ANLN2

AND BUKRS = T_ANLA-BUKRS

AND GJAHR = T_ANLC-GJAHR.

  • AND afabe = '01'.

LOOP AT T_ANLA.

MOVE : T_ANLA-ANLN1 TO IT_FINAL-ANLN1,

T_ANLA-ANLN2 TO IT_FINAL-ANLN2,

T_ANLA-AKTIV TO IT_FINAL-AKTIV,

T_ANLA-TXT50 TO IT_FINAL-TXT50,

T_ANLA-ZUGDT TO IT_FINAL-ZUGDT,

T_ANLA-MENGE TO IT_FINAL-MENGE,

T_ANLA-MEINS TO IT_FINAL-MEINS.

READ TABLE T_ANLZ WITH KEY BUKRS = T_ANLA-BUKRS

ANLN1 = T_ANLA-ANLN1

ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.

IF SY-SUBRC EQ 0.

MOVE : T_ANLZ-GSBER TO IT_FINAL-GSBER,

T_ANLZ-KOSTL TO IT_FINAL-KOSTL,

T_ANLZ-STORT TO IT_FINAL-STORT,

T_ANLZ-RAUMN TO IT_FINAL-RAUMN,

T_ANLZ-KFZKZ TO IT_FINAL-KFZKZ.

ENDIF.

READ TABLE T_ANLC WITH KEY BUKRS = T_ANLA-BUKRS

ANLN1 = T_ANLA-ANLN1

ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.

IF SY-SUBRC EQ 0.

MOVE : T_ANLC-KANSW TO IT_FINAL-KANSW,

T_ANLC-KNAFA TO IT_FINAL-KNAFA,

T_ANLC-AAFAP TO IT_FINAL-AAFAP.

ENDIF.

*SORT t_anla.

READ TABLE T_ANEK WITH KEY BUKRS = T_ANLA-BUKRS

ANLN1 = T_ANLA-ANLN1

ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.

IF SY-SUBRC EQ 0.

MOVE : T_ANEK-BELNR TO IT_FINAL-BELNR,

T_ANEK-BUDAT TO IT_FINAL-BUDAT,

T_ANEK-XBLNR TO IT_FINAL-XBLNR,

T_ANEK-SGTXT TO IT_FINAL-SGTXT.

ENDIF.

APPEND IT_FINAL.

*ENDLOOP.

ENDLOOP.

*ENDIF.

PERFORM BUILD_FIELDCATALOG.

PERFORM DISPLAY_ALV_REPORT.

PERFORM BUILD_LAYOUT.

----


  • FORM BUILD_FIELDCATALOG *

----


  • ........ *

----


FORM BUILD_FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'ANLN1'.

FIELDCATALOG-SELTEXT_M = 'ASSET MAIN NO'.

FIELDCATALOG-COL_POS = 0.

FIELDCATALOG-OUTPUTLEN = 14.

FIELDCATALOG-EMPHASIZE = 'X'.

FIELDCATALOG-KEY = 'X'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'ANLN2'.

FIELDCATALOG-SELTEXT_M = 'SUB NO'.

FIELDCATALOG-COL_POS = 1.

FIELDCATALOG-OUTPUTLEN = 7.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'AKTIV'.

FIELDCATALOG-SELTEXT_M = 'CAP.DATE'.

FIELDCATALOG-COL_POS = 2.

FIELDCATALOG-OUTPUTLEN = 10.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'TXT50'.

FIELDCATALOG-SELTEXT_M = 'NAME'.

FIELDCATALOG-COL_POS = 3.

FIELDCATALOG-OUTPUTLEN = 50.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'ZUGDT'.

FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.

FIELDCATALOG-COL_POS = 4.

FIELDCATALOG-OUTPUTLEN = 10.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MENGE'.

FIELDCATALOG-SELTEXT_M = 'QTY'.

FIELDCATALOG-COL_POS = 5.

FIELDCATALOG-OUTPUTLEN = 13.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MEINS'.

FIELDCATALOG-SELTEXT_M = 'UNITS'.

FIELDCATALOG-COL_POS = 6.

FIELDCATALOG-OUTPUTLEN = 3.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'GSBER'.

FIELDCATALOG-SELTEXT_M = 'BA'.

FIELDCATALOG-COL_POS = 7.

FIELDCATALOG-OUTPUTLEN = 4.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'KOSTL'.

FIELDCATALOG-SELTEXT_M = 'COST CENTER'.

FIELDCATALOG-COL_POS = 8.

FIELDCATALOG-OUTPUTLEN = 13.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'STORT'.

FIELDCATALOG-SELTEXT_M = 'LOCATION'.

FIELDCATALOG-COL_POS = 9.

FIELDCATALOG-OUTPUTLEN = 10.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'RAUMN'.

FIELDCATALOG-SELTEXT_M = 'ROOM'.

FIELDCATALOG-COL_POS = 10.

FIELDCATALOG-OUTPUTLEN = 10.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'KFZKZ'.

FIELDCATALOG-SELTEXT_M = 'LICENSE PLATE NO'.

FIELDCATALOG-COL_POS = 11.

FIELDCATALOG-OUTPUTLEN = 20.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'BELNR'.

FIELDCATALOG-SELTEXT_M = 'DOC NO'.

FIELDCATALOG-COL_POS = 12.

FIELDCATALOG-OUTPUTLEN = 13.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'BUDAT'.

FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.

FIELDCATALOG-COL_POS = 13.

FIELDCATALOG-OUTPUTLEN = 15.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'XBLNR'.

FIELDCATALOG-SELTEXT_M = 'REF NO'.

FIELDCATALOG-COL_POS = 14.

FIELDCATALOG-OUTPUTLEN = 25.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'SGTXT'.

FIELDCATALOG-SELTEXT_M = 'TEXT'.

FIELDCATALOG-COL_POS = 15.

FIELDCATALOG-OUTPUTLEN = 50.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

ENDFORM.

----


  • FORM BUILD_LAYOUT *

----


  • ........ *

----


FORM BUILD_LAYOUT.

GD_LAYOUT-ZEBRA = 'X'.

GD_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.

ENDFORM.

----


  • FORM DISPLAY_ALV_REPORT *

----


  • ........ *

----


FORM DISPLAY_ALV_REPORT.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_CALLBACK_PROGRAM = ' '

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_STRUCTURE_NAME =

IS_LAYOUT = GD_LAYOUT

IT_FIELDCAT = FIELDCATALOG[]

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

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_FINAL

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

ENDFORM.