7.7 Ошибка в ТаблицеЗначений

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем ZEMA, 9 апр 2008.

  1. TopicStarter Overlay
    ZEMA
    Offline

    ZEMA Опытный в 1С

    Регистрация:
    5 окт 2007
    Сообщения:
    231
    Симпатии:
    0
    Баллы:
    26
    Помогите.Не вижу свою ошибку.Почему в т.з. количествострок()=0
    Код:
    процедура ЗагрузитьСерии() 
    т=СоздатьОбъект("ТаблицаЗначений");  
    Т.НоваяКолонка("Наименование"); 
    Т.НоваяКолонка("ГоденДо"); 
    Т.НоваяКолонка("Прих_Цена"); 
    Т.НоваяКолонка("Код");
    
    сер=СоздатьОбъект("Справочник.Серии");  
    ПредКол=Количество;
    ПредТовар=Товар;
    
    Рег=СоздатьОбъект("Регистр.ОстаткиТоваров"); 
    Сер.ИспользоватьВладельца(ПредТовар.ТекущийЭлемент());
    Сер.ПорядокНаименований();
    Сер.ВыбратьЭлементы(); 
    
    Ном=0;
    Пока Сер.ПолучитьЭлемент()=1 цикл   
    
    Если Рег.СводныйОстаток(ПредТовар.ТекущийЭлемент(),,Сер.ТекущийЭлемент(),"ОстатокТовара")=0 тогда
    продолжить; 
    иначеЕсли Рег.СводныйОстаток(ПредТовар.ТекущийЭлемент(),,Сер.ТекущийЭлемент(),"ОстатокТовара")<>0 тогда 
    т.НоваяКолонка();  
    т.наименование=Сер.ТекущийЭлемент();
    Т.Прих_Цена=Сер.Прих_Цена;
    т.Код=Сер.Код;
    т.годендо=сер.годендо;  
    Ном=Ном+1;
    Конецесли;
    КонецЦикла;
    
    Т.ВыбратьСтроки();
    Пока Т.ПолучитьСтроку() = 1 Цикл
    т.ПолучитьСтрокуПоНомеру(Ном);
    КонецЦикла; 
    Конецпроцедуры
    
    
  2. DeMost
    Offline

    DeMost

    Регистрация:
    9 апр 2008
    Сообщения:
    1
    Симпатии:
    0
    Баллы:
    1
    Надо писать

    т.НоваяСтрока();

Поделиться этой страницей