Организационная структура предприятия, его программное обеспечение, принцип обработки данных
Направление автоматизированных систем управления технологическими процессами. Архитектура системы SAP R/3. Возможности языка ABAP/4. Создание программы в системе SAP R/3 Dev. Информационное обеспечение программы Z_UNR. Выгрузка отчетов в MS Excel.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | отчет по практике |
| Язык | русский |
| Дата добавления | 09.11.2017 |
| Размер файла | 1,3 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
LOOP AT lt_book.
WRITE: / '|', (15) lt_book-id, '|',
(30) lt_book-name, '|',
(30) lt_book-carrid, '|',
(20) lt_book-fldate, '|',
(15) lt_book-custtype, '|',
(20) lt_book-smoker, '|',
(15) lt_book-luggweight, '|',
(15) lt_book-class, '|',
(10) lt_book-forcuram, '|',
(20) lt_book-order_date, '|',
/(221) SY-ULINE.
ENDLOOP.
ELSEIF p_book = '' AND p_fli = 'X'.
LOOP AT lt_fli.
WRITE: / '|', (25) lt_fli-carrid, '|',
(30) lt_fli-cityfrom, '|',
(30) lt_fli-airpfrom, '|',
(20) lt_fli-cityto, '|',
(25) lt_fli-airpto, '|',
(20) lt_fli-deptime, '|',
(22) lt_fli-arrtime, '|',
/(194) SY-ULINE.
ENDLOOP.
ELSEIF p_book = 'X' AND p_fli = 'X'.
LOOP AT lt_svod.
WRITE: / '|', (15) lt_svod-id, '|',
(30) lt_svod-name, '|',
(20) lt_svod-fldate, '|',
(25) lt_svod-carrid, '|',
(30) lt_svod-cityfrom, '|',
(30) lt_svod-airpfrom, '|',
(20) lt_svod-cityto, '|',
(25) lt_svod-airpto, '|',
(20) lt_svod-deptime, '|',
(22) lt_svod-arrtime, '|',
/(268) SY-ULINE.
ENDLOOP.
ENDIF.
FORMAT COLOR OFF.
ENDFORM.
FORM print_header. "Формирование шапки таблицы"
DATA title(100).
FORMAT COLOR COL_HEADING ON.
IF p_book = '' AND p_fli = ''.
title = 'ИНФОРМАЦИЯ О КЛИЕНТАХ'.
SKIP.
WRITE (103) title CENTERED.
SKIP.
WRITE: /(103) SY-ULINE, / '|',
(15) 'Идентификатор' CENTERED, '|',
(30) 'Имя клиента' CENTERED, '|',
(30) 'Город' CENTERED, '|',
(15) 'Бизнес-/Частный', '|',
/(103) SY-ULINE.
ELSEIF p_book = 'X' AND p_fli = ''.
title = 'БРОНИРОВАНИЕ РЕЙСОВ'.
SKIP.
WRITE (221) title CENTERED.
SKIP.
WRITE: /(221) SY-ULINE, / '|',
(15) 'Идентификатор' CENTERED, '|',
(30) 'Имя клиента' CENTERED, '|',
(30) 'Название авиакомпании' CENTERED, '|',
(20) 'Дата рейса' CENTERED, '|',
(15) 'Бизнес-/Частный', '|',
(20) 'Место для курения' CENTERED, '|',
(15) 'Вес багажа' CENTERED, '|',
(15) 'Класс рейса' CENTERED, '|',
(10) 'Цена' CENTERED, '|',
(20) 'Дата регистрации' CENTERED, '|',
/(221) SY-ULINE.
ELSEIF p_book = '' AND p_fli = 'X'.
title = 'РАСПИСАНИЕ РЕЙСОВ'.
SKIP.
WRITE (194) title CENTERED.
SKIP.
WRITE: /(194) SY-ULINE, / '|',
(25) 'Название авиакомпании' CENTERED, '|',
(30) 'Город отправления' CENTERED, '|',
(30) 'Аэропорт отправления' CENTERED, '|',
(20) 'Пункт прибытия' CENTERED, '|',
(25) 'Аэропорт прибытия', '|',
(20) 'Время вылета' CENTERED, '|',
(22) 'Время прибытия' CENTERED, '|',
/(194) SY-ULINE.
ELSEIF p_book = 'X' AND p_fli = 'X'.
title = 'СВОДНАЯ ТАБЛИЦА'.
SKIP.
WRITE (268) title CENTERED.
SKIP.
WRITE: /(268) SY-ULINE, / '|',
(15) 'Идентификатор' CENTERED, '|',
(30) 'Имя клиента' CENTERED, '|',
(20) 'Дата рейса' CENTERED, '|',
(25) 'Название авиакомпании' CENTERED, '|',
(30) 'Город отправления' CENTERED, '|',
(30) 'Аэропоорт отправления' CENTERED, '|',
(20) 'Пункт прибытия' CENTERED, '|',
(25) 'Аэропорт прибытия', '|',
(20) 'Время вылета' CENTERED, '|',
(22) 'Время прибытия' CENTERED, '|',
/(268) SY-ULINE.
ENDIF.
FORMAT COLOR OFF.
ENDFORM.
******************************ВЫБОРКА ДАННЫХ******************************
FORM get_data.
IF p_book = '' AND p_fli = ''.
SELECT id AS id
name AS name
city AS city
custtype AS ctype
INTO CORRESPONDING FIELDS OF TABLE lt_custom
FROM scustom
WHERE id IN so_id
AND name IN so_name
AND city IN so_city
AND custtype IN so_ctype.
ELSEIF p_book = 'X' AND p_fli = ''.
SELECT cust~id AS id
cust~name AS name
car~carrid AS carrid
book~fldate AS fldate
book~custtype AS custtype
book~smoker AS smoker
book~luggweight AS luggweight
book~class AS class
book~forcuram AS forcuram
book~order_date AS order_date
book~connid AS connid
INTO CORRESPONDING FIELDS OF TABLE lt_book
FROM sbook AS book
JOIN scustom AS cust
ON cust~id = book~customid
JOIN scarr AS car
ON car~carrid = book~carrid
WHERE cust~id IN so_id
AND cust~name IN so_name
AND cust~city IN so_city
AND cust~custtype IN so_ctype.
ELSEIF p_book = '' AND p_fli = 'X'.
SELECT carrid AS carrid
cityfrom AS cityfrom
airpfrom AS airpfrom
cityto AS cityto
airpto AS airpto
deptime AS deptime
arrtime AS arrtime
connid AS connid
INTO CORRESPONDING FIELDS OF TABLE lt_fli
FROM spfli.
ELSEIF p_book = 'X' AND p_fli = 'X'.
SELECT cust~id AS id
cust~name AS name
book~fldate AS fldate
fli~carrid AS carrid
fli~cityfrom AS cityfrom
fli~airpfrom AS airpfrom
fli~cityto AS cityto
fli~airpto AS airpto
fli~deptime AS deptime
fli~arrtime AS arrtime
INTO CORRESPONDING FIELDS OF TABLE lt_svod
FROM scustom AS cust
JOIN sbook AS book
ON cust~id = book~customid
JOIN spfli AS fli
ON book~connid = fli~connid
WHERE cust~id IN so_id
AND cust~name IN so_name
AND cust~city IN so_city
AND cust~custtype IN so_ctype.
ENDIF.
IF SY-SUBRC = 0.
flag = 1.
ELSE.
flag = 0.
ENDIF.
ENDFORM.
********************************ЭКСПОРТ В EXCEL******************************
FORM export_to_excel.
DATA num_line(4). " Количество строк в таблице
DESCRIBE TABLE lt_custom LINES num_line.
CALL FUNCTION 'Z_R3_2_EXCEL47'
EXPORTING
I_FMACRO = 'z_unr_macros.xls'
I_SUB = 'MAIN'
I_ARG1 = 'z_unr.xls'
I_ARG3 = num_line
TABLES
T_ITAB1 = lt_custom[].
ENDFORM.
Приложение 2
Листинг макроса файла-шаблона MS Office Excel
Dim g_p_flag As String
Sub Main(ByVal p_fname As String, _
ByVal p_ftime As String, _
ByVal p_flag As String)
Application.Visible = False
Application.Interactive = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set NewWorkbook = Workbooks.Add
'копируем шапку таблицы
Set ws = ЭтаКнига.Worksheets(1)
ws.Copy Before:=NewWorkbook.Sheets(1)
'открываем текстовый файл
OPEN_FILE ActiveWorkbook.Sheets(1).Range("A3"), "t1_" & p_ftime & ".txt"
'форматируем таблицу
Call perform_formating
'сохраняем изменения в файле
NewWorkbook.SaveAs Filename:=p_fname, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Private Sub OPEN_FILE(ByVal p_range As Range, _
ByVal p_fname As String)
'>>
On Error Resume Next
p_fname = ThisWorkbook.Path & "\" & p_fname
Workbooks.OpenText Filename:=p_fname, Origin:=xlWindows, Tab:=True
If (Err <> 0) Then
Exit Sub
End If
ActiveWorkbook.ActiveSheet.UsedRange.Copy Destination:=p_range
ActiveWorkbook.Close
End Sub
Sub perform_formating()
g_p_flag = 0 'количество строк
Row = 2
Col = 1
Do
Row = Row + 1
If Cells(Row, 1) <> Empty Then
g_p_flag = g_p_flag + 1
Else
Exit Do
End If
Loop
Do
If Cells(2, Col) <> Empty Then
Col = Col + 1
Else
Exit Do
End If
Loop
g_p_flag = g_p_flag + 2
' границы таблицы
For i = 3 To g_p_flag
For j = 1 To Col - 1
Range(Cells(i, 1), Cells(i, 4)).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With
Cells(i, j).Select
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With
Next
Next
End Sub
Приложение 3
Описание таблиц, используемых в программе Z_UNR
Таблица 1. Клиенты авиакомпании
|
Название поля |
Тип значения |
Описание поля |
|
|
ID + |
Число (8) |
Идентификатор клиента |
|
|
NAME |
Строка (25) |
Имя клиента |
|
|
FORM |
Строка (15) |
Обращение |
|
|
STREET |
Строка (30) |
Улица |
|
|
POSTBOX |
Строка (10) |
Почтовый ящик |
|
|
POSTCODE |
Строка (10) |
Почтовый индекс |
|
|
CITY |
Строка (25) |
Город |
|
|
COUNTRY |
Строка (3) |
Код страны |
|
|
REGION |
Строка (3) |
Регион |
|
|
TELEPHONE |
Строка (30) |
Телефонный номер клиента |
|
|
CUSTTYPE |
Строка (1) |
Бизнес-/ Частный клиент |
|
|
DISCOUNT |
Число (3) |
Скидка |
|
|
|
Строка (40) |
Адрес электронной почты клиента |
Таблица 2 Бронирование рейсов
|
Название поля |
Тип значения |
Описание поля |
|
|
CARRID + |
Строка(3) |
Краткое название авиакомпании |
|
|
CONNID + |
Число (4) |
Код авиасообщения |
|
|
FLDATE + |
Дата (15) |
Дата рейса |
|
|
BOOKID + |
Число (8) |
Номер регистрации |
|
|
CUSTOMID |
Число (8) |
Номер клиента |
|
|
CUSTTYPE |
Строка (1) |
Бизнес-/ Частный клиент |
|
|
SMOKER |
Строка (1) |
Место для курения |
|
|
LUGGWEIGHT |
Число (3) |
Вес багажа |
|
|
CLASS |
Строка (1) |
Класс рейса |
|
|
FORCURAM |
Денежный (15) |
Цена резервирования в иностранной валюте |
|
|
LOCCURAM |
Денежный (15) |
Цена резервирования во внутренней валюте |
|
|
ORDER_DATE |
Дата (8) |
Дата регистрации |
|
|
COUNTER |
Число (8) |
Номер пункта продажи |
|
|
AGENCYNUM |
Число (8) |
Номер турагентства |
Таблица 3. Расписание рейсов
|
Название поля |
Тип значения |
Описание поля |
|
|
CARRID + |
Строка(3) |
Краткое название авиакомпании |
|
|
CONNID + |
Число (4) |
Код авиасообщения |
|
|
COUNTRYFR |
Строка (3) |
Код страны |
|
|
CITYFROM |
Строка (20) |
Город отправления |
|
|
AIRPFROM |
Строка (3) |
Аэропорт отправления |
|
|
COUNTRYTO |
Строка (3) |
Код страны |
|
|
CITYTO |
Строка (20) |
Пункт прибытия |
|
|
AIRPTO |
Строка (3) |
Аэропорт прибытия |
|
|
DEPTIME |
Время (6) |
Время вылета |
|
|
ARRTIME |
Время (6) |
Время прибытия |
|
|
FLTYPE |
Строка (1) |
Тип рейса (чартерный или регулярный |
Таблица 4. Рейс
|
Название поля |
Тип значения |
Описание поля |
|
|
CARRID + |
Строка(3) |
Краткое название авиакомпании |
|
|
CONNID + |
Число (4) |
Код авиасообщения |
|
|
FLDATE + |
Дата (8) |
Дата рейса |
|
|
PRICE |
Денежный (15) |
Цена рейса |
|
|
PLENETYPE |
Строка (10) |
Тип самолета |
|
|
SEATMAX |
Число (10) |
Максимальная загруженность |
|
|
SEATSOCC |
Число (10) |
Забронированные места |
Таблица 5 Авиакомпания
|
Название поля |
Тип значения |
Описание поля |
|
|
CARRID + |
Строка(3) |
Краткое название авиакомпании |
|
|
CARRNAME |
Строка (20) |
Имя авиакомпании |
|
|
URL |
Строка (255) |
URL авиакомпании |
Размещено на Allbest.ru
...Подобные документы
Организационная структура предприятия, его программное обеспечение, принцип обработки данных. Автоматизированные системы управления технологическими и производственными процессами, ресурсами. Система SAP R/3б ее архитектура и особенности навигации.
отчет по практике [3,8 M], добавлен 23.07.2012Системное и прикладное программное обеспечение. Выполнение программ, хранение данных и взаимодействие пользователя с компьютером. Возможности операционных систем. Системы технического обслуживания. Системы обработки электронных таблиц и текста.
презентация [15,9 K], добавлен 06.01.2014Особенности формирования электронного портфолио студента, его внедрение в практику образовательного процесса. Информационное и программное обеспечение автоматизированных систем. Атрибуты сущностей, структура и форматы БД. Создание форм, запросов, отчетов.
курсовая работа [1,2 M], добавлен 11.01.2015Характеристика кислородно-конвертерного производства. Структура и функции автоматизированных систем управления технологическими процессами доводки металла. Модернизация АСУ ТП УДМ-4 ОАО "Северсталь", техническое, аппаратное и программное обеспечение.
дипломная работа [662,8 K], добавлен 29.08.2014Организационно-экономическая характеристика задачи выгрузки необходимых данных на магнитный носитель. Информационное, техническое и программное обеспечение решения данной задачи. Блок-схема алгоритма решения задачи. Экономическое обоснование программы.
дипломная работа [559,3 K], добавлен 08.11.2010Программное обеспечение по автоматизации работы автосервиса. Электронные информационные базы данных по диагностике и ремонту, геометрическим размерам автомобилей. Каталоги запчастей, справочники нормо-часов. Программы для ведения управленческого учета.
реферат [509,0 K], добавлен 23.03.2012Информационные и автоматизированные системы управления технологическими процессами на промышленных предприятиях. Базы данных в автоматизированных системах управления. Системы планирования ресурсов предприятия, сбора и аналитической обработки данных.
контрольная работа [486,7 K], добавлен 29.10.2013Программное обеспечение как совокупность программ системы обработки информации и программных документов, необходимых для эксплуатации этих программ. Системное ПО (программы общего пользования), прикладное и инструментальное (системы программирования).
реферат [73,1 K], добавлен 04.06.2010Разработка программы для автоматизации рабочего места сотрудника кадровой службы, реализующей ввод, корректировку, хранение информации о работниках, званиях, должностях, окладе, а также вывод отчетов о сотрудниках. Проектирование модели базы данных.
отчет по практике [1,5 M], добавлен 07.08.2013Использование информационных технологий управления, поддержки и принятия решений, экспертных систем и обработки данных. Автоматизация бухгалтерии на примере ООО "Уралконфи": универсальная бухгалтерская программа "1С: Бухгалтерия" и ее основные функции.
курсовая работа [1,9 M], добавлен 26.03.2012Техническое задание для разработки программного обеспечения "Больница". Обоснования для проведения разработки. Цель, назначение подсистемы. Требования ко всем видам обеспечения программы. Общесистемное программное обеспечение. Применение языка Delphi 6.0.
курсовая работа [832,9 K], добавлен 18.01.2010ОАО "Ижсталь" - крупнейшее металлургическое предприятие Удмуртии, анализ его деятельности. Состав автоматизированных систем, имеющихся на предприятии. Программное и информационное обеспечение. Виды технологических процессов обработки информации.
курсовая работа [1,8 M], добавлен 11.12.2012Понятие, содержание, объект, предмет информатики. Основные виды и способы обработки и кодирования данных. Информация, информационные процессы и системы как объект правового регулирования общественных отношений. Архитектура, программное обеспечение ПЭВМ.
курс лекций [6,5 M], добавлен 20.06.2009Прикладное программное обеспечение специального и общего назначения. Программы, обрабатывающие тексты и основное назначение электронных таблиц, системы управления базами данных и графические изображения. Интегрированные программные средства решения задач.
курсовая работа [1,0 M], добавлен 24.03.2012Группировка атрибутов в отношениях, их нормализация. Характеристика сжатых типов таблиц. Создание базы данных MS Access. Построение сценария работы программы. Создание кнопочной формы, запросов и отчетов. Минимальное аппаратное и программное обеспечение.
курсовая работа [1,3 M], добавлен 20.04.2015Прикладное программное обеспечение, его использование при проведении сложных математических вычислений. Менеджер загрузок. Офисные средства обработки информации. Система автоматизации проектных работ. Основы использования функций Excel, их аргументы.
контрольная работа [227,6 K], добавлен 01.03.2009Перевод десятичного числа в двоичную, восьмеричную и шестнадцатеричную системы счисления. Место автоматических систем управления (АСУ) в организации технического обслуживания. Информационное обеспечение управления и программное обеспечение АСУ.
контрольная работа [16,7 K], добавлен 09.10.2012Основное программное обеспечение для автоматизации производства. Финансовые и коммуникационные системы. Системы планирования и управления. Текстовые редакторы и табличные процессоры. Финансовое программное обеспечение. Шрифтовые технологии в документах.
шпаргалка [551,9 K], добавлен 16.08.2010Анализ технического обеспечения информационных систем (микропроцессоры). Программное обеспечение информационных систем. Классификация программного обеспечения. Программы подготовки первичных документов на примере "1С: Бухгалтерия", "1С: Налогоплательщик".
контрольная работа [808,5 K], добавлен 20.07.2010Табличный процессор - прикладное программное обеспечение для обработки данных, представимых в табличной форме. Параметры форматирования ячейки, автоформат. Создание и использование стилей, мастер функций. Экономические расчеты средствами MS Excel.
контрольная работа [1,2 M], добавлен 13.05.2012
