Отчет по практике в ЗАО “Бриджтаун Фудс”

ТаблДв.НоваяКолонка("ДатаДок","Дата");

ТаблДв.НоваяКолонка("ВидДв","Число",15);

 

// Таблица соответствия накладных и Передач ТМЦ экспедитору

ТаблН = СоздатьОбъект("ТаблицаЗначений");

ТаблН.НоваяКолонка("Передача","Документ.ПередачаТМЦЭкспедитору");

ТаблН.НоваяКолонка("Накл","Документ.Реализация");

 

// Заполним таблицу  соответствия

Док=СоздатьОбъект("Документ.ПередачаТМЦЭкспедитору");

Док.ВыбратьДокументы(ДатаНач,ДатаКон);

Пока Док.ПолучитьДокумент()=1 Цикл

Если Док.Проведен()=0 Тогда 

Продолжить;

КонецЕсли;

Состояние(""+Док.ТекущийДокумент());

    Док.ВыбратьСтроки();

Пока Док.ПолучитьСтроку()=1 Цикл

ТаблН.НоваяСтрока();

ТаблН.Передача = Док.ТекущийДокумент();

ТаблН.Накл = Док.Накладная;

КонецЦикла;

КонецЦикла;

 

//Сформируем запрос  по остаткам и движению номенклатуры

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Сформировать)

|Период с  ДатаНач по ДатаКон;

|Док     = Регистр.ОстаткиТМЦ.ТекущийДокумент,

|                 Регистр.РезервыТМЦ.ТекущийДокумент,

|                 Регистр.ПартииОтданные.ТекущийДокумент;

|Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура,     

|                 Регистр.РезервыТМЦ.Номенклатура,

|                 Регистр.ПартииОтданные.Номенклатура;

|Количество = Регистр.ОстаткиТМЦ.Количество,

|             Регистр.ПартииОтданные.Количество;

|Функция КолНачОст        = НачОст(Количество);

|Функция КолКонОст         = КонОст(Количество);

|Функция КолПриход       = Приход(Количество);

|Функция КолРасход       = Расход(Количество);

|Группировка  Номенклатура без групп;

|Группировка  Док;";

 

 

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

Свр = "";

Пока Запрос.Группировка(1) = 1 Цикл

 

    Коэф = Запрос.Номенклатура.ОсновнаяЕдиница.Коэффициент;

НачОстШт = Запрос.КолНачОст;

НачОстКор = ?(Коэф = 0,Запрос.КолНачОст,Запрос.КолНачОст/Коэф);

// Заполняем таблицу  остатков и общего количества  прихода и расхода  по каждой  позиции номенклатуры в штуках  и коробах

ТаблТ.НоваяСтрока();

ТаблТ.Группа = Запрос.Номенклатура.ОсновноеСвойство.ЗначениеСвойства;

ТаблТ.Товар = Запрос.Номенклатура;

ТаблТ.КолПриходШт = Запрос.КолПриход;

ТаблТ.КолПриходКор = ?(Коэф = 0,Запрос.КолПриход,Запрос.КолПриход/Коэф);

ТаблТ.КолРасходШт = Запрос.КолРасход;

ТаблТ.КолРасходКор = ?(Коэф = 0,Запрос.КолРасход,Запрос.КолРасход/Коэф);

ТаблТ.КолКонОстШт = Запрос.КолКонОст;

ТаблТ.КолКонОстКор = ?(Коэф = 0,Запрос.КолКонОст,Запрос.КолКонОст/Коэф);

   

// В таблице итогов  и таблице движений добавляем  колонки движения в штуках  и коробах

// идентификатор колонки - код номенклатуры

ТаблИт.НоваяКолонка("Ш"+СокрЛП(ТаблТ.Товар.Код),"Число",15);

ТаблИт.НоваяКолонка("К"+СокрЛП(ТаблТ.Товар.Код),"Число",15,5);

ТаблДв.НоваяКолонка("Ш"+СокрЛП(ТаблТ.Товар.Код),"Число",15);

ТаблДв.НоваяКолонка("К"+СокрЛП(ТаблТ.Товар.Код),"Число",15,5);

 

//Формируем список  полей для последующей свертки  таблиц

Свр=Свр+",Ш"+СокрЛП(ТаблТ.Товар.Код)+",К"+СокрЛП(ТаблТ.Товар.Код);

 

// В таблицу итогов  запишем начальный остаток в  штуках и коробах

ТаблИт.НоваяСтрока();

ТаблИт.Группа = Запрос.Номенклатура.ОсновноеСвойство.ЗначениеСвойства;

ТаблИт.УстановитьЗначение(ТаблИт.НомерСтроки,"Ш"+СокрЛП(ТаблТ.Товар.Код),НачОстШт);

ТаблИт.УстановитьЗначение(ТаблИт.НомерСтроки,"К"+СокрЛП(ТаблТ.Товар.Код),НачОстКор);

 

// Заполним движение  по номенклатуре

Пока Запрос.Группировка(2) = 1 Цикл

Если (Запрос.КолПриход = 0) И (Запрос.КолРасход = 0) Тогда

    Продолжить;

КонецЕсли;

// для документа движения "Реализация" по таблице соответствия  проверяем - если есть передача, то заменяем на документ передачи

ТекДок = Запрос.Док;

Если ТекДок.Вид() = "Реализация" Тогда

    Стр  = "";

Если ТаблН.НайтиЗначение(ТекДок,Стр,"Накл") = 1 Тогда

    ТаблН.ПолучитьСтрокуПоНомеру(Стр);

ТекДок = ТаблН.Передача;

КонецЕсли;

КонецЕсли;

// записываем движение: приход "+", расход "-"

КолШт = Запрос.КолПриход - Запрос.КолРасход;

КолКор = ?(Коэф = 0,КолШт,КолШт/Коэф);

ТаблДв.НоваяСтрока();

ТаблДв.Группа = Запрос.Номенклатура.ОсновноеСвойство.ЗначениеСвойства;

ТаблДв.Документ = ТекДок;

ТаблДв.ДатаДок = ТекДок.ДатаДок;

ТаблДв.ВидДв = КолШт;

ТаблДв.УстановитьЗначение(ТаблДв.НомерСтроки,"Ш"+СокрЛП(ТаблТ.Товар.Код),КолШт);

ТаблДв.УстановитьЗначение(ТаблДв.НомерСтроки,"К"+СокрЛП(ТаблТ.Товар.Код),КолКор);

КонецЦикла;

КонецЦикла;

 

Свр = Сред(Свр,2);

// Сворачиваем таблицы

ТаблТ.Свернуть("Группа,Товар","КолПриходШт,КолРасходШт,КолКонОстШт,КолПриходКор,КолРасходКор,КолКонОстКор");

ТаблИт.Свернуть("Группа",Свр);

ТаблДв.Свернуть("Группа,Документ,ДатаДок",(Свр+",ВидДв"));

 

ТаблДв.Сортировать("+Группа,+ДатаДок,-ВидДв");

ТаблИт.Сортировать("+Группа");

ТаблТ.Сортировать("+Группа,+Товар");

 

// Формируем отчет

// Перебираем таблицу  итогов - список групп,

// на каждую группу  формируем отдельный лист отчета

ЧислоСтр=0;

ТаблИт.ВыбратьСтроки();

Пока ТаблИт.ПолучитьСтроку()=1 Цикл

    Если Не (ТаблИт.НомерСтроки=1) Тогда

Таб.НоваяСтраница();

КонецЕсли;

Таб.ВывестиСекцию("Заголовок|ОтгрДокумент");

Таб.ВывестиСекцию("Шапка|ОтгрДокумент");

ИтКолШт=0;

ИтКолКор=0;

// В шапку выводим  позиции номенклатуры, входящие в группу и остатки на начало

ТаблТ.ВыбратьСтроки();

Пока ТаблТ.ПолучитьСтроку()=1 Цикл

    Если  ТаблТ.Группа=ТаблИт.Группа Тогда

ЗагШапки=ТаблТ.Товар;

КолШт=ТаблИт.ПолучитьЗначение(ТаблИт.НомерСтроки,"Ш"+СокрЛП(ТаблТ.Товар.Код));

КолКор=ТаблИт.ПолучитьЗначение(ТаблИт.НомерСтроки,"К"+СокрЛП(ТаблТ.Товар.Код));

 

// суммируем остатки  по всем позициям номенклатурной  группы

ИтКолШт=ИтКолШт+КолШт;

ИтКолКор=ИтКолКор+КолКор;

Таб.ПрисоединитьСекцию("Шапка|Товар");

КонецЕсли;

КонецЦикла;

// выведем остаток  по группе

ЗагШапки=ТаблИт.Группа;

КолШт=ИтКолШт;

КолКор=ИтКолКор;

Таб.ПрисоединитьСекцию("Шапка|Товар");

 

// Выводим документы  движения группы номенклатуры

ТаблДв.ВыбратьСтроки();

Пока ТаблДв.ПолучитьСтроку()=1 Цикл

Если Не (ТаблДв.Группа = ТаблИт.Группа) Тогда

    Продолжить;

КонецЕсли;

Документ=ТаблДв.Документ;

Таб.ВывестиСекцию("Строка|ОтгрДокумент");

ИтКолШт=0;

ИтКолКор=0;

// выводим движение по каждой позиции номенклатуры

ТаблТ.ВыбратьСтроки();

Пока ТаблТ.ПолучитьСтроку()=1 Цикл

    Если  ТаблТ.Группа=ТаблИт.Группа Тогда

КолШт=ТаблДв.ПолучитьЗначение(ТаблДв.НомерСтроки,"Ш"+СокрЛП(ТаблТ.Товар.Код));

КолКор=ТаблДв.ПолучитьЗначение(ТаблДв.НомерСтроки,"К"+СокрЛП(ТаблТ.Товар.Код));

// суммируем движение  по всем позициям номенклатурной  группы

ИтКолШт=ИтКолШт+КолШт;

ИтКолКор=ИтКолКор+КолКор;

Таб.ПрисоединитьСекцию("Строка|Товар");

КонецЕсли;

КонецЦикла;

// выведем общее движение по группе

КолШт=ИтКолШт;

КолКор=ИтКолКор;

Таб.ПрисоединитьСекцию("Строка|Товар");

КонецЦикла;

 

// Выведем итоги движения  и остатки на конец из таблицы  остатков

ИтОстКолШт=0;

ИтОстКолКор=0;

ИтПКолШт=0;

ИтПКолКор=0;

ИтРКолШт=0;

ИтРКолКор=0;

Таб.ВывестиСекцию("Итог|ОтгрДокумент");

ТаблТ.ВыбратьСтроки();

Пока ТаблТ.ПолучитьСтроку()=1 Цикл

    Если  ТаблТ.Группа=ТаблИт.Группа Тогда

// Суммируем общее  количество прихода, расхода и  конечного остатка по группе

ОстКолШт=ТаблТ.КолКонОстШт;

ОстКолКор=ТаблТ.КолКонОстКор;

ПКолШт=ТаблТ.КолПриходШт;

ПКолКор=ТаблТ.КолПриходКор;

РКолШт=ТаблТ.КолРасходШт;

РКолКор=ТаблТ.КолРасходКор;

ИтОстКолШт=ИтОстКолШт + ТаблТ.КолКонОстШт;

ИтОстКолКор=ИтОстКолКор + ТаблТ.КолКонОстКор;

ИтПКолШт=ИтПКолШт + ТаблТ.КолПриходШт;

ИтПКолКор=ИтПКолКор + ТаблТ.КолПриходКор;

ИтРКолШт=ИтРКолШт + ТаблТ.КолРасходШт;

ИтРКолКор=ИтРКолКор + ТаблТ.КолРасходКор;

Таб.ПрисоединитьСекцию("Итог|Товар");

КонецЕсли;

КонецЦикла;

// выводим итоги по  группе

ОстКолШт=ИтОстКолШт;

ОстКолКор=ИтОстКолКор;

ПКолШт=ИтПКолШт;

ПКолКор=ИтПКолКор;

РКолШт=ИтРКолШт;

РКолКор=ИтРКолКор;

Таб.ПрисоединитьСекцию("Итог|Товар");

КонецЦикла;

 

Таб.ПараметрыСтраницы(2,,,10,10,10,10,,,1,,);

Таб.Показать();

 

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

 

Процедура ПриОткрытии()

 

ДатаНач = НачалоПериодаБИ();

ДатаКон = КонецПериодаБИ();

 

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

 

2.4  Технологическое обеспечение задачи

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

Чтобы начать работу, нужно  запустить систему программ 1С:Предприятие. На экран выводится главное окно программы.

Рисунок 1

 

После этого в Главном меню программы необходимо выбрать пункт Документы, Реализация (купля-продажа). Занести данные в шапку документа и в табличную часть.

 

 

Для формирования накладной  необходимо нажать на кнопку Провести.

Далее нужно открыть пункт меню Документы, выбрать документ

РеестрНакладнойПоСкладуДоставки.

 

Рисунок2

 

 

В этом документе необходимо выбрать дату, на которую были сформированы нужные нам накладные и склад, с которого будет производиться  отгрузка товара. Далее нажать на кнопку Заполнить. В табличной части документа выведутся все накладные на эту дату. Выбрать маршрут, по которому будет отправляться товар. Нажать на кнопку СформироватьПередачуТМЦ. Откроется документ ПередачаТМЦЭкспедитору. Чтобы Сохранить Документ