API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 6th, 2019
143
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 14.07 KB | None | 0 0
raw download clone embed print report
  1. *&---------------------------------------------------------------------*
  2. *&  Include           ZFI_0287_NIOKTR_CLD02
  3. *&---------------------------------------------------------------------*
  4. CLASS data_calc DEFINITION FINAL.
  5.   PUBLIC SECTION.
  6.  
  7.     TYPES: tt_zsfi_0287_alv TYPE TABLE OF zsfi_0287_alv.
  8.  
  9.     METHODS:
  10.       add_param_to_range IMPORTING
  11.                            iv_sign_opt TYPE char3
  12.                            iv_value    TYPE any
  13.                          CHANGING
  14.                            ct_range    TYPE ANY TABLE,
  15.  
  16.       scaling,
  17.       select_alv,
  18.  
  19.       select_pdf,
  20.  
  21.       grouping        IMPORTING it_alv_report TYPE tt_zsfi_0287_alv
  22.                       EXPORTING et_alv_report TYPE tt_zsfi_0287_alv,
  23.  
  24.       sscr_add_fields IMPORTING
  25.                         iv_bukrs   TYPE bukrs
  26.                         iv_form    TYPE j_3r_fnam
  27.                         iv_rdate   TYPE sy-datum
  28.                         it_anln1   TYPE ANY TABLE         " Основное средство
  29.                         it_anln2   TYPE ANY TABLE         " Субномер
  30.                         it_anlkl   TYPE ANY TABLE         " Класс ОС
  31.                         it_invnr   TYPE ANY TABLE         " Инвентарный номер
  32.                         it_kostl   TYPE ANY TABLE         " МВЗ
  33.                         it_werks   TYPE ANY TABLE         " Завод
  34.                         it_stort   TYPE ANY TABLE         " Местоположение
  35.                         it_pernr   TYPE ANY TABLE         " МОЛ
  36.                         it_prctr   TYPE ANY TABLE         " МВП
  37.                         iv_group   TYPE char1             " В разрезе структурных подразделений
  38.                         iv_mol     TYPE char1             " В разрезе МОЛ
  39.                         iv_plase   TYPE char1             " В разрезе местоположений
  40.  
  41.                         iv_comdat  TYPE datum             " Дата документа
  42.                         iv_comnum  TYPE text100           " Номер документа
  43.                         iv_co      TYPE text10            " принят к учёту в подразделении ?????
  44.                         iv_prot_n  TYPE text100           " Номер документа
  45.                         iv_prot_d  TYPE datum             " Дата документа
  46.  
  47.                         iv_chrm    TYPE pa0001-pernr      " Председатель комиссии
  48.                         iv_mbrc1   TYPE pa0001-pernr      " Член комиссии 1
  49.                         iv_mbrc2   TYPE pa0001-pernr      " Член комиссии 2
  50.                         iv_mbrc3   TYPE pa0001-pernr      " Член комиссии 3
  51.                         iv_mbrc4   TYPE pa0001-pernr      " Член комиссии 4
  52.                         iv_mbrc5   TYPE pa0001-pernr      " Член комиссии 5
  53.                         iv_mbrc6   TYPE pa0001-pernr      " Член комиссии 6
  54.                         iv_mbrc7   TYPE pa0001-pernr      " Член комиссии 7
  55.                         iv_mbrc8   TYPE pa0001-pernr      " Член комиссии 8
  56.                         iv_mbrc9   TYPE pa0001-pernr      " Член комиссии 9
  57.                         iv_mbrc10  TYPE pa0001-pernr      " Член комиссии 10
  58.                         iv_uchet   TYPE pa0001-pernr      " Ответственный за учёт
  59.                         iv_crd     TYPE pa0001-pernr      " Карточку составил
  60.  
  61.                         iv_fioch   TYPE pa0001-ename
  62.                         iv_fiomc1  TYPE pa0001-ename
  63.                         iv_fiomc2  TYPE pa0001-ename
  64.                         iv_fiomc3  TYPE pa0001-ename
  65.                         iv_fiomc4  TYPE pa0001-ename
  66.                         iv_fiomc5  TYPE pa0001-ename
  67.                         iv_fiomc6  TYPE pa0001-ename
  68.                         iv_fiomc7  TYPE pa0001-ename
  69.                         iv_fiomc8  TYPE pa0001-ename
  70.                         iv_fiomc9  TYPE pa0001-ename
  71.                         iv_fiomc10 TYPE pa0001-ename
  72.                         iv_fiouch  TYPE pa0001-ename
  73.                         iv_fiocrd  TYPE pa0001-ename
  74.  
  75.                         iv_jobch   TYPE t513s-stltx
  76.                         iv_jobmc1  TYPE t513s-stltx
  77.                         iv_jobmc2  TYPE t513s-stltx
  78.                         iv_jobmc3  TYPE t513s-stltx
  79.                         iv_jobmc4  TYPE t513s-stltx
  80.                         iv_jobmc5  TYPE t513s-stltx
  81.                         iv_jobmc6  TYPE t513s-stltx
  82.                         iv_jobmc7  TYPE t513s-stltx
  83.                         iv_jobmc8  TYPE t513s-stltx
  84.                         iv_jobmc9  TYPE t513s-stltx
  85.                         iv_jobmc10 TYPE t513s-stltx
  86.                         iv_jobuch  TYPE t513s-stltx
  87.                         iv_jobcrd  TYPE t513s-stltx
  88.  
  89.                         iv_shtrh   TYPE char1             " Сформировать штрих-код
  90.                         iv_format  TYPE disvariant-variant
  91.                         iv_prpdf   TYPE char1             " Предварительный просмотр PDF
  92.                         iv_intpdf  TYPE char1             " Интерактивный просмотр PDF
  93.                         iv_pdfnam  TYPE sfpoutpar-dest.   " Устройство вывода.
  94.  
  95.   PROTECTED SECTION.
  96.     TYPES: BEGIN OF mty_os_cards,
  97.              bukrs TYPE anla-bukrs,
  98.              anln1 TYPE anla-anln1,
  99.              anln2 TYPE anla-anln2,
  100.            END OF mty_os_cards.
  101.  
  102.     DATA:
  103.       mr_001                       TYPE RANGE OF t001-bukrs,
  104.       mv_002                       TYPE afabe_d,
  105.  
  106.       mt_os_cards                  TYPE TABLE OF mty_os_cards,
  107.       mt_forms_list_anlkl          TYPE TABLE OF anla,
  108.  
  109.       mv_bukrs                     TYPE bukrs,
  110.       mv_form                      TYPE j_3r_fnam,
  111.       mv_rdate                     TYPE sy-datum,
  112.  
  113.       mt_anln1                     TYPE RANGE OF anla-anln1, " Основное средство
  114.       mt_anln2                     TYPE RANGE OF anla-anln2, " Субномер
  115.       mt_anlkl                     TYPE RANGE OF anka-anlkl, " Класс ОС
  116.       mt_invnr                     TYPE RANGE OF anla-invnr, " Инвентарный номер
  117.       mt_kostl                     TYPE RANGE OF anlz-kostl, " МВЗ
  118.       mt_werks                     TYPE RANGE OF anlz-werks, " Завод
  119.       mt_stort                     TYPE RANGE OF anlz-stort, " Местоположение
  120.       mt_pernr                     TYPE RANGE OF anlz-pernr, " МОЛ
  121.       mt_prctr                     TYPE RANGE OF anlz-prctr, " МВП
  122.       mv_nogrp                     TYPE char1,               " Без группировки
  123.       mv_group                     TYPE char1,               " В разрезе структурных подразделений
  124.       mv_mol                       TYPE char1,               " В разрезе МОЛ
  125.       mv_plase                     TYPE char1,               " В разрезе местоположений
  126.  
  127.       mv_comdat                    TYPE datum,               " Дата документа
  128.       mv_comnum                    TYPE text100,             " Номер документа
  129.       mv_co                        TYPE text10,              " принят к учёту в подразделении ?????
  130.       mv_prot_n                    TYPE text100,             " Номер документа
  131.       mv_prot_d                    TYPE datum,               " Дата документа
  132.  
  133.       mv_chrm                      TYPE pa0001-pernr, " Председатель комиссии
  134.       mv_mbrc1                     TYPE pa0001-pernr, " Член комиссии 1
  135.       mv_mbrc2                     TYPE pa0001-pernr, " Член комиссии 2
  136.       mv_mbrc3                     TYPE pa0001-pernr, " Член комиссии 3
  137.       mv_mbrc4                     TYPE pa0001-pernr, " Член комиссии 4
  138.       mv_mbrc5                     TYPE pa0001-pernr, " Член комиссии 5
  139.       mv_mbrc6                     TYPE pa0001-pernr, " Член комиссии 6
  140.       mv_mbrc7                     TYPE pa0001-pernr, " Член комиссии 7
  141.       mv_mbrc8                     TYPE pa0001-pernr, " Член комиссии 8
  142.       mv_mbrc9                     TYPE pa0001-pernr, " Член комиссии 9
  143.       mv_mbrc10                    TYPE pa0001-pernr, " Член комиссии 10
  144.       mv_uchet                     TYPE pa0001-pernr, " Ответственный за учёт
  145.       mv_crd                       TYPE pa0001-pernr, " Карточку составил
  146.  
  147.       mv_jobch                     TYPE t513s-stltx,
  148.       mv_jobmc1                    TYPE t513s-stltx,
  149.       mv_jobmc2                    TYPE t513s-stltx,
  150.       mv_jobmc3                    TYPE t513s-stltx,
  151.       mv_jobmc4                    TYPE t513s-stltx,
  152.       mv_jobmc5                    TYPE t513s-stltx,
  153.       mv_jobmc6                    TYPE t513s-stltx,
  154.       mv_jobmc7                    TYPE t513s-stltx,
  155.       mv_jobmc8                    TYPE t513s-stltx,
  156.       mv_jobmc9                    TYPE t513s-stltx,
  157.       mv_jobmc10                   TYPE t513s-stltx,
  158.       mv_jobuch                    TYPE t513s-stltx,
  159.       mv_jobcrd                    TYPE t513s-stltx,
  160.  
  161.       mv_fioch                     TYPE pa0001-ename,
  162.       mv_fiomc1                    TYPE pa0001-ename,
  163.       mv_fiomc2                    TYPE pa0001-ename,
  164.       mv_fiomc3                    TYPE pa0001-ename,
  165.       mv_fiomc4                    TYPE pa0001-ename,
  166.       mv_fiomc5                    TYPE pa0001-ename,
  167.       mv_fiomc6                    TYPE pa0001-ename,
  168.       mv_fiomc7                    TYPE pa0001-ename,
  169.       mv_fiomc8                    TYPE pa0001-ename,
  170.       mv_fiomc9                    TYPE pa0001-ename,
  171.       mv_fiomc10                   TYPE pa0001-ename,
  172.       mv_fiouch                    TYPE pa0001-ename,
  173.       mv_fiocrd                    TYPE pa0001-ename,
  174.  
  175.       mv_shtrh                     TYPE char1,               " Сформировать штрих-код
  176.       mv_format                    TYPE disvariant-variant,
  177.       mv_fco                       TYPE bseg-fistl,
  178.       mv_prpdf                     TYPE char1,               " Предварительный просмотр PDF
  179.       mv_intpdf                    TYPE char1,               " Интерактивный просмотр PDF
  180.       mv_pdfnam                    TYPE sfpoutpar-dest,      " Устройство вывода
  181.  
  182.       mv_001_bukrs                 TYPE bukrs,             " БЕ
  183.       mv_002_name_be               TYPE text80,            " Имя БЕ
  184.       lv_002_temp                  TYPE adrc,
  185.       mv_05a_name_os_a             TYPE txa50_anlt,        " Название ОС
  186.       mv_05b_name_os_b             TYPE txa50_more,        " Название ОС (продолжение)
  187.       mv_05c_name_os_c             TYPE anlkl,             "
  188.       mv_006_os_class              TYPE anlkl,             " Класс ОС
  189. *      mv_007_class_name            TYPE txt50_ankt,
  190.       mv_007_class_name            TYPE txa50_anlt,        " Наименование класса
  191.       mv_008_inv_number            TYPE invnr_anla,        " Инвентарный номер
  192.       mv_009_mvz                   TYPE kostl,             " МВЗ
  193.       mv_010_mvz_name              TYPE ktext,             " Наименование МВЗ
  194.       mv_011_factory               TYPE werks_d,           " Завод
  195.       mv_012_factory_name          TYPE name1,             " Наименование завода
  196.       mv_013_place                 TYPE stort,             " Местоположение
  197.       mv_014_place_name            TYPE ktext,             " Наименование местоположения
  198.       mv_015_billing_number        TYPE persno,            " Табельный номер
  199.       mv_016_fio_emp1              TYPE ename,             " ФИО
  200.       mv_017_position_emp1         TYPE stltx,             " Должность сотрудника
  201.       mv_018_mvp                   TYPE prctr,             " МВП
  202.       mv_019_mvp_name              TYPE ltext,             " Наименование МВП
  203.       mv_020_inner_order           TYPE aufnr,             " Внутренний заказ
  204.       mv_021_inner_order_name      TYPE ktext,             " Наименование внутреннего заказа
  205.       mv_022_org_executive         TYPE text80,            " Организация исполнитель
  206.       ms_022_temp                  TYPE but000,
  207. *     mv_023_protocol_date         TYPE zefi_prot_date,
  208. *     mv_024_protocol_number       TYPE zefi_prot_num,
  209. *     mv_025_account               TYPE ktansw,
  210.       mv_023_pin                   TYPE ZEPIN,             " Пин объекта
  211.       mv_024_end_date              TYPE BZDAT,             " Дата завершения
  212.       mv_030_registration_date     TYPE aktivd, " дата постановки на учёт (25)
  213.       mv_029_accouting_cost        TYPE ktnafg, " счёт затрат (26)
  214.       mt_026_input                 TYPE zifiaa_amort_in,   "первонач стоимость (27)
  215.       mv_026_amort_perv_st         TYPE j_3r_orig_costs,
  216.       mo_026_amort                 TYPE REF TO zcl_fiaa_amort_common,
  217.       ms_026_amort_in              TYPE zsfiaa_amort_in, "zifiaa_amort_in WITH HEADER LINE,
  218.       ms_026_amort_out             TYPE zifiaa_amort_out.
  219.  
  220. *     mv_027_useful_period         TYPE ndjar,
  221. *     mv_027_temp                  TYPE anlb,
  222. *     mv_028_monthly_charge_amount TYPE zefi_0286_j_3r_mothly_writeoff,
  223. *     mv_031_amort_summ            TYPE j_3rdepreciation,
  224. *     mo_031_amort                 TYPE REF TO zcl_fiaa_amort_common,
  225. *     ms_031_amort_in              TYPE zifiaa_amort_in,
  226. *     ms_031_amort_out             TYPE zifiaa_amort_out,
  227. *     mv_032_residual_value        TYPE j_3r_orig_costs.
  228.  
  229. ENDCLASS.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!