SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

структура ANLCV



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP
View previous topic :: View next topic  
Author Message
Канат
Участник
Участник



Joined: 28 Jan 2008
Posts: 18

PostPosted: Wed Jan 30, 2008 11:53 am    Post subject: структура ANLCV Reply with quote

ABAPеры,привет всем.
Поделитесь знаниями... Wink
Как вытащить записи именно из структуры ANLCV дополнительных полей ANSW_GJE, AUFW_GJe; в ANLC и др. таблицах смотрел,но не нашел.
ANLCV входит в ЛБД ADA,но мне нужно без использования этой ЛБД.
Перепробовал и искал все что мог,но Sad .
Может быть можно как-нибудь через call function?
Как посмотреть как формируется или куда адресуется поле структуры,или на какое поле таблицы?
Окажите помощь коллеги Exclamation Wink
Back to top
View user's profile Send private message
John Doe
Модератор
Модератор


Age: 46
Joined: 05 Nov 2007
Posts: 725
Location: КраснАдар

PostPosted: Wed Jan 30, 2008 12:10 pm    Post subject: Reply with quote

ANSW_GJE, AUFW_GJE - это расчетные величины. Если посмотреть в ЛБД, то можно заметить, что расчет данных величин происходит в ФМ FI_AA_VALUES_CALCULATE, вызов которого происходит в подпрограмме PUT_ANLCV, инклюд DBADAP60.
Можно воспроизвести подобный алгоритм в своей программе.
Back to top
View user's profile Send private message Blog
Канат
Участник
Участник



Joined: 28 Jan 2008
Posts: 18

PostPosted: Wed Jan 30, 2008 1:07 pm    Post subject: Reply with quote

John Doe, respect for U !!!
Можешь сказать как ты это нашел (пошагово) ? Научиться бы... Smile
Помог мне реально!
Извини за наглость Smile , мог бы примерно показать код как с помощью ФМ закинуть нужное поле в свою внутренюю таблицу,а потом высветить WRITEом ?
Спасибо!
Back to top
View user's profile Send private message
John Doe
Модератор
Модератор


Age: 46
Joined: 05 Nov 2007
Posts: 725
Location: КраснАдар

PostPosted: Wed Jan 30, 2008 1:59 pm    Post subject: Reply with quote

Embarassed Я смущен...

Схема проста и вечна: глобальный поиск по тексту программы нужных переменных.
Первым делом в SE11 убедился, что ANLCV - структура (значит используется для подготовки и вывода данных).
Потм зашел в ЛБД ADA через SE36, провалился в исходный текст. Запустил поиск ANLCV. В списке найденного самым подходящим оказалось название подпрограммы.
Собственно все.

Код наверное должен быть таким:
Code:
DATA: ITAB TYPE TABLE OF ANLC WITH HEADER LINE,    " Data table
      OUTTAB TYPE TABLE OF ANLCV WITH HEADER LINE. " Output view
DATA: FCAT TYPE LVC_T_FCAT, HCAT TYPE LVC_S_FCAT.

START-OF-SELECTION.
* Get DB data by fixed assets
  SELECT * FROM ANLC CLIENT SPECIFIED INTO TABLE ITAB
    WHERE MANDT = SY-MANDT
    AND   BUKRS = '0001'
    AND   GJAHR = SY-DATUM+0(4).
  IF SY-SUBRC <> 0.
    MESSAGE 'Nothing find' TYPE 'E'.
  ENDIF.

* Prepare data for output
  LOOP AT ITAB.
    CALL FUNCTION 'FI_AA_VALUES_CALCULATE'
      EXPORTING
        I_ANLC  = ITAB
      IMPORTING
        E_ANLCV = OUTTAB.
    APPEND OUTTAB.
  ENDLOOP.

* Prepare fieldcatalog
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      I_STRUCTURE_NAME       = 'ANLCV'
    CHANGING
      CT_FIELDCAT            = FCAT
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.
    MESSAGE 'Error build fcatalog' TYPE 'E'.
  ENDIF.

  LOOP AT FCAT INTO HCAT.
    IF HCAT-FIELDNAME NE 'ANLN1' OR HCAT-FIELDNAME NE 'ANLN2'
      OR HCAT-FIELDNAME NE 'ANSW_GJE' OR HCAT-FIELDNAME NE 'AUFW_GJE'.
      HCAT-NO_OUT = 'X'.
      MODIFY FCAT FROM HCAT.
    ENDIF.
  ENDLOOP.

* Output report
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      IT_FIELDCAT_LVC = FCAT
    TABLES
      T_OUTTAB        = OUTTAB[].

Насчет WRITE - извини, муторно делать и не люблю я это Smile
Back to top
View user's profile Send private message Blog
Канат
Участник
Участник



Joined: 28 Jan 2008
Posts: 18

PostPosted: Wed Jan 30, 2008 2:35 pm    Post subject: Reply with quote

John, как говорится по-казахски: "Рахмет!" Very Happy
Все вышло.Все получилось.
Если б не твоя помощь,парился бы до сих пор... Rolling Eyes

Желаю тебе успехов и удачи во всем !!!

P.S. ABAP FOREVER!!! Exclamation
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.