Здравствуйте, 1с 8.2 помогите пожалуйста, я только начинающий и поэтому многое ещё не знаю, вот есть код, как обратиться к табличной части документа и из каждой строчки и взять от туда данные и записать в файл. и если возможно, по подробнее, спасибо.


Процедура КнопкаВыполнитьНажатие(Кнопка)
        
Текст = Новый ТекстовыйДокумент();
Выборка = Документы.РеализацияТоваровУслуг.Выбрать();

    


    Пока Выборка.Следующий() Цикл
    Номер = выборка.Номер;
    
    

Текст.ДобавитьСтроку("ООО ""Качественный Продукт"";2630042719;263001001;" + номер);
КонецЦикла;

Текст.Записать("C:\test.txt");

КонецПроцедуры

лучше запросом.

ВЫБРАТЬ
    РеализацияТоваровУслугТовары.Номенклатура
ИЗ
    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
ГДЕ
    РеализацияТоваровУслугТовары.Ссылка = &Ссылка

(0) тебе все документы надо перебрать или один какой то конкретный?

(3) щас я пока хочу просто чтобы перебирал, но будущем хочу чтобы была возможность на форме выбрать контрагента и период

(4) отличный повод для запроса

(5) щас тогда попытаюсь сделать запросом, если не получится, поможете?

(6) Древняя китайская мудрость гласит — НИ СЫ! Что означает — Будь безмятежен, словно цветок лотоса у подножия храма истины

(0)СКД, результат сохранить в тхт

(8) Это плохая идея в данном случае ))

(6) вытаскивай в запросе табличную часть. а потом в ссылке бери нужные тебе параметры для отбора.

Вот я сделал запрос, но как записать туда ИНН, я остальные данные, В коде я указал куда записать.


Процедура КнопкаВыполнитьНажатие(Кнопка)
        
Текст = Новый ТекстовыйДокумент();


    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    РеализацияТоваровУслуг.Товары.(
        |        Номенклатура.Код,
        |        СерияНоменклатуры.Производитель.Наименование,
        |        СерияНоменклатуры.Производитель.ИНН,
        |        СерияНоменклатуры.Производитель.КПП,
        |        Номенклатура.Наименование,
        |        Номенклатура.КолЛвШТ,
        |        Количество,
        |        Цена,
        |        СуммаНДС
        |    )
        |ИЗ
        |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
        |ГДЕ
        |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон";

    Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
    Запрос.УстановитьПараметр("ДатаНач", ДатаНач);

    Результат = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Текст.ДобавитьСтроку("ООО ""Качественный Продукт"";2630042719;263001001;" + "СЮДА КАК ЗАПИСАТЬ ИНН" );
        // Вставить обработку выборки ВыборкаДетальныеЗаписи
    КонецЦикла;

    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА




Текст.Записать("C:\test.txt");

из Документ.ТвойДокумент.ТЧ

ну или перебрать получившуюся ТЗ

(12) ок, это я добавил, именно вот здесь как правильно прописать?

Текст.ДобавитьСтроку("ООО ""Качественный Продукт"";2630042719;263001001;" + "СЮДА КАК ЗАПИСАТЬ ИНН" );

Выборка.КакТамПолеВЗапросе

(14) Надеюсь не только эту строку в запросе исправил? ;)

(11) Если не ошибаюсь, то такой запрос к ТЧ не очень удобен, т.к. возвращает выборку, а не непосредственно данные. Т.е. при обработке результата должно быть две выборки (одна вложена в другую).
Делай запрос к ТЧ сразу а не через документ.
Лучше что-то в этом роде.

ВЫБРАТЬ
        |        Номенклатура.Код,
        |        СерияНоменклатуры.Производитель.Наименование,
        |        СерияНоменклатуры.Производитель.ИНН,
        |        СерияНоменклатуры.Производитель.КПП,
        |        Номенклатура.Наименование,
        |        Номенклатура.КолЛвШТ,
        |        Количество,
        |        Цена,
        |        СуммаНДС
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
        |ГДЕ
        |    РеализацияТоваровУслугТовары.Ссылка.Дата МЕЖДУ &ДатаНач И &ДатаКон"


(17) Вот такой запрос получился.


Процедура КнопкаВыполнитьНажатие(Кнопка)
        
Текст = Новый ТекстовыйДокумент();


    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    РеализацияТоваровУслугТовары.Номенклатура.Код,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.Наименование,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.ИНН,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.КПП,
        |    РеализацияТоваровУслугТовары.Номенклатура.Наименование,
        |    РеализацияТоваровУслугТовары.Номенклатура.КолЛвШТ,
        |    РеализацияТоваровУслугТовары.Количество,
        |    РеализацияТоваровУслугТовары.Цена,
        |    РеализацияТоваровУслугТовары.СуммаНДС
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
        |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
        |        ПО РеализацияТоваровУслугТовары.Ссылка = РеализацияТоваровУслуг.Ссылка
        |ГДЕ
        |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон
        |    И РеализацияТоваровУслуг.Контрагент = &Контрагент";

    Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
    Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
    Запрос.УстановитьПараметр("Контрагент", Контрагент);

    Результат = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Текст.ДобавитьСтроку("ООО ""Качественный Продукт"";2630042719;263001001;" "СЮДА КАК ИИН ПРОПИСАТЬ");
    КонецЦикла;

    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

Текст.Записать("C:\test.txt");

(17) А дальше как мне Записать ИНН и всё остальное?

(19) где-то в личных настройках у тебя выключено отображение постов, кратных 15. включи эту галку

разумеется, после того, как поймёшь, что вторая таблица в запросе не нужна

(20) чё-то не нашёл я в настройках такого

только ради тебя повторю в 23й
Выборка.КакТамПолеВЗапросе

(22) Написано, искать в личных настройках )

не вытаскивай 2-е таблицы. бери сразу товары. там будет ссылка а в ней уже все что тебе нужно.

(23) {Форма.Форма.Форма(40,79)}: Переменная не определена (Выборка)
        Текст.ДобавитьСтроку("ООО ""Качественный Продукт"";2630042719;263001001;" + <<?>>Выборка.Инн); (Проверка: Толстый клиент (обычное приложение))

Ошибка.

а что тебе вообще нужно?

что такое 2630042719;263001001 ?
Тебе нужно из каждого документа реализации вытащить контрагента и его данные?
тогда зачем про табличну часть писал?

(26) не Выборка, а ВыборкаДетальныеЗаписи
и
РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.ИНН КАК ИНН

(28) мне нужно вытащить данные ИНН Поставщика продыкции, он записан в     РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.ИНН,

(29) Щас буду пробовать, спасибо

лучше б сам себя спросил, почему  Переменная не определена (Выборка)

Слушайте, почему они именно Lex используют? Lex Luthor не был супер болваном, он был суперзлодеем!

(33) я тебя не оскорблял

(30) тогда тащи сразу табличную часть и смотри (29)

вот полностью код, но в файл записывается только эта часть (ООО "Качественный Продукт";2630042719;263001001;;)

Процедура КнопкаВыполнитьНажатие(Кнопка)
        
Текст = Новый ТекстовыйДокумент();


    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    РеализацияТоваровУслугТовары.Номенклатура.Код,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.Наименование КАК НаименованиеПОСТ,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.ИНН КАК ИНН,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.КПП КАК ИНН,
        |    РеализацияТоваровУслугТовары.Номенклатура.Наименование,
        |    РеализацияТоваровУслугТовары.Номенклатура.КолЛвШТ,
        |    РеализацияТоваровУслугТовары.Количество,
        |    РеализацияТоваровУслугТовары.Цена,
        |    РеализацияТоваровУслугТовары.СуммаНДС
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
        |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
        |        ПО РеализацияТоваровУслугТовары.Ссылка = РеализацияТоваровУслуг.Ссылка
        |ГДЕ
        |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон
        |    И РеализацияТоваровУслуг.Контрагент = &Контрагент";

    Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
    Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
    Запрос.УстановитьПараметр("Контрагент", Контрагент);

    Результат = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Текст.ДобавитьСтроку("ООО ""Качественный Продукт"";2630042719;263001001;" + ВыборкаДетальныеЗаписи.НаименованиеПОСТ + ";" + ВыборкаДетальныеЗаписи.ИНН );
    КонецЦикла;

    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА



Текст.Записать("C:\test.txt");

(34) это ты правильно сделал

(36)
|    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.ИНН КАК ИНН,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.КПП КАК ИНН,

Подсказка типа

(36) самый момент начать понимать, что такое вылезает из запроса

(33) закон парных случаев?

(38) Спасибо, исправил, но всё равно выходит только так
ООО "Качественный Продукт";2630042719;263001001;;

(41) Что ты там исправил?

(30)
1)  У табличной части Товары, есть поле ССЫЛКА, через которое можно достать любые реквизиты из ШАПКИ документа.

т.е. можно писать так:
Запрос.Текст =
        "ВЫБРАТЬ
        |    РеализацияТоваровУслугТовары.ссылка, // тут будет ссылка на документ вообще
        |    РеализацияТоваровУслугТовары.ссылка.Контрагент,
        |    РеализацияТоваровУслугТовары.ссылка.Организация,
        |    РеализацияТоваровУслугТовары.Номенклатура,
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары ......
Еще раз поясню: Хотя источником данных является таблица Товары, но через поле ССылка, мы можем брать и другие НЕ табличные поля, такие как Контрагент,Организация...

(41) а должно быть как?

(42) |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.ИНН КАК ИНН,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.КПП КАК КПП,

(45) а там это все есть? Ты проверил?

(45)

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
   Сообщить(ВыборкаДетальныеЗаписи.ИНН);    
КонецЦикла;

что выдает?

(46) глупо проверять, когда старшие товарищи на мисте легко расскажут, что не так

(44) должно так
ООО "Качественный Продукт";2630042719;263001001;Филиал ЗАО Пивоварня Москва-Эфес в г.Казань Республика Татарстан 7726260234;

Так может у него выборка.количество() = 1, вот и попадает олько одна запись. Автор, напиши после выполнения запроса:

ВыборкаДетальныеЗаписи = Результат.Выбрать();
Сообщить(ВыборкаДетальныеЗаписи.Количество());

(46) Данные заполнены, проверил

(49) и почему же нет казани в твоей выборке?

Текст.ДобавитьСтроку("ООО ""Качественный Продукт"";2630042719;263001001;" + ВыборкаДетальныеЗаписи.НаименованиеПОСТ + ";" + ВыборкаДетальныеЗаписи.ИНН );

ООО "Качественный Продукт";2630042719;263001001;Филиал ЗАО Пивоварня Москва-Эфес в г.Казань Республика Татарстан 7726260234;

найди отличия.

(51) Ты уверен, что получаешь данные из заполненного документа?

+(52) что такого ты сделал руками, чего не сделал запросом?

(54) выводит 85

я верю, что мы не дотянем до сотни. я верю, что у автора ещё есть надежда

Если хочешь адрес производителя, в запросе ты должен получить адрес производителя (если же конечно у элемента есть адрес).

Вставь текст запроса в консоль и результат запости сюда скриншотом.

(56)85 строк?

|    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.Наименование КАК НаименованиеПОСТ,
|    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.Адрес КАК АдресПроизводителя,

Текст.ДобавитьСтроку("ООО ""Качественный Продукт"";2630042719;263001001;" + ВыборкаДетальныеЗаписи.НаименованиеПОСТ + ";" + ";" + ВыборкаДетальныеЗаписи.АдресПроизводителя + ВыборкаДетальныеЗаписи.ИНН );

(53) адрес мне не нужен

Вообще говоря, у меня типовая 10.2 и в ней нет производителя в  СерииНоменклатуры...

блин мне уже стыдно за свою тупость (((( простите ребят, ну правда не соображу

(63) какая у тебя взрослая УТ

(64) см (59)

(64) так ты вроде писал что хочешь адрес, а теперь не хочешь. Чего ж ты хочешь?

(65) "Управление торговлей", редакция 10.3 KP (10.3.8.9)

(64) Запрос засунь в консоль и посмотри на результат. По всем показателям, данные должны опадать в строку. Раз не попадают, значит в выборке их нет.
И нафиг выкинуть это левое соединение из запроса, делать отбор по ссылке в таблице таб части

(66) Он небось не знает что такое КонсольЗапросов.

(67) сдаётся мне, нам нужно ему это рассказать

(70) яндекс знает

эт точно ((( я не вкурсе

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
   Сообщить(ВыборкаДетальныеЗаписи.ИНН);    
КонецЦикла;

Вот эта конструкция сообщает что-нибудь?

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    РеализацияТоваровУслугТовары.Номенклатура.Код,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.Наименование КАК НаименованиеПОСТ,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.ИНН КАК ИНН,
        |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.КПП КАК ИНН,
        |    РеализацияТоваровУслугТовары.Номенклатура.Наименование,
        |    РеализацияТоваровУслугТовары.Номенклатура.КолЛвШТ,
        |    РеализацияТоваровУслугТовары.Количество,
        |    РеализацияТоваровУслугТовары.Цена,
        |    РеализацияТоваровУслугТовары.СуммаНДС
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
        |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
        |        ПО РеализацияТоваровУслугТовары.Ссылка = РеализацияТоваровУслуг.Ссылка
        |ГДЕ
        |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон
        |    И РеализацияТоваровУслуг.Контрагент = &Контрагент";

    Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
    Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
    Запрос.УстановитьПараметр("Контрагент", Контрагент);

    Результат = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Сообщить("ИНН: "+ВыборкаДетальныеЗаписи.ИНН);
    КонецЦикла;

Что выводит?

(74) выплюнь каку. откладчик и консоль есть вместо этого

+(75) Сорри
|    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.КПП КАК КПП,

(76) пока он с ними разберется... можно ж сообщить для начала)

ТС! Про отладчик в курсе? Точку останова могешь поставить и в табло глянуть?

(78) я педагогически против

(79) мы вчера окладчику кости перемывали. не в курсе

(76) в служебных выдало 45

Щас он опять на меня обидится...

(83) скопируй и вставь "дятел"

(82) что 45?

(68) Ну раз с запросами не пошло, может вернемся к простой выборке:

Процедура КнопкаВыполнитьНажатие(Кнопка)
        
//Текст = Новый ТекстовыйДокумент();
Выборка1 = Документы.РеализацияТоваровУслуг.Выбрать();

    


    Пока Выборка1.Следующий() Цикл
    Номер = выборка1.Номер;

    для каждого ОднаСтрокаТовары из Выборка1.Товары цикл

      //ОднаСтрокаТовары.Номенклатура..
      //ОднаСтрокаТовары.СерияНоменклатуры.

    //Текст.ДобавитьСтроку("ООО ""Качественный ...
    сообщить("серия: "+сокрлп(ОднаСтрокаТовары.СерияНоменклатуры)+"   поставщик: "+сокрлп(ОднаСтрокаТовары.СерияНоменклатуры.Поставщик)); //
    КонецЦикла;
КонецЦикла;

//Текст.Записать("C:\test.txt");

КонецПроцедуры

//используем сокрлп() чтобы убрать из наименований пробелы слева и справа

Чувствуется - до сотки всё таки дотянем ))

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

(88) ты уверен, что 45 - это количество записей?

кстати, сколько файлов нулевого размера нужно для того, чтобы полностью забить.. допустим, 40Мб (минимум, который встречал в природе) винт?

В общем ладно, я сдаюсь, а то точно после этого пойду повешусь из-за тупости, спасибо всем кто помогал. Мне просто реально уже стыдно. Спасибо.

(91) перекури и начни сначала. без мисты

Мда... сильный пол оказался не готов к 1С... пичалька

(93) сильный пол слабее слабого в силу слабости сильного к слабому

почему-то он сюда не обращается |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Производитель.КПП КАК ИНН,

А сюда нормально |    РеализацияТоваровУслугТовары.Номенклатура.Наименование,

и всё заполнилось

(95) и он даже рассказывает, почему, я уверен

.КПП КАК ИНН эта пять.

Всё заполнилось - что все? Вместо производителя номенклатуру запилил?

(97) повторюсь
#define true false //счастливой отладки

(97) просто попробовал выведет ли она наименование номенклатуры, и всё вывело и заполнилось проблема оказалась именно с СерияНоменклатуры

ой

йоптель! А кто-то сомневался чтоль, что проблемы в серии? А говорил ведь "я проверил, там все есть"

(99) соберись, тряпка. нас вон девушки засмеивают из-за тебя

(102) Ок, буду внимательнее, спасибо всем кто помогал, и извиняюсь за свою глупость

(103) Скачай с диска ИТС себе консоль запросов на будущее.

(104) она противная. в интернетах есть гораздо более достойные

(105) с ней просто разобраться или тяжко?

(106) жизненно необходимо

Прелесть, какой уловчик :)

(108) ждём завтрашнего выпуска рубрики "так говорил мудрец"