Help on asset value table

hi,
i am a abaper and need to come out a report for asset with acquisition value and depresation value. can any one please advice what table and how am i going to get the value as it is not a standard field( it is a calculate field).
thanks

Hi,
base your report on logical database ADA - like the majority of FI-AA standard repots - you get the asset value determination automatically by the logical database then.
Regards,
Markus

Similar Messages

FI-AA: table(-s) for the asset value

Dear forum members,
I need to find the table where I can get the asset value from!?
The background is that I`m writing a report where I have to get the value of an asset. If it is higher then 0,00 then it has to do this and if it lower than 0,00 it has to do that and so on.
It would be great if someone could help me with this matter, or at least give me an idea how to find that out.
Thank`s in advance

Hi,
definitely table ANLC. You have to calculate the asset value as ANLC contains acquisition cost, accumulated depreciation, depr. of the actual year,...
best regards, Christian

Need a help to write up the asset value(Land) which is not depreciated

Hi Experts,
My client want to write up the asset values(Land value) from 500000 to 750000. But this asset is not having any accumulated dep.
to write up the vlaues.
please could some one suggest how can we write up the values which are not having the accumulated dep.
i tried through tcode ABZU but i am getting the below error.
You cannot post write-ups
Message no. AA402
Diagnosis
None of the areas to be posted in accordance with the transaction type entered manages one of the depreciation types entered or cumulative values.
Procedure
Check the transaction type.
please could some one help on this.
Thanks in advance.
Regards,
Venkat

Hi Paul,
Thanks for your valuable inputs.
As per second option my client is not configured the Revaluation of assests, hence this is not applicable.
Then as per your first option we can go ahed on this.
Please could you suggest me which t code is most suitable for the manual posting.
Thanks & Regards,
Venkat

How to get Value Table values in F4 help

Hi.
I am creating one custom field in ORDERADM_H.
I created it based on my own data element name.
In that data element domain contains Value Table.
This value table is having one field with four records.
Now i am adding the field in the Web Ui Screen.
But it is not at all getting F4 help.
How i will get F4 help.
I want my value table records in that F4 help.
I am selecting any one then that should be placed in the Input Field.
When i save the record the data should be stored in the Data base tables also.
Thank You.
B. Krishna.

This question has been asked and answered many times before. Please read the following blog for a good start:
/people/yohan.kariyawasan/blog/2009/03/18/ui-framework-news-f4-help
Before posting further please do a search in this forum and also read the rules of engagement listed here:
https://www.sdn.sap.com/irj/scn/wiki?path=/display/home/rulesofEngagement
I'm now locking this thread as it is a duplicate of an already answered question.
Thank you,
Stephen
CRM Forum Moderator

How to add Value Table or Search Help for a field which is on Standard SAP?

Hi All,
I have a field HERST (tcode IE01) which doesnt have any value table or search Help. I have the same field in a Z table which I should display for the standard screen field in tcode IE01. So Pls suggest me on this.
Thanks in advance.
Regards
Jaker.

Hi, Tamas,
I found the reason. The function Z_WEBRFC_READ_DATA_SH had a string concatenation error.
CONCATENATE '{"results":[{"key": "shlpname", "value": "' l_shlp '"},"key": "fieldname", "value": "' l_field '"}]}' INTO htmldoc-line.
The correct code is like:
CONCATENATE '{"results":[{"key": "shlpname", "value": "' l_shlp '"},{"key": "fieldname", "value": "' l_field '"}]}' INTO htmldoc-line.
Another question is, I can't get any words in Chinese from WebRFC. It returns error when I try it. How can I configure it?
Xin

Value table as search help

Hi Experts,
I am new to WebDynpro ABAP.
I want to assign a search help to one of the UI elements in WebDynpro ABAP component.
The search help is attached as a value table in a domain LAND1.
Now while creating an attribute i am creating it from a data element which is attached to this domain.
Still i can not see the value help being shown.
May be i am missing something.
Can you please help me to find out what am i missing?
Regards,
Ashish Shah

Hi Ashish,
For getting a search help for the drop down by key UI element, here i am mentioning the logic using the flight demo.
1.Add attribute PLANETYPE to the context of the component controller.
Locate the Component Controller node in the project structure that is located immediately under the component. Double click on Component Controller to open the Custom Controller editor.
- Add attribute PLANETYPE to context node FLIGHTINFO
Hint: Select Create Using Wizard -> Attributes form Components of Structure from context menu of node FLIGHTINFO.
2.Navigate to the Context tab of view controller Iof your view. Choose Update Mapping from the context menu of node FLIGHTINFO to add the attribute PLANETYPE.
3.Add Label and DropDownByKey for PLANETYPE to the layout of ur view.
Go to tab Layout and add a label named PLANETYPE_LABEL_1 and a DropDownByKey named PLANETYPE_DROPDOWN_1 to group GROUP_1. The two new elements should be placed between the input field for the Date and the button. Bind the DropDownByKey to the context attribute PLANETYPE.
4..Adjust component controller method FLIGHTTAB_FILL
Navigate to the Methods tab of the component controller and double-click on the method FLIGHTTAB_FILL to open the editor.
Adjust the method:
- Get also the context value for PLANETYPE
- Use PLANETYPE also in the where clause of the select statement
METHOD flighttab_fill .
DATA:
    cond(72)                            TYPE c,
    itab_where                          LIKE TABLE OF cond,
    context_node                        TYPE REF TO if_wd_context_node,
    elem_flightinfo                     TYPE REF TO if_wd_context_element,
    stru_flightinfo                     TYPE if_componentcontroller=>element_flightinfo ,
    item_carrid                         LIKE stru_flightinfo-carrid,
    item_connid                         LIKE stru_flightinfo-connid,
    item_fldate                         like stru_flightinfo-fldate,
    item_planetype                      like stru_flightinfo-fldate,
    itab_flighttab                      TYPE if_componentcontroller=>elements_flighttab.
navigate to <FLIGHTINFO>
context_node = wd_context->get_child_node( name = `FLIGHTINFO` ).
get element at lead selection
elem_flightinfo = context_node->get_element( ).
get connid
elem_flightinfo->get_attribute(
    EXPORTING
      name = `CARRID`
    IMPORTING
      value = item_carrid ).
get carrid
elem_flightinfo->get_attribute(
    EXPORTING
      name = `CONNID`
    IMPORTING
      value = item_connid ).
get fldate
elem_flightinfo->get_attribute(
    EXPORTING
      name = `FLDATE`
    IMPORTING
      value = item_fldate ).
get planetype
elem_flightinfo->get_attribute(
    EXPORTING
      name = `PLANETYPE`
    IMPORTING
      value = item_planetype ).
create where condition
IF NOT item_carrid EQ ''.
    CONCATENATE 'CARRID = ''' item_carrid '''' INTO cond.
    APPEND cond TO itab_where.
ENDIF.
IF NOT item_connid EQ '0000'.
    CONCATENATE 'CONNID = ''' item_connid '''' INTO cond.
    IF item_carrid NE ''.
      CONCATENATE 'AND' cond INTO cond separated by space.
    ENDIF.
    APPEND cond TO itab_where.
ENDIF.
IF NOT item_fldate is initial.
    CONCATENATE 'FLDATE = ''' item_fldate '''' INTO cond.
    IF not itab_where is initial.
      CONCATENATE 'AND' cond INTO cond separated by space.
    ENDIF.
    APPEND cond TO itab_where.
ENDIF.
IF NOT item_planetype eq ''.
    CONCATENATE 'PLANETYPE = ''' item_planetype '''' INTO cond.
    IF not itab_where is initial.
      CONCATENATE 'AND' cond INTO cond separated by space.
    ENDIF.
    APPEND cond TO itab_where.
ENDIF.
read data
IF itab_where IS NOT INITIAL.
    SELECT * FROM sflight
      INTO CORRESPONDING FIELDS OF TABLE itab_flighttab
      WHERE (itab_where).
ELSE.
    SELECT * FROM sflight
      INTO CORRESPONDING FIELDS OF TABLE itab_flighttab.
ENDIF.
navigate to <FLIGHTTAB>
context_node = wd_context->get_child_node( name = `FLIGHTTAB` ).
Bind table to context node <FLIGHTTAB>
CALL METHOD context_node->bind_table
    EXPORTING
      new_items = itab_flighttab.
ENDMETHOD.
5.Navigate to the Methods tab of the ur view and create a new method with the name VS_PLANETYPE. Double-click on the name of the newly created method to navigate in the editor.
Add coding for:
-     Get nodeinfo for node FLIGHTINFO
-     Build the value set table. Create the following entries:
Key     Value
747-400     747-400
A310-300     A310-300
A319     A319
DC-10-10     DC-10-10
-     Set the values to context attribute PLANETYPE of node FLIGHTINFO
method VS_PLANETYPE .
data:
lr_node_flightinfo type ref to if_wd_context_node,
lr_nodeinfo_flightinfo type ref to if_wd_context_node_info,
lt_value_set       type wdy_key_value_table,
ls_value_set       type wdy_key_value.
get nodeinfo of node flightinfo
lr_node_flightinfo = wd_context->get_child_node( name = `FLIGHTINFO` ).
lr_nodeinfo_flightinfo = lr_node_flightinfo->get_node_info( ).
fill values into value set table
ls_value_set-key   = '747-400'.
ls_value_set-value = '747-400'.
append ls_value_set to lt_value_set.
ls_value_set-key   = 'A310-300'.
ls_value_set-value = 'A310-300'.
append ls_value_set to lt_value_set.
ls_value_set-key   = 'A319'.
ls_value_set-value = 'A319'.
append ls_value_set to lt_value_set.
ls_value_set-key   = 'DC-10-10'.
ls_value_set-value = 'DC-10-10'.
append ls_value_set to lt_value_set.
set values to context attribute
lr_nodeinfo_flightinfo->set_attribute_value_set( name = 'PLANETYPE' value_set = lt_value_set ).
endmethod.
6.Invoke method VS_PLANETYPE in method WODOINIT in ur view.
Hint: Use Web Dynpro Code Wizard.
method WDDOINIT .
DATA:
   node_flightinfo                     TYPE REF TO if_wd_context_node,
   elem_flightinfo                     TYPE REF TO if_wd_context_element,
   stru_flightinfo                     TYPE if_input_view=>element_flightinfo,
   item_carrid                         LIKE stru_flightinfo-carrid.
navigate from <CONTEXT> to <FLIGHTINFO> via lead selection
node_flightinfo = wd_context->get_child_node( name = `FLIGHTINFO` ).
get element via lead selection
elem_flightinfo = node_flightinfo->get_element( ).
set single attribute
elem_flightinfo->set_attribute(
    EXPORTING
      name = `CARRID`
      value = 'AA' ).
Create Value Selector for PLANETYPE
wd_this->vs_planetype( ).
endmethod.
Regards
Manoj Kumar

Search help value restriction in two tables having same value table

Hi Gurus,
I have two tables containing same field having same domain with value table. My requirement is to restrict the values in the tables. For example the field contains 4 values:
1) A
2) B
3) C
4) D
For table 1, only A and C should be seen in F4 and for table 2, only B and D should be seen. Also if somebody forces B or D
in 1st table should not be allowed and the same for 2nd table ( A & C are not allowed ). How to do this using search help exit . Which event should I use. I don't want to create two separate check tables containing only the required values.
Regards,
Debopriyo

Hi Gurus,
I have two tables containing same field having same domain with value table. My requirement is to restrict the values in the tables. For example the field contains 4 values:
1) A
2) B
3) C
4) D
For table 1, only A and C should be seen in F4 and for table 2, only B and D should be seen. Also if somebody forces B or D
in 1st table should not be allowed and the same for 2nd table ( A & C are not allowed ). How to do this using search help exit . Which event should I use. I don't want to create two separate check tables containing only the required values.
Regards,
Debopriyo

Querry ( SQVI ) on assete tables - "Net Asset Value" - Field & Table

Dear Gurus..
Pl guide to get Table & Field for " Net Asset Value"
regs / Devi Aparna
Edited by: Devi Aparna on Dec 1, 2011 6:39 AM

You can able to get the NBV value through AR01, AR02 and AR03 TCODES.
or else,
Table ANEP - Amount - Ord dep (Manual work)
Thanks

Error in Asset Value carry forward to next year

As a regular periodic process of Month/Year closing activities in SAP, Asset Year 2015 was opened and then closes the year 2014 and carried forward the Asset values to the year 2015. But unfortunately some of the Asset value had not been transferred to the year 2015. As a result, Depreciation had not been charged for those Asset for the year 2015. Need to transfer the Asset value to the current year immediately. Can any one help me regarding the problem ? The APC Start value is showing in the year 2014 but its not showing in 2015.
The Closing value of Current APC of year 2014 does not match with the Opening value of the APC Start, so what should be the possible reasons for that ?

Hi Erika,
I did that on last January 2015. First i use the T-code: AJRW for the Fiscal Year Change and then T-code: AJAB - for Year end-closing Asset Accounting as i did that for last 4 years. Though there was as error message indicating error in depreciation calculation, our consultant assured me that that will not create any problem. The Error was like below:
600981 0 Secretariat Table 2014 Error in dep. calculation

Asset value date in Internal order settlement ko88

Hi.
I have posted some expenses to the internal order. I m trying to settle it to AUC with tcode KO88.
In the selection screen of ko88 i gave asset value date as 15.07.2011 but system is posting with month end date only as 31.07.2011.
I read the sap note 98496. In that its mentioned that the asset value date given in settlement parameters will override the asset value date given in the selection screen of ko88.
I tried to update the AUC asset value date in KO02 where we give settlement rules but i couldnt find any field there.
Where do i update the AUC asset value date in settlement parameters. Can anyone provide me the tcode and the field where i update this asset value date.
Regards,
Padmavathi

Hi
You can the same in transaction code KO02
1. Click on 'Settlement Rule'
2 Select 'Goto' in toll bar
3.Select 'Settlement Parameter F8"
4 there you will get" Asset value date"
Table Name" COBRA" field "BZDAT"
Hope this will helpful for you
Regards
Praveen P C

Recalculate sum of More than One Asset asset values

Hi Team,
Can you please guide whether there exists any T-code through which we can Recalculate sum of more than One Asset values at single point of time.
ex: iif we go asset master (AS02), in the Edit tab,recalucates values, in the asset master we can do only one single asset,
but as we required do the recalculate asset values at a time more than one asset.
Please let us know is there any t.code ?
Thanks
Ram

Hi Ram,
What you the system does in AS02 Menu: 'Edit - Recalculte values' is exactly the same what AFAR does. The difference is, in AS02 you only recalculate the values for that very asset. But all values that need value recalculated and updated will get adjusted when executing this step. So, if you have made a posting to the asset that for any reason did not update the table yet, and therefore is not reflected in the Asset Explorer, you can first simulate a recalculation for this asset and see what would be the new update of values. Then when you go to AS02 Menu: 'Edit - Recalculte values' the system will actually adjust the values in real time. Same is when you make a change to e.g. depreciation key, it will require an adjustment of values and a recalculation will do that.
So, whether you use AS02 for the single asset or use AFAR - the system does exactly the same.
The difference is however, that in AFAR, you recalculate the values for ALL the assets in that company code. For example, it is recommended that before you do the depreciation run or periodic posting run at the end of each period, that you ran also the recalculation program RAAFAR00 for the company code, so that any value adjustment/changes in values will be captured before running depreciation or periodic postings.
I hope this clarifies. Please also check on the online documentation in help.sap.com for more information.
Else, if you need to adjust other values on the asset and it is not about recalculating values, then you can use a write-up/unplannded depreciation (check it out under Easy Access Menu: Manual Value Correction) or maybe you can use the transaction for miscellanious ABSO.
I hope this helps you further.
Kind regards,
Brigitte

Help for asset aqusition report

hi,
here i am sending my code for asset aqusition report but not getting right output ie i am not able to get all the line items for particular asset no.
bcoz an asset has different line items with different doc no.
REPORT XXXXXX                            .
TABLES : sflight.
TYPE-POOLS: slis.
DATA : w_repid LIKE sy-repid.
w_repid = sy-repid.
DATA : BEGIN OF it_sflight OCCURS 0,
       checkbox(1),
       carrid LIKE sflight-carrid,
       END OF it_sflight.
*layout
DATA: wa_layout           TYPE slis_layout_alv.
*field catalog
DATA: it_fieldcatalog TYPE slis_t_fieldcat_alv,
      wa_fieldcatalog TYPE slis_fieldcat_alv.
START-OF-SELECTION.
SELECT carrid FROM sflight INTO CORRESPONDING FIELDS OF TABLE
it_sflight.
END-OF-SELECTION.
CLEAR it_fieldcatalog.
REFRESH it_fieldcatalog.
wa_fieldcatalog-fieldname = 'CHECKBOX'.
wa_fieldcatalog-outputlen = '3'.
wa_fieldcatalog-col_pos = '1'.
wa_fieldcatalog-seltext_m   = 'Chk'.
wa_fieldcatalog-checkbox = 'X'.
wa_fieldcatalog-edit = 'X'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
wa_fieldcatalog-fieldname = 'CARRID'.
wa_fieldcatalog-outputlen = '10'.
wa_fieldcatalog-col_pos = '2'.
wa_fieldcatalog-seltext_m   = 'Carrid'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = w_repid
      is_layout               = wa_layout
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat           = it_fieldcatalog
    TABLES
      t_outtab                = it_sflight
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
*&      Form USER_COMMAND
FORM user_command USING p_ucomm TYPE sy-ucomm
                      p_selfld TYPE slis_selfield.
CASE p_ucomm.
    WHEN '&DATA_SAVE'.
      DATA ref1 TYPE REF TO cl_gui_alv_grid.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          e_grid = ref1.
      CALL METHOD ref1->check_changed_data.
      LOOP AT it_sflight WHERE checkbox = 'X'.
        DELETE it_sflight INDEX sy-tabix.
      ENDLOOP.
      p_selfld-refresh = 'X'.
ENDCASE.
ENDFORM.                    "user_command
Check the following code...
DATA: BEGIN OF itab OCCURS 0,
check,
value(20),
END OF itab.
SET PF-STATUS 'TEST1'.
itab-value = 'ETSAT'.
APPEND itab.
itab-value = 'ETSATADSF'.
APPEND itab.
itab-value = 'ETSAT'.
APPEND itab.
LOOP AT itab.
WRITE: / itab-check AS CHECKBOX,
itab-value.
ENDLOOP.
AT USER-COMMAND.
DATA: wa LIKE itab.
DATA: itab_download LIKE itab OCCURS 0 WITH HEADER LINE.
IF sy-ucomm = 'DOWNLOAD'.
DESCRIBE TABLE itab.
DO sy-tfill TIMES.
READ LINE sy-index FIELD VALUE itab-check.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CHECK itab-check = 'X'.
itab_download-value = itab-value.
APPEND itab_download.
ENDDO.
DOWNLOAD
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
filename = 'C:\TEST.XLS '
TABLES
data_tab = itab_download.
ENDIF.
Thanks
Shobi

Hi,
One the guy has same report as problem, ok, my friend Eswar as given the code for that, i will send you that, hope it is helpful
<b>Please check with this code now:
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.
CHECK: NOT T_ANLA[] IS INITIAL.
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.
LOOP AT T_ANEK WHERE BUKRS = T_ANLA-BUKRS AND ANLN1 = T_ANLA-ANLN1 AND
ANLN2 = T_ANLA-ANLN2.
    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.                    "BUILD_FIELDCATALOG
      FORM BUILD_LAYOUT                                             *
FORM BUILD_LAYOUT.
GD_LAYOUT-ZEBRA = 'X'.
GD_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
ENDFORM.                    "BUILD_LAYOUT
      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.                    "DISPLAY_ALV_REPORT
Thanks & Regards
Eswar. B
Tel: +65 6544 7449
mailto: [email protected]
From: [email protected] [mailto:[email protected]]
Sent: Tuesday, November 28, 2006 7:36 PM
To: Boddeti, Eswar Rao
Subject: Re: need ur help for asset aqusition report
Hai,
   Sorry sorry this is the right Code.
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.
Thanks
manju

How to populate Value in Pop Up Via Value table

Hi Experts,
I have created one Zfield and assign it to a structure . Then structure is mapped to its corresponding Field group . I have provided the value table to the Domain of the same Zfield . But at the execution the F4 pop up is appearing but the data (From the Value table) is not populating in the pop up.
Kindly let me know the procedure to populate the data in popup via Value table....
Though i know that for some standard fields like Country and Region, already the standard domain LAND1 is provided with the value table T005 and it works fine.
Kindly suggest. Points will be rewarded for every helpful sugesstion.
Thanks
Sunil

Hi
In the fieldgrop structure for this field, fill in the field INPUT HELP as VALUE_TABLE and generate the layout. The values will appear in F4 now.
Regards
Karthik

Problem in Asset value calculation ... ANEP and ANLC

Hellö ,
We have a problem in calculation of the Fixed Asset values. Please see the link below for the problem. Technically it sums up like transaction values are available in the table ANEP but ANLC table is with the wrong value, Some of the transactions are not reflecting in the calculations of planned values for some of the Assets.
http://docs.google.com/View?id=ddqnbgm8_49cmgq86gx
We develop and implemented a functionality with the next
characteristics:
a. When we ran the MIRO transaction to a fixed asset situation, a
substitution in accounting documents (using a user-exit ) determines
the profit center to the fixed asset and insert the line
item in a custom table.
b. The custom program identifies all pending line items for processing
(via custom table) and, for each fixed asset identified, reverse the
original accounting document, and post the fixed asset in the profit
center '04219CL000'. To do this movement between the profit
center '04106CL000' and '04219CL000' the custom program uses a zero
balance account.
c. First of all, the custom program set the Field <negative values>
(BAPI1022_DEP_AREAS- NEG_VALUES) using the function
BAPI_FIXEDASSET_CHANGE. Later the custom program post the accounting
document using the function BAPI_ACC_GL_POSTING_POST;
d. In less than 1% of the cases the fixed asset posted in this process
it seems with a problem: the asset line itens (transactions - ANEP
table) where correct posted but the fixed asset acquisition values
(ANLC table) where posted in a wrong way (it's initialized - without
any value sometime or not summing up some transaction values properly).
e. Our custom program does not update any field value on the asset.
All the modifications on the asset are being made by the standard
functions above.
Edited by: Ravi Sharma on Jun 17, 2009 9:16 AM

Hi,
the problem is: Does anybody give you the correct value for each part?
If you know the value for each part you can use transaction ABUMN to transfer values from one asset to a new asset. With this transaction you can create a new asset. And you can make a partial transfer.
If you use this transaction you can simulate before you transfer it.
But as I said the problem is to find out the correct value. In germany for example we have to activate all in one fixed asset (computer with cbu )
Hope this answer your question.
Best regards
Volker

Asset Value Date determination during settlement from Orders or WBS!

Hi,
I have a scenario on the asset value date and I am not sure what went wrong, asset side or CO side.
The scenario is as following:
1. Asset was converted into the system by 7/31/2008 with $10000.
2. The capitalized on date is 2/29/2008 on the asset master data.
3. On 8/31/ 2008, I charged $300 to an internal order and settled the $300 to this asset. The Asset Value Date on the Asset Explorer is 8/15/2008.
4. On 9/30/2008, I charged #500 to the same internal order and settled the $500 to this asset, the Asset value date on the asset explorer for this charge is still 8/15/2008.
This messed up the depreciation of this asset. Does anyone know how to control the asset value date from the settlement? Do we need to config in Asset side or in Order side? I want the $300 charge's value date is on 8/15/2008 and $500 value date on 9/15/2008. Is this possible?
Thanks,
Ting

In the settlement you can fill in the asset values date.
The first posting is the basis for capitalization date(when you don't fill it in manual), when you fill it in for the second time the Asset Value Date it is no longer relefant.
This is only important when you have say in your depreciation key that the depreciation is based on days( see the help on this field)

Help on asset value table

Similar Messages

Maybe you are looking for