Здравствуйте! Я работаю с 1с бухгалтерия 8.2. Мне необходимо выгрузить документы "Возврат товаров от покупателя" в DBF.Практически все что мне необходимо я могу выгрузить кроме ЦЕНЫ и ЕД.ИЗМЕРЕНИЯ. Вот текст:

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Дбаза= Новый XBase();
   ФайлДБФ= Новый Файл(ФН3);
   ДБаза.поля.Добавить("Numb","S",11);
   ДБаза.поля.Добавить("Date","D",10);
   ДБаза.поля.Добавить("Klkod", "S", 20);
   ДБаза.поля.Добавить("Klname", "S", 100);
   //ДБаза.поля.Добавить("Tkod", "s", 20);
   ДБаза.поля.Добавить("Summa", "N", 15, 2);
   ДБаза.поля.Добавить("NDS", "S", 20);
   ДБаза.поля.Добавить("Cena", "s", 20);
   ДБаза.поля.Добавить("Bei", "S", 20);
   ДБаза.поля.Добавить("Kol", "S", 100);
   ДБаза.поля.Добавить("Tvname", "S", 100);
   ДБаза.поля.Добавить("INN", "S", 20);    
   ДБаза.СоздатьФайл(ФН3);
   Выборка = Документы.ВозвратТоваровОтПокупателя.Выбрать(НачПериода,КонецДня(КонПериода));
     Пока Выборка.Следующий() Цикл
       Если Выборка.ПометкаУдаления Тогда
           Продолжить;
       КонецЕсли;
       ДБаза.Добавить();
       Об = Выборка.ПолучитьОбъект();            
         ДБаза.Numb  =Об.Номер;
       ДБаза.Date  =об.Дата;
       ДБаза.KlKod =об.Контрагент.Код;
       ДБаза.KlName=об.Контрагент.Наименование;
       ДБаза.Nds   =об.Товары.Итог("СуммаНДС");
       ДБаза.Summa =об.СуммаДокумента;
       ДБаза.INN   =об.Контрагент.ИНН;
       ДБаза.Kol   =об.Товары.Количество();    
       ДБаза.Cena  =????
       ДБаза.Записать();
    КонецЦикла;
    ДБаза.ЗакрытьФайл();    
    Сообщить("Обработка завершена");
   КонецПроцедуры    




Как мне это сделать? Подскажите кто знает.

а что, цены и единицы в ТЧ нет?

от же ж прикольно как. в БП3 количество в ТЧ есть, а единицы нет

>об.Товары.Количество();
это о чём?

Я начинающий программист.
ТЧ-табличная часть?
Они в табличной части есть только как к ним обратится? Как с остальными не получается.

Я тоже думал
>об.Товары.Цена(); но не получается. не видит

(4) пройдись по ТЧ, сделай что-нибудь для каждой строки из ТЧ

а на (3) ответь. кстати, непроведённые документы должны выгружаться?

а зачем объект получать?

а как

а почему цена строка?

с непроведенными я разберусь. пока пусть все выгружает

Забыл переделать на N

кстати, когда создавать файл будешь, наткнёшься на ошибку. так вот, когда будешь на неё жаловаться, скажи, что СП ты уже читал

(0)в мусорку.

(14)все неправильно.  Пиши запрос.

(5)Ты сам то понимаешь что пытаешься получить цену всех строк из Табличной Части?! И где у тебя выгружаются наименования позиций?

Если я цену выгружу то и наименование выгружу..

(17) Пиши запрос. То что написано в (0) мусор.

реквизит цена не заполнена в документе?

(19) Какая цена в документе?! Там ТЧ.

(20)возьми открой типовую БП и посмотри в ТЧ есть ЦЕНА!!!!!

Я попробую запросом спасибо.А выборкой никак?

ааа! блин, он шапку выгружает только...

(22) у тебя там вообще бардак ))) все делай по другому

(23) да. Я имел ввиду что в шапке ее нет.

(22) можно выборкой

(26) Не надо учить человека плохому стилю.

(25) да, но он там потом так делает))) ДБаза.Kol   =об.Товары.Количество();

как ... в чем бордак? что не так

(28) Так это метод который получает количество строк в ТЧ. Это не то что он хочет.

(27)я его не учу, ему сейчас так удобнее)) с запросами еще две недели просидит)))

(31) Ему всю жизнь будет так удобнее.

Запросом я попробую. А выборкой как сделать?

(33) повторить?

(29) тебе нужно какие данные выгрузить? только шапку или еще номенклатуру? по колу получается что ты хочешь выгрузить только шапку. если только шапку, тогда малость так нужно:
ДБаза.Kol = об.Товары.Итог("Количество");
ДБаза.Cena = об.Товары.Итог("Цена")/об.Товары.Итог("Количество");

по колу получается = по коду получается

А ед. изм

(35) сумму надо делить

(37) на (35) ответь

(35) ай блин, начудил. не так количество строк ТЧ на об.Товары.Итог("Цена")

(35)
ДБаза.Cena = об.Товары.Итог("Цена")/об.Товары.Итог("Количество")


Вы вообще понимаете какой сказочный бред вы написали?

(40) прекрати фигню сочинять ;)

(37) а зачем тебе ед если только шапка выгружается

(42) почему фигня, среднюю цену ТЧ вычисляем))

дураки вы все и не лечитесь, не можете автору сказать, что ему ещё цикл по ТЧ нужен. один я тут в белом пальто весь такой красивый стою ;)

(43) Цену никогда средним значением не выгружают. Парень в (0) ошибся. Ему надо все грузить походу, а не только шапку.

мне не шапку надо а данные

(46) а чего он тогда номенклатуру не выгружает?

(47) теперь понятно, запрос делай и все получиться

Делай запрос. Так правильно. Получать объекты документов  слишком долго и не правильно для твоей задачи.

(48) см (10) и (12) - он юнга

что, коллеги, сделаем сотню, как думаете?

(52) да легко))

Пробую запрос писать!

Пока Выборка.Следующий() Цикл
       Если Выборка.ПометкаУдаления Тогда
           Продолжить;
       КонецЕсли;
       // cmon later //ДБаза.Добавить();
       //Об = Выборка.ПолучитьОбъект();            
// общие реквизиты дока
         ДБазаNumb  =Об.Номер;
       ДБазаDate  =об.Дата;
       ДБазаKlKod =об.Контрагент.Код;
       ДБазаKlName=об.Контрагент.Наименование;
       ДБазаINN   =об.Контрагент.ИНН;
// ТЧ
Для каждого Стр Из об.Товары Цикл
ДБаза.Добавить(); // here we go
// из шапки для каждой строки
       ДБаза.Date  =ДБазаDate  
       ДБаза.KlKod =ДБазаKlKod ;
       ДБаза.KlName=ДБазаKlName;
ДБаза.INN    = ДБазаINN   ;
// не из нее
       ДБаза.Nds   =Стр.СуммаНДС;
       ДБаза.Summa =Стр.Сумма;

       ДБаза.Kol   =Стр.Количество // плз но "()";    
       ДБаза.Cena  =Стр.Прайс;
       ДБаза.Записать();
КонецЦиклаПоТЧ;
    КонецЦикла;
// После исправления ошибок в дбф будет куча строк, где в каждой строке есть и реквизиты документа и данные строки Товары, надо провести нормализацию
Indian CtrlCCtrlV (c)

(54)  подсказка, открой модуль объекта документа
и в строке 18 есть готовая функция:
Функция ПечатьВозвратаОтПокупателя()
       
       Запрос = Новый Запрос;
       Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
       
       Запрос.Текст =
       "ВЫБРАТЬ
       |    Номер,
       |    Дата,
       |    ДоговорКонтрагента,
       |    Контрагент КАК Контрагент,
       |    Организация,
       |    СуммаДокумента,
       |    ВалютаДокумента,
       |    УчитыватьНДС,
       |    СуммаВключаетНДС,
       |    Товары.(
       |        НомерСтроки,
       |        Номенклатура,
       |        Номенклатура.НаименованиеПолное КАК Товар,
       |        Номенклатура.Код                КАК Код,
       |        Номенклатура.Артикул            КАК Артикул,
       |        Количество,
       |        Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
       |        Цена,
       |        Сумма,
       |        СуммаНДС
       |    )
       |ИЗ
       |    Документ.ВозвратТоваровОтПокупателя КАК ВозвратТоваровОтПокупателя
       |
       |ГДЕ
       |    ВозвратТоваровОтПокупателя.Ссылка = &ТекущийДокумент";
       
       Шапка = Запрос.Выполнить().Выбрать();
       Шапка.Следующий();
       ВыборкаСтрокТовары = Шапка.Товары.Выбрать();

(55)(56) сейчас его кондратий хватит

(57) )))
(54) только это нужно убрать:
Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
и вот это:
       |ГДЕ
       |    ВозвратТоваровОтПокупателя.Ссылка = &ТекущийДокумент

(58) и добавить условие про даты и проведённость

и всё-таки выгружать ТЧ не как ТЗ. то есть обращаться к таблице ТЧ, а не документа

(59) ну да точно, еще в запросе обозвать поля на ангельско и в цикле ЗаполнитьЗначенияСвойств

(60) что то автор молчит...

(61) это был контрольный выстрел в автора

Да я тут пробовать пытаюсь)

(63) видимо, закипел паренек

а вот и автор)) ну и как?

пока печально а там посмотрим!

где заклинило?

моему падавану надысь дали задачу: взять два текстовых файла и найти различия. предполагается, что в файлах некий список фамилий, нужно найти тех, которых нет одновременно в двух файлах. падаван как белый человек стал писать циклический обход. это был объектный подход к решению задачи. я же предложил реляционный: взять две ТЗ, соединить и посмотреть, где NULLы. человека слегка переклинило - принципиально разные подходы

смотрю что(55) написал

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

чтото вроде этого

(70) А. Да. (55) уже написал.

(71) видишь ли, здесь состязаются два подхода к решению ;)

(73) выходной же
Процедура ФункцияВыигрыша(Вася, Петя) Экспорт Далее Более
Если Вася.Дома() А Петя.Нет() Тогда
Сообщить 1;
ИначеЕсли Вася.Нет() А Петя.Дома() Тогда
Сообщить 2;
Иначе
ФункцияВыигрыша(Вася, Петя); // Ждем
КонецПроцедуры

(74) две разные функции для одного и того же. г-код
Если Вася.Дома() И НЕ Петя.Дома() Тогда...

еще варианты))

лучше так:
Пока 1=1 Цикл
  Предупреждение("Привет мир!!!");
КонецЦикла

(70) ну как, получилось?

видимо до сотки не дойдет (

   фнз = "c:\v8.dbf";
   Дбаза= Новый XBase();
   ДБаза.поля.Добавить("Numb","S",11);
   ДБаза.поля.Добавить("Date","D",10);
   ДБаза.поля.Добавить("Klkod", "S", 20);
   ДБаза.поля.Добавить("Klname", "S", 100);
   //ДБаза.поля.Добавить("Tkod", "s", 20);

   ДБаза.поля.Добавить("Summa", "N", 15, 2);
   ДБаза.поля.Добавить("NDS", "S", 20);
   ДБаза.поля.Добавить("Cena", "s", 20);
   ДБаза.поля.Добавить("Bei", "S", 20);
   ДБаза.поля.Добавить("Kol", "S", 100);
   ДБаза.поля.Добавить("Tvname", "S", 100);
   ДБаза.поля.Добавить("INN", "S", 20);    
   ДБаза.СоздатьФайл(фнз);
   
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ВозвратТоваровОтПокупателя.Номер КАК Numb,
                  |    ВозвратТоваровОтПокупателя.Дата КАК Date,
                  |    ВозвратТоваровОтПокупателя.Контрагент.Код КАК KlKod,
                  |    ВозвратТоваровОтПокупателя.Контрагент.Наименование КАК KlName,
                  |    ВозвратТоваровОтПокупателя.Контрагент КАК Контрагент,
                  |    ВозвратТоваровОтПокупателя.Товары.(
                  |        Номенклатура.НаименованиеПолное КАК Товар,
                  |        Номенклатура.Код КАК Код,
                  |        Номенклатура.Артикул КАК Артикул,
                  |        Количество КАК Kol,
                  |        Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
                  |        Цена КАК Cena,
                  |        Сумма КАК Summa,
                  |        СуммаНДС КАК Nds
                  |    )
                  |ИЗ
                  |    Документ.ВозвратТоваровОтПокупателя КАК ВозвратТоваровОтПокупателя
                  |ГДЕ
                  |    ВозвратТоваровОтПокупателя.Дата МЕЖДУ &НачалоДата И &КонецДата
                  |    И ВозвратТоваровОтПокупателя.Проведен = ИСТИНА";
                 
       Шапка = Запрос.Выполнить().Выбрать();
       Шапка.Следующий();
       ВыборкаСтрокТовары = Шапка.Товары.Выбрать();
       Пока ВыборкаСтрокТовары.Следующий() Цикл
           ДБаза.Добавить();
           ЗаполнитьЗначенияСвойств(ДБаза, ВыборкаСтрокТовары);
       КонецЕсли;
       ДБаза.Записать();

(79) никогда в запросе не выбирал таблицы, ЗаполнитьЗначенияСвойств не рухнет на этом?

(77) это моветон

Пока Истина Цикл
 ОбработкаПрерыванияПользователя();
 Предупреждение("Хелло, ворлд!");
КонецЦикла;


(80) это даже в учебке запрещают делать))
ну раз в типовой делают...
правильнее конечно так:
ВЫБРАТЬ
   Товары.Номенклатура,
   Товары.Количество,
   Товары.Цена,
   Товары.Сумма,
   Товары.СуммаНДС
ИЗ
   Документ.ВозвратТоваровОтПокупателя.Товары КАК Товары

Дбаза= Новый XBase();
   ДБаза.поля.Добавить("Numb","S",11);
   ДБаза.поля.Добавить("Date","D",10);
   ДБаза.поля.Добавить("Klkod", "S", 20);
   ДБаза.поля.Добавить("Klname", "S", 100);
   ДБаза.поля.Добавить("Summa", "N", 15, 2);
   ДБаза.поля.Добавить("NDS", "S", 20);
   ДБаза.поля.Добавить("Cena", "s", 20);
   ДБаза.поля.Добавить("Bei", "S", 20);
   ДБаза.поля.Добавить("Kol", "S", 100);
   ДБаза.поля.Добавить("Tvname", "S", 100);
   ДБаза.поля.Добавить("INN", "S", 20);    
   ДБаза.СоздатьФайл(фн3);
   
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ВозвратТоваровОтПокупателя.Номер КАК Numb,
                  |    ВозвратТоваровОтПокупателя.Дата КАК Date,
                  |    ВозвратТоваровОтПокупателя.Контрагент.Код КАК KlKod,
                  |    ВозвратТоваровОтПокупателя.Контрагент.Наименование КАК KlName,
                  |    ВозвратТоваровОтПокупателя.Контрагент КАК Контрагент,
                  |    ВозвратТоваровОтПокупателя.Товары.(
                  |        Номенклатура.НаименованиеПолное КАК Товар,
                  |        Номенклатура.Код КАК Код,
                  |        Количество КАК Kol,
                  |        Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
                  |        Цена КАК Cena,
                  |        Сумма КАК Summa,
                  |        СуммаНДС КАК Nds
                  |    )
                  |ИЗ
                  |    Документ.ВозвратТоваровОтПокупателя КАК ВозвратТоваровОтПокупателя
                  |ГДЕ
                  |    ВозвратТоваровОтПокупателя.Дата МЕЖДУ &НачалоДата И &КонецДата
                  |   и ВозвратТоваровОтПокупателя.Проведен = ИСТИНА";
       Запрос.УстановитьПараметр("НачалоДата",НачПериода);
       Запрос.УстановитьПараметр("КонецДата",КонецДня(КонПериода));          
       Результат = Запрос.Выполнить().Выбрать();
       Результат.Следующий();
       ВыборкаСтрокТовары = Результат.Товары.Выбрать();
       Пока ВыборкаСтрокТовары.Следующий() Цикл
           ДБаза.Добавить();
           ЗаполнитьЗначенияСвойств(ДБаза, ВыборкаСтрокТовары);
       КонецЦикла;
       ДБаза.Записать();
   
вот так написал. В DBF е однр страко получается где сумма, ндс,цена и количество

одна строка

(84) )) одна строка только записалась?

да и то не полная

(83) какая качественная очепятка

(86) это как?

(87) да, бывает, сгоряча))

(86) а если запрос на это поменять:
ВЫБРАТЬ
   Товары.Номенклатура КАК Tvname,
   Товары.Количество КАК Kol,
   Товары.Цена КАК Cena,
   Товары.Сумма КАК Summa,
   Товары.СуммаНДС КАК Nds,
   Товары.Ссылка.Номер КАК Numb,
   Товары.Ссылка.Дата КАК Date,
   Товары.Ссылка.Контрагент.Наименование КАК KlName,
   Товары.Ссылка.Контрагент.Код КАК KlKod,
   Товары.Ссылка.Контрагент.ИНН КАК INN,
   Товары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ed
ИЗ
   Документ.ВозвратТоваровОтПокупателя.Товары КАК Товары
ГДЕ
   Товары.Ссылка.Проведен = ИСТИНА
   И Товары.Ссылка.Дата МЕЖДУ &НачалоДата И &КонецДата

а если убрать Результат.Следующий();

осталось то совсем немножко...

(92) ну взлетит.. автор ж один хрен не поймёт, что случилось

{Форма.Выгрузка.Форма(45)}: Поле объекта не обнаружено (Товары)
       ВыборкаСтрокТовары = Результат.Товары.Выбрать();

(94) о! это серьезная ошибка....
сам догадаешься?

(94) куда пропал?

пробую что-то сделать

(97) у нас в запросе убралась таблица Товары значит и перед циклом нужно что то сделать

это заменить:
       Результат.Следующий();
       ВыборкаСтрокТовары = Результат.Товары.Выбрать();
       Пока ВыборкаСтрокТовары.Следующий() Цикл
на это:
       Пока Результат.Следующий() Цикл

СОТНЯ!

Все равно одна строчка

Все равно одна строка

а ты еще поменяй это:
           ЗаполнитьЗначенияСвойств(ДБаза, ВыборкаСтрокТовары);
       КонецЦикла;
       ДБаза.Записать();
на это:
           ЗаполнитьЗначенияСвойств(ДБаза, ВыборкаСтрокТовары);
ДБаза.Записать();
       КонецЦикла;

Получилось......Большое вам человеческое спасибо!!!!!!!!!!!!!

и вам не хворать! ;0)

эх, немного не рассчитал 106 получилось