Хотел поделиться одной утилиткой, ее создание было вызвано необходимостью осуществляет импорт запросов посредством SolutionManager, а также проводить мониторинг успешность операций импорта в систему-сателит ,с соответствием запрос-корректура. Аналогов в стандарте не нашел. Программа создается в SolutionManager.
REPORT ZBC_TMS_MONITOR NO STANDARD PAGE HEADING.
TYPE-POOLS: SLIS. *tables /TMWFLOW/TRORDEC.
DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV, IT_CAT TYPE SLIS_T_FIELDCAT_ALV, WA_CAT TYPE SLIS_FIELDCAT_ALV,
IT_CAT_USER TYPE SLIS_T_FIELDCAT_ALV, WA_CAT_USER TYPE SLIS_FIELDCAT_ALV, V_REPID LIKE SY-REPID.
* Запросы на перенос таблица соответсвий * /TMWFLOW/TRORDHT * TRORDER_NUMBER - поле запрос * DESCRIPTION - поле описание
data: * Структура запроса begin of wd, NUMBER LIKE /TMWFLOW/TRORDEC-TRORDER_NUMBER, " Запрос SYSNAME LIKE /TMWFLOW/TRORDEC-SYSNAME, " Система CLIENT LIKE /TMWFLOW/TRORDEC-CLIENT, " Клиент STATUS LIKE /TMWFLOW/TRORDEC-STATUS, " Статус IMPORTED_DATE LIKE /TMWFLOW/TRORDEC-IMPORTED_DATE, " Дата импорта IMPORTED_TIME LIKE /TMWFLOW/TRORDEC-IMPORTED_TIME, " Время импорта DESCRIPT LIKE /TMWFLOW/TRORDHT-DESCRIPTION, " Корректура end of wd.
data: it_wd like wd OCCURS 0 WITH HEADER LINE.
INITIALIZATION. v_repid = sy-repid. PERFORM INIT_LAYOUT USING GS_LAYOUT. PERFORM CREATE_FIELD_CATALOG.
SELECT /TMWFLOW/TRORDEC~TRORDER_NUMBER SYSNAME CLIENT STATUS IMPORTED_DATE IMPORTED_TIME DESCRIPTION FROM /TMWFLOW/TRORDEC INNER JOIN /TMWFLOW/TRORDHT ON /TMWFLOW/TRORDEC~TRORDER_NUMBER = /TMWFLOW/TRORDHT~TRORDER_NUMBER INTO TABLE it_wd ORDER BY IMPORTED_DATE DESCENDING.
sort it_wd DESCENDING BY IMPORTED_DATE IMPORTED_TIME DESCENDING.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = V_REPID I_CALLBACK_USER_COMMAND = 'USER_COMMAND' " PS_LAYOUT-WINDOW_TITLEBAR = PS_TITLE IS_LAYOUT = GS_LAYOUT IT_FIELDCAT = IT_CAT[] TABLES T_OUTTAB = IT_WD.
FORM INIT_LAYOUT USING PS_LAYOUT TYPE SLIS_LAYOUT_ALV. PS_LAYOUT-ZEBRA = 'X'. PS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. ENDFORM.
FORM CREATE_FIELD_CATALOG . IF IT_CAT[] IS INITIAL. CLEAR WA_CAT.
WA_CAT-COL_POS = 1. WA_CAT-FIELDNAME = 'NUMBER'. WA_CAT-DATATYPE = 'CHAR'. WA_CAT-INTTYPE = 'C'. WA_CAT-INTLEN = 8. WA_CAT-OUTPUTLEN = 8. WA_CAT-SELTEXT_L = 'Запрос'. APPEND WA_CAT TO IT_CAT.
WA_CAT-COL_POS = 2. WA_CAT-FIELDNAME = 'SYSNAME'. WA_CAT-DATATYPE = 'CHAR'. WA_CAT-INTTYPE = 'P'. WA_CAT-INTLEN = 3. WA_CAT-OUTPUTLEN = 3. WA_CAT-SELTEXT_L = 'Система'. APPEND WA_CAT TO IT_CAT.
WA_CAT-COL_POS = 3. WA_CAT-FIELDNAME = 'CLIENT'. WA_CAT-DATATYPE = 'CHAR'. WA_CAT-INTTYPE = 'C'. WA_CAT-INTLEN = 3. WA_CAT-OUTPUTLEN = 3. WA_CAT-SELTEXT_L = 'Клиент'. APPEND WA_CAT TO IT_CAT.
WA_CAT-COL_POS = 4. WA_CAT-FIELDNAME = 'STATUS'. WA_CAT-DATATYPE = 'CHAR'. WA_CAT-INTTYPE = 'P'. WA_CAT-INTLEN = 4. WA_CAT-OUTPUTLEN = 4. WA_CAT-SELTEXT_L = 'Статус'. APPEND WA_CAT TO IT_CAT.
WA_CAT-COL_POS = 5. WA_CAT-FIELDNAME = 'IMPORTED_DATE'. WA_CAT-DATATYPE = 'CHAR'. WA_CAT-INTTYPE = 'P'. WA_CAT-INTLEN = 8. WA_CAT-OUTPUTLEN = 8. WA_CAT-SELTEXT_L = 'Дата импорта'. APPEND WA_CAT TO IT_CAT.
WA_CAT-COL_POS = 6. WA_CAT-FIELDNAME = 'IMPORTED_TIME'. WA_CAT-DATATYPE = 'CHAR'. WA_CAT-INTTYPE = 'P'. WA_CAT-INTLEN = 6. WA_CAT-OUTPUTLEN = 6. WA_CAT-SELTEXT_L = 'Время импорта'. APPEND WA_CAT TO IT_CAT.
WA_CAT-COL_POS = 7. WA_CAT-FIELDNAME = 'DESCRIPT'. WA_CAT-DATATYPE = 'CHAR'. WA_CAT-INTTYPE = 'P'. WA_CAT-INTLEN = 60. WA_CAT-OUTPUTLEN = 60. WA_CAT-SELTEXT_L = 'Описание'. APPEND WA_CAT TO IT_CAT. ENDIF. ENDFORM.
|
|