Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 18:48

Объеденение документов в один в 1с 7.7

Автор Кот Никита, 21 сен 2016, 12:45

0 Пользователей и 1 гость просматривают эту тему.

Кот Никита

Здравствуйте!Помогите_Пожалуйста. Задача: в форме документа добавлена кнопка консалидация. при нажатии кнопки отображается журнал с документами данного типа. необходимо:  1. что бы в этом журнале были не все документы, а по заданным параметрам, которые есть в самом документе. 2. Что бы можно было выбрать определенные документы в журнале и при нажатии кнопки консалидировать. данные документы объеденялись в один, а те которые выделены удалились. сложно. не могу разобраться. Помогите пожалуйста!

ДенисЧ

Запросом по параматреам отобрать документы, вывести их в ТЗ с пометками.
Потом пробежаться по Тз, объединить отмеченные, записать новый, а старые пометить на удаление.

Кот Никита

Цитата: ДенисЧ от 21 сен 2016, 12:51
Запросом по параматреам отобрать документы, вывести их в ТЗ с пометками.
Потом пробежаться по Тз, объединить отмеченные, записать новый, а старые пометить на удаление.
Хорошая идея по ТЗ. сразу не подумал. Только необходимо не все доки с одинаковыми параметрами, а пользователь должен выбрать сам. Как произвести выборку в журнале? Спасибо за ответ!
Добавлено: 21 сен 2016, 13:05


Цитата: Кот Никита от 21 сен 2016, 12:45
Здравствуйте!Помогите_Пожалуйста. Задача: в форме документа добавлена кнопка консалидация. при нажатии кнопки отображается журнал с документами данного типа. необходимо:  1. что бы в этом журнале были не все документы, а по заданным параметрам, которые есть в самом документе. 2. Что бы можно было выбрать определенные документы в журнале и при нажатии кнопки консалидировать. данные документы объеденялись в один, а те которые выделены удалились. сложно. не могу разобраться. Помогите пожалуйста!
Думаю что через документ который будет выносится на основании этого будет легче сделать.

ДенисЧ

ЦитироватьКак произвести выборку в журнале?

Аналогично. Выгрузить нужные документы в ТЗ и там отмечать

Кот Никита

Цитата: ДенисЧ от 21 сен 2016, 13:10
ЦитироватьКак произвести выборку в журнале?

Аналогично. Выгрузить нужные документы в ТЗ и там отмечать
Сорри. пока не могу понять как. 

ДенисЧ

Что конкретно не понятно?
(с ТЗ я погорячился, может, подойдёт и список значений)

Например:

док = СоздатьОбъект("Документ.Приходная");
сз = СоздатьОбъект("списокЗначений");
док.ВыбратьДокументы('01.01.2016', '31.08.2016');
Пока док.ПолучитьДокумент() = 1 Цикл
  сз.ДобавитьЗначение(док.ТекущийДокумент());
КонецЦикла;
зн = "";
Если сз.ОтметитьЗначения(зн, "Выберите документы") = 1 Тогда
  для сч = 1 по сз.РазмерСпика() Цикл
    если сз.Пометка(сч) Тогда
        док = сз.ПолучитьЗначение(сч);
        Сообщить("отмечен " + док);
    КонецЕсли;
КОнецЕсли;


Это для выбора списка документов. Что ещё не понятно?

Кот Никита

Цитата: ДенисЧ от 21 сен 2016, 14:07
Что конкретно не понятно?
(с ТЗ я погорячился, может, подойдёт и список значений)

Например:

док = СоздатьОбъект("Документ.Приходная");
сз = СоздатьОбъект("списокЗначений");
док.ВыбратьДокументы('01.01.2016', '31.08.2016');
Пока док.ПолучитьДокумент() = 1 Цикл
  сз.ДобавитьЗначение(док.ТекущийДокумент());
КонецЦикла;
зн = "";
Если сз.ОтметитьЗначения(зн, "Выберите документы") = 1 Тогда
  для сч = 1 по сз.РазмерСпика() Цикл
    если сз.Пометка(сч) Тогда
        док = сз.ПолучитьЗначение(сч);
        Сообщить("отмечен " + док);
    КонецЕсли;
КОнецЕсли;


Это для выбора списка документов. Что ещё не понятно?
спасибо! Завтра попробую. Только мне там ещё надо условие отбора в список значение вставить, с этим справлюсь. И при проводке нужно в текущий документ сложить данные с выделенных. Удалить выделенные.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск