Есть таблица значений, которая заполняется в функции. Нужно взять из нее данные из другой процедуры. Объявил в начале модуля Перем ТЗ; не работает. Как к ней добраться?

если это не реквизит формы, то передать параметром в процедуру, ваш кеп

Что значит "не работает"?

(1) Это не реквизит формы. Данные вытягиваются из файла Ексель функцией с циклом в ТЗ, затем мне нужно уже работать с данными в этой таблице.
перем ТЗ;
Функция ОбработатьЭлемент(ТМЦ, ТекСтрока, Excel) //2
    
    ТЗ= СоздатьОбъект("ТаблицаЗначений");
    тз.НоваяКолонка("Авто", "Строка");
    тз.НоваяКолонка("Водитель", "Строка");
    тз.НоваяКолонка("Документ", "Строка");
    
    тз.НоваяСтрока();
    тз.Авто=СокрЛП((Строка(Excel.Cells(ТекСТрока, СтлбАВТО).Value)));
    
    
    тз.Водитель=СокрЛП((Строка(Excel.Cells(ТекСТрока, СтлбСотр).Value)));
    
    
    тз.Документ=Сред((Строка(Excel.Cells(ТекСТрока, СтлбРН).Value)),21,10);

Затем из другой процедуры пытаюсь взять данные.

Процедура Сформировать()        
    
    ТЗ.ВыбратьСтроки();
    
     Пока ТЗ.ПолучитьСтроку()=1 Цикл  
         Авто=  ТЗ.Авто;
         Вод=   ТЗ.Водитель;
         Док=   ТЗ.Документ;

(4) Зачем вызывать ОбработатьЭлемент отдельно от Сформировать?

(5) Потому что в этой функции перебираются строки эксель.

(6) В семёрке же нет клиент-сервера. Вызывайте ОбработатьЭлемент непосредственно из Сформировать и перебирайте строки экселя, в чём проблема-то?

(6) если тз определена внутри функции, то это локальная переменная функции. И если её специальным образом не передать наружу из функции, то при выходе из функции тз будет уничтожена.

А, сорри, тз определена вне функции.
Убивать надо за то что область описания переменных не отделена хотя бы пустой строкой от дальнейшего кода

(9) Видимо, это не модуль формы, если ТЗ уничтожается в другой процедуре.
Ну, насколько я помню семёрку.

(9) Да, сорри... как сделать чтоб не убивалась эта ТЗ, и не убивать никого(

(11) Вас (7) чем не устраивает? Пусть ОбработатьЭлемент ТЗ возвращает, а в Сформировать её подхватывайте.

В сформировать перед перебором строк вызвать функцию, тз ведь перед перебором д. Б. Заполнена

Ну и функция странная. После вызова функции в тз будет одна строка.

(14) Вот полный  модуль перебора строк Эксель.Переделал. Всё заполняется
//=======================================================

Функция ОбработатьСтроку(Товар, ТекСтрока, Excel)
    Тип = Excel.Cells(ТекСтрока, 1).Value;
    Состояние("Обрабатывается строка " + ТекСТрока);


    ТЗ= СоздатьОбъект("ТаблицаЗначений");
    тз.НоваяКолонка("Авто", "Строка");
    тз.НоваяКолонка("Водитель", "Строка");
    тз.НоваяКолонка("Документ", "Строка");
    тз.НоваяКолонка("ВЧ", "Строка");
    
    
    
    тз.НоваяСтрока();
    тз.Авто=СокрЛП((Строка(Excel.Cells(ТекСТрока, СтлбАВТО).Value)));
    
    
    тз.Водитель=СокрЛП((Строка(Excel.Cells(ТекСТрока, СтлбСотр).Value)));

    
    тз.Документ=Сред((Строка(Excel.Cells(ТекСТрока, СтлбРН).Value)),21,10);
    
    тз.ВЧ=СокрЛП((Строка(Excel.Cells(ТекСТрока, СтлбВЧ).Value)));
    Сообщить(Тз.авто+" "+тз.Водитель+" "+Тз.Документ);
    Возврат 1;
КонецФункции    
//=========================================================

Процедура Выполнить()
    Тов = СоздатьОбъект("Справочник.Номенклатура");
    
    Excel = СоздатьОбъект("Excel.Application");
    Excel.Workbooks.Open(Сокрлп(ИмяФайла));
    Книга = Excel.ActiveWorkbook;
    //
    Строк=200;
    //    Строк = Excel.Cells.CurrentRegion.Rows.Count;
    //            
    НачатьТранзакцию();
    Для ТекСтрока = 2 По Строк Цикл
        Если ОбработатьСтроку(Тов, ТекСтрока, Excel)= 0 Тогда
            ЗафиксироватьТранзакцию();
            Возврат;
        КонецЕсли;
    КонецЦикла;
    //                                
    ЗафиксироватьТранзакцию();
    Excel.Visible = 1;
КонецПроцедуры
                  
// ===============================

Какие параметры передать в ОбработатьСтроку(???????) вместо вопросов
Процедура Сформировать()  
     ОбработатьСтроку(??????? );
    Таб=СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    ТЗ.ВыбратьСтроки();
    
     Пока ТЗ.ПолучитьСтроку()=1 Цикл  
         Авто=  ТЗ.Авто;
         Вод=   ТЗ.Водитель;
         Док=   ТЗ.Документ;
         Веч= ТЗ.ВЧ;
     КонецЦикла;

(15) феерический п..ц

во-первых - убери наф транзакцию.
у тебя в цикле вызывается функция, которая (повторю - в цикле!) при каждом ее вызове - пере(!)сознает тз и добавляет в нее единственную строку. перенеси создание тз и добавление в нее колонок в начало процедуры Выполнить

Так хотя бы..


Функция ОбработатьСтроку(ТЗ,Товар, ТекСтрока, Excel)
    Тип = Excel.Cells(ТекСтрока, 1).Value;
    Состояние("Обрабатывается строка " + ТекСТрока);
    тз.НоваяСтрока();
    тз.Авто=СокрЛП((Строка(Excel.Cells(ТекСТрока, СтлбАВТО).Value)));
    тз.Водитель=СокрЛП((Строка(Excel.Cells(ТекСТрока, СтлбСотр).Value)));
    тз.Документ=Сред((Строка(Excel.Cells(ТекСТрока, СтлбРН).Value)),21,10);
    тз.ВЧ=СокрЛП((Строка(Excel.Cells(ТекСТрока, СтлбВЧ).Value)));
    Сообщить(Тз.авто+" "+тз.Водитель+" "+Тз.Документ);
    Возврат 1;
КонецФункции    
//=========================================================


Процедура Выполнить()
    
    ТЗ= СоздатьОбъект("ТаблицаЗначений");
    тз.НоваяКолонка("Авто", "Строка");
    тз.НоваяКолонка("Водитель", "Строка");
    тз.НоваяКолонка("Документ", "Строка");
    тз.НоваяКолонка("ВЧ", "Строка");

    Тов = СоздатьОбъект("Справочник.Номенклатура");
    
    Excel = СоздатьОбъект("Excel.Application");
    Excel.Workbooks.Open(Сокрлп(ИмяФайла));
    Книга = Excel.ActiveWorkbook;
    //

    Строк=200;
    //    Строк = Excel.Cells.CurrentRegion.Rows.Count;
   Для ТекСтрока = 2 По Строк Цикл
        Если ОбработатьСтроку(ТЗ,Тов, ТекСтрока, Excel)= 0 Тогда
            Возврат;
        КонецЕсли;
    КонецЦикла;
    Excel.Visible = 1;
КонецПроцедуры


ну и в (15) куда-то пропало "Перем ТЗ;" из (0) - причем указано что это "полный модуль".
добавь в (15) первую строку "Перем ТЗ;"

(19) ну вот испортил воспитательный процесс...

(17) соглашусь.
(19) я бы еще объект екселя убил после цикла.

(19) Настоящий ёпрст! Спасибо, заработало как надо.

(21) ктулху хотел сказать - "питательный"?

объяви тз вне процедур, ваш кэп

Уважаемые программисты!

Помогите, пожалуйста, новичку. У меня такая проблема. Создаю таблицу значений в форме документа. В неё я добавляю колонку с типом "СправочникСсылка.ФизЛица". Слеудющие колонки я получаю через запрос из регистра накопления. Название каждой колонки - это значение из запроса, тип: Число. Количество колонок после Физлиц каждый месяц может быть разной. Так вот, получается у меня следующее.

Продавец | ВидНачисления 1 | ВидНачисления2 | ... | ВидНачисленияN

У каждого продавца есть несколько видов начислений, которые соответствуют тому или иному названию колонки.

Я делаю запрос к регистру накопления, получаю такую структуру:

Продавец | Сумма | ВидНачисления.

////////////////////////////////////////

    Для каждого стрВ Из ЗапросСпискаПродавцов Цикл
        
        НоваяСтрока = ТаблицаЗначений.Добавить();
        НоваяСтрока.Продавец = стрВ.Продавец;
        
        Для каждого стрН Из ЗапросСпискаПродавцов_Сумм_ВидовНачислений Цикл
            
            Если стрН.Продавец = стрВ.Продавец Тогда
                
                ТекКолонка = стрН.Признак;
                ТаблицаЗначений.ЗаполнитьЗначения(стрН.Сумма, ТекКолонка);
                
            КонецЕсли;
                        
        КонецЦикла;
        
    КонецЦикла;

По завершении обхода, метод "ЗаполнитьЗначения()" каждый проход не заполняет текущую строку, а перезаполняет очередными значениями весь столбец, то есть у меня в конце обхода все столбцы с одинаковыми суммами. Я никак не могу побороть эту проблему.

Уверен, ответ на поверхности, просто у меня не хватает опыта его найти. Пересмотрел уже кучу форумов. Именно такой проблемы нет. Везде есть стандартный набор колонок. Но у меня задача немного сложнее.

Если кто знает решение, пожалуйста, дайте знать! Буду очень признателен!
P.S. Может, кто-то ответит ссылкой на похожий вопрос...

(26) Забыл написать: Платформа у нас 1С 8.3, А сама конфигурация довольно старая: Розница 1.0

(26) "Уверен, ответ на поверхности" нет, на строке 11

Что-то в 7ку полезли школьники, видимо у кого-то деньги ляшку жмут, нанимают кого не попадя.

(26) урод, зачем ты влез в чужую ветку

(30) ну, зачем так грубо..? можно же культурнее, типа
"ты зачем, человек мешающий обществу, влез в чужую ветку..?"
;-)

(31) можно. но придурки понимают только жесткое.

(26) нет условия на вид начисления

(29) Думают что заплатив 65к, а не 110 стребуют результат на 140,а не получат на 100
Он одумается, гена этот
(30) Фу. Порутчик...

(32) Где ж твоя улыпка, миша. Правила форума почитай, чтоль

Вы тут чё, небожители все что ли? Я вообще-то экономистом работаю и параллельно осваиваю программирование, т.к. мне это интересно.

(30) надеюсь, ваша ветка сильно не пострадала!

(36) ну да. Небожители. а че такова ?

(37) Это не его ветка. Это местный фрик-перфекционист

(37) Откровенно говоря, ветка была уже конченная, ещё до твоего перфоманса здесь. Так что - в целом - ничего страшного не произошло. Как кашу маслом не испортишь, так и выгребную яму дерьмом не испугаешь.
Но, ты бы, вообще-то экономист, сначала ознакомился бы с правилами сего форума, с основными понятиями как в программировании, так и в 1С. И не ломился бы как слон в посудной лавке. Полагаю, в твоём селе на 8к жителей за такое ЧёНебожители можно и в бубен отхватить? Смелый ты, вообще-то экономист! Отважный...