Файл: Проектирование реализации операций бизнес-процесса «Складской учет» ООО «ЖилРемСтрой».pdf

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

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

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

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

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

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

Возврат;

КонецЕсли;

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

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

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

Возврат;

КонецЕсли;

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

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

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

Возврат;

КонецЕсли;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

// Заголовок

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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

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

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

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

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

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

Возврат;

КонецЕсли;

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

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

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

Возврат;

КонецЕсли;

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

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

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

Возврат;

КонецЕсли;

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

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

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

Возврат;

КонецЕсли;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Макет =

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

// Заголовок

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Возврат;

КонецЕсли;

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

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

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

Возврат;

КонецЕсли;

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

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

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

Возврат;

КонецЕсли;

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

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

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

Возврат;

КонецЕсли;

// регистр  _{измерения} Взаиморасчеты  _rectu Приход

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

// регистр  _{обладает} Основной

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;  _{проведен}

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

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

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

Макет =

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

// Заголовок

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

Область.Параметры.РасходПоБанкуСтрока  _исте

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