0
Nik02071
29.07.13
✎
10:17
|
У нас способ списания МПЗ ФИФО. При вводе остатков появляется обязательная к заполнию колонка Партия(Документ поставки).
Как эту колонку заполнить програмно?
ДокВВодаОс=Документы.ВводНачальныхОстатков.СоздатьДокумент();
ДокВВодаОс.Дата='20130725000000';
ДокВВодаОс.Организация=Справочники.Организации.НайтиПоКоду("000000001");
ДокВВодаОс.ПодразделениеОрганизации=Справочники.ПодразделенияОрганизаций.НайтиПоКоду("000000032");
ДокВВодаОс.РазделУчета=Перечисления.РазделыУчетаДляВводаОстатков.Материалы;
ДокВВодаОс.ОтражатьВБухгалтерскомУчете=Истина;
НовСтрТабЧаст=ДокВВодаОс.МПЗПриобретенные.Добавить();
НовСтрТабЧаст.СчетУчета=ПланыСчетов.Хозрасчетный.НайтиПоРеквизиту("КодБыстрогоВыбора","1001");
Если НовСтрТабЧаст.СчетУчета.Пустая()=Истина тогда
Сообщить("Счёт не найден");
КонецЕсли;
НовСтрТабЧаст.НомерСтрокиТЧ="1";
НовСтрТабЧаст.Номенклатура=Справочники.Номенклатура.НайтиПоНаименованию("Лампа");
НовСтрТабЧаст.Склад=Справочники.Склады.НайтиПоНаименованию("Основной склад");
НовСтрТабЧаст.РасчетныйДокумент=Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру("100",'20120620120000');
если НовСтрТабЧаст.РасчетныйДокумент.Пустая()=Истина Тогда
Сообщить("Расчетныйдок не найден");
КонецЕсли;
ДокВВодаОс.Записать(РежимЗаписиДокумента.Проведение);
При проведение документа дает ошибку поле Партия(ДОкумент поставки) не заполнено
|
|