Имя: Пароль:
1C
1С v8
Ошибка при выгрузке (КД)
0 espanol
 
24.02.12
11:03
В ПКС_ПередОбработкой у табличной части документа:


//Работы
КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений");
КоллекцияОбъектов.НоваяКолонка("Количество");
КоллекцияОбъектов.НоваяКолонка("Коэффициент");
КоллекцияОбъектов.НоваяКолонка("Мастер");
КоллекцияОбъектов.НоваяКолонка("Номенклатура");
КоллекцияОбъектов.НоваяКолонка("Себестоимость");
КоллекцияОбъектов.НоваяКолонка("Нормочас");
КоллекцияОбъектов.НоваяКолонка("СтавкаНДС");
КоллекцияОбъектов.НоваяКолонка("Сумма");
КоллекцияОбъектов.НоваяКолонка("СуммаВсего");
КоллекцияОбъектов.НоваяКолонка("НДС");
КоллекцияОбъектов.НоваяКолонка("УникальныйИД");
КоллекцияОбъектов.НоваяКолонка("УникальныйИДРегистр");
КоллекцияОбъектов.НоваяКолонка("ИдентификаторРаботы");
КоллекцияОбъектов.НоваяКолонка("Цена");
КоллекцияОбъектов.НоваяКолонка("НомерСтроки1");

НомерСтроки = 1;
Табл = Источник;

   Табл.ВыбратьСтроки();    
   Пока Табл.ПолучитьСтроку() = 1 Цикл
         КоллекцияОбъектов.НоваяСтрока();
       КоллекцияОбъектов.Количество    = Табл.Количество;
       КоллекцияОбъектов.Коэффициент   = 1;
       КоллекцияОбъектов.Номенклатура  = Табл.Номенклатура;
       КоллекцияОбъектов.Сумма         = Табл.Сумма;
       КоллекцияОбъектов.СуммаВсего    = Табл.Сумма;
       КоллекцияОбъектов.НДС           = Табл.НДС;
       КоллекцияОбъектов.Цена          = Табл.Цена;
       КоллекцияОбъектов.НомерСтроки1  = НомерСтроки;
       НомерСтроки = НомерСтроки + 1;
   КонецЦикла;


   Докум = СоздатьОбъект("Документ");
   Докум.ВыбратьПодчиненныеДокументы(, , Источник);
   Пока Докум.ПолучитьДокумент() = 1 Цикл
       Если Докум.Вид() = "ПодборРабот" Тогда
           Докум.ВыбратьСтроки();
           Пока Докум.ПолучитьСтроку() = 1 Цикл
               Если Докум.Статус = 0 Тогда
                   // выгрузить нужные строки
                   КоллекцияОбъектов.НоваяСтрока();
                   КоллекцияОбъектов.Количество    = Докум.Количество;
                   КоллекцияОбъектов.Коэффициент   = 1;
                   КоллекцияОбъектов.Номенклатура  = Докум.Номенклатура;
                   КоллекцияОбъектов.Сумма         = Докум.Сумма;
                   КоллекцияОбъектов.СуммаВсего    = Докум.Сумма;
                   КоллекцияОбъектов.НДС           = Докум.НДС;
                   КоллекцияОбъектов.Цена          = Докум.Цена;
                   КоллекцияОбъектов.НомерСтроки1  = НомерСтроки;
                   НомерСтроки                     = НомерСтроки + 1;    
               КонецЕсли;
           КонецЦикла;
       КонецЕсли;
   КонецЦикла;


В ПКС_СтавкаНДС_ПередВыгрузкой у реквизита табличной части:

Если ОбъектКоллекции.НДС <> 0 Тогда
   Значение = "Основная ставка";
КонецЕсли;

Правило ПКО:
Источник - строка. Приемни - справочник.СтавкиНДС
ПКС:
Источник пусто, приемник - Наименование. и поиск по нему.


Но при выгрузке ошибка: Ошибка получения свойства из объекта коллекции. Свойство: СтавкаНДС



В чем может быть причина?
1 espanol
 
24.02.12
11:20
а все разобрался!