ABAP конструкторлық бағдарламасы

кіріспе – Бұл жазбаның бөлігі ABAP бағдарламалары сериясы.

TYPE-POOLS трюктері.
 ПАРАМЕТРЛЕР p_file TYPE rlgrap-файл аты.
 ТҮРЛЕР: t_tab БАСТАЛУЫ, жұмыс ағыны TYPE char50, тапсырма TYPE zci_task, тапсырма_түрі char50, t_tab СОҢЫ.
 ДЕРЕКТЕР : t_upload1 ZDEMO_TEST2 ТҮРІ СТАНДАРТТЫ КЕСТЕСІ, wa_upload1 ZDEMO_TEST2 ТҮРІ.
 p_file ҮШІН МӘН-СҰРАУ БОЙЫНША ТАҢДАУ ЭКРАНЫНДА.
 ШАҚЫРУ ФУНКЦИЯСЫ 'F4_FILENAME' ЭКСПОРТТАУ өріс_аты = 'P_FILE' IMPORTING file_name = p_file.
 ТАҢДАУДЫ БАСТАУ.
 'TEXT_CONVERT_XLS_TO_SAP' ФУНКЦИЯСЫН ЭКСПОРТТАУ i_tab_raw_data = it_type i_filename = p_file КЕСТЕЛЕР i_tab_converted_data = t_load[] ЕРЕКШЕЛІКТЕР conversion_failed = 1 БАСҚА = 2.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 .
 ENDIF.
 'ЖҮКТЕУ_XLS_FILE_2_ITAB' ЭКСПОРТТАУ ФУНКЦИЯСЫ i_filename = p_file кестелері e_itab = t_upload1 ЕРЕКШЕЛІКТЕР FILE_ERROR = 1 БАСҚА = 2 .
 IF sy-subrc <> 0.
 Сәйкес қателерді өңдеуді осы жерде ENDIF орындаңыз.
 ТАҢДАУДЫҢ АЯҚТАУЫ.
 ДЕРЕКТЕР : ls_cc_impl TYPE ZDEMO_TEST2, lt_cc_impl TYPE СТАНДАРТЫ ZDEMO_TEST2 КЕСТЕСІ.
 t_upload1 ЖҰМЫСЫНДА wa_upload1 ІШІНЕ ҚҰРЫЛУ.
 ls_cc_impl-mandt = sy-mandt.
 ls_cc_impl-INCIDENT = wa_upload1-INCIDENT.
 ls_cc_impl LT_cc_impl ҚОСУ.
 ENDLOOP.
 ZDEMO_TEST2 КЕСТЕСІНЕН ӨЗГЕРТУ lt_cc_impl.
 КЛАСС cl_grand АНЫҚТАМА.
 ҚОҒАМДЫҚ БӨЛІМ.
 CLASS-DATA v_test TYPE char40.
 CLASS-METHODS класс_конструкторы.
 METODS конструкторы.
 ДЕРЕКТЕР i түрі.
 КЛАСС-ДЕРЕКТЕР b ТҮРІ i.
 СОҢҒЫ СЫНЫП.  "cl_grand АНЫҚТАМА *------------------------------------------------- ---------------------------------- * КЛАСС cl_grand ЖАСАУ *-------------------- ------------------------------------------------- * * *------------------------------------------------ -----------------------* CLAS cl_grand ЖАСАУ.
 METHOD класс_конструкторы.
 v_test = 'Статикалық конструктор - Үлкен ата-ана'.
 b = 30.
 ЖАЗУ: /3 v_test.
 ENDMETHOD.  "class_constructor METHOD конструкторы.
 a = 30.
 v_test = 'Дана конструкторы - Үлкен ата-ана'.
 ЖАЗУ: /3 v_test.
 ENDMETHOD.
 СОҢҒЫ СЫНЫП.  "cl_grand ЖАСАУ *-------------------------------------------- ---------------------------------- * КЛАСС cl_parent АНЫҚТАМА *-------------------- ------------------------------------------------- * * *------------------------------------------------ -----------------------* cl_parent СЫНЫП CL_grand АНЫҚТАМАСЫНАН МҰРА АЛУ.
 ҚОҒАМДЫҚ БӨЛІМ.
 CLASS-METHODS класс_конструкторы.
 METODS конструкторы.
 СОҢҒЫ СЫНЫП.  "cl_parent АНЫҚТАМА *-------------------------------------------------- ---------------------------------- * CLAS cl_parent ЖАСАУ *-------------------- ------------------------------------------------- * * *------------------------------------------------ --------------------------------- CL_parent СЫНЫПЫН ЖАСАУ.
 METHOD класс_конструкторы.
 v_test = 'Статикалық конструктор - Ата-ана'.
 b = 20.
 ЖАЗУ: /3 v_test.
 ENDMETHOD.  "class_constructor METHOD конструкторы .
 * i типті деректер.
 super->конструктор( ).
 a = 20.
 v_test = 'Дана конструкторы - Ата-ана'.
 ЖАЗУ: /3 v_test.
 ENDMETHOD.
 СОҢҒЫ СЫНЫП.  "cl_parent ЖАСАУ *------------------------------------------------------ ---------------------------------- * КЛАСС cl_child АНЫҚТАМА *-------------------- ------------------------------------------------- * * *------------------------------------------------------ -----------------------* cl_child СЫНЫП CL_parent АНЫҚТАМАСЫНАН МҰРА АЛУ.
 ҚОҒАМДЫҚ БӨЛІМ.
 CLASS-METHODS класс_конструкторы.
 METODS конструкторы.
 * ДЕРЕКТЕР a.
 СОҢҒЫ СЫНЫП.  "cl_child АНЫҚТАМА *-------------------------------------------- ---------------------------------- * CLASS cl_child ЖАСАУ *-------------------- ------------------------------------------------- * * *------------------------------------------------ -----------------------* КЛАСС cl_child ЖАСАУ.
 METHOD класс_конструкторы.
 v_test = 'Статикалық конструктор - еншілес'.
 ЖАЗУ: /3 v_test.
 b = 10.
 ENDMETHOD.  "class_constructor METHOD конструкторы.
 деректер түрі i.
 a = 10.
 super->конструктор( ).
 v_test = 'Дана конструкторы - еншілес'.
 ЖАЗУ: /3 v_test.
 ENDMETHOD.
 СОҢҒЫ СЫНЫП.  "cl_child ТАҢДАУДЫ БАСТАУ.
 DATA obj_child TYPE REF TO cl_child.
 ОБЪЕКТІ ЖАСАУ obj_child.
 деректер: a түрі i, b түрі i.
 a = obj_child->a.
 жазу а.
 sy-uname жазыңыз.
 ztms_score ішінен жою.
 ztms_ans ішінен жою.
 ТҮРЛЕР: TY_DATA БАСТАЛУЫ, "пайдаланушы анықтаған ИД ТИПІ N , АТЫ CHAR20 ТҮРІ, I ЖАЛАҚЫ ТҮРІ, TY_DATA СОҢЫ.
 ДЕРЕКТЕР : ITAB ТҮРІ TY_DATA КЕСТЕСІ.  "ішкі кесте ДЕРЕКТЕР: WA TYPE TY_DATA.  "жұмыс аймағы WA-ID = 1.
 WA-NAME = «Жаңғақтар».
 WA-ЖАЛАҚЫ = 5000.
 ITAB-қа WA ЖИНАУ.  «CLEAR WA жинаңыз.
 WA-ID = 2.
 WA-NAME = 'SAPabap'.
 WA-ЖАЛАҚЫ = 50000.
 ITAB-қа WA ЖИНАУ.  «CLEAR WA жинаңыз.
 WA-ID = 1.
 WA-NAME = «Жаңғақтар».
 WA-ЖАЛАҚЫ = 15000.
 ITAB-қа WA ЖИНАУ.  «CLEAR WA жинаңыз.
 ITAB ҚҰРАМЫНА WA ҚҰРАМЫНА ТҮЗІҢІЗ.
 ЖАЗЫҢЫЗ:/ WA-ID, WA-NAME, WA-ЖАЛАҚЫ.  ENDLOOP деректерін айналдыру және көрсету.
 **ztms_score ішінен жою.
 **ztms_ans ішінен жою.
 ztms_user ішінен жою.
 ztms_set ішінен жою.

 

автор


Пікірлер

пікір қалдыру

Сіздің электрондық пошта мекенжайы емес жарияланады. Міндетті өрістер таңбаланған *

Бұл сайт спамның төмендеуі үшін Akismet пайдаланады. Деректеріңіздің қалай өңделетінін біліңіз.