Имя: Пароль:
1C
1С v8
Проблема при вводе остатков номенклатуры 1С8.2 бп2.0.48.9
0 Nik02071
 
29.07.13
10:17
У нас способ списания МПЗ ФИФО. При вводе остатков появляется обязательная к заполнию колонка Партия(Документ поставки).

Как эту колонку заполнить програмно?

ДокВВодаОс=Документы.ВводНачальныхОстатков.СоздатьДокумент();
ДокВВодаОс.Дата='20130725000000';
ДокВВодаОс.Организация=Справочники.Организации.НайтиПоКоду("000000001");
ДокВВодаОс.ПодразделениеОрганизации=Справочники.ПодразделенияОрганизаций.НайтиПоКоду("000000032");
ДокВВодаОс.РазделУчета=Перечисления.РазделыУчетаДляВводаОстатков.Материалы;
ДокВВодаОс.ОтражатьВБухгалтерскомУчете=Истина;
НовСтрТабЧаст=ДокВВодаОс.МПЗПриобретенные.Добавить();
НовСтрТабЧаст.СчетУчета=ПланыСчетов.Хозрасчетный.НайтиПоРеквизиту("КодБыстрогоВыбора","1001");

Если    НовСтрТабЧаст.СчетУчета.Пустая()=Истина тогда
    Сообщить("Счёт не найден");
    КонецЕсли;
    НовСтрТабЧаст.НомерСтрокиТЧ="1";
НовСтрТабЧаст.Номенклатура=Справочники.Номенклатура.НайтиПоНаименованию("Лампа");
НовСтрТабЧаст.Склад=Справочники.Склады.НайтиПоНаименованию("Основной склад");
НовСтрТабЧаст.РасчетныйДокумент=Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру("100",'20120620120000');
если     НовСтрТабЧаст.РасчетныйДокумент.Пустая()=Истина Тогда
    Сообщить("Расчетныйдок не найден");
    КонецЕсли;
ДокВВодаОс.Записать(РежимЗаписиДокумента.Проведение);


При проведение документа дает ошибку поле Партия(ДОкумент поставки) не заполнено
1 Nik02071
 
29.07.13
10:34
Все разобрался