если товара на складе хватает ( 14314i815o 082;оличество в регистре «Остатки
Запрос.Текст = "ВЫБРАТЬ
Конфигурирование в системе " 1С:Предприятие 8.0". Решение оперативных задач
Док.Ссылка = &ПарСсылка
РегистрНакопления. ОстаткиНоменклатуры. Остатки(&Момент,
Док.Ссылка = &ПарСсылка)
Накл. Номенклатура = Ост. Номенклатура"
I
Запрос.УстановитьПараметр("ПарСсылка", Ссылка); араметрС'Момент", МоментВремениО);
Остаток = ?(ВыборкаТоваров.КолОст=Null
Null
Null
Если Нехватка>0 Тогда
|
|
Сообщить("Нехватка товара " + СокрЛП(ВыборкаТоваров.Номенклатура) + "; " +
Сообщить("Расходная " + Номера " от " +Дата-*-" не проводится!");
Null, 0, ВыборкаТоваров.СуммаОст); Если КолДок < Остаток Тогда
//по регистру "ОстаткиНоменклатуры"
//по регистру "Продажи"
// по регистру "Задолженности"
Конфигурирование в системе "1С:Предприятие 8.0". Решение оперативных задач
NULL
Конфигурирование в системе " 1С:Предприятие 8.0 ". Решение оперативных задач
Если Режим = РежимПроведенияДокумента.Оперативный Тогда Запрос.Текст = Запрос.Текст +"
Конфигурирование в системе "1С: Предприятие 8.0". Решение оперативных задач
"1С:Предприятие 8.0 ". Решение оперативных задач
Конфигурирование
в системе " 1С:Предприятие
8.0 ". Решение оперативных
задач
Себестоимость 1 яблока из партии "1" - 100/10 = 10
яблока из партии "1" списываться будет именно себестоимость этой
Конфигурирование в системе "1С:Предприятие 8.0". Решение оперативных задач
Конфигурирование
в системе "1С:Предприятие
8.0 ". Решение оперативных
задач
FIFO LIFO
Запрос.Текст = "ВЫБРАТЬ
ГДЕ Док.Ссылка = &ПарСсылка
РегистрНакопления.ОстаткиНоменклатуры.Остатки(&Момент, ГДЕ Док.Ссылка = &ПарСсылка)
Если Режим = РежимПроведенияДокумента.Оперативный Тогда Запрос.Текст = Запрос.Текст +" ИЗМЕНЕНИЯ
Конфигурирование в системе " 1С:Предприятие 8.0". Решение оперативных задач
Запрос.Текст = Запрос.Текст +"
j
Запрос.Установить Параметр С'ПарСсылка", Ссылка); Запрос. УстановитьПараметр("Момент", МоментВремени());
РезультатЗапроса. Выбрат ь(ОбходРезультатаЗагтроса. ПоГруппировкам, "Номенклатура");
Остаток = ?(ВыборкаТоваров.КолОст = Null КолДок = ?(ВыборкаТоваров.КолДок = Null СуммаДок = ?(ВыборкаТоваров.СуммаДок = Null
Если Нехватка>0 Тогда
Сообщить("Нехватка товара " + СокрЛП(ВыборкаТоваров.Номенклатура) + ": " +
Сообщить("Расходная " + Номер+ " от " +Дата+" не проводится!");
Null
Null
Если НадоСписать<КолПартии Тогда
//по регистру "ОстаткиНоменклатуры"
//по регистру "Продажи"
Конфигурирование в системе "1С:Предприятие 8.0". Решение оперативных задач
// по регистру "Задолженности"
FIFO
Конфигурирование в системе " 1С:Предприятие 8.0". Решение оперативных задач
каждого
вида
документов,
которые
делают
<<-»-движения)
при
различных исходных
данных.
Конфигурирование в системе "1С:Предприятие 8.0". Решение оперативных задач
FIFO
Конфигурирование в системе "1С:Предприятие 8.0". Решение оперативных задач
СтруктураПараметров.Вставить("ПараметрК",
Конфигурирование в системе "IС:Предприятие 8.0". Решение оперативных задач
II
Если ТекДвиж.Количество() > 0 Тогда
|
|
Конфигурирование в системе '1С:Предприятие 8.0 ". Решение оперативных задач
Запрос.Текст
= "ВЫБРАТЬ
J
РегистрНакопления.Задолженности.Остатки(&Момент,) КАК ЗадолженностиОстатки
Расходная. Ссылка = &ПарСсылка
Если
Режим = Режим ПроведенияДокумента.
Оперативный Тогда
Запрос.Текст
= Запрос.Текст
+"
|
Запрос.УстановитьПараметр("ПарСсылка", Ссылка); Запрос.УстановитьПараметр("Момент", МоментВремениО);
СтруктураПроведенияПоРегистрам.Вставить("Задолженности"); СтруктураПроведения ПоРегистрам. Вставить("ОстаткиНоменклатуры"); Null
СтруктураПроведенияПоРегистрам. Вставить(" Продажи");
Null Сообщить("Не указан Контрагент");
Сообщить("Расходная " + Номер+ " от " +Дата+" не проводится!");
Null
Если ВыборкаПоШапкеДокумента.ДолгОстаток > 0 Тогда
Сообщить("Контрагент "+ ВыборкаПоШапкеДокумента.Контрагент + " еше должен "+ВыборкаПоШапкеДокумента. ДолгОстаток);
Сообщить("Расходная
" + Номер+ " от " +Дата+"
не проводится!");
Конфигурирование в системе "1С:Предприятие 8.0". Решение оперативных задач
Ko pa eнт <> Null
Если СтруктураПроведения ПоРегистрам.Свойство("Задолженности") Тогда // по регистру "Задолженности"
Запрос.Текст
= "ВЫБРАТЬ
ГДЕ Док.Ссылка = &ПарСсылка
РегистрНакопления.Остатки Номенклатуры. Остатк и(&М омент,
ГДЕ Док.Ссылка = &ПарСсылка)
|";
Если Режим
= РежимПровеленияДокумента.Оперативный
Тогда
Запрос.Текст =
Запрос.Текст +"
I";
Запрос.Текст = Запрос.Текст +"
FIFO
Запрос.УстановитьПараметр("ПарСсылка", ВыборкаПоШапкеДокумента.Ссылка); Запрос.УстановитьПараметр("Момент", МоментВремени());
Конфигурирование в системе "1С:Предприятие 8.0". Решение оперативных задач
Null
Сообщить("Документ содержит строки с пустой номенклатурной позицией"); Сообщить("Расходная " + Номер+ " от" +Дата+" не проводится!");
Null
Сообшить("Для товара "+Выбор каПоСтрокам Доку мента. Ном енклатура+
" указано нулевое количество!");
Сообшить("Расходная " + Номер+ " от " +Дата+" не проводится!"); Отказ = Истина;
Null
Если Нехватка>0 Тогда
Сообщить("Hexватка товара " +
СокрЛП(ВыборкаПоСтрокамДокумента.
Номенклатура)
+ ": " + Нехватка);
Сообшить("Расходная
" + Номер+ " от" +Дата+"
не проводится!");
Отказ""
Истина;
Если СтруктураПроведенияПоРегистрам. Свойство ("ОстаткиНоменклатуры") Тогда
ОбходРезультатаЗапроса.ПоГруппировкам, "Партия");
Null Null
Если НадоСписать <КолПартии Тогда
//по регистру "ОстаткиНоменклатуры"
Конфигурирование в системе "1С:Предприятие 8.0". Решение оперативных задач
Если СтруктураПроведенияПоРегистрам.Свойство("Продажи") Тогда
//по регистру "Продажи"
FIFO LIFO
|
