Не клеится дивжение к документы
|
megabax
03.04.2009 - 04:59
|
ВЫполняю так кой Движения=ЗаявкаОбъект.Движения.битРезервТоваров; Движения.Прочитать(); для каждого СтрокаТЧЗаявка из ЗаявкаОбъект.Товары цикл СтрокаОстатков=ТаблОст.Строки.Найти(СтрокаТЧЗаявка.Номенклатура,"Номенклатура"); если СтрокаОстатков=Неопределено тогда СформироватьОтказ(СтрокаТЧЗаявка.Количество,СтрокаТЧЗаявка, ЗаявкаОбъект.Ссылка); продолжить; иначеЕсли СтрокаТЧЗаявка.Количество>СтрокаОстатков.СвободныйОстаток тогда СформироватьОтказ(СтрокаТЧЗаявка.Количество-СтрокаОстатков.СвободныйОстаток,СтрокаТЧЗаявка, ЗаявкаОбъект.Ссылка); конецесли; ПодбираемоеКоличество=Мин(СтрокаТЧЗаявка.Количество,Макс(СтрокаОстатков.СвободныйОстаток,0)); для каждого СтрокаСерии из СтрокаОстатков.Строки цикл ПодобранноеКоличество=мин(ПодбираемоеКоличество,Макс(СтрокаСерии.СвободныйОстаток,0)); если ПодобранноеКоличество=0 тогда продолжить; конецесли; стрДоб=ПЗОбъект.РезервТовары.Добавить(); стрДоб.Номенклатура=СтрокаТЧЗаявка.Номенклатура; стрДоб.СерияНоменклатуры=СтрокаСерии.СерияНоменклатуры; стрДоб.ЕдиницаИзмерения=СтрокаСерии.БазоваяЕдиницаИзмерения; стрДоб.Коэффициент=1; стрДоб.Количество=ПодобранноеКоличество; стрДоб.СтавкаНДС=СтрокаСерии.СтавкаНДС; стрДоб.Склад=СтрокаСерии.Склад; стрДоб.КСТ=ПодобранноеКоличество; стрДоб.НД=1; стрДоб.ЦенаПоставщика=СтрокаСерии.ЦенаПоставщика; стрДоб.ЦенаПроизводителя=СтрокаСерии.ЦенаПроизводителя; стрДоб.ИД=стрДоб.НомерСтроки; стрДоб.КодПозиции=стрДоб.НомерСтроки; стрДоб.ТорговыйПредставитель=ЗаявкаОбъект.ТорговыйПредставитель; Движение=Движения.ДобавитьПриход(); Движение.Период=ПЗОбъект.ДатаРезервирования; Движение.Склад=стрДоб.Склад; Движение.Номенклатура=стрДоб.Номенклатура; Движение.СерияНоменклатуры=стрДоб.СерияНоменклатуры; Движение.Количество=стрДоб.Количество; ПодбираемоеКоличество=ПодбираемоеКоличество-ПодобранноеКоличество; если ПодбираемоеКоличество=0 тогда прервать; конецесли; конеццикла; ПЗОбъект.Записать(РежимЗаписиДокумента.Запись); Движения.Записать(); мЗадачаОбъект.Записать(); конеццикла; в результате В созданном документе нету приклеенных движений. Подскажите плз, как лечить? |