Имя: Пароль:
1C
1С v8
Программа не видит значение ТЗГ.ДокПутЛист
0 a237
 
08.05.12
16:54
Помогите- не пойму в чем проблема
Почему программа не видит значение ТЗГ.ДокПутЛист (в низу напротив комментария)






ДокПутЛист = СоздатьОбъект("Документ.ПутевойЛист");
   ДокПутЛист.ВыбратьДокументы(ДатаНач,ДатаКон);
   ТЗГ = СоздатьОбъект("ТаблицаЗначений");
   ТЗГ.НоваяКолонка("НомерГруппы");
   ТЗГ.НоваяКолонка("РасходГСМ");
   ТЗГ.НоваяКолонка("ДокПутЛист");        
               
   Пока ДокПутЛист.ПолучитьДокумент() > 0 Цикл        
       Если (Водитель = ДокПутЛист.Водитель1) и (Автомобиль = ДокПутЛист.Автомобиль) Тогда        
               Если ДокПутЛист.ДокументВыполнения.Выбран() = 1 Тогда
                   Выполнение = ДокПутЛист.ДокументВыполнения.ТекущийДокумент();
                   Выполнение.ВыбратьСтроки();                          
                       Пока Выполнение.ПолучитьСтроку() = 1 Цикл                                
                           ТЗГ.НоваяСтрока();
                           ТЗГ.ДокПутЛист = ДокПутЛист;    
                           ТЗГ.НомерГруппы = Выполнение.НомерГруппы;
                           ТЗГ.РасходГСМ = Выполнение.РасходГСМ;                        
                       КонецЦикла;                          
               КонецЕсли;
       КонецЕсли;    
   КонецЦикла;                            
   ТЗГ.Свернуть("ДокПутЛист, НомерГруппы,", "РасходГСМ");    



ДокПутЛист1 = СоздатьОбъект("Документ.ПутевойЛист");  
   ДокПутЛист1.ВыбратьДокументы(ДатаНач,ДатаКон);
   Пока ДокПутЛист1.ПолучитьДокумент() > 0 Цикл    
       Если (Водитель = ДокПутЛист1.Водитель1) и (Автомобиль = ДокПутЛист1.Автомобиль) Тогда                    
               Ном= Ном + 1;
               ДатаПЛ = ДокПутЛист1.ДатаДок;
               НомПЛ =  ДокПутЛист1.НомерДок;
               Таб.ВывестиСекцию("Секция_2|Начало");                    
           Для i=1 по СписокНомеровГрупп.РазмерСписка() Цикл
               Стр="";
               НомерГруппыТопливо = 0;
               ТЗГ.ВыбратьСтроки();
                   Пока ТЗГ.ПолучитьСтроку() = 1 Цикл                
                       Если ТЗГ.ДокПутЛист = ДокПутЛист1 Тогда                 //////!!!почему программа не видит знгачение ТЗГ.ДокПутЛист
                           Если ТЗГ.НомерГруппы=СписокНомеровГрупп.ПолучитьЗначение(i) Тогда
                               НомерГруппыТопливо = ТЗГ.ПолучитьЗначение(ТЗГ.НомерСтроки,"РасходГСМ");
                           КонецЕсли;
                       КонецЕсли;
                   КонецЦикла;                            
               Таб.ПрисоединитьСекцию("Секция_2|ДН"+i);                
           КонецЦикла;    
       КонецЕсли;
   КонецЦикла;
1 НуВотКак
 
08.05.12
17:02
ТЗГ.ДокПутЛист = ДокПутЛист;
2 Мимохожий Однако
 
08.05.12
17:06
Встань отладчиком. Вероятно сравниваешь ссылку с объектом.
3 a237
 
08.05.12
17:16
ТЗГ.ДокПутЛист - элемент таблицы значений
ДокПутЛист- объект-текущий документ
А как их привести в общему порядку?
4 НуВотКак
 
08.05.12
18:42
(3)
ТЗГ.ДокПутЛист = ДокПутЛист;
объект-текущий документ