ДенисЧ, неси свою очередную метлу ...

Есть таблица значений со строкой вида -

Дата   Номенклатура  Количество

Колонка дата содержит даты, остальные - соответственно.
Даты могут быть и одинаковые и различное количество одинаковых в группе.
Надо идти по таблице и в начале каждой группы одинаковых дат создавать документ, а остальные строки с одноименной датой - заносить в табличную часть.
Потом как то записывать, соответственно.
Подкиньте код.

Я вот так наговнял - все вроде отрабатывает. А вот запись документа - ни как пристроить не могу. Не пойму куда и как.

СтараяДата = "01.01.01";
    //счетцикла = 1;
    Для Каждого Стр из ТабПоле Цикл
        
        Если Стр.Дата <>  СтараяДата Тогда
            //записываем созданный док но если только счетцикла не равен одному
            Сообщить("Создаем документ   "+Стр.Дата);
        КонецЕсли;
        
        Сообщить("Заполняем Строки Документа    "+Стр.НоменклатураФ+"   "+Стр.Дата);
        СтараяДата = Стр.Дата;
        
    КонецЦикла;
    //Сообщить("Записываем документ  ");  ?????


Благодарю за внимание.

(52) клюшкины ТАКИХ вопросов не задают...

(50)ТЗ - ТаблицаЗначений или ТезЗадание ?
Если про таблицу - то ТЗ - это Табличное поле на форме обработки

Неее ))) Сусанины.
Это осмерка

(54) Ещё и не такие задают, когда в восьмерке кодить пытаются. Особенно поначалу

ВЫБРАТЬ
    ТЗ.поле1,
    ТЗ.поле2
ИЗ
    &ТЗ КАК ТЗ

(56) так чем тебе вариант в (29) не понравился?

(57) семерошники ПРО СЕМЕРКУ ТАКИХ вопросов не задают ))

(55) поставщиком твоего табличного поля что является ?
Источник данных для него что ? Таблица значений, еще чего ?

Ну так это

ТЗВыгрузка = ТабЧасть.Выгрузить();
Запрос = Новый Запрос(
"ВЫБРАТЬ * ПОМЕСТИТЬ ТЗОтбор ИЗ &ТЗ КАК ТЗ;
ВЫБРАТЬ * ИЗ ТЗОТбор
ИТОГИ ПО Дата");

Запрос.УстановитьПараметр("ТЗ", ТЗВыгрузка);

(55)"то ТЗ - это Табличное поле на форме обработки"
ТП и ТЗ - разные вещи.

(59)>Если Дата='00010101000000' Тогда
Док.Записать();

Это будет только одн раз при запуске процедуры.
Я остальные то Доки когда записывать буду ?

(63) у табличного поля (не поля табличного документ) есть источник. Либо это табличная часть объекта, либо это таблица значений. И то и другое можно запихнуть параметров в запрос

(65) из ТЧ выгрузить сначала надо.

(66) чуЖь

(59) не рабочий код

(64) А да. Там ошибка. Должно быть
Если Дата<>'00010101000000' Тогда

(68) Обоснуй

(64) там помимо этого, всё неправильно.

+ 63 хотя ТП неявно использует внутри себя некую структуру а-ля ТЗ как основу, но никто не признается.

посоны, ну это уже троллинг, расходимся :)

(61)ТабПоле - ТипЗнаения - ТаблицаЗначений

(73)Приехали ...

(70)
Если Дата='00010101000000' Тогда
Док.Записать();

в это условие влетит раньше, чем переменная Док вообшще объявляется как создать документ

(70) алгоритм в 17 самый правильный, его только в 8-ку нужно переписать.

(75) я тебе написал рабочий код в (62)
обходи теперь по группировкам результат запроса как в (30)

(76) См.(69)

(74)"ТабПоле - ТипЗнаения - ТаблицаЗначений"
это откуда такие информации?

(74)

Помести ТЗ в запрос, далее примитив - обходи группировки запроса и привет.

(77)И я о том же. Только не понимаю как. Покурить про объект ИндексированнаяТаблица ?
В СП есть такое ?

(78)Да пробую. Только тут вот вариантов накидали - завис ...

ТипЗначения ТП = Тип("ТабличноеПоле")

(79) не спасёт - последний документ не запишется

(82) нет, заменить семерошные инструкции на восьмерошные.

(8)>Помести ТЗ в запрос
Каг ?

(85)Где их искать ?

(81) из ТЗ можно отобрать все что угодно по условию безо всякого запроса ))

(86)
Запрос.УстановитьПараметр("ТЗ",ТЗ);

Рука тянется к бутилке ...

Запрос = Новый Запрос();
    
    Запрос.Текст =
    
    "ВЫБРАТЬ
    |    ТаблицаОбработки.Дата,
    |    ТаблицаОбработки.Номенклатура,
    |    ТаблицаОбработки.Количество
    |ПОМЕСТИТЬ ВТТабЧастьОбработки
    |ИЗ
    |    &ТаблицаОбработки КАК ТаблицаОбработки
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    ВТТабЧастьОбработки.Дата,
    |    ВТТабЧастьОбработки.Номенклатура,
    |    ВТТабЧастьОбработки.Количество
    |ИЗ
    |    ВТТабЧастьОбработки КАК ВТТабЧастьОбработки
    |ГДЕ
    |    ВТТабЧастьОбработки.Дата = &Дата";
    
    Запрос.УстановитьПараметр("ТаблицаОбработки", ТабличнаяЧасть1);
    
    ВыборкаДата = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    
    Пока ВыборкаДата.Сбросить() Цикл
        
        Док = Документы.ХХХ.Создать();
        Док.Дата = ВыборкаДата.Дата;
        
        ВыборкаДетали = ВыборкаДата.Выбрать();
        
        Пока ВыборкаДетали.Следующий() Цикл
            
            ЗаполнитьЗначенияСвойств(Док.ТЧ.Добавить(), ВыборкаДетали);
            
        КонецЦикла;
        
        Док.Записать();
        
    КонецЦикла;

(88) ктож спорит то.. запросом удобнее, мало ли, ему надо еще что-то при этом сделать
:)

все, закрываемся :)

(89)Ага.

(91) ))) Обломил сотко ...

(74) это ты перепутал источник данных ТП и саму ТП.

(93) Взял и всё испортил

хоу. Сбросить = Следующий() ессно

Запрос = Новый Запрос();
    
    Запрос.Текст =
    
    "ВЫБРАТЬ
    |    ТаблицаОбработки.Дата,
    |    ТаблицаОбработки.Номенклатура,
    |    ТаблицаОбработки.Количество
    |ПОМЕСТИТЬ ВТТабЧастьОбработки
    |ИЗ
    |    &ТаблицаОбработки КАК ТаблицаОбработки
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    ВТТабЧастьОбработки.Дата,
    |    ВТТабЧастьОбработки.Номенклатура,
    |    ВТТабЧастьОбработки.Количество
    |ИЗ
    |    ВТТабЧастьОбработки КАК ВТТабЧастьОбработки
    |ГДЕ
    |    ВТТабЧастьОбработки.Дата = &Дата";
    
    Запрос.УстановитьПараметр("ТаблицаОбработки", ТабличнаяЧасть1);
    
    ВыборкаДата = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    
    Пока ВыборкаДата.Следующий() Цикл
        
        Док = Документы.ХХХ.Создать();
        Док.Дата = ВыборкаДата.Дата;
        
        ВыборкаДетали = ВыборкаДата.Выбрать();
        
        Пока ВыборкаДетали.Следующий() Цикл
            
            ЗаполнитьЗначенияСвойств(Док.ТЧ.Добавить(), ВыборкаДетали);
            
        КонецЦикла;
        
        Док.Записать();
        
    КонецЦикла;

сотка. закрываемсо :)

чорт. не

    Запрос = Новый Запрос();
    
    Запрос.Текст =
    
    "ВЫБРАТЬ
    |    ТаблицаОбработки.Дата,
    |    ТаблицаОбработки.Номенклатура,
    |    ТаблицаОбработки.Количество
    |ПОМЕСТИТЬ ВТТабЧастьОбработки
    |ИЗ
    |    &ТаблицаОбработки КАК ТаблицаОбработки
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    ВТТабЧастьОбработки.Дата КАК Дата,
    |    ВТТабЧастьОбработки.Номенклатура,
    |    ВТТабЧастьОбработки.Количество
    |ИЗ
    |    ВТТабЧастьОбработки КАК ВТТабЧастьОбработки
    |ИТОГИ ПО
    |    Дата";
    
    Запрос.УстановитьПараметр("ТаблицаОбработки", ТабличнаяЧасть1);
    
    ВыборкаДата = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    
    Пока ВыборкаДата.Следующий() Цикл
        
        Док = Документы.ХХХ.Создать();
        Док.Дата = ВыборкаДата.Дата;
        
        ВыборкаДетали = ВыборкаДата.Выбрать();
        
        Пока ВыборкаДетали.Следующий() Цикл
            
            ЗаполнитьЗначенияСвойств(Док.ТЧ.Добавить(), ВыборкаДетали);
            
        КонецЦикла;
        
        Док.Записать();
        
    КонецЦикла;

Ну спасибо, камрады. Надо разбираться. Материала наверстали - выше крыши )))

Буду применять. Дальше без меня пока ...

(101)Нифига, тебя штырибасит )))

ну если уж даешь код, то он должен быть рабочим, без закладок :)

Таки мне приглянулсо код из (17) курю вот.
про СоздатьОбъект("ИндексированнаяТаблица")

(104) это код для клюшек, в восьмерке не взлетит

Да. Уже понял. 1с++ надо бибилиотеку СРР.
Все. Переключаюсь на другие варианты.

+(105) по сути он делает тоже самое что и (101), создает дерево и обходит его

(107)А вот на (101) и остановлюсь, походу.

(101)>ТаблицаОбработки
Это что ? Мое ТабличноеПоле ?

(101)>ВТТабЧастьОбработки
Это правильное написание ?

Мда... Не, зря ему метлу предлагали...

Дак кто спорит ... Я не отказываюсь. Принимаю с почтением. У меня их штук десяток уже.
Не помогает ...

(112) Так ими пользоваться нужно по назначению, а не коллекционировать.
Зря что-ли человек старался?

(113)Дак я и это то не умею ...

Работал бы  я одинесником тогда ...

(109) это таблица значений, которая источник твоего табличного поля

(116)Да, уже понял. Подправил
>Док = Документы.ХХХ.Создать();
СоздатьДокумент()
надо было.

С Датой еще пришлось помудрить - я ее из файла ф ТАбПоле получал как строку.
Привел к виду дата с нужным форматом.
Теперь разбираюсь с

>ВыборкаДетали

Пока через Сообщить все врде ок.
ВыборкаДетали.Коичество() - говорит, что итогах группировки нужное количество записей по каждой дате.

Так что все ОК. Почти ))

Да. По структуре запроса и по итогам - все ОК.
Сейчас нюансы заполнения документа подпилю и все ОК.
Спасибо всем.
И pessok персонально

Мдя. Рановато радовался. Чего то недосмотрел.

Вот такой кодец вышел.

Процедура СоздатьДокументыНажатие(Элемент)
    Запрос = Новый Запрос();
    
    Запрос.Текст =
    
    "ВЫБРАТЬ
    |    ТабПоле.Дата,
    |    ТабПоле.НоменклатураБ,
    |    ТабПоле.Количество
    |ПОМЕСТИТЬ ВТТабЧастьОбработки
    |ИЗ
    |    &ТабПоле КАК ТабПоле
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////

    |ВЫБРАТЬ
    |    ВТТабЧастьОбработки.Дата КАК Дата,
    |    ВТТабЧастьОбработки.НоменклатураБ,
    |    ВТТабЧастьОбработки.Количество
    |ИЗ
    |    ВТТабЧастьОбработки КАК ВТТабЧастьОбработки
    |ИТОГИ ПО
    |    Дата";
    
    Запрос.УстановитьПараметр("ТабПоле", ТабПоле);
    
    ВыборкаДата = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    Пока ВыборкаДата.Следующий() Цикл
        Док = Документы.ОтчетОРозничныхПродажах.СоздатьДокумент();
        Док.Дата = ВыборкаДата.Дата;
        
        ВыборкаДетали = ВыборкаДата.Выбрать();
        Пока ВыборкаДетали.Следующий() Цикл
            ЗаполнитьЗначенияСвойств(Док.Товары.Добавить(), ВыборкаДетали);
        КонецЦикла;
        
        Док.Записать();
        
    КонецЦикла;
КонецПроцедуры

Вроде все верно, а документ не создается.
Помоему с пустой фирмой то запишется ведь ?

Но в журнале - пусто.

ВыборкаДетали = ВыборкаДата.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Во народ дает! Такую фигню на 120 постов развезли!

(120)Ну да, как вариант заполнения ТЧ документа.
Но ведь и в
>ЗаполнитьЗначенияСвойств(Док.Товары.Добавить(), ВыборкаДетали)

Можно просто параметры заполнения добавить и все ОК будет. Не ?

(121)Дак мы общаемся  ... ))

+(122) и на проблему в (119) это не влияет. Не?

(121) +500

Автору нефиг делать в программировании.

(122) Попробуй сначала.
Если получится - дай слово, что уйдёшь из 1с.

(124)Дак я понимаю. Но в дворники не берут.  )))
ДенисЧ протекцию составлял - не помогло.

(125)Как я дам то ??? Куда меня возьмут то ??? Не ... есть то надо уж както. Пока тут перекантуюсь.
Потом может Путин приметит. Я тут отличался прогнозами, так может предложат что то стоящее.
Тогда да. А так - не могу.

Немая сцена

что не работает то?

(127) Так помогло или нет?

Говорят голова ...

(130)для (128)

(131) Москва не сразу строилась, все или почти все через это проходили. В чем конкретно беда?

(129)Шо ? Вот это ?
>ВыборкаДетали = ВыборкаДата.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пробую.

(133) это не поможет и не может помочь. там уже нет группировок, там уже детальные записи, т.к. итоги только по полю дата

ПЦ. Вопще все колом встало )))

Открываю обработку в конфигураторе -
Ошибка при выполнении файловой операции  'C:\Users\ray\Desktop\Девайс\ЗагрузкаИзЭксель.epf'
по причине:
Неверный формат хранилища данных 'file://C:/Users/xxx/Desktop/xxx/ЗагрузкаИзЭксель.epf'

(135) ну тут мы не поможем, файлик побился. письма счастья из "сбебанка" не приходили?

Уже даже сама 1с намекает...

добрее надо быть, коллеги, завтра ж пятница :)

(135)Шо такое сбебанк ? о_О

Типа заплатите на счет ххх пришлем код ?
Да не, у меня все чисто . Вроде ...

(139) ну у тебя побился файл обработки. беда, как известно, одна не приходит. решил предположить худшее, свят-свят

Все. ПЦ файлику. Точно.

Ну, камрады, вводная меняется )))

Теперь тема обсуждения - как отремонтировать файл )))
Еще постов на 300.

Блин. и Копии то нет ...

Цукко ...

Нут как то глухо подвис. Первый раз за пару лет. Пришлось ресетить.
Вот результат.

ресетить вообще категорически 1С нельзя.

если у тебя загрузка из экселя трех колонок, то там переписать все за 10 минут. + вставить мой код из (101) с учетом СоздатьДокумент() вместо Создать() и усё

переименовать в ТХТ и в амноблакноте хоть открыть может ? )))

(7) некому Вас пока гонять. Под баном Денис.

(145)о_О ??? Шо голым по мисте бегал ???

Слава откатам ... И иногда полезно хранить файлы на рабочем столе.
Откатил систему на позавчера - восстановилась версия файла.
По крайней мере интерфейсная часть и одна процедура.

Остальное по свежей памяти наколотил )))

(62) можно выгрузку табличной часть в ТЗ не делать, а сразу в параметр запроса таб часть передавать

(148) да, это обсуждалось чуть дальше

(120)>ВыборкаДетали = ВыборкаДата.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Из принципа попробовал - результат = 0.
Изначально было понятно, что к проблеме (119) отношения не имеет.

А нет проблемы. Извиняй pessok, просто тупо не догадался отключить отбор в журнале документов.  Фирма не заполнена, а отбор по фирме включен.

Все, всем спасибо.
Вопрос закрыт.

(0) а вообще, если автору понятней ЕГО вариант - нужно флаг вставить на создание документа ДокументСоздан (перед каждой итерацией его нужно сбрасывать не забывать), а потом проверять: если Истина - то заполнить ТЧ и записать, нет - далее смотреть исходную ТЗ.

(65) умные все.
А если нет? Ни ТЗ, ни ТЧ как источника.
Все, на митсу побежишь вопросы задавать?