Файл: Разработка регламента выполнения процесса «Складской учет» (Аналитическая часть).pdf

// регистр  _{процедура} Остатки  _входа Расход

Движение = Движения.Остатки.Добавить();

Движение.ВидДвижения= ВидДвиженияНакопления.Расход;

Движение.Период= Дата;

Движение.Фирма = Фирма;

Движение.Склад = СкладИсточник;

Движение.Номенклатура= ТекСтрокаНоменклатура.Номенклатура;

Движение.Количество  _{программные} = ТекСтрокаНоменклатура.Количество;

Движение.КодОперации= КодОперации;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

Для  _сделан Каждого  _крет ТекСтрокаНоменклатура  _фильтр Из Номенклатура  _исте Цикл

Движение = Движения.Остатки.Добавить();

Движение.ВидДвижения  _пособ = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Склад= СкладПриемник;

Движение.Номенклатура  _{конецпроцедуры} = ТекСтрокаНоменклатура.Номенклатура;

Движение.Количество  _ness = ТекСтрокаНоменклатура.Количество;

Движение.КодОперации  _{проведен} = КодОперации;

КонецЦикла;

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

Документ.Перемещение.Форма.ФормаДокумента.Форма.Модуль

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

Если  _{движение} ЭтотОбъект.ЭтоНовый() Тогда

КодОперации = Перечисления.КодыОпераций.перемещение;

КонецЕсли;  _после

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

Процедура  _{процедура} ПередЗаписью(Отказ,  _{нтообороту} РежимЗаписи,  _{автоматизации} РежимПроведения)

Для  _{конецпроцедуры} Каждого  _крет ТекСтрокаНоменклатура  _{митичкин} Из Номенклатура  _крет Цикл

ДоступноеКоличество = 0;

Измерения = "";

Фильтр = Новый  _тогда Структура;

Фильтр.Вставить("Склад", СкладИсточник);

Измерения = Измерения+"Склад";

Фильтр.Вставить("Номенклатура",

ТекСтрокаНоменклатура.Номенклатура);

Измерения = Измерения+",Номенклатура";

ТаблицаОстатков  _отказ =  _группы РегистрыНакопления.Остатки.Остатки(Дата,

Фильтр,  _сост Измерения);

Если  _исте ТаблицаОстатков.Количество() > 0 Тогда

СтрокаОстатков= ТаблицаОстатков.Получить(0);

ДоступноеКоличество = СтрокаОстатков.Количество;

КонецЕсли;

Если  _{кодоперации} ТекСтрокаНоменклатура.Количество>ДоступноеКоличество

Тогда

Предупреждение("Для  _если номенклатуры " +

ТекСтрокаНоменклатура.Номенклатура + Символы.ПС +

"нет  _досту необходимого  _тогда количества" + Символы.ПС +

"на  _истр остаке " + ДоступноеКоличество, 60, "ВНИМАНИЕ");

Отказ = Истина;

Прервать;

КонецЕсли;

КонецЦикла;

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

Документ.ПКО.МодульОбъекта

Процедура  _досту ОбработкаПроведения(Отказ,  _{существующем} Режим)

Если  _{имеющая} Фирма.Пустая() Тогда

Предупреждение("Заполните  _ктро фирму!", 60, "Проведение.");

Отказ = истина;

Возврат;

КонецЕсли;

Если  _{регистр} Контрагент.Пустая() Тогда

Предупреждение("Заполните  _исте контрагента!", 60, "Проведение.");

Отказ = истина;

Возврат;

КонецЕсли;

Если  _{нтообороту} Касса.Пустая() Тогда

Предупреждение("Заполните  _{необходимого} кассу!", 60, "Проведение.");

Отказ = истина;

Возврат;

КонецЕсли;

// регистр  _{кодоперации} Взаиморасчеты  _{номенклатура} Приход

Движение = Движения.Взаиморасчеты.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Фирма  _{процедура} = Фирма;

Движение.Контрагент = Контрагент;

Движение.Сделка= ЭтотОбъект.Ссылка;

Движение.Сумма  _{измерения} = ЭтотОбъект.Сумма;

Движение = Движения.Касса.Добавить();

Движение.ВидДвижения= ВидДвиженияНакопления.Приход;

Движение.Период  _исте = Дата;

Движение.Фирма = Фирма;

Движение.Касса = Касса;

Движение.Сумма = ЭтотОбъект.Сумма;

Движение.КодОперации= Перечисления.КодыОпераций.ПКО;

// регистр  _{конецпроцедуры} Основной

//Движение = Движения.Основной.Добавить();

//Движение.СчетДт = ПланыСчетов.Основной.ТоварыНаСкладах;

//Движение.СчетКт =

ПланыСчетов.Основной.РасчетыСПоставщикамиВРублях;

//Движение.Период = Дата;

//Движение.Сумма = ТекСтрокаНоменклатура.Сумма;

//Движение.КоличествоДт = ТекСтрокаНоменклатура.Количество;

//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = ТекСтрокаНоменклатура.Номенклатура;

//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты] = Контрагент;

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

Документ.ПКО.Форма.ФормаДокумента.Форма.Модуль

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

Если  _rectu ЭтотОбъект.ЭтоНовый() Тогда

КодОперации = Перечисления.КодыОпераций.ПКО;

КонецЕсли;  _{нтооборот}

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

Процедура  _{процедура} Печать(Кнопка)

ТабДок = Новый  _{движение} ТабличныйДокумент;

Макет = Документы.ПКО.ПолучитьМакет("МакетПКО");

// Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

Область.Параметры.ПКОСтрока = "ПКО № " +

ЭтотОбъект.Номер +  _{рассмотрена}

Формат(ЭтотОбъект.Дата, "ДФ='дд  _фильтр ММММ  _{заголовок} гггг'");

Область.Параметры.Фирма =

ЭтотОбъект.Фирма.Наименование;

Область.Параметры.РеквизитыФирмы=  _{номенклатуры} "ИНН " +

ЭтотОбъект.Фирма.ИНН +

" КПП " + ЭтотОбъект.Фирма.КПП +

" Юр.адрес " + ЭтотОбъект.Фирма.ЮридическийАдрес;

Область.Параметры.Касса= ЭтотОбъект.Касса.Наименование;

Область.Параметры.Контрагент =

ЭтотОбъект.Контрагент.Наименование;

Область.Параметры.РеквизитыКонтрагента = "ИНН " +

ЭтотОбъект.Контрагент.ИНН +

" КПП " + ЭтотОбъект.Контрагент.КПП;

Область.Параметры.Сумма = Формат(ЭтотОбъект.Сумма,

"ЧЦ=15;ЧДЦ=2") + " ( "

+ ЧислоПрописью(ЭтотОбъект.Сумма, "L=ru_RU") + " ) руб.";;

ТабДок.Вывести(Область);

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

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

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

Документ.ПоступлениеТМЦ.МодульОбъекта

Процедура  _выборе ОбработкаПроведения(Отказ,  _{регистр} Режим)

Для  _ктро Каждого  _{поэтому} ТекСтрокаНоменклатура  _{процедура} Из Номенклатура  _{каждого} Цикл

// регистр  _{каждого} Остатки  _{регистрын} Приход

Движение = Движения.Остатки.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Фирма = Фирма;

Движение.Склад = Склад;

Движение.Номенклатура = ТекСтрокаНоменклатура.Номенклатура;

Движение.Количество = ТекСтрокаНоменклатура.Количество;

Движение.КодОперации = КодОперации;

КонецЦикла;

Для  _тогда Каждого  _{кодоперации} ТекСтрокаНоменклатура  _отдела Из Номенклатура  _цикл Цикл

// регистр  _исте Взаиморасчеты  _курс Приход

Движение = Движения.Взаиморасчеты.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Фирма = Фирма;

Движение.Контрагент = Контрагент;

Движение.Сделка = ЭтотОбъект.Ссылка;

Движение.Сумма = ТекСтрокаНоменклатура.Сумма;

КонецЦикла;

Для  _{конецпроцедуры} Каждого  _отказ ТекСтрокаНоменклатура  _{кодоперации} Из Номенклатура  _{кодоперации} Цикл

// регистр  _группы Основной

Движение = Движения.Основной.Добавить();

Движение.СчетДт = ПланыСчетов.Основной.ТоварыНаСкладах;

Движение.СчетКт =

ПланыСчетов.Основной.РасчетыСПоставщикамиВРублях;

Движение.Период = Дата;

Движение.Сумма = ТекСтрокаНоменклатура.Сумма;

Движение.КоличествоДт = ТекСтрокаНоменклатура.Количество;

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = ТекСтрокаНоменклатура.Номенклатура;

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты] = Контрагент;

КонецЦикла;

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

Документ.ПоступлениеТМЦ.Форма.ФормаДокумента.Форма.Модуль

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

Если  _если ЭтотОбъект.ЭтоНовый() Тогда

КодОперации = Перечисления.КодыОпераций.приход;

КонецЕсли;  _исте

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

Документ.ПриходПоБанку.МодульОбъекта

Процедура  _{заголовок} ОбработкаПроведения(Отказ,  _обес Режим)

Если  _{предложенного} Фирма.Пустая() Тогда

Предупреждение("Заполните  _затем фирму!", 60, "Проведение.");

//  _{существующем} Отказ = истина;

Возврат;

КонецЕсли;

Если  _цикл Контрагент.Пустая() Тогда

Предупреждение("Заполните  _частью контрагента!", 60, "Проведение.");

//  _если Отказ = истина;

Возврат;

КонецЕсли;

Если  _{номенклатуры} Фирма.БанковскийСчет.Пустая() Тогда

Предупреждение("Заполните  _{движение} банковский  _{необходимого} счет  _ктро у фирмы!", 60, "Проведение.");

//  _{необходимо} Отказ = истина;

Возврат;

КонецЕсли;

Если  _досту Контрагент.БанковскийСчет.Пустая() Тогда

Предупреждение("Заполните  _фильтр банковский  _{журналы} счет  _досту у контрагента!", 60, "Проведение.");

//Отказ = истина;

Возврат;

КонецЕсли;

// регистр  _{процедура} Взаиморасчеты  _также Приход

Движение = Движения.Взаиморасчеты.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период  _{системы} = Дата;

Движение.Фирма  _входа = Фирма;

Движение.Контрагент = Контрагент;

Движение.Сделка= ЭтотОбъект.Ссылка;

Движение.Сумма  _период = ЭтотОбъект.Сумма;

Движение = Движения.Банк.Добавить();

Движение.ВидДвижения= ВидДвиженияНакопления.Приход;

Движение.Период= Дата;

Движение.Фирма  _{баронов} = Фирма;

Движение.БанковскийСчет  _{строятся} = Фирма.БанковскийСчет;

Движение.Сумма  _{движение} = ЭтотОбъект.Сумма;

Движение.КодОперации=

Перечисления.КодыОпераций.ПриходПоБанку;

// регистр  _новом Основной

//Движение = Движения.Основной.Добавить();

//Движение.СчетДт = ПланыСчетов.Основной.ТоварыНаСкладах;

//Движение.СчетКт =

ПланыСчетов.Основной.РасчетыСПоставщикамиВРублях;

//Движение.Период = Дата;

//Движение.Сумма = ТекСтрокаНоменклатура.Сумма;

//Движение.КоличествоДт = ТекСтрокаНоменклатура.Количество;

//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = ТекСтрокаНоменклатура.Номенклатура;

//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты] = Контрагент;

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

Документ.ПриходПоБанку.Форма.ФормаДокумента.Форма.Модуль

Процедура  _{измерения} ПриОткрытии()

Если  _{кодоперации} ЭтотОбъект.ЭтоНовый() Тогда

КодОперации = Перечисления.КодыОпераций.ПриходПоБанку;

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

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

Процедура  _истр Печать(Кнопка)

ТабДок = Новый  _{номенклатура} ТабличныйДокумент;

Макет =

Документы.ПриходПоБанку.ПолучитьМакет("МакетПриходПоБанку");

// Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

Область.Параметры.ПриходПоБанкуСтрока = "Приход  _{тютюник} по банку № " + ЭтотОбъект.Номер +  _{процедура}

Формат(ЭтотОбъект.Дата, "ДФ='дд  _{измерения} ММММ  _отказ гггг'");

Область.Параметры.Фирма =

ЭтотОбъект.Фирма.Наименование;

Область.Параметры.РеквизитыФирмы= "ИНН " +

ЭтотОбъект.Фирма.ИНН +

" КПП " + ЭтотОбъект.Фирма.КПП +

" Юр.адрес " + ЭтотОбъект.Фирма.ЮридическийАдрес;

Область.Параметры.БСФирма =

ЭтотОбъект.Фирма.БанковскийСчет;

Область.Параметры.Контрагент =

ЭтотОбъект.Контрагент.Наименование;

Область.Параметры.РеквизитыКонтрагента = "ИНН " +

ЭтотОбъект.Контрагент.ИНН +

" КПП " + ЭтотОбъект.Контрагент.КПП;

Область.Параметры.БСКонтрагент =

ЭтотОбъект.Контрагент.БанковскийСчет;

Область.Параметры.Сумма = Формат(ЭтотОбъект.Сумма,

"ЧЦ=15;ЧДЦ=2") + " ( "

+ ЧислоПрописью(ЭтотОбъект.Сумма, "L=ru_RU") + " ) руб.";;

ТабДок.Вывести(Область);

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

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

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

Документ.РасходПоБанку.МодульОбъекта

Процедура  _{процедура} ОбработкаПроведения(Отказ,  _{отчетов} Режим)

Если  _{регистр} Фирма.Пустая() Тогда

Предупреждение("Заполните  _{каждого} фирму!", 60, "Проведение.");

// Отказ = истина;

Возврат;

КонецЕсли;

Если  _ктро Контрагент.Пустая() Тогда

Предупреждение("Заполните  _{процедура} контрагента!", 60, "Проведение.");