Автоматизация управления ресурсами на предприятии ПУ "СургутАСУнефть" ОАО "Сургутнефтегаз"
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
выгрузки, который хранится на сервере.
Шаблон создаётся программистом. Для этого создаётся файл Excel, в котором формируется шапка таблицы с необходимым форматированием. После чего необходимо создать макрос в данном файле в редакторе Visual Basic: п. м. Сервис > Макрос > Редактор Visual Basic (рис.24).
Рис.24. Создание макроса в MS Office Excel
Код макроса создаётся при помощи специального дизайнера на языке Microsoft Visual Basic for Application (VBA) (рис.25).
Рис.25. Дизайнер Microsoft Visual Basic for Application
После сохранения изменений в файле-шаблоне EXCEL необходимо импортировать его на сервер для дальнейшего использования в разрабатываемой программе.
Импорт файлов-шаблонов выполняется при помощи функционального модуля (ФМ) ARCHIVFILE_CLIENT_TO_SERVER.
Для запуска данного ФМ необходимо выполнить транзакцию SE37 (ABAP-функциональные модули), после чего появится экран построителя функций (рис.26).
Рис.26. Построитель функций: первый экран
После ввода имени функционального модуля нажатием клавиши F8 вызывается экран ввода "Тест функционального модуля" (рис.27).
Рис.27. Тест функционального модуля: экран ввода
В поле PATH указывается путь, где находится файл-шаблон.
В поле TARGETPATH указывается директория, в которую необходимо импортировать файл-шаблон.
После ввода вышеуказанных данных нажатием клавиши F8 вызывается экран результатов "Тест функционального модуля", где отображается время выполнения ФМ (выделено красным прямоугольником) (рис.28).
Рис.28. Тест функционального модуля: экран результатов
Заключение
За период производственной практики с 27.06.2010 по 17.07.2010 были выполнены следующие задания:
)изучена структура предприятия ПУ "СургутАСУнефть" ОАО "Сургутнефтегаз";
2)изучены основы языка программирования ABAP/4;
)изучены основы работы в системе SAP R/3 Dev;
)разработана программа формирования отчета "Отчет о клиентах авиакомпании BC_Travel";
)Подготовлен и оформлен отчёт.
Также были изучены основы языка программирования Visual Basic for Application, с помощью которого был разработан макрос в файле-шаблоне Excel для выгрузки итогового отчёта на машину пользователя.
Разработанная программа выполняет все необходимые функции: формирует отчет в зависимости от исходных данных, необходимых пользователю, и производит выгрузку данных в MS Office Excel.
Список использованных источников
1)Рюдигер Кречмер, Вольфган Вейс "Разработка приложений SAP R/3 на языке ABAP /4". - М.: "ЛОРИ", 1998. - 340 стр.
2)Камминг Стив "VBA для чайников", 3-е издание. - М.: издательский дом "Вильямс", 2001. - 448 стр.
)Курс SAP BC 400 "ABAP инструментальные средства: основы", 2006. - 415 стр.
)Курс SAP BC 401 "ABAP объекты", 2004. - 483 стр.
)Курс SAP BC 402 "Техника ABAP программирования", 2006. - 471 стр.
)Курс SAP BC 405 "Система отчетов ABAP"
)Курс SAP BC 406 "Техника углубленного программирования листингов", 2002.
8).">Поисковая система Google [Электронный ресурс]. URL: .
).">Поисковая система Yandex [Электронный ресурс]. URL: .
).">Электронная энциклопедия Wikipedia [Электронный ресурс]. URL:
Приложения
Приложение 1
Приложение 2
Листинг макроса файла-шаблона MS Office Excelg_p_flag As StringMain (ByVal p_fname As String, _p_ftime As String, _p_flag As String). Visible = False. Interactive = False. DisplayAlerts = False. ScreenUpdating = FalseNewWorkbook = Workbooks. Add
копируем шапку таблицыws = ЭтаКнига. Worksheets (1). Copy Before: =NewWorkbook. Sheets (1)
открываем текстовый файл_FILE ActiveWorkbook. Sheets (1). Range ("A3"), "t1_" & p_ftime &". txt"
форматируем таблицуperform_formating
сохраняем изменения в файле. SaveAs Filename: =p_fname, FileFormat: =xlNormal, _: ="", WriteResPassword: ="", _: =False, CreateBackup: =FalseSubSub OPEN_FILE (ByVal p_range As Range, _p_fname As String)
>>Error Resume Next_fname = ThisWorkbook. Path & "\" & p_fname. OpenText Filename: =p_fname, Origin: =xlWindows, Tab: =True(Err Empty Then= Col + 1DoIf_p_flag = g_p_flag + 2
границы таблицыi = 3 To g_p_flagj = 1 To Col - 1(Cells (i, 1), Cells (i,
)). SelectSelection. Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. ColorIndex = xlAutomaticWithSelection. Borders (xlEdgeTop)
. LineStyle = xlContinuous
. ColorIndex = xlAutomaticWith(i, j). SelectSelection. Borders (xlEdgeRight)
. LineStyle = xlContinuous
. ColorIndex = xlAutomaticWithSelection. Borders (xlEdgeLeft)
. LineStyle = xlContinuous
. ColorIndex = xlAutomaticWithSub
ПРИЛОЖЕНИЕ 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) СкидкаEMAILСтрока (40) Адрес электронной почты клиента
Таблица 2
Бронирование рейсов
Название поляТип значенияОписание поляCARRID +Строка (3) Краткое название авиакомпанииCONNID +Число (4) Код авиасообщенияFLDATE +Дата (15) Дата рейсаBOOKID +Число (8) Номер регистрацииCUSTOMIDЧисло (8) Номер клиентаCUSTTYPEСтрока (1) Бизнес-/ Частный клиентSMOKERСтрока (1) Место для куренияLUGGWEIGHTЧисло (3) Вес багажаCLASSСтрока (1) Класс рейсаFORCURAMДенежный (15) Цена резервирования в иностранной валюте
Таблица 2 (продолжение)
LOCCURAMДенежный (15) Цена резервирования во внутренней валютеORDER_DATEДата (8) Дата регистрацииCOUNTERЧисло (8) Номер пу