авторПроцедура ОбработкаПроведения()
Сч19 = СчетПоКоду("19.3");
Сч412 = СчетПоКоду("41.2");
Сч60 = СчетПоКоду("60.1");
Сч61 = СчетПоКоду("61.1");

Если ПустоеЗначение(ДатаОплаты) = 1 Тогда
Сообщить("Не задан срок оплаты накладной!");
ИначеЕсли ПустоеЗначение(СЧ_Ф) = 1 Тогда
Сообщить("Не задан номер счет-фактуры поставщика!");
ИначеЕсли ПустоеЗначение(Дата_СФ) = 1 Тогда
Сообщить("Не задана дата выписки счет-фактуры поставщика!");
ИначеЕсли ПустоеЗначение(Контрагент) = 1 Тогда
Сообщить("Не выбран поставщик!");
КонецЕсли;

Флаг = 1;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если (ПустоеЗначение(СтавкаНДС) = 0) и (Сумма = СуммаБезНДС) Тогда
Сообщить(СокрЛП(Товар.Наименование) + " - Сумма = Сумме без НДС причем Ставка НДС = "+строка(СтавкаНДС));
//Флаг = 0;
//СтатусВозврата(0);
КонецЕсли;
Если (ПустоеЗначение(СтавкаНДС) = 0) и ((СтавкаНДС <>10) и (СтавкаНДС <>20) и (СтавкаНДС <>18)) Тогда
Сообщить(СокрЛП(Товар.Наименование) + "Неверная ставка НДС = "+строка(СтавкаНДС));
Флаг = 0;
СтатусВозврата(0);
КонецЕсли;

//Проц = Окр((Цена/(ЦенаПроизводителя)-1)*100,2);
Проц = 100 * (Цена - ЦенаПост) / ЦенаПроизводителя;

Если (Контрагент = Константа.Промсервис) или (Контрагент = Константа.БьютиЛайф) тогда
Проц = Окр((Цена/(Сумма/Количество)-1)*100,2);
КонецЕсли;

Если Проц<=0 Тогда
Если Проц<0 Тогда
Сообщить(СокрЛП(Товар.Наименование) + " не правильно заприходован - минусовая наценка !!!"+" - "+Строка(Проц));
Если Контрагент <> Константа.Промсервис тогда
Флаг = 0;
СтатусВозврата(0);
конецесли;
Иначе
Сообщить(СокрЛП(Товар.Наименование) + " не правильно заприходован - нулевая наценка !!!"+" - "+Строка(Проц));
КонецЕсли;
КонецЕсли;

Если Проц>35 Тогда
Сообщить(СокрЛП(Товар.Наименование) + " Большая наценка !!!"+" - "+Строка(Проц));
//Флаг = 0;
//СтатусВозврата(0);
КонецЕсли;


Если Проц<15 Тогда
Сообщить(СокрЛП(Товар.Наименование) + " Маленькая наценка !!!"+" - "+Строка(Проц));
//Флаг = 0;
//СтатусВозврата(0);
КонецЕсли;


КонецЦикла;


Если Флаг = 1 тогда

ВыбратьСтроки();
СпрСерия = СоздатьОбъект( "Справочник.Серии" );


Пока ПолучитьСтроку() = 1 Цикл
Состояние("Проводится строка № " + НомерСтроки + " из " + КоличествоСтрок());
СпрСерия.ИспользоватьВладельца( Товар );
СпрСерия.ВыбратьЭлементы();
ЦенаПоставщика = Окр(( Сумма ) / Количество,2);
ЕстьСерия = 0;
//Пока СпрСерия.ПолучитьЭлемент() = 1 Цикл
// Если ( СокрЛП(СпрСерия.Наименование) = СокрЛП( Серия ) )
// И ( СпрСерия.СтавкаНДС.Получить( ДатаДок ) = СтавкаНДС )
// И ( СпрСерия.ЦенаРозничная.Получить( ДатаДок ) = Цена )
// И ( СпрСерия.ЦенаПроизводителя.Получить( ДатаДок ) = ЦенаПроизводителя )
// И ( СпрСерия.ЦенаРеестра.Получить( ДатаДок ) = ЦенаРеестра )
// И ( СпрСерия.ЦенаПоставщика.Получить( ДатаДок ) = ЦенаПоставщика ) Тогда
// ЕстьСерия = 1;
// Прервать;
// КонецЕсли;
//КонецЦикла;
Пока СпрСерия.ПолучитьЭлемент() = 1 Цикл
Если СокрЛП(СпрСерия.Наименование) = СокрЛП( Серия ) тогда
Если СпрСерия.СтавкаНДС.Получить( ДатаДок ) = СтавкаНДС тогда
Если СпрСерия.ЦенаПроизводителя.Получить( ДатаДок ) = ЦенаПроизводителя тогда
Если СпрСерия.СрокГодн.Получить( ДатаДок ) = СрокГодн тогда
//Если СпрСерия.НомерСертиф.Получить( ДатаДок ) = НомерСертиф тогда
//Если СпрСерия.ДействитДо.Получить( ДатаДок ) = ДействитДо тогда
//Если СпрСерия.Декларант.Получить( ДатаДок ) = Декларант тогда
//Если СпрСерия.ДатаВыдачи.Получить( ДатаДок ) = ДатаВыдачи тогда
Если СпрСерия.ЦенаПоставщика.Получить( ДатаДок ) = ЦенаПоставщика Тогда
Если (СпрСерия.ЦенаРозничная.Получить( ДатаДок ) = Цена )
И ( СпрСерия.ЦенаРеестра.Получить( ДатаДок ) = ЦенаРеестра ) тогда
ЕстьСерия = 1;
Прервать;
КонецЕсли;
// КонецЕсли;
// КонецЕсли;
//КонецЕсли;
//КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если ЕстьСерия = 0 Тогда
СпрСерия.Новый();
СпрСерия.Наименование = СокрЛП( Серия );
СпрСерия.Записать();
СпрСерия.СтавкаНДС.Установить( ДатаДок, СтавкаНДС );
СпрСерия.ЦенаРозничная.Установить( ДатаДок, Цена );
СпрСерия.ЦенаПроизводителя.Установить( ДатаДок, ЦенаПроизводителя );
СпрСерия.ЦенаПоставщика.Установить( ДатаДок, ЦенаПоставщика );
СпрСерия.ЦенаРеестра.Установить( ДатаДок, ЦенаРеестра );
СпрСерия.СрокГодн.Установить( ДатаДок, СрокГодн );
СпрСерия.НомерСертиф.Установить( ДатаДок, НомерСертиф );
СпрСерия.ДействитДо.Установить( ДатаДок, ДействитДо );
СпрСерия.Декларант.Установить( ДатаДок, Декларант );
СпрСерия.ДатаВыдачи.Установить( ДатаДок, ДатаВыдачи );
СпрСерия.Записать();
КонецЕсли;


Операция.НоваяПроводка();
Операция.Дебет.Счет = СубСчет41;
Операция.Дебет.Номенклатура = Товар;
Операция.Дебет.МестаХранения = МестоХранения;
Операция.Дебет.Серия = СпрСерия.ТекущийЭлемент();
Операция.Кредит.Счет = Сч60;
Операция.Кредит.Контрагенты = Контрагент;
Операция.Кредит.Договоры = Договор;
Операция.Количество = Количество;
Если СуммаБезНДС = 0 тогда
УчетнаяСтоимость = Сумма;
СуммаБезНДС = Сумма;
Иначе
УчетнаяСтоимость = СуммаБезНДС;
КонецЕсли;
Операция.Сумма = УчетнаяСтоимость;
Операция.СодержаниеПроводки = "Поступили товары";
Операция.НомерЖурнала = "ТВ";
КонецЦикла;

Если Итог("НДС") > 0 Тогда
Операция.НоваяПроводка();
Операция.Дебет.Счет = Сч19;
Операция.Кредит.Счет = Сч60;
Операция.Дебет.Контрагенты = Контрагент;
//Операция.Дебет.СчетаФактурыПолученные = ТекущийДокумент();

Операция.Кредит.Контрагенты = Контрагент;
Операция.Кредит.Договоры = Договор;
Операция.Сумма = Итог("НДС");
Операция.СодержаниеПроводки = "Выделен НДС";
Операция.НомерЖурнала = "ТВ";
КонецЕсли;

БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги");
БухИтоги.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент,2);
БухИтоги.ИспользоватьСубконто(ВидыСубконто.Договоры,Договор,2);
БухИтоги.ВыполнитьЗапрос(ТекущийДокумент(),,Сч61,,,,,"С");
Аванс = БухИтоги.СНД();


//John ??
Если (Льгота=1) тогда
// создаем оплачивающую проводку
Если Итог("Сумма")>0 Тогда

Движ_ = создатьобъект("Справочник.ДвиженияДенежныхСредств");
Если Движ_.НайтиПоНаименованию("Оплата поставщику",0,0)=1 тогда
ВидДвижения_ =Движ_.ТекущийЭлемент();
Иначе
ВидДвижения_ ="";
КонецЕсли;

Операция.НоваяПроводка();
Операция.НомерЖурнала = "БК";

Операция.Дебет.Счет = Счетпокоду("51");
Операция.Дебет.БанковскиеСчета = Константа.ОсновнойБанковскийСчет;
Операция.Дебет.ДвиженияДенежныхСредств = ВидДвижения_;
Операция.Сумма = -1*Итог("Сумма");


Операция.СодержаниеПроводки = "Льготная поставка "+строка(НомерДок)+" от "+строка(ДатаДок);
Операция.Кредит.Счет = Счетпокоду("60.1");;
Операция.Кредит.Контрагенты = Контрагент;
Операция.Кредит.Договоры = Договор;


КонецЕсли;
КонецЕсли;
//John
Операция.Записать();

СпрТовара = СоздатьОбъект( "Справочник.Номенклатура" );
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если Товар.ЦенаПоследняяРозничная <> Цена тогда
СпрТовара.НайтиЭлемент(Товар);
СпрТовара.ЦенаПоследняяРозничная = Цена;
СпрТовара.Записать();
КонецЕсли;
КонецЦикла;

Пока ПолучитьСтроку() = 1 Цикл
Если УровеньЦен =1 тогда
СпрТовара.НайтиЭлемент(Товар);
СпрТовара.УровеньЦен = 1;
СпрТовара.Записать();
КонецЕсли;
КонецЦикла;

//Пока ПолучитьСтроку() = 1 Цикл
// Если УровеньЦен =0 тогда
// СпрТовара.НайтиЭлемент(Товар);
// СпрТовара.УровеньЦен = 0;
// СпрТовара.Записать();
// КонецЕсли;
//КонецЦикла;

КонецЕсли;
КонецПроцедуры