Чтобы добиться «видения» процессов целиком, проведем декомпозицию основных процессов, т.е. представим решение сложной задачи таможенного оформления с помощью серии меньших задач-этапов.

3.2. Описание бизнес-процессов основных направлений

Из вышесказанного можно выделить две ветви большие процессов: процессы предварительных операций и процессы непосредственного оформления груза в таможне. Первые происходят в основном на складе временного хранения.

Склад временного хранения (СВХ) используется для временного хранения иностранных грузов. Основным документом для описания процессов на складе временного хранения является Приказ ФТС России от 29 декабря 2012 г. N 2688 "Об утверждении Порядка представления документов и сведений в таможенный орган при помещении товаров на склад временного хранения" [7]. Опишем подробно процессы, которые протекают на СВХ.

3.2.1. Процесс « Прибытие груза»

После прибытия груза на таможню назначения лицо, отвечающее за груз, принимает решение: либо подавать декларацию на товары в течение 3 часов, либо воспользоваться услугами склада временного хранения. [7] Последнее решение принимается тогда, когда отсутствуют какие-либо документы для «быстрой» подачи декларации, не оплачены необходимые таможенные платежи.

Груз в транспортном средстве при этом может размещаться либо на стояночном месте, открытой площадки СВХ, либо выгружается на сам склад. После пересчета, взвешивания груза составляется акт о приеме, сведения передаются в отдел статистики и складских операций. Сотрудники отдела составляют отчет о принятии груза на хранение по форме ДО1. Этот документ формируется на основе товаросопроводительных документов и уточнения характеристик груза. Затем ДО1 регистрируется в таможни и приобретает юридическую силу. Процесс « Прибытие груза» заканчивается. С точки зрения документов - результат складской документ ДО1, который имеет электронную и бумажную форму.

3.2.2. Процесс « Хранение груза на СВХ»

С момента помещения груза на СВХ начинается процесс хранения. По таможенному кодексу он может храниться не более 4 месяцев. [6] В течение этого периода декларант, по согласованию с клиентом составляет и подает декларацию в таможню. В процессе хранения и таможенного оформления могут уточниться и измениться характеристики груза. Изменения должны быть отражены в документе добавочный лист ДО1, он является коррекционным листом. После оформления декларации (см. «Процесс декларирование и оформление»), таможенный орган заверяет разрешение о выдачи груза с СВХ. Процесс заканчивается. С точки зрения документов результат - либо добавочный лист, разрешение о выдачи груза, «выпущенная» ДТ, либо разрешение о выдачи и «выпущенная» ДТ.

3.2.3. Процесс «Выдача груза с СВХ»

После получения разрешения о выдачи груза, и «выпущенной» декларации сотрудниками отдела статистики и складских операций проверяют сведения в декларации и в складском документе ДО1. Если не выявлено несоответствий, груз выдается клиенту формируется отчет о выдачи груза - ДО2. Отчет ДО2 передается в таможенный орган, где регистрируются. Процесс заканчивается. С точки зрения документов результат - складской документ ДО2.

Объединив складские процессы в один « СВХ», описание, приведенное выше, с помощью VAD-диаграммы можно представить так

Рис. 13 Схема параллельных процессов

Таким образом, после прибытия груза на таможню назначения процесс распараллеливается на две ветви процессов. Это таможенная очистка (процесс оформления декларации) и хранение на СВХ. Процессы взаимосвязаны. Выдача груза невозможна без выпуска декларации.

Диаграмма деятельности, которая демонстрирует взаимосвязь описанных процессов, приведена в приложении 4.

3.3. Анализ проблем и причины недостаточной эффективности в работе «ФМ Ложистик Кастомс»

Удовлетворенность клиентов, заключивших договор с компанией ЗАО« ФМ Ложистик» на таможенное оформление, является ключевым моментом дальнейшей работы этих клиентов с компанией. Для компании это означает стабильную работу на рынке логистических услуг, выполнение прогнозируемого бюджета.

Чтобы осуществить эту задачу в первую очередь, необходимо, провести таможенное оформление в срок, указанный в договоре.

Несоблюдение срока таможенного оформление может быть вызвано множеством причин.

Вторым важным аспектом деятельности компании ЗАО« ФМ Ложистик» является строгое соблюдение законодательных норм процесса таможенного оформления. Нарушение этих норм может привести к заведению таможенными органами протоколов об административных правонарушениях. Если организация имеет несколько таких протоколов, то возможно лишиться лицензии на оформление и временное хранение грузов, что ведет к закрытию деятельности компании. Причины несоблюдения законодательных норм также должны стать предметом исследования.

Для того чтобы выявить причины, воспользуемся схемами причинно-следственных связей, применяемым иногда для решения задач управления качеством.

Рис. 14 Причины недостаточной эффективности деятельности компании

Схемы причинно-следственных связей помогают систематизировать потенциальные причины, выделить самые существенные, спланировать действия по их искоренению.

Опишем основные причины недостаточной эффективности работы компании ЗАО «ФМ Ложистик Кастомс».

3.3.1. Отсутствие регламентов компании

Регламенты - это специальные инструкции, описывающие взаимодействие как внутри отдела, так и между отделами. Внутри отдела таможенного оформления существует закрепление определенных декларантов за определенными клиентами. Декларанты изучают особенности документов этих клиентов. Это обеспечивает слаженные действия участников процесса оформления - клиентов и декларантов. Однако между отделом оформления и отделом складских операций нет должного взаимодействия, которое бы обеспечило быстрое и качественное прохождение всей цепочки общего процесса таможенного оформления. Сведения о реальных характеристиках груза сообщаются с задержками, что ведет замедлению процесса оформления, отзыву деклараций, поданных в таможню.

3.3.2. Медленное реагирование изменений внешних условий

Внешними условиями для компании ЗАО « ФМ Ложистик Кастомс» являются различные нормативные документы таможенных органов России, а также обнаруженные изменение в характеристиках груза в процессе таможенного оформления и хранения. Чтобы достоверно отображать сведения в документах для оформления груза необходимо отслеживать изменения в законодательстве по таможенным вопросам. Декларанты строго следуют этим изменением при составлении декларации. Изменения в приказах и инструкциях, касающихся складских операций СВХ, ими не изучаются. Также несвоевременно отражается в документах изменение характеристик груза. Это иногда приводит к задержкам оформления поданных деклараций, а также административным правонарушениям в области таможенного дела.

3.3.3. Наличие «неправильных» документов

Доставка груза и его оформление-это сложный процесс, в который вовлечено множество участников. По мере прохождения груза по цепочке общего процесса оформления формируется масса документов различных участников. В этой ситуации трудно избежать несоответствий некоторых данных в документах, отсутствие каких-либо документов цепочки, а также допущение технических ошибок при создании документов. В рассматриваемой компании можно «повлиять» на документы складского учета и декларации. Сведения в них должны быть согласованы.

3.3.4. Наличие неоптимизированных и неавтоматизированных процессов

В настоящее время в компании «ФМ Ложистик Кастомс» для быстрого и качественного оформления применяются специализированные программы фирмы «Альта - софт». К ним относятся:

· программа для составления деклараций - «Альта-ГТД»;

· электронные тематические каталоги таможенных документов;

· программа для формирования базы повторяющихся товаров - «Артикул»;

· программа для создания деклараций из таблиц Excel -« Заполнитель»;

· программа «Альта - СВХ» для подготовки складской отчётности.

Однако, сверка сведений из складских документов и сведений из декларации производиться «вручную» сотрудниками отдела складских операций, и в период получения разрешения о выдачи груза, т.е. когда клиент желает забрать оформленный груз. Если сотрудник находит несоответствие в документах, то сложности возникают и у клиента, и у компании. Поэтому необходимо оптимизировать этот процесс, изменить маршруты таможенных документов в пределах компании, постараться предотвратить несоответствия в период таможенного оформления. При увеличении грузопотока возрастает вероятность не отследить несоответствия, т.е. допустить ошибки. Для того чтобы их минимизировать, а также отказаться от «культуры героев», описанной в книге Репина, нужно применить процессный подход и автоматизировать сверку электронных документов. [3]

Из обращений сотрудников компании « ФМ Ложистик Кастомс», а также при подготовке модуля сверки документов, мне также удалось выяснить, что при составлении деклараций сложным и трудоемким процессом является процесс распределения грузовых мест по декларируемым товарам. Этот процесс также можно оптимизировать.

Автоматизация возможна и при создании документов, в которых содержатся повторяющиеся данные. Можно попытаться создать серию таких документов одновременно, т.е. при создании одного из них, автоматически формируются другие, информация в которых повторяется.

Установив причины неэффективной работы компании ЗАО «ФМ Ложистик», приступаем к разработке предложений по улучшению деятельности компании.

Рис. 15 Предложение по улучшению деятельности компании

3.4. Оптимизация процессов

Анализ процессов в компании показал, то можно выделить процессы для оптимизации.

Один из них - процесс своевременного внесения изменений в документы, выявление их согласованности и отсутствия противоречивых данных. Суть оптимизации заключается в том, что нужно осуществлять сверку документов при подаче декларации в таможню, а не на последнем этапе. Тем самым у процессов «Таможенная очистка» и «СВХ» появятся точки соприкосновения, что усилит взаимодействие сотрудников отдела оформления и отдела статистики и складских операций. По теории процессов усиливается синергетический эффект, а процесс превращается в сквозной. Ошибки, допущенные в документах, будут выявлены до подачи декларации в таможню, будет время ликвидировать несоответствия путем совместного общения с декларантами и клиентами. Таким образом, мы соединяем подготовку декларации с выявлением несоответствий в складском документе ДО1. Так как изменения могут произойти на протяжении всего периода хранения груза и его таможенного оформления, то осуществлять сверку нужно будет после внесения очередных изменений. При выпуске декларации складской документ будет четко ей соответствовать, что ликвидирует задержки выдачи груза.

Сверка документов осуществлена в модуле сверки складских документов и деклараций. Тем самым, процесс оптимизирован.

Диаграмма деятельности с введением модуля сверки приведена в Приложении 2. Из нее видно, что устранены состояния деятельности, отмеченные розовым цветом на предыдущем диаграмме в Приложении 1.Это «"Ручная" сверка ДО1 с оформл. ДТ» и «Выяснение причин». Состояния действия, отмеченные голубым цветом («Составить доп. Листа ДО1-коррекция», «Внести изменения в ДТ»), после проверки таможней будут возникнуть гораздо реже, так как основные нестыковки будет ликвидированы на этапе подачи декларации в таможню.

В модуль сверки внедрен также алгоритм автоматического распределения грузовых мест из электронного упаковочного листа, реализован как макрос в Excel на VBA.Он определяет количество полностью занятых грузовых мест определенным артикулом и количество неполных грузовых мест, занятых этим артикулом. «Ручной» перебор одинаковых артикулов и занимаемых ими грузовых мест по бумажной копии упаковочного листа процесс очень трудоемкий и вероятность ошибки при таком подходе велика. Таким образом, автоматизация процесса распределения грузовых мест его оптимизирует. Интерфейс, результат обработки описан далее.

Исходя из анализа применяемых в компании информационных технологий, и описания бизнес-процессов, можно выделить еще бизнес-процесс, который нуждается в оптимизации. Это процесс создания таблиц формата Excel для формирования деклараций и складских отчетов ДО1, уведомлений предварительного информирования, используемых на границе, из документа инвойс, присылаемого иностранной стороной и базы накопленных сведений об артикулах товаров, которые доставлялись ранее. Такие таблицы, с помощью имеющейся программы « Заполнитель», легко передать в как входные данные в программы « Альта ГТД » и « Альта СВХ», формирующие декларации и складские отчеты. Подготовка этих таблиц значительно ускоряет процесс таможенного оформления, и увеличивает его качество, ликвидируя несоответствие и технические ошибки в документах.

В моей работе этот процесс реализован для конкретной формы иностранного инвойса. Сложность разработки для нее заключалась в том, что кроме артикулов товаров в инвойсе иногда присутствуют наборы из артикулов, указанные в нижней части документа, их может быть несколько. Стоимость артикулов, составляющих набор необходимо рассчитывать из общей стоимости всего набора, распределив пропорционально цене за единицу каждой составляющей его части. Вес рассчитывается из общего веса набора, пропорционально величине веса нетто с первичной упаковкой единицы составляющей части, который храниться в базе артикулов. Иногда такое распределение веса нуждается в корректировке. Для этой цели создан дополнительный макрос - «помощник» в распределении веса по артикулам, который предлагает 2 способа решения данной проблемы.

На примере конкретной формы инвойса можно показать, как оптимизировать процессы создания цепочек взаимосвязанных документов и других клиентов. Текст программного кода VBA и диаграмма потоков данных в нотации Гейна-Сарсона (DFD-схема) приведены в приложении 9 и в приложении 3 . Интерфейс описан далее для вымышленной косметической фирмы «Лотос ко».

3.5. Автоматизация процесса сверки сведений из электронных документов

Из изученного материала, для построения модуля сверки электронных документов применительно к таможенному терминалу необходимы следующие определения:

· ДТ- декларация на товары, документ, который в рамках разработки модуля можно рассматривать как расширенную систему сведений числового и текстового характера, а также информацию из специальных справочников НСИ (нормативно-справочной информации).

· ДО1 - документ складской отчетности, который оформляется при приемке груза на СВХ. В нем содержаться основные сведения о грузовой партии.

Документы представляются в электронном и бумажном виде.

Цель разработки - возможность автоматической сверки сведений (числовых и текстовых) из описанных электронных документов. Достижение цели поможет решить вопрос о соответствии этих документов и ускорит процесс таможенного оформления.

3.5.1. Исходные данные и условия

Первым этапом к разработке является описание общих по смыслу полей документов, которые будут представлять исходные данные для модуля сверки. Рассмотрим эти поля из бумажных копий документов.

· Код товара - в ДТ 10-значная последовательность цифр, указанная в графе 33 ДТ, в ДО1 - 4-знаная последовательность цифр по товарной номенклатуре внешнеэкономической деятельности. Он определяет пошлины и налоги, разрешительные документы, которые требуются для товара, задекларированного этим кодом. В общем случае может начинаться с 0, поэтому эта информация должна быть определена как текстовая.

Код товара в ДО1 переносится из транспортных документов, которые поступают с грузом, код товара в ДТ определяется декларантом, исходя из характеристик данного товара, учитывая документы.

Таким образом, общее между ДТ и ДО1 это четыре первые цифры кода товара. Например, В ДТ 330510000 -это шампунь, в ДО1 - будет указано 3305 - средства для волос. В ДТ - код товара и описание более конкретное, в ДО1 - общее.

Код товара может смениться в процессе декларирования и таможенного оформления груза. Поэтому может случиться так, то на СВХ принимают один код товара, а выдаваться другой.

· Фактурная стоимость товара - это стоимость товара (кода товара) в определенной валюте, по инвойсу (международному счету). Фактурная стоимость - числовая информация , указывается в десятичный форме с 2 знаками после запятой. Код валюты - текстовая информация, определяется из справочника НСИ.

Например, в ДТ в графе № 42 может быть указано:

Товар №1 330510000 шампунь - 1150 EUR

Товар №2 330530000 лак для волос - 2000 EUR

В ДО1 в графе «Фактурная стоимость товара, указанная в коммерческих документах»:

№п/п.1 3305 средства для волос 3150 EUR

· Вес брутто (в кг) - числовая информация, формат представления: десятичная форма с 3 знаками после запятой.

Например, в ДТ в графе № 35 может быть указано:

Товар №1 330510000 шампунь 1150.022

Товар №1 330530000 лак для волос 2230.111

В ДО1 графа « Вес брутто»:

№п/п.1 3305 средства для волос 3380.133

В общем случае, не всегда вес брутто из графы № 35 (по товарам) совпадает с весом по соответствующим товарам по ДО1, так как в этой графе указывается вес без учета веса транспортных поддонов. В декларациях, составляемых в компании ЗАО «ФМ Ложистик Кастомс», эта информация может быть указана одним из следующих способов:

1 способ: в конце 31 графы, под цифрой 2. Например:

2-100, CT-100 НА 4 ПАЛЛЕТАХ/PX (ВЕС С ПОДДОНАМИ 5000 КГ.)

Общий вес будет считаться по этим записям плюс данные графы №35 по товарам, где отсутствуют эти записи.

2 способ: в конце 31 графы, под цифрой 2, но кратко. Например:

2-100, CT-100 НА 4 ПАЛЛЕТАХ/PX (ВЕС С ПОД. 5000 КГ.)

Общий вес будет считаться только по этим записям.

3 способ: в тексте описательной части графы №31, под цифрой 1. Например:

1-ВИНО СТОЛОВОЕ, ИГРИСТОЕ, БЕЛОЕ (ВЕС БРУТТО С ПОДДОНАМИ 5000 КГ.)

Общий вес будет считаться по этим записям плюс данные графы №35 по товарам, где отсутствуют эти записи.

Все эти особенности должны быть отражены в модуле сверки.

· Количество грузовых мест - числовая информация, представляющая целое число, обозначающее количество коробок, либо паллет и. т.д.

В ДТ - это графа №6, например 1200 (общее количество грузовых мест), а графе 31 под цифрой 2 записывается сначала сумма всех грузовых мест, занятым товаром, в скобках количество грузовых мест, занятым товаром частично:

2-12(3-ЧАСТЬ МЕСТА) НА 9 ПАЛЛЕТАХ/PX

Это означает: товар занимает 9 полных грузовых мест и 3 неполных места, в которых находятся и другие товары. Такая запись представляет собой смесь текстовой и числовой информации, позволяет однозначно определить количество «полных» мест у товара, количество частей мест, занятых товаром, оценить правильное распределение грузовых по товарам, подсчитать количество паллет и определить вид паллет (PX- деревянный поддон, из справочника НСИ).

В складском документе ДО1 количество грузовых мест отражается в одноименной графе по товарам. Их сумма должна совпадать с графой № 6 ДТ, а также должна совпадать суммам грузовых мест кодов товаров, сгруппированным по 4 первым знакам в ДТ. Например,

В ДТ:

Товар №1 330510000 шампунь - 2- 10(2-часть места)

Товар №2 330530000 лак для волос - 2- 2(1-часть места)

Товар №3 340910000 крем для лица- 2-1(1-часть места)

Общее количество грузовых мест, указанных в графе 6, 10. В ДО1 должно быть отражено:

№п/п.1 3305 средства для волос - 10

№п/п.2 3304 косметические средства часть места

Причем, в электронном виде поле товара №п/п.2 будет равно 0, т.к. число грузовых мест всегда определено как числовое поле целого типа.

· CMR-номер транспортной накладной, представляет собой поле текстового типа, ее дата - поле типа дата.

В ДТ CMR графе 44 под кодом документа 02015, например:

02015 12-345/4 20.03.13

В ДО1 в заголовке документа в соответствующем поле.

Номера этих документов и их даты должны совпадать.

Номер транзитного документа (TIR или транзитная декларация) представляет собой поле текстового типа.

В ДТ графе 44 под кодом документа 02024 или под кодом 09013, например:

02024 XQ4536781 или 09013 10225011/110313/0002524

В ДО1 одно поле текстового типа, указанное в примечании.

· Номер транспортного средства- государственный номер автотранспортного средства, на котором прибыл груз. Это текстовая информация в ДТ представляет 2 поля - номер основного средства и через «/» прицепного и указывается в 18 графе. В ДО1 - одно поле текстового типа, указанное в примечании.

Например,

AB2345/088BB

Эта информация должна совпадать.

Здесь можно отметить, что указывается еще и код принадлежности транспортного средства (из справочной информации НСИ), например, «литовская» а/м -LT, «российская» -RU. В ДО1 эта информация указывается в заголовке, причем в бумажном виде отражается как название страны. Эта информация тоже может сопоставляться.

Сложность сравнение этих граф заключается в том, что сотрудники разных отделов заполняют регистрационный номер транспортного средства символами латинской и русской клавиатуры. Такое написание допускается, поэтому чтобы выявить явную ошибку в номере транспортного средства нужно проанализировать различное написание номера.

Разработан алгоритм, макрос на VBA Excel, который справляется с этой задачей.

Текст этой программы находиться в приложении 9.

Таким образом, из 54 граф [8] ДТ общими по содержанию с графами документа ДО1 оказались 8 граф. К ним относятся:

1. Код ТНВЭД (четыре первых символа);

2. Количество грузовых мест;

3. Вес брутто;

4. Стоимость;

5. Код валюты;

6. Регистрационный номер транспортного средства;

7. Номер транспортной накладной;

8. Номер документа транзита (книжка МДП -TIR, либо транзитная декларация - ТД).

Образцы сверяемых документов (ДТ и ДО1) находиться в приложении 5, 6. С помощью однотипных символов отмечены графы, которые будем сверять.

Входная информация для системы сверки может поступать при выгрузке электронных документов, сформированных специальными профессиональными программами для декларантов и работников склада СВХ. Данные хранятся в базах общего SQL-сервера. Файлы выгрузки должны поступать на диск локального компьютера сотрудника, который будет заниматься проверкой электронных копий документов. Форматы выгрузки, с которыми предстояло работать - файлы c расширением dbf :

Таблица №2.

Документ ДТ	Документ ДО1
DbrHead.dbf DbrTovar.dbf DbrTechd.dbf DbrTrans.dbf DbrPk.dbf	Do1.dbf Do1Cust.dbf Do1Good.dbf Do1Ttn.dbf Do1Ts.dbf

Такие форматы получаются при выгрузке декларации и ДО1 из программ декларантов Альта-ГТД и Альта-СВХ.

В полях этих файлов содержаться та информация, которую необходимо сравнивать. Каждый из файлов представляет собой сущность, а связь при этом - это наличие одинаковых полей в разных файлах-сущностях.

Рассмотрим подробно интересующие нас поля-атрибуты обобщенных сущностей - « Документ ДТ» и «Документ ДО1».

3.5.2. Документ ДТ ( электронные файлы)

DbrHead.dbf (сущность- характеристики в целом) содержит информацию о номере декларации -поле G073,и общем количестве мест -поле G6 код валюты - G221;

DbrTovar.dbf (сущность- сведения о товарах) содержит информацию коде ТНВЭД (10 знаков)-поле- G33, весе брутто-поле G35, стоимости товара- поле G42, о количестве грузовых местах поле G31_2 , о весе паллет -в текстовом описании G3_1 и номере декларации - поле G073;

DbrTechd.dbf (сущность- сведения о документах) содержит информацию о номерах документов -поле G442, дате документов -поле G443, и коде документа - поле G441 и номере декларации - поле G073;

DbrTrans.dbf (сущность- сведения о транспорте) содержит информацию о регистрационном номере автомобиля - поле NTRANS, значение поля NGR для его выборки должно быть 18, код страны принадлежности транспортного средства -G212;

DbrPk.dbf (сущность- сведения о паллетах) содержит информацию о количестве и веса паллет поля PKKOVO и PKINF

Сквозное поле между всеми файлами - сущностями « Документ ДТ» является поле номер декларации G073.

3.5.3. Документ ДО1(электронные файлы)

Do1.dbf (сущность- характеристики в целом) содержит номер ДО1-поле G074 , страну принадлежности транспортного средства - С_CUANTRY;

Do1Cust.dbf (сущность - сведения о документах транзита) содержит поле G074 - номер ДО1, номер NDOC- номер документа транзита (TIR, ТД);

Do1Good.dbf (сущность - сведения о товарах) содержит номер ДО1-поле G074, код товара (4 знака) -G33, вес товара - G35, стоимость G42, код валюты- VALCODE;

Do1Ttn.dbf (сущность - сведения о транспортных документах) содержит номер ДО1-поле G074, номер транспортной накладной - NDOC и ее даты DDOC;

Do1Ts.dbf (сущность - сведения о транспорте) номер ДО1-поле G074, номер транспортного средства- поле NTRANS

Сквозное поле между всеми файлами - сущностями « Документ ДO1» является поле G074-номер складского учета ДО1.

3.5.4. Связи

Анализ структур файлов показал, что уникальным полем, связывающим файлы деклараций и файлы ДО1 является номер документа транзита (номер транзитной декларации ТД, или номер книжки TIR). Номера никогда не повторяются, обязательно присутствуют в обоих документах. Именно это поле будет являться ключом для оптимизации процесса сверки документов.

Виды связей 1*1 (один к одному), 1*n (один ко многим) используются в созданных запросах. Ликвидация отношений n*m (многие ко многим), приведение их к типу 1*1 и 1*n осуществляется путем группировок повторяющихся данных.

3.5.5. Реализация, интерфейс

Сравнение описанных ранее полей документов ДТ и ДО1 реализовано с помощью многочисленных запросов. Схемы последовательного вызова основных запросов приведены в приложении 4.

Результаты окончательных запросов отражены в формах.

Главная форма запускается автоматически, имеет вид:

Рис. 16 Начальное меню модуля сверки

Кнопка «Начало процесса: Проверка ДО1 и ДТ» вызывает форму « Проверка ДО1». В ней собраны возможности модуля, образуют функциональное меню. Они разбиты на 4 группы. Первая группа касается номеров документов; вторая - сверки характеристик по 4-значным кодам товаров (осуществляется сверка веса, стоимости, валюты и количество грузовых мест); третья группа сравнивает количественные характеристики в целом по документам, а также есть возможность проверить интервал распределения грузовых мест по товарам; четвертая группа содержит кнопки для вызовов макросов VBA Excel для проверки правильности регистрационного номера транспортного средства, для автоматического распределения грузовых мест из упаковочного листа, а также создания таблиц Excel из иностранного инвойса для цепочки документов.

3.6. Работа с модулем сверки

Для начала сверки нужно убедиться, те ли документы выгружены из программ декларантов и операторов. В соответствующих полях формы «Проверка ДО1» отображаются проверяемые ДО1 и ДТ.

Найденный уникальный документ (номер документа транзита), отобразиться в нижней части экрана красным цветом. Если это не случилось, то нужно понять, почему так произошло.

Рис.17 Общее функциональное меню модуля сверки

Причина может быть либо в ошибке номера документа транзита, либо в неправильной выгрузки документов ДО1, ДТ. Например

Рис. 18 Пример отсутствия общего уникального документа

Для устранения причины есть кнопка «если нет уникального документа, найти причину», которая вызывает форму «Проверка TIR, ТД»

Рис. 20 Форма «проверка TIR, ТД»

Можно увидеть ошибку в написании номера документа. Устранив причину отсутствия общего уникального документа, возвращаемся в функциональное меню. Пиктограмма с открытой дверью в модуле всегда означает переход в предыдущее меню.

Затем приступаем к сверке транспортной накладной

Рис. 20 Форма сверки транспортной накладной CMR

Форма сверки транспортной накладной вызывает запрос « проверка ттн». Схема приведена в приложении 4.

Далее переходим к сравнению количественных характеристик груза. Нажатие кнопки «Вариант1: один ДО1 и одна или несколько ДТ либо несколько ДО1 и несколько ДТ» запускает форму «ДО-все ГТД», которая позволяет сравнивать документы в случае:

· когда в декларации заявлены товары из одной ДО1. При этом можно сравнивать несколько таких пар сразу : ДО1??ДТ;

· когда в товары по одной ДО1 заявлены в разных декларациях

Рис. 21 Пример формы сверки данных по 4-ому коду ТНВЭД, вариант 1

Форма сверки данных вызывает запрос « ДО-все ГТД». Если проверочные значение равно «+», то все совпадает, если «ОШ!», то может быть ошибка, либо необходимо провести дальнейшую проверку, чтобы точно уяснить ошибку (кнопка «дальнейшая проверка»). Эта функция доступна также и из общего функционального меню. Она запускает запрос с параметром о выборе способа указания веса груза с учетом веса паллет, о котором говорилось ранее. Схема приведена в приложении 4.

Рис. 22 Пример форма сверки данных в целом, вариант 1

Форма сверки данных в целом, вариант 1, вызывает запрос «дт_до_общие характеристики». Схема приведена в приложении 4. Для случая сверки сразу несколько ДТ и несколько ДО1 запросы еще не доработаны.

Отдельно вынесена функция для проверки интервала распределения грузовых мест. Как было описано раннее, из правил заполнения декларации, следует, что полностью занятые грузовые места можно узнать как разницу всех мест и указанных в скобках частей мест по каждому товару из декларации, а также подсчитать общее количество неполных мест.

Так как, заранее известно общее число грузовых мест, то можно определить интервал, в который должно попадать значение общего числа грузовых мест. Нижнее значение интервала будет равно сумме полных мест и максимального значения по товарам из декларации неполных (частей) мест. Верхнее значение будет равно сумме полных мест и общей сумме неполных мест, деленной пополам.

Рис. 23 Примеры проверки распределения грузовых мест по товарам

Форма проверки распределения грузовых мест по товарам вызывает запрос « связь в 6 графой пол и зан». Схема приведена в приложении 4

Проверка ДТ с помощью этой формы выявила, что особое затруднение при составлении декларации возникает с распределением грузовых мест по товарам. Его удалось устранить для случая, когда у декларантов имеется упаковочный лист в электронном виде. Для этого создан макрос Pack, запуск которого осуществляется с помощью кнопки «Определить полные и неполные места» в разделе «Островки автоматизации». На входе таблицу в Excel - столбец “А”: артикул товаров, столбец “B”: номер грузового места.

Текст кода находится в приложении 7.

Например

артикулы	номер грузового места	группировка артикулов	число неполных мест	число полных мест
A3C901	9101
A3C902	9101
A3C903	9101
F4C901	8617
F4C901	8618
F4C901	9101
B3C9512	8618
D3C981	9231
D3C982	9232
D3C982	9233
D3C982	9234
A3C901	9110
A3C901	9111

Рис. 24 Пример части упаковочного листа

Нажав кнопку «go!» получим

артикулы	номер грузового места	группировка артикулов	число неполных мест	число полных мест
A3C901	9101	A3C901	1	2
A3C902	9101	A3C902	1
A3C903	9101	A3C903	1
F4C901	8617	F4C901	1	2
F4C901	8618	B3C9512	1
F4C901	9101	D3C981		1
B3C9512	8618	D3C982		3
D3C981	9231
D3C982	9232
D3C982	9233
D3C982	9234
A3C901	9110
A3C901	9111

Рис.25 Результат работы макроса packs

Текст модуля на VBA приведен в приложении 7

Модуль позволяет осуществлять сверку и для случая, когда в декларации заявляются сведения по нескольким ДО1, т.е.

Для этого нужно воспользоваться кнопкой «Вариант 2: 1 ДТ и несколько ДО1» функционального меню, затем провести дальнейшую проверку с параметром выбора записи веса груза с паллетами.

Рис. 26 Пример сверки данных, вариант 2

Форма сверки данных, вариант 2, вызывает запрос «все ДО1 -ДТ». Схема приведена в приложении 4

Аварийный режим нужен был при разработке модуля.

Проверка количественных характеристик закончена. Далее можно сравнить регистрационный номер транспортного средства нажав кнопку «!» и « Сравнить авто и страну перевозчика».

Текст модуля на VBA приведен в приложении № 8

Рис.27 Запуск макроса проверки номера транспортного средства

Результат обработки

G074	G073	G442	VIDTRANS	VIDTRANS	G212	C_COUNTRY	ACTIVEID	18.NTRANS	проверка ам 1.NTRANS
1356	0001123	DX1234563	31	31	LV	428	JB7382	P5921	JB7382/P5921	сходится
1278	0001012	XF6543213	31	31	LV	428	CU9336	K7185	CU6393/K7185
1279	0001014	10225011/010913/0017444	31	31	LV	428	С1234	АВ341	C123/AB342

Рис. 28 Результат работы макроса Avto

С помощью кнопки «Автоматическое создание перевода инвойса, спецификации, таблиц для заполнения ДТ и ДО1, ПИ» запускается модуль, который помогает создать цепочку взаимосвязанных документов из иностранного документа инвойс, позволяет заранее подготовить документы для поставки груза и формирование дальнейших документов декларантов и операторов СВХ.

Главное меню модуля выглядит как меню с кнопками для вывоза различных макросов:

· Кнопка «Запуск» открывает файлы: Artikul1.xlsx-база данных артикулов (содержание ее вымышленные товары); мери.xlsx -файл, где сохранен инвойс иностранной стороны (все содержание инвойса вымышлено); Книга2.xlsx- файл, где формируется перевод инвойса и спецификация - макрос «ПУСК».

· С помощью кнопки «Новый артикул» можно завести характеристики ранее не встречающегося артикула товара - макрос «арт».

· Кнопка «Перевод» запускает макрос, который формирует перевод инвойса

Книга2.xlsx! Лист2 -макрос «trans».

· Кнопка «Подготовка» запускает макрос, который подготавливает инвойс, группирует позиции по одинаковым артикулам - макрос «qqqqqqq».

· Кнопка «Спецификация»- формирование нескольких таблиц в Книга2. xlsx, Лист1, которые в дальнейшем будут использованы для создания декларации, складского отчета ДО1 и уведомления для прохождения груза границы (реализован алгоритм распределение «копеек» (из-за округления), применительно к наборам)- макрос «qwe»

Рис. 29 Главное меню модуля создания цепочки документов

Рис. 30 Результат работы макроса по созданию таблиц для цепочки документов

Кнопка «Помощник М. Вульф» вызывает макрос «Mr_Wolf», с помощью которого можно посмотреть измененное распределение веса по артикулам.

В приложении 9 приведены коды макросов на VBA.

Заключение

В ходе выполнения данной работы были реализованы следующие этапы:

· выделены преимущества процессного подхода к описанию бизнес-процессов;

· проведен обзор методологий и приведены примеры диаграмм на языке UML исследуемой предметной области;

· идентифицированы и описаны бизнес-процессы компании;

· показана взаимосвязь основных процессов, определены точки их соприкосновения, расширены границы процессов для создания эффекта синергии;

· обозначены причины недостаточной эффективности компании;

· выделены бизнес-процессы для автоматизации;

· построены диаграммы деятельности модели «как есть» и предлагаемой модели «как должно быть»

· разработан проект модуля c автоматизированными процессами:

o сверки электронных документов;

o формирования электронных таблиц для создания цепочки таможенных взаимосвязанных документов;

o распределения грузовых мест парии из электронного упаковочного листа;

· приведены тексты программных модулей и диаграмма DFD в нотации Гейна-Сарсона для создания цепочки таможенных взаимосвязанных документов.

Руководству компании был предложен проект автоматизации бизнес-процессов, предоставляющий возможность автоматической сверки информации в применяемых компанией документах, автоматической генерации цепочки таблиц и автоматического распределения грузовых мест, заменяя ручное составление этих документов.

Список используемой литературы

Однотомные издания

1. Андерсен Б. Бизнес-процессы. Инструменты совершенствования /Пер. с англ. С.В. Ариничева /Науч. ред. Ю.П. Адлер. - М.: РИА Стандарты и качество, 2003. -272 с.

2. Кулябов Д. С., Королькова А. В. Введение в формальные методы описания бизнес-процессов, учебное пособие. М.:РУДН, 2008 -173 с

3. Репин В. Бизнес-процессы. Моделирование, внедрение, управление. - М.: Манн, Иванов и Фербер, 2013. -512 с.

4. Калянов Г.Н. Консалтинг при автоматизации предприятий (подходы, методы, средства) - М.: СИНТЕГ, 1997 - C. 76

5. Хернандес М., Вьескас Д. SQL-запросы для простых смертных. Практическое руководство по манипулированию данными в SQL- М.: ЛОРИ, 2003 -C. 17.

6. Таможенный Кодекс Таможенного союза : офиц. текст: по сост. на 25 сен.2013 г. - М.: Проспект 2013. - 184 с.

Периодическая литература

7. Об утверждении Порядка представления документов и сведений в таможенный орган при помещении товаров на склад временного хранения (иные места временного хранения товаров), помещения (выдачи) товаров на склад временного хранения (со склада) и иные места временного хранения, представления отчетности о товарах, находящихся на временном хранении, а также порядка и условий выдачи разрешения таможенного органа на временное хранение товаров в иных местах: приказ ФТС России [от 29 декабря 2012 г. № 2688] // Рос. газ. - 2013. -3 июля.

Приложения

Приложение 1

Диаграмма деятельности модели «как есть»

Приложение 2

Диаграмма деятельности модели с оптимизацией процессов, приближение к модели « как должно быть»

Приложение 3

DFD-схема «Создание цепочки взаимосвязанных документов

Приложение 4

Схемы запросов «ДО - все ГТД»

Приложения 5

Пример декларации на товары - ДТ



Приложения 6

Пример складского документа ДО1

Приложения 7

Тексты программных модулей

1 Модуль pack

Sub packs()

Dim a(9999), b(9999), bb(9999)

Range(Cells(2, 4), Cells(9999, 5)).Select

Selection.Clear

i = 2

Cells(i, 1).Select

q = Selection

Do While q <> ""

a(i - 1) = q

Cells(i + 1, 1).Select

q = Selection

i = i + 1

Loop

i = 1

Cells(i + 1, 2).Select

q = Selection

Do While q <> ""

b(i) = q

k = 0

For ii = 1 To 9999

kk = 0

bb(i - 1) = 2

If b(i - 1) = "" Then Exit For

If b(i - 1) = b(ii) And kk = 0 And k = 0 Then k = 1: kk = 2

If b(i - 1) = b(ii) And k = 1 And kk = 0 Then bb(i - 1) = 1: Exit For

Next

Cells(i + 2, 2).Select

q = Selection

i = i + 1

Loop

ii = 2

i = 1

For i = 1 To 9999

If a(i) = "" Then Exit For

Do While a(i) <> "-"

Cells(ii, 3).Select

ii = ii + 1

Selection = a(i)

Exit Do

Loop

For iii = i + 1 To 9999

If a(iii) = "" Then Exit For

If a(i) = a(iii) Then a(iii) = "-"

Next

Next

i = 2

Cells(i, 1).Select

q = Selection

Do While q <> ""

a(i - 1) = q

Cells(i + 1, 1).Select

q = Selection

i = i + 1

Loop

i = 2

Cells(i, 3).Select

q = Selection

Do While q <> ""

For ii = 1 To 9999

Do While a(ii) = q

If a(ii) = q And bb(ii) = 1 Then Cells(i, 4).Select

If a(ii) = q And bb(ii) = 2 Then Cells(i, 5).Select

If a(ii) = "" Then Exit For

Selection = 1 + Selection

Exit Do

Loop

If a(ii) = "" Then Exit For

Next

Cells(i + 1, 3).Select

q = Selection

i = i + 1

Loop

End Sub

Вызыв

Sub pack()

Dim oXL As Object

Set oXL = CreateObject("Excel.Application")

With oXL

.Workbooks.Open "C:\2\упаковка.xlsm"

.Visible = True

End With

Set oXL = Nothing

End Sub

Приложения 8

2. Макрос avto

Sub packs()

Dim a(9999), b(9999), bb(9999)

Range(Cells(2, 4), Cells(9999, 5)).Select

Selection.Clear

i = 2

Cells(i, 1).Select

q = Selection

Do While q <> ""

a(i - 1) = q

Cells(i + 1, 1).Select

q = Selection

i = i + 1

Loop

i = 1

Cells(i + 1, 2).Select

q = Selection

Do While q <> ""

b(i) = q

k = 0

For ii = 1 To 9999

kk = 0

bb(i - 1) = 2

If b(i - 1) = "" Then Exit For

If b(i - 1) = b(ii) And kk = 0 And k = 0 Then k = 1: kk = 2

If b(i - 1) = b(ii) And k = 1 And kk = 0 Then bb(i - 1) = 1: Exit For

Next

Cells(i + 2, 2).Select

q = Selection

i = i + 1

Loop

ii = 2

i = 1

For i = 1 To 9999

If a(i) = "" Then Exit For

Do While a(i) <> "-"

Cells(ii, 3).Select

ii = ii + 1

Selection = a(i)

Exit Do

Loop

For iii = i + 1 To 9999

If a(iii) = "" Then Exit For

If a(i) = a(iii) Then a(iii) = "-"

Next

Next

i = 2

Cells(i, 1).Select

q = Selection

Do While q <> ""

a(i - 1) = q

Cells(i + 1, 1).Select

q = Selection

i = i + 1

Loop

i = 2

Cells(i, 3).Select

q = Selection

Do While q <> ""

For ii = 1 To 9999

Do While a(ii) = q

If a(ii) = q And bb(ii) = 1 Then Cells(i, 4).Select

If a(ii) = q And bb(ii) = 2 Then Cells(i, 5).Select

If a(ii) = "" Then Exit For

Selection = 1 + Selection

Exit Do

Loop

If a(ii) = "" Then Exit For

Next

Cells(i + 1, 3).Select

q = Selection

i = i + 1

Loop

End Sub

Вызыв:

Sub avto()

Dim oXL As Object

Set oXL = CreateObject("Excel.Application")

With oXL

.Workbooks.Open "C:\2\авто.xlsm"

.Visible = True

End With

Set oXL = Nothing

End Sub

Приложения 9

3. Макросы для создания электронных таблиц для создания цепочки таможенных документов

Sub ПУСК()

'

Workbooks.Open Filename:="C:\2\LOTOS\ARTIKUL1.xlsx"

Workbooks.Open Filename:="C:\2\LOTOS\мери.xlsx"

Workbooks.Open Filename:="C:\2\LOTOS\Книга2.xlsx"

Range("A12:O719").Select

Selection.ClearContents

With Selection.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Selection.Borders(xlEdgeLeft).LineStyle = xlNone

Selection.Borders(xlEdgeTop).LineStyle = xlNone

Selection.Borders(xlEdgeBottom).LineStyle = xlNone

Selection.Borders(xlEdgeRight).LineStyle = xlNone

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Windows("мери.xlsm").Activate

End Sub

Sub qqqqqqq()

Windows("мери.xlsx").Activate

For i = 1 To 100

ActiveSheet.Cells(i, 9).Select

q = Selection

If q <> "" And qq = 0 Then ii = i + 1: qq = 1

If q = "" And qq = 1 Then iii = i - 2: Exit For

Next

For i = iii To ii Step -1

ActiveSheet.Cells(i, 1).Select

q = Selection

Do While q = e

ActiveSheet.Cells(i, 7).Select

Selection = Selection + qwt

ActiveSheet.Cells(i, 9).Select

Selection = Selection + mvl

ActiveSheet.Cells(i, 10).Select

Selection = Selection + fr

ActiveSheet.Cells(i, 11).Select

Selection = Selection + tvl

ActiveSheet.Cells(i, 13).Select

Selection = Selection + ps

ActiveSheet.Cells(i, 14).Select

Selection = Selection + wt

Rows(i + 1).Delete

Exit Do

Loop

e = q

ActiveSheet.Cells(i, 7).Select

qwt = Selection

ActiveSheet.Cells(i, 8).Select

svl = Selection

ActiveSheet.Cells(i, 9).Select

mvl = Selection

ActiveSheet.Cells(i, 10).Select

fr = Selection

ActiveSheet.Cells(i, 11).Select

tvl = Selection

ActiveSheet.Cells(i, 13).Select

ps = Selection

ActiveSheet.Cells(i, 14).Select

wt = Selection

Next

Windows("спец.xlsm").Activate

Sub qwe()

End Sub

Windows("Книга2.xlsx").Activate

Sheets("Лист1").Select

Range("A12:O719").Select

Selection.ClearContents

With Selection.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Selection.Borders(xlEdgeLeft).LineStyle = xlNone

Selection.Borders(xlEdgeTop).LineStyle = xlNone

Selection.Borders(xlEdgeBottom).LineStyle = xlNone

Selection.Borders(xlEdgeRight).LineStyle = xlNone

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

qq = 0

Windows("мери.xlsx").Activate

'Windows("ARTIKUL1.xlsx").Activate

sb = 0

For i = 1 To 100

ActiveSheet.Cells(i, 9).Select

q = Selection

If q <> "" And qq = 0 Then ii = i + 1: qq = 1

If q = "" And qq = 1 Then iii = i - 2: Exit For

Next

q = 12

For i = ii To iii

ActiveSheet.Cells(i, 6).Select

qw = Selection

Do While qw = "SEE BELOW"

vlv = 0

frr = 0

ActiveSheet.Cells(i, 7).Select

qwt = Selection

ActiveSheet.Cells(i, 8).Select

svl = Selection

ActiveSheet.Cells(i, 9).Select

mvl = Selection

ActiveSheet.Cells(i, 10).Select

fr = Selection

ActiveSheet.Cells(i, 11).Select

tvl = Selection

ActiveSheet.Cells(i, 13).Select

ps = Selection

ActiveSheet.Cells(i, 14).Select

wt = Selection

ActiveSheet.Cells(i, 1).Select

art = Selection

Windows("ARTIKUL1.xlsx").Activate

For iq = 3 To 1000

ActiveSheet.Cells(iq, 2).Select

artart = Selection

Do While artart = art

ActiveSheet.Cells(iq, 3).Select

dev = Selection

ActiveSheet.Cells(iq, 4).Select

tnsmth = Selection

ActiveSheet.Cells(iq, 8).Select

cntr = Selection

ActiveSheet.Cells(iq, 11).Select

nam = Selection

ActiveSheet.Cells(iq, 37).Select

psb = Selection

ActiveSheet.Cells(iq, 9).Select

swt = Selection

Exit For

Exit Do

Loop

Next

Windows("Книга2.xlsx").Activate

ActiveSheet.Cells(q, 1).Select

Selection = art

ActiveSheet.Cells(q, 2).Select

Selection = tnsmth

ActiveSheet.Cells(q, 3).Select

Selection = nam

ActiveSheet.Cells(q, 9).Select

Selection = Sval

q = q + 1

Windows("мери.xlsx").Activate

wer = 0

For iw = iii To 100

'wer = 0

ActiveSheet.Cells(iw, 1).Select

qr = Selection

qn = Left(qr, Len(art))

If qn = Left(art, Len(art)) Then qq = iw: wer = 1

If qn = "" And wer = 1 Then qqqqq = iw: Exit For

Next

For qnab = qq + 2 To qqqqq - 1

ActiveSheet.Cells(qnab, 1).Select

artnab = Trim(Selection)

ActiveSheet.Cells(qnab, 5).Select

svalnab = Selection

ActiveSheet.Cells(qnab, 3).Select

qwtnab = Selection

Windows("ARTIKUL1.xlsx").Activate

For iq = 3 To 1000

ActiveSheet.Cells(iq, 2).Select

artart = Selection

Do While artart = Val(artnab)

ActiveSheet.Cells(iq, 3).Select

dev = Selection

ActiveSheet.Cells(iq, 4).Select

tnsmth = Selection

ActiveSheet.Cells(iq, 8).Select

cntr = Selection

ActiveSheet.Cells(iq, 11).Select

nam = Selection

ee = ""

For ewrr = 0 To 16 Step 4

ActiveSheet.Cells(iq, 17 + ewrr).Select

e = Selection

iqq = 18

Do While e = "01191"

qwei = 2

ActiveSheet.Cells(iq, 18 + ewrr).Select

If ee = "" Then ee = Selection: qwei = 1

If ee <> "" And qwei = 2 Then ee = ee & " , " & Selection

Exit Do

Loop

Do While e = 10023

ActiveSheet.Cells(iq, 18 + ewrr).Select

eee = Selection

erub = 1

Exit Do

Loop

Next

ActiveSheet.Cells(iq, 9).Select

swt = Selection

ActiveSheet.Cells(iq, 37).Select

'psb = Selection

Exit For

Exit Do

Loop

Next

Windows("Книга2.xlsx").Activate

ActiveSheet.Cells(q, 1).Select

Selection = artnab

ActiveSheet.Cells(q, 2).Select

Selection = tnsmth

ActiveSheet.Cells(q, 3).Select

Selection = nam

ActiveSheet.Cells(q, 4).Select

Selection = cntr

ActiveSheet.Cells(q, 5).Select

Selection = dev

ActiveSheet.Cells(q, 6).Select

Selection = ee

ActiveSheet.Cells(q, 7).Select

If erub = 1 Then Selection = eee

erub = 0

ActiveSheet.Cells(q, 8).Select

Selection = qwt * qwtnab

ActiveSheet.Cells(q, 9).Select

Selection = svalnab

ActiveSheet.Cells(q, 10).Select

Selection = Round(qwt * qwtnab * svalnab, 2)

vlv = vlv + Selection

ActiveSheet.Cells(q, 11).Select

Selection = Round(fr * (svalnab * qwtnab / svl), 2)

frr = frr + Selection

ActiveSheet.Cells(q, 12).Select

Selection = Round(fr / svl * svalnab * qwtnab, 2) + Round(qwt * qwtnab * svalnab, 2)

ActiveSheet.Cells(q, 13).Select

ActiveSheet.Cells(q, 14).Select

Selection = qwt * qwtnab * swt

q = q + 1

blw = blw + swt

ie = 0

Windows("мери.xlsx").Activate

Next

wttt = 0

Windows("Книга2.xlsx").Activate

wttttt = mvl - vlv

wtttt = fr - frr

wttet = q - 1

For e = 12 To q

ActiveSheet.Cells(e, 15).Select '

ee = Selection

ActiveSheet.Cells(e, 14).Select '

eee = Selection

Do While ee = ""

ActiveSheet.Cells(e, 13).Select

If wtte = 0 Then wtte = e

If Round(qwt / psb * eee / qwt / blw, 0) > wttt Then wtte = e: wttt = Round(qwt / psb * eee / qwt / blw, 0)

Selection = Round(qwt / psb * eee / qwt / blw, 0)

ie = ie + Round(qwt / psb * eee / qwt / blw, 0)

ActiveSheet.Cells(e, 15).Select '

Selection = eee * (1 + 1 / (qwt * blw) * (wt - blw * qwt))

Exit Do

Loop

Next

wtt = qwt / psb - ie

ActiveSheet.Cells(wtte, 13).Select

Selection = Selection + wtt

ActiveSheet.Cells(wttet, 10).Select

Selection = Selection + wttttt

ActiveSheet.Cells(wttet, 11).Select

Selection = Selection + wtttt

ActiveSheet.Cells(wttet, 12).Select

Selection = Selection + wttttt + wtttt

Windows("мери.xlsx").Activate

blw = 0

Exit Do

Loop

Do While qw <> "SEE BELOW"

ActiveSheet.Cells(i, 1).Select

art = Selection

ActiveSheet.Cells(i, 7).Select

qwt = Selection

ActiveSheet.Cells(i, 8).Select

svl = Selection

ActiveSheet.Cells(i, 9).Select

mvl = Selection

ActiveSheet.Cells(i, 10).Select

fr = Selection

ActiveSheet.Cells(i, 11).Select

tvl = Selection

ActiveSheet.Cells(i, 13).Select

ps = Selection

ActiveSheet.Cells(i, 14).Select

wt = Selection

'Windows("мери.xlsx").Activate

Windows("ARTIKUL1.xlsx").Activate

For iq = 3 To 1000

ActiveSheet.Cells(iq, 2).Select

artart = Selection

Do While artart = art

ActiveSheet.Cells(iq, 3).Select

dev = Selection

ActiveSheet.Cells(iq, 4).Select

tnsmth = Selection

ActiveSheet.Cells(iq, 8).Select

cntr = Selection

ActiveSheet.Cells(iq, 11).Select

nam = Selection

ActiveSheet.Cells(iq, 17).Select

e = Selection

iqq = 18

ee = ""

For ewrr = 0 To 16 Step 4

ActiveSheet.Cells(iq, 17 + ewrr).Select

e = Selection

iqq = 18

Do While e = "01191"

qwei = 2

ActiveSheet.Cells(iq, 18 + ewrr).Select

If ee = "" Then ee = Selection: qwei = 1

If ee <> "" And qwei = 2 Then ee = ee & " , " & Selection

Exit Do

Loop

Do While e = 10023

ActiveSheet.Cells(iq, 18 + ewrr).Select

eee = Selection

erub = 1

Exit Do

Loop

Next

ActiveSheet.Cells(iq, 9).Select

swt = Selection

Exit For

Exit Do

Loop

Next

Windows("Книга2.xlsx").Activate

ActiveSheet.Cells(q, 1).Select

Selection = art

ActiveSheet.Cells(q, 2).Select

Selection = tnsmth

ActiveSheet.Cells(q, 3).Select

Selection = nam

ActiveSheet.Cells(q, 4).Select

Selection = cntr

ActiveSheet.Cells(q, 5).Select

Selection = dev

ActiveSheet.Cells(q, 6).Select

Selection = ee

ActiveSheet.Cells(q, 7).Select

If erub = 1 Then Selection = eee

erub = 0

ActiveSheet.Cells(q, 8).Select

Selection = qwt

ActiveSheet.Cells(q, 9).Select

Selection = svl

ActiveSheet.Cells(q, 10).Select

Selection = mvl

ActiveSheet.Cells(q, 11).Select

Selection = fr

ActiveSheet.Cells(q, 12).Select

Selection = tvl

ActiveSheet.Cells(q, 13).Select

Selection = ps

ActiveSheet.Cells(q, 14).Select

Selection = qwt * swt

ActiveSheet.Cells(q, 15).Select

Selection = wt

q = q + 1

Exit Do

Loop

Windows("мери.xlsx").Activate

' Windows("ARTIKUL1.xlsx").Activate

Next

Windows("Книга2.xlsx").Activate

ActiveSheet.Cells(q + 1, 2).Select

Selection = "Группировка по коду ТНВЭД"

Range(Cells(q + 1, 2), Cells(q + 1, 2)).Select

With Selection.Font

.Name = "Calibri"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Selection.Font.Bold = True

ActiveSheet.Cells(q + 2, 2).Select

Selection = "Код ТНВЭД»

ActiveSheet.Cells(q + 2, 4).Select

Selection = "Страна"

ActiveSheet.Cells(q + 2, 8).Select

Selection = "Кол-во"

ActiveSheet.Cells(q + 2, 10).Select

Selection = "Стоимость"

ActiveSheet.Cells(q + 2, 11).Select

Selection = "Фрахт"

ActiveSheet.Cells(q + 2, 12).Select

Selection = "Стоимость,Итого"

ActiveSheet.Cells(q + 2, 13).Select

Selection = "Кол.мест"

ActiveSheet.Cells(q + 2, 14).Select

Selection = "Нетто"

ActiveSheet.Cells(q + 2, 15).Select

Selection = "Брутто"

Range(Cells(q + 2, 2), Cells(q + 2, 15)).Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorDark1

.TintAndShade = -0.149998474074526

.PatternTintAndShade = 0

End With

Selection.Font.Bold = False

Selection.Font.Bold = True

With Selection

.VerticalAlignment = xlCenter

.WrapText = True

.Orientation = 0

.AddIndent = False

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

w = q + 3

Windows("мери.xlsx").Activate