Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Можно сделать выборку по нескольким видам субконто?          
Vofka Подменю пользователя
сообщение 23.07.10, 7:14
Сообщение #1

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Привет!

Есть отчет:

Процедура Сформировать()

    Если Проверки() = 0 Тогда
        Возврат;
    КонецЕсли;
    
    Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    
    Ит.ИспользоватьСубконто(ВидСубконто, , 1, 0);
    
    Ит.ИспользоватьПланСчетов(ПланыСчетов.Основной);
    Ит.ВключатьСубсчета(-1, 0);
    Ит.Опции(0, 0);
    Ит.ВыполнитьЗапрос(НачДата, КонДата, СпСчетов, "", , 3, 1);
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    Таб.ВывестиСекцию("Шапка");
    
    Ит.ВыбратьСубконто(1,,,,,,);
    Пока Ит.ПолучитьСубконто(1,,) = 1 Цикл
        Таб.ВывестиСекцию("Контрагент");
        Ит.ВыбратьСчета(,,,);
        Пока Ит.ПолучитьСчет(,) = 1 Цикл
            Таб.ВывестиСекцию("Счет");
        КонецЦикла;
    КонецЦикла;
    
    Таб.ВывестиСекцию("Итоги");
    
    Таб.Опции(0, 0, 5);
    Таб.ТолькоПросмотр(1);
    Таб.Показать();
КонецПроцедуры


В рексизите ВидСубконто - указан вид субконто, например, контрагенты.
Мне надо, чтобы с контрагентами происходила выборка по сотрудникам. Я сделал реквизит ВидСубконто2, в котором указал Сотрудники и после строчки
Ит.ИспользоватьСубконто(ВидСубконто, , 1, 0);
добавил
Ит.ИспользоватьСубконто(ВидСубконто2, , 1, 0);
, но в результате получил пустой отчет

1Cv77 Подменю пользователя
сообщение 23.07.10, 10:11
Сообщение #2

Завсегдатай
****
Группа: Пользователи
Сообщений: 195
Из: Украина, Мелитополь
Спасибо сказали: 61 раз
Рейтинг: 0

Если ты добавил выборку еще по одному субконто, тогда нужно еще и:
Ит.ВыбратьСубконто(2,,,,,,);
И все остальное, т.е. цикл

Vofka Подменю пользователя
сообщение 23.07.10, 10:38
Сообщение #3

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

1Cv77, так это не 2-е субконто этих счетов. Это так же 1-е субконто. Просто у счетов по которым выбираются итоги 1-е субконто может быть нескольких видов

1Cv77 Подменю пользователя
сообщение 23.07.10, 11:01
Сообщение #4

Завсегдатай
****
Группа: Пользователи
Сообщений: 195
Из: Украина, Мелитополь
Спасибо сказали: 61 раз
Рейтинг: 0

Цитата(Vofka @ 23.07.10, 11:38) *
1Cv77, так это не 2-е субконто этих счетов. Это так же 1-е субконто. Просто у счетов по которым выбираются итоги 1-е субконто может быть нескольких видов


Конфа какая???
и по какому счету отчет?

Vofka Подменю пользователя
сообщение 23.07.10, 11:34
Сообщение #5

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Та конфа любая, та и счета (их несколько) любые.
Ну например конфа бухия, счета "361, 631, 372".

1Cv77 Подменю пользователя
сообщение 23.07.10, 11:46
Сообщение #6

Завсегдатай
****
Группа: Пользователи
Сообщений: 195
Из: Украина, Мелитополь
Спасибо сказали: 61 раз
Рейтинг: 0

Что-то я не видел, что-бы субконто было из разных справочников?????? 09000000.gif

Vofka Подменю пользователя
сообщение 23.07.10, 13:08
Сообщение #7

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Есть 2 вида субконто: Контрагенты и Сотрудники. Есть счета 361, 631 у которых 1-е субконто Контрагенты. Есть счет 372, у которого 1-е субконто Сотрудники. И вот мне надо итоги по всем этим счетам с разверткой по субконто и счетам, например:

ЧП "Контора"...100..100 - это контрагент
361.................50....50
631.................50....50

Васильев. В. В. ..250..250 - это сотрудник
372...................250..250

1Cv77 Подменю пользователя
сообщение 23.07.10, 14:03
Сообщение #8

Завсегдатай
****
Группа: Пользователи
Сообщений: 195
Из: Украина, Мелитополь
Спасибо сказали: 61 раз
Рейтинг: 0

Ну тогда самый простой выход....
прокручивать цикл два раза
только сначала переназначить субконто

1Cv77 Подменю пользователя
сообщение 23.07.10, 14:07
Сообщение #9

Завсегдатай
****
Группа: Пользователи
Сообщений: 195
Из: Украина, Мелитополь
Спасибо сказали: 61 раз
Рейтинг: 0

Ну где то так:
    Если Проверки() = 0 Тогда
        Возврат;
    КонецЕсли;
    
    Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    
    Ит.ИспользоватьСубконто(ВидСубконто, , 1, 0);
    
    Ит.ИспользоватьПланСчетов(ПланыСчетов.Основной);
    Ит.ВключатьСубсчета(-1, 0);
    Ит.Опции(0, 0);
    Ит.ВыполнитьЗапрос(НачДата, КонДата, СпСчетов, "", , 3, 1);
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    Таб.ВывестиСекцию("Шапка");
    
    Ит.ВыбратьСубконто(1,,,,,,);
    Пока Ит.ПолучитьСубконто(1,,) = 1 Цикл
        Таб.ВывестиСекцию("Контрагент");
        Ит.ВыбратьСчета(,,,);
        Пока Ит.ПолучитьСчет(,) = 1 Цикл
            Таб.ВывестиСекцию("Счет");
        КонецЦикла;
    КонецЦикла;
  
    Таб.ВывестиСекцию("Итоги");

    Ит.ИспользоватьСубконто(ВидСубконто2, , 1, 0);
    
    Ит.ИспользоватьПланСчетов(ПланыСчетов.Основной);
    Ит.ВключатьСубсчета(-1, 0);
    Ит.Опции(0, 0);
    Ит.ВыполнитьЗапрос(НачДата, КонДата, СпСчетов, "", , 3, 1);

    Ит.ВыбратьСубконто(1,,,,,,);
    Пока Ит.ПолучитьСубконто(1,,) = 1 Цикл
        Таб.ВывестиСекцию("Контрагент");
        Ит.ВыбратьСчета(,,,);
        Пока Ит.ПолучитьСчет(,) = 1 Цикл
            Таб.ВывестиСекцию("Счет");
        КонецЦикла;
    КонецЦикла;

    
    Таб.Опции(0, 0, 5);
    Таб.ТолькоПросмотр(1);
    Таб.Показать();

Vofka Подменю пользователя
сообщение 23.07.10, 14:21
Сообщение #10

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Про этот вариант я думал. Но это ж не совсем то wink.gif

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 16.06.25, 0:12
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!