Разработка автоматизированной системы ведения хозяйственной деятельности ООО "Виктори"

На рисунке 15 представлен программный интерфейс документа заявка.

Рисунок 15 - Программный интерфейс документа заявка

Справочник лид

Основные процедуры и функции:

- ПриОткрытии - процедура при открытии справочника заполняет данные по данному лиду для анализа такие как контактные лица данного партнера и, история заявок и поступлений;

- ЗадолженностьпоЗаявкам - процедура выводит в специальную таблицу список заявок по которым должен данный заказчик. Заявки попадают в список даже если по ней была частичная оплата. Так же в данной таблице видно на сколько данный заказчик просрочил платеж;

- ПечатьДоговора - процедура формирует и выводит на экран договор с заказчиком для последующей распечатки;

- СоздатьСтруктуруПисьма - процедура формирует электронное письмо для отправки выбранному контакту заказчика письма с договором на подпись;

- ВсеЗаявки - данная процедура формирует список заявок где заказчиком выступал данный лид и выводит его в специальную таблицу для анализа информации;

- ПоступленияСписок - процедура формирует список всех оплат от данного заказчика и выводит в специальную таблицу для анализа данных поступлений;

- ОтправитьВыбранныеФайлы - процедура предназначена для массовой отправки электронным письмом выбранных документов в специальной таблице;

- НеПринятыеЗаявкиНаСервере - процедура выводит все не проверенные договора и счета заказчика в специальную таблицу для их проверки;

- ДобавитьПартнераПоИНН - процедура позволяет по введенному ИНН автоматически добавить партнера в специальную таблицу связанных с этим лидом партнеров. Этот список необходим для выбора нужного плательщика в заявке.

На рисунке 16 представлен программный интерфейс справочника лид.

Рисунок 16 - Программный интерфейс справочника лид

Справочник договора партнеров

- ПриОткрытии - процедура при открытии справочника заполняет по выбранному контрагенту и партнеру информацию по водителям, транспортным средствам, прицепам, контактам и выполненным заявкам;

- ОтправитьПоПочте - процедура формирует электронное письмо для отправки выбранному контакту перевозчика письма с договором на подпись;

- ПечатьДоговора- процедура формирует и выводит на экран договор с перевозчиком для последующей распечатки;

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

- ПодборТС - процедура открывает специальную форму для поиска транспортных средств. В данной форме можно перенести необходимое транспортное средство к выбранному перевозчику;

- Обновить - процедура позволяет обновить данные в таблицах при создании нового объекта, связанного с данным перевозчиком;

- Диаграмма - процедура формирует диаграмму по работе данного перевозчика;

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

На рисунке 17 представлен программный интерфейс справочника договора партнеров.

Рисунок 17 - Программный интерфейс справочника договора партнеров

Регламентированное задание трекинг почты.

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



6 ТЕСТИРОВАНИЕ И АНАЛИЗ ПОЛУЧЕННЫХ РЕЗУЛЬТАТОВ

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

В таблице 42 представлен состав тестовых испытаний, которые были проведены с документом заявка и формами, связанными с этим документом.

Таблица 42 - Состав тестовых испытаний

№ теста	Исходные данные	Ожидаемый результат	Полученный результат
1	Попытка проведения без введения начальных данных	Ошибка заполнения данных	Ошибка заполнения данных представлена на рисунке 18
2	Ввод ИНН заказчика существующего в базе данных в поле для поиска заказчика по этому ИНН	Найденный заказчик подставляется в поле на форме заказчик	Заказчик нашелся и подставился в нужное поле, рисунок 19
3	Ввод ИНН заказчика не существующего в базе данных в поле для поиска заказчика по этому ИНН	Сообщение пользователю о том что заказчик не найден	Сообщение пользователю о том, что заказчик не найден, рисунок 20
4	Ввод начальных данных для первоначального проведения документа	Проведение заявки и установка статуса обработка	Заявка провелась и установился статус обработка, рисунок 21
5	Заполнение сроков оплаты заказчика	Автоматическое заполнение сроков оплаты перевозчика	Сроки перевозчика заполнились, рисунок 22-23
6	Выбор перевозчика в заявке	Статус заявки должен поменять на согласование с заказчиком	Статус заявки изменился на согласование с заказчиком, рисунок 24

№ теста	Исходные данные	Ожидаемый результат	Полученный результат
7	Установка флажка срыв без претензии	Статус заявки меняется на срыв без претензии и данная заявка не выводится во отчеты и регистры	Статус заявки изменился на срыв без претензии и исчезла из всех отчетов, рисунок 25
8	Установка флажка срыв	Должна поменяться видимость заявки для введения причины срыва и процента неустойки. При вводе неустойки пересчитывается сумма оплаты заказчика и перевозчика	Видимость заявки изменилась. При вводе процента неустойки изменились суммы оплаты заказчика и перевозчика, рисунок 26
9	Нажатие на кнопку сканы	При нажатию на кнопку должны подтянутся все сканы документов из специальной папки с номером данной заявки в названии документа	Все необходимые документы подтянулись, рисунок 27
10	Добавление сканов договор заявки с заказчиком в заявку	При нажатии на кнопку сканы подтянулись сканы договор заявки. Статус заявки изменился на согласование с перевозчиком	Статус заявки изменился на согласование с перевозчиком, рисунок 28
11	Отправка смс перевозчику на действующий номер через работающий gsm шлюз	После успешной отправки смс перевозчику статус заявки должен измениться на сопровождение	Статус заявки изменился на сопровождение, рисунок 29-30
12	Отправка смс перевозчику на действующий номер через не работающий gsm шлюз	При отправке смс должна возникнуть ошибка отправки так как gsm шлюз не работает	Ошибка отправки
13	Печать счета заказчика без созданного документа счет на оплату клиенту	Ошибка при печати нет выставленного счета	Ошибка нет выставленного счета, рисунок 31
14	Установка флажка тс выгружен при наличии договоров с заказчиком и перевозчиком, а так же при наличие инн в заказчике	После установки флажка тс выгружен заявка переходит в статус ждем транспортные документы	Статус заявки изменился на ждем транспортные документы, рисунок 32

№ теста	Исходные данные	Ожидаемый результат	Полученный результат
15	Установка флажка тс выгружен при отсутствии договоров с заказчиком или перевозчиком, а так же при наличие инн в заказчике	После нажатия на флажка тс выгружен появляется ошибка и статус заявки остается без изменения	Появилось сообщение об ошибке. Статус заявки остался без изменения, рисунок 33
16	Установка флажка тс выгружен при наличии договоров с заказчиком и перевозчиком, а так же при отсутствии инн в заказчике	После нажатия на флажка тс выгружен появляется ошибка и статус заявки остается без изменения	Появилось сообщение об отсутствии инн в заказчике. Статус заявки остался без изменения, рисунок 34
17	Нажатие на кнопку сканов при наличии отсканированных транспортных документов на рейс в папке со сканами	После нажатия на кнопку сканы подтягиваются сканы транспортных документов, пересчитывается срок оплаты заказчика и меняется статус заявки на отправить документы заказчику	Транспортные документы подтянулись в заявку. Срок оплаты заказчика изменился и статус заявки изменился на отправить документы заказчику, рисунок 35
18	Отправка электронного письма с неверным путем к отсканированному документу	Ошибка с информацией о том что скан не найден	Ошибка скан не найден, 37
19	Отправка электронного письма с прикрепленными сканами документов с правильно заполным путем к этим сканам	Отправка сканов на выбранный электронный адрес	Запись в таблице со сканами даты отправки электронного письма, рисунок 38
20	Ввод номера квитка в заявку по которой отправлены документы	Запись трека почтового отправления в регистр для проверки и изменение статуса документа на ждем оплату	Статус документа изменен на ждем оплату. В регистр сведений сделана запись о почтовом отправлении, рисунок 39,

Ниже приведены рисунки по данным тестовым наборам:

Рисунок 18 - Ошибка заполнения первоначальных данных

Рисунок 19 - Результат поиска по инн

Рисунок 20 - Сообщение об ошибке поиска заказчика

Рисунок 21 - Первоначально заполненная заявка в статусе обработка

Рисунок 22 - Данные о оплате заказчика

Рисунок 23 - Автоматически заполнение данные о оплате перевозчика

Рисунок 24 - Выбор перевозчика в заявке и переход к статусу согласование с заказчиком

Рисунок 25 - Установка флажка срыв заявки без претензии

Рисунок 26 - Установка флажка срыв заявки

Рисунок 27 - Подтянутые сканы по заявке

Рисунок 28 - Изменение статуса при добавлении сканов договор-заявки в документ



Рисунок 29 - Форма отправки смс водителю перевозчика

Рисунок 30 - Изменения статуса после отправки смс

Рисунок 31 - Ошибка распечатки счета на оплату с заказчиком

Рисунок 32 - Изменение статуса заявки после установки флажка тс выгружено

Рисунок 33 - Ошибка при установлении флажка выгрузка тс в состояние отмечен

Рисунок 34 - Ошибка при установлении флажка выгрузка тс в состояние отмечен

Рисунок 35 - Изменение статуса заявки на отправить документы заказчику

Рисунок 36 - Запись в трекинг почтового отправления

Рисунок 37 - Ошибка при отправке сканов заказчику

Рисунок 38 - Дата последнего отправления документов заказчику

Рисунок 39 - Изменение статуса заявки при вводе номера квитка



7 РЕЗУЛЬТАТЫ ВНЕДРЕНИЯ СИСТЕМЫ

Автоматизированная система ведения хозяйственной деятельности предприятия была успешна внедрена в работу организации ООО «Виктори». В ходе внедрения были созданы и проверены все справочники и документы на работоспособность, исправлены выявленные ошибки и запланированы дальнейшие доработки системы. Для проверки работоспособности системы были пройдены все этапы жизни заявки. На рисунке 40 представлена рисунок полностью завершенной заявки.

Рисунок 40 - Полностью завершенная заявка

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

- Необходимо прикрепить и отправить все необходимые документы заказчику что видно на рисунке 41;

Рисунок 41 - Прикрепленные и отправленные документы

- Создать на основании данной заявки счет на оплату клиенту, который используется как основании платежа. Созданный на основании заявки счет можно увидеть на рисунке 42;

Рисунок 42 - Созданный счет на оплату клиенту

- По данной заявке должны быть заполнены регистры расчетов с клиентами и поставщиками. Рисунок 43-44;

Рисунок 43 - Регистр накопления расчеты с поставщиками

Рисунок 44 - Регистр накопления расчеты с клиентами

- По данной заявке должно быть поступление полной оплаты от заказчика и выполнено списание с расчетного счета перевозчику. Рисунок 45-46.

Рисунок 45 - Документ списание безналичных денежных средств



Рисунок 46 - Документ поступление безналичных денежных средств

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



8 РАЗРАБОТКА МЕТОДИЧЕСКИХ УКАЗАНИЙ

8.1 Руководство программиста

1. Назначение программы и условия применения программы.

Автоматизированная система предназначена для ведения хозяйственной деятельности предприятия ООО «Виктори». Системные требования для работы программы 1С Предприятия.

Для работы сервера:

- Процессор с архитектурой x86-64 (Intel с поддержкой EM64T, AMD с поддержкой AMD64);

- Оперативная память 2048 Мб и выше;

- Жесткий диск 40Гб и выше;

- Устройство чтения компакт-дисков;

- USB-порт;

- SVGA-видеокарта;

- Технические характеристики компьютера и операционная система должны соответствовать требованием PostgreSQL.

Для тонких клиентов:

- Процессор Intel Pentium Celeron 1800 Мгц и выше;

- Оперативная память 256 Мб и выше;

- Жесткий диск 40Гб и выше;

- Устройство чтения компакт-дисков;

- USB-порт;

- SVGA-видеокарта.

2. Характеристика программы.

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

3. Обращения к программе.

Запуск программы происходить с рабочего стола по двойному нажатию на ярлык 1С Предприятия, рисунок 47.

Рисунок 47 - Ярлык запуска программы

В появившемся окне необходимо выбрать нужную нам информационную базу и запустить ее двойным нажатием на неё мышкой или по кнопке 1С:Предприятие. Окно представлено на рисунке 48.

Рисунок 48 - Выбор информационной базы

После выбора необходимой базы произойдет запуск основного рабочего стола, в котором работают все пользователи. Так как база работает в клиент серверном режиме работы для переноса данной базы на новый сервер необходимо вместо запуска базы в режиме 1С:Предприятие запустит данную базу в режиме конфигуратор и выгрузить информационную базу через меню администрирование. При нажатии на пункт меню выгрузка информационной базы произойдет ее сохранения в специальный файл с расширением dt. Данный файл можно перенести на другой сервер и загрузить информационную базу аналогичным образом. На текущем сервер путь к серверным базам данных выглядит следующим образом C:\Bases\base. А путь к ярлыку запуска программы C:\Program Files (x86)\1cv8\8.3.13.1513\bin. При необходимости программист имеет возможность добавлять новых пользователей в программу через конфигуратор. Для этого в меню конфигуратора надо выбрать пункт администрирование, пользователи рисунок 49. И в открывшемся списке добавить нового пользователя.

Рисунок 49 - Список пользователей

4. Сообщения.

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

8.2 Руководство пользователя

1. Введение

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

Для работы с данной системой пользователь должен обладать базовым опытом работы с операционной системой windows и навыком работы с интернет для работы с сайтом АвтоТрансИнфо. А также знаниями о предметной области данной системы. То есть должен быть знаком с работой диспетчера транспортной компании.

2. Назначение и условие применения программы.

Автоматизированная система предназначена для ведения хозяйственной деятельности предприятия ООО «Виктори». Системные требования для работы программы 1С Предприятия.

Для работы сервера:

- Процессор с архитектурой x86-64 (Intel с поддержкой EM64T, AMD с поддержкой AMD64);

- Оперативная память 2048 Мб и выше;

- Жесткий диск 40Гб и выше;

- Устройство чтения компакт-дисков;

- USB-порт;

- SVGA-видеокарта;

- Технические характеристики компьютера и операционная система должны соответствовать требованием PostgreSQL.

Для тонких клиентов:

- Процессор Intel Pentium Celeron 1800 Мгц и выше;

- Оперативная память 256 Мб и выше;

- Жесткий диск 40Гб и выше;

- Устройство чтения компакт-дисков;

- USB-порт;

- SVGA-видеокарта.

3. Подготовка к работе

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

Рисунок 50 - Выбор пользователя

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

4. Описание операций

В автоматизированной системе пользователь занимается созданием и сопровождением заявок. При появлении загрузки пользователь создает новую загрузку и заполняет её первоначальными данными. Все данные обязательные для заполнения выделяются красным рисунок 51.

Рисунок 51 - Пример обязательного поля

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

Рисунок 52 - Форма отправки электронных документов

Для заявки пользователь в праве создавать заказчиков рисунок 53, перевозчиков рисунок 54 и плательщиков рисунок 55.

Рисунок 53 - Создание заказчика

Рисунок 54 - Создание перевозчика

Рисунок 55 - Создание перевозчика

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

Рисунок 56 - Зарплата менеджера

5. Аварийные ситуации

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



ЗАКЛЮЧЕНИЕ

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

Результатом дипломного проектирования является разработанная автоматизированная система ведения хозяйственной деятельности предприятия для ООО «Виктори». Программа будет использоваться пользователями на предприятии для ведения и сопровождения транспортных перевозок.

Разработанная система отвечает всем предъявленным требования, её внедрение позволит сократить время на поиск, анализ, внесение и перенос информации о транспортных перевозках. А также повысить скорость реакции ответственного бухгалтера на поступлении и отправку новых документов и оплат. Автоматизированная система ведения хозяйственной деятельности была рекомендована и успешна внедрена в работу организации ООО «Виктори». В ходе внедрения были выявлены дополнительные функциональные требования, к системе которые можно в дальнейшем реализовать для более качественной работы системы.



СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Баронов, В. В. Автоматизация управления предприятием / В. В. Баронов, Г. Н. Калянов, Ю. И. Попов // Москва: Издательство Инфра-М, 2000. - С.238

2. Калянов, Г.Н. Консалтинг при автоматизации предприятий: подходы, методы, средства / Г. Н. Калянов // Москва: Издательство Инфра-М, 2000. - С.172

3. Информация об прикладных объектах программы 1С:Предприятие : сайт компании 1С ИТС. Режим доступа: https://its.1c.ru/

4. Моргунов, Е. В. PostgreSQL. Основы языка SQL / Е. П. Моргунов, Е. В. Рогова, П. В. Лузанова // Спб.: Издательство БХВ-Петербург, 2018. - С. 336

5. Чудинов, И. Л. Организация баз данных: Учебное пособие / И. Л.

Чудинов, В. В. Осипова // Томск: Издательство Томского политехнического университета, 2012. - С.139

6. Тиори Т. Проектирование структур базы данных / Т. Тиори, Дж. Фрай // Москва: Издательство Мир, 1985. - С.287

7. Радченко, М. Г. 1С:Предприятие 8.3. Практическое пособие разработчика/ М. Г. Радченко, Е. Ю. Хрусталева // Москва: Издательство 1С-Паблишинг, 2013. - С.964

8. Унгер Р. UX-дизайн. Практическое руководство по проектированию опыта взаимодействия / Р. Унгер, К. Чендлер // Москва: Издательство Символ, 2011. - С.327

9. Хрусталева Е. Ю. Разработка сложных отчетов в «1С:Предприятии 8.3». Система компоновки данных/ Е. Ю. Хрусталева // Москва: Издательство 1С-Паблишинг, 2013. - С.513



ПРИЛОЖЕНИЕ 1

(обязательное)

Логическая модель



ПРИЛОЖЕНИЕ 2

(Обязательное)

Справка о внедрении автоматизированной системы



ПРИЛОЖЕНИЕ 3

(Справочное)

Листинг кода программы

Ниже представлена функция выгрузки поступлений товаров и услуг в подключенную базу данных.

&НаСервере

// ============================================

// Выгрузить только поступление товаров и услуг

// ============================================

Функция ВыгрузитьПТУ(Док, ОрганизацияТам)

_Перевозчик = НайтиКонтрагента(Док.Перевозчик);

ПеревозчикТам = НайтиОбъектТам(_Перевозчик, 1);

Если ПеревозчикТам = Неопределено Тогда

ПеревозчикТам = СоздатьОбъектТам(_Перевозчик, 1);

КонецЕсли;

ДокТам2 = НайтиДокументТам(Док,1);

Если ДокТам2 = Неопределено Тогда

ДокТам2 = Бух1С.Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();

Бух1С.ЗаполнениеДокументов.Заполнить(ДокТам2);

ДокТам2.ВидОперации = Бух1С.Перечисления.ВидыОперацийПоступлениеТоваровУслуг.Услуги; //ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг

Иначе

Если ДокТам2.Проведен Тогда

ДокТам2.Записать(Бух1С.РежимЗаписиДокумента.ОтменаПроведения);

КонецЕсли;

ДокТам2.Услуги.Очистить();

КонецЕсли;

ДокТам2.Организация = ОрганизацияТам;

ДокТам2.ВалютаДокумента = Бух1С.Константы.ВалютаРегламентированногоУчета.Получить();

ДокТам2.Контрагент = ПеревозчикТам;

ТипДоговора = Бух1С.Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком;

Если ЗначениеЗаполнено(Док.СчетП) тогда

ДокТам2.НомерВходящегоДокумента = СокрЛП(Док.СчетП);

ДокТам2.ДатаВходящегоДокумента = Док.СчетПДата;

ДокТам2.Дата = Док.СчетПДата;

_СчетП = "Счет " + СокрЛП(Док.СчетП) + " от " + Формат(Док.СчетПДата,"ДФ=dd.MM.yyyy");

Иначе

Сообщить("Для документа "+Док+" не найден счет от перевозчика!" + Символы.ПС + "Использован основной договор!");

_СчетП = "С поставщиком";

КонецЕсли;

//КонецЕсли;

ДоговорТам2 = ПолучитьОснДоговорТам(ПеревозчикТам, ТипДоговора, _СчетП, ДокТам2);

ДокТам2.ДоговорКонтрагента = ДоговорТам2;

ДокТам2.СчетУчетаРасчетовСКонтрагентом = Бух1С.ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками;

ДокТам2.СчетУчетаРасчетовПоАвансам = Бух1С.ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным;

ДокТам2.Комментарий = "@Документ загружен из УТ №" + ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Док.Номер, Истина, Истина) + " от " + Формат(Док.Дата, "ДФ=dd.MM.yyyy");

// Заполняем табличную часть

ТЧ = Док.Услуги;

НужнаЛиСчетФактура = Ложь;

Если Док.ОплатаП_Форма = Справочники.Э_ФормыОплаты.БН тогда

ДокТам2.СуммаВключаетНДС = Истина;

ДокТам2.НДСВключенВСтоимость = Ложь;

Сумма = 0;

СуммаНДС = 0;

Для Каждого СтрТЧ Из ТЧ Цикл

Если ЗначениеЗаполнено(СтрТЧ.ОплатаП_Ставка) тогда

УслугаТам = НайтиОбъектТам(СтрТЧ.Услуга, 2);

Если УслугаТам = Неопределено Тогда

Сообщить("Для номенклатуры " + СтрТЧ.Услуга.Наименование + " не настроено соответствие", СтатусСообщения.Важное);

УслугаТам = СоздатьОбъектТам(СтрТЧ.Услуга, 2);

КонецЕсли;

НовСтр2 = ДокТам2.Услуги.Добавить();

//*

НовСтр2.Номенклатура = Бух1С.Справочники.Номенклатура.НайтиПоКоду("00000000172");

//*

НовСтр2.Содержание = "по маршруту: " + Док.Маршрут + ", " + Формат(Док.ДатаЗагрузки,"ДФ=dd.MM.yyyy") + "-" + Формат(Док.ДатаВыгрузки,"ДФ=dd.MM.yyyy");

//НовСтр2.Номенклатура = УслугаТам;

НовСтр2.Количество = 1;

НовСтр2.Сумма = СтрТЧ.ОплатаП_Ставка;

НовСтр2.Цена = СтрТЧ.ОплатаП_Ставка;

НовСтр2.СтавкаНДС = Бух1С.Перечисления.СтавкиНДС.НДС18;

НовСтр2.СуммаНДС = СтрТЧ.ОплатаП_Ставка * 18/118 ;

Сумма = Сумма + СтрТЧ.ОплатаП_Ставка;

СуммаНДС = СуммаНДС + СтрТЧ.ОплатаП_Ставка * 18/118;

НовСтр2.СчетЗатрат = Бух1С.ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01");

НовСтр2.СчетУчетаНДС = Бух1с.ПланыСчетов.Хозрасчетный.НайтиПоКоду("19.03");

НовСтр2.СчетЗатратНУ = Бух1С.ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01");

НовСтр2.СубконтоНУ1 = Бух1С.Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000003");

НовСтр2.СубконтоНУ2 = Бух1С.Справочники.СтатьиЗатрат.НайтиПоКоду("000000032");

НовСтр2.СубконтоНУ3 = Бух1С.Справочники.Номенклатура.НайтиПоКоду("00000000172");

НовСтр2.Субконто1 = Бух1С.Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000003");

НовСтр2.Субконто2 = Бух1С.Справочники.СтатьиЗатрат.НайтиПоКоду("000000032");

НовСтр2.Субконто3 = Бух1С.Справочники.Номенклатура.НайтиПоКоду("00000000172");

КонецЕсли;

КонецЦикла; // по ТЧ

НужнаЛиСчетФактура = Истина;

Иначе

Для Каждого СтрТЧ Из ТЧ Цикл

Если ЗначениеЗаполнено(СтрТЧ.ОплатаП_Ставка) тогда

УслугаТам = НайтиОбъектТам(СтрТЧ.Услуга, 2);

Если УслугаТам = Неопределено Тогда

Сообщить("Для номенклатуры " + СтрТЧ.Услуга.Наименование + " не настроено соответствие", СтатусСообщения.Важное);

УслугаТам = СоздатьОбъектТам(СтрТЧ.Услуга, 2);

КонецЕсли;

НовСтр2 = ДокТам2.Услуги.Добавить();

НовСтр2.Содержание = "по маршруту: " + Док.Маршрут + ", " + Формат(Док.ДатаЗагрузки,"ДФ=dd.MM.yyyy") + "-" + Формат(Док.ДатаВыгрузки,"ДФ=dd.MM.yyyy");

НовСтр2.Номенклатура = Бух1С.Справочники.Номенклатура.НайтиПоКоду("00000000172");;

НовСтр2.Количество = 1;

НовСтр2.Сумма = СтрТЧ.ОплатаП_Ставка;

НовСтр2.Цена = СтрТЧ.ОплатаП_Ставка;

НовСтр2.СтавкаНДС = Бух1С.Перечисления.СтавкиНДС.БезНДС;

НовСтр2.СуммаНДС = 0;

НовСтр2.СчетЗатрат = Бух1С.ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01");

НовСтр2.СчетЗатратНУ = Бух1С.ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01");

НовСтр2.СубконтоНУ1 = Бух1С.Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000003");

НовСтр2.СубконтоНУ2 = Бух1С.Справочники.СтатьиЗатрат.НайтиПоКоду("000000032");

НовСтр2.СубконтоНУ3 = Бух1С.Справочники.Номенклатура.НайтиПоКоду("00000000172");

НовСтр2.Субконто1 = Бух1С.Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000003");

НовСтр2.Субконто2 = Бух1С.Справочники.СтатьиЗатрат.НайтиПоКоду("000000032");

НовСтр2.Субконто3 = Бух1С.Справочники.Номенклатура.НайтиПоКоду("00000000172");

Если НДСОрганизации(Док.Организация) тогда

//НовСтр2.СчетУчетаНДС = Бух1с.ПланыСчетов.Хозрасчетный.НайтиПоКоду("19.03");

//НовСтр2.СчетЗатрат = Бух1С.ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");

//НовСтр2.СчетЗатратНУ = Бух1С.ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");

КонецЕсли;

КонецЕсли;

КонецЦикла; // по ТЧ

КонецЕсли;

Попытка

ДокТам2.Записать();

СохранитьПривязкуДокТам(Док, ДокТам2);

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

Попытка

Если НужнаЛиСчетФактура = Истина тогда

СозданиеСчетФактурыДляНДС(НужнаЛиСчетФактура,Док,ОрганизацияТам,ПеревозчикТам,ДокТам2,Сумма,СуммаНДС)

КонецЕсли;

ДокТам2.Записать(Бух1С.РежимЗаписиДокумента.Проведение);

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

Возврат ДокТам2;

КонецФункции

Ниже представлена процедура переноса документов в подключенную базу данных.

&НаСервере

Процедура ВыполнитьОбменНаСервере()

Если Бух1С = неопределено тогда

ПодключитьИБ();

КонецЕсли;

Если Бух1С = неопределено тогда

Сообщить("Бухгалтерия не подключена! Выгрузка невозможна.");

Возврат;

КонецЕсли;

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("НачДата", НачалоДня(НачалоПериода));

Запрос.УстановитьПараметр("КонДата", КонецДня(КонецПериода));

Виктори = Организация;

Запрос.УстановитьПараметр("Орг", Виктори);

Запрос.Текст = "ВЫБРАТЬ

| СРС.Ссылка

|ИЗ

| Документ.СчетНаОплатуКлиенту КАК СРС

|ГДЕ

| СРС.Проведен

| И СРС.Организация = &Орг

| И СРС.Дата МЕЖДУ &НачДата И &КонДата";

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл

Док = Выборка.Ссылка;

ОрганизацияТам = НайтиОбъектТам(Док.Организация, 3);

КонтрагентТам = НайтиОбъектТам(Док.Контрагент, 1);

Если КонтрагентТам = Неопределено Тогда

КонтрагентТам = СоздатьОбъектТам(Док.Контрагент, 1);

КонецЕсли;

Сообщить(Док);

ВыгрузитьРТУ(Док.ДокументОснование, КонтрагентТам, ОрганизацияТам,Виктори);

КонецЦикла;

Если Поступления тогда

ВыгрузкаПРС();

КонецЕсли;

Номера = Новый Запрос;

Номера.Текст =

"ВЫБРАТЬ

| Э_Груз.Ссылка,

| Э_Груз.ОрганизацияЗаказчика

|ИЗ

| Документ.Э_Груз КАК Э_Груз

|ГДЕ

| Э_Груз.ДатаВыгрузкиДляВывода МЕЖДУ &Д1 И &Д2

| И Э_Груз.ОрганизацияЗаказчика = &ОрганизацияЗаказчика

| И Э_Груз.СтатусыТС <> ЗНАЧЕНИЕ(Справочник.Э_СтатусыДокументов.НеУчитывать)";

Номера.УстановитьПараметр("Д1", НачалоДня(НачалоПериода));

Номера.УстановитьПараметр("Д2", КонецДня(КонецПериода));

Номера.УстановитьПараметр("ОрганизацияЗаказчика", Организация);

НомераСчетов = Номера.Выполнить();

Счета = НомераСчетов.Выбрать();

Пока Счета.Следующий() Цикл

ОрганизацияТам = НайтиОбъектТам(Счета.ОрганизацияЗаказчика, 3);

ВыгрузитьПТУ(Счета.Ссылка,ОрганизацияТам);

КонецЦикла;

Если Списания тогда

ВыгрузкаСРС();

КонецЕсли;

КонецПроцедуры

Размещено на Allbest.ru

...