[andrew76]

Добрый вечер !

Имеются 2 конфигурации - на платформе 1С 8.2 и 1С 7.7.
Задачка состоит в следующем : нужно из 1с 7 заполнить данными определенный документ-ВыслугаЛет,который
создан в версии 1С 8.2.С реквизитами шапки документа всё работает отлично,а вот в табличную часть
записать не получается - вылетает следующая ошибка "Неверное число параметров".
Ошибка в строке с кодом :

ДокОбъект.Список(Сч).Лет=10;

Коннектор=СоздатьОбъект("V82.COMConnector");

v8 =Коннектор.Connect("File=""C:\11n""; Usr =""Админ"";");

Эл=v8.Документы.ВыслугаЛет.Выбрать(Дата('01.10.15') , Дата('31.10.15'));


Пока Эл.Следующий()<>0 Цикл 
     ДокОбъект = Эл.ПолучитьОбъект();
     СтаршийИндекс = Эл.Список.Количество() - 1; 
     
     Для Сч = 0 по СтаршийИндекс Цикл 
         СтрокаДок= Эл.Список.Получить(Сч);
         таб      = СтрокаДок.ТабНомер;
         Лет_     = СтрокаДок.Лет;
         
         Если СокрЛП(таб)="5403" тогда
               ДокОбъект.Список(Сч).Лет=10;
         КонецЕсли;    
     КонецЦикла;           

КонецЦикла;

[daveal]

Список - это ТЧ документа? Тогда "ДокОбъект.Список[Сч].Лет = 10;"

[andrew76]

Да ,Список -это табличная часть.Но такой вариант я пробовал-при синтаксическом контроле-вылетает ошибка.
1с7 не "понимает" квадратных скобок.

[daveal]

А если изменить получение строки на "СтрокаДок= ДокОбъект.Список.Получить(Сч);"? И потом "СтрокаДок.Лет = 10;" не сработает?

[andrew76]

Нет , такой вариант тоже не срабатывает ! Все дело в квадратных скобках,которые 1с 7.7 не воспринимает.

[daveal]

Так в последнем варианте и нет квадратных скобок:

Коннектор=СоздатьОбъект("V82.COMConnector");

v8 =Коннектор.Connect("File=""C:\11n""; Usr =""Админ"";");

Эл=v8.Документы.ВыслугаЛет.Выбрать(Дата('01.10.15') , Дата('31.10.15'));


Пока Эл.Следующий()<>0 Цикл 
     ДокОбъект = Эл.ПолучитьОбъект();
     СтаршийИндекс = Эл.Список.Количество() - 1; 
     
     Для Сч = 0 по СтаршийИндекс Цикл 
         СтрокаДок= ДокОбъект .Список.Получить(Сч);
         таб      = СтрокаДок.ТабНомер;
         Лет_     = СтрокаДок.Лет;
         
         Если СокрЛП(таб)="5403" тогда
              СтрокаДок.Лет=10;
         КонецЕсли;    
     КонецЦикла;           

КонецЦикла;

[andrew76]

Правильно,иначе 1с 7.7 отказывается вышеприведенный код компилировать.А в 8-ке обращение к элементам ТЧ документа делается через квадратные скобочки.
Разница в синтаксисе.Может есть возможность обратиться к ТЧ документа (Версии 8),минуя эти индексы ?

[Petre]

Вместо

ДокОбъект.Список(Сч).Лет=10;

напишите

СтрокаДок.Лет = 10;

И не забудьте записать изменения.

[andrew76]

Спасибо,всё работает !