Заполнение колонки
17.03.2008
08:29
#1
"Здравствуйте!
Подскажите как сделать чтобы заполнялась колонка ФакВып в документе при выполнении обработки
Вот сделал процедуру в обработке но она не записыват в колонку количесвто выпущенного подскажите как и где исправить
1с версия 7.7
Процедура ЗаполнениеФакВып();
Док = СоздатьОбъект ("Документ.Лимитно_заборная_карта");
Спр = СоздатьОбъект ("Справочник.Номенклатура");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 цикл
Док.ФакВып=Спр.ФакВып;
Док.Записать();
КонецЦикла;
КонецЦикла;
КонецПроцедуры"
Подскажите как сделать чтобы заполнялась колонка ФакВып в документе при выполнении обработки
Вот сделал процедуру в обработке но она не записыват в колонку количесвто выпущенного подскажите как и где исправить
1с версия 7.7
Процедура ЗаполнениеФакВып();
Док = СоздатьОбъект ("Документ.Лимитно_заборная_карта");
Спр = СоздатьОбъект ("Справочник.Номенклатура");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 цикл
Док.ФакВып=Спр.ФакВып;
Док.Записать();
КонецЦикла;
КонецЦикла;
КонецПроцедуры"
17.03.2008
09:58
#2
"Конфигурация какая?
З.Ы. По существу, не видно где позиционируеться на справочнике? Спр.ФактВып в тексте указывает на пустое место! Можно например : Спр.НайтиПоНаименованию("Здесь ищем, то что нам нужно"); Метод возвратит 1 , если найдет нужный элемент."
З.Ы. По существу, не видно где позиционируеться на справочнике? Спр.ФактВып в тексте указывает на пустое место! Можно например : Спр.НайтиПоНаименованию("Здесь ищем, то что нам нужно"); Метод возвратит 1 , если найдет нужный элемент."
18.03.2008
18:23
#3
"Наверное так:
Процедура ЗаполнениеФакВып();
НачатьТранзакцию();
Док = СоздатьОбъект ("Документ.Лимитно_заборная_карта");
Спр = СоздатьОбъект ("Справочник.Номенклатура");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
ЕстьИзменения=0;
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 цикл
Если Спр.НайтиЭлемент(Док.Номенклатура)=1 Тогда
Док.ФакВып=Спр.ФакВып;
ЕстьИзменения=1;
КонецЕсли;
КонецЦикла;
Если ЕстьИзменения=1 Тогда
Док.Записать();
КонецЕсли;
КонецЦикла;
ЗафиксироватьТранзакцию();
КонецПроцедуры "
Процедура ЗаполнениеФакВып();
НачатьТранзакцию();
Док = СоздатьОбъект ("Документ.Лимитно_заборная_карта");
Спр = СоздатьОбъект ("Справочник.Номенклатура");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
ЕстьИзменения=0;
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 цикл
Если Спр.НайтиЭлемент(Док.Номенклатура)=1 Тогда
Док.ФакВып=Спр.ФакВып;
ЕстьИзменения=1;
КонецЕсли;
КонецЦикла;
Если ЕстьИзменения=1 Тогда
Док.Записать();
КонецЕсли;
КонецЦикла;
ЗафиксироватьТранзакцию();
КонецПроцедуры "
Читают тему
(гостей: 1)