Добрий день, чи оновлення медової стиковки з новими податковими? дуже треба, ugeramikle@gmail.com, дякую

Vofka @ 19.11.19, 16:36 , Доброго дня! скажіть будьласка пароль до архіву, Стиковки 1С 7.7 до Медок версії 7

Доброго дня! допоможіть зробити таблицю типу Шахматка

по вертикалі назва Профспілки

по горизонталі номер путівки та прізвище

перетинатися має по сумі

1с 7.7 комплексна

Код:

Процедура Сформировать()  
    Перем Запрос, ТекстЗапроса, Таб;      
    ВыбНачПериода = НачалоИнтервала();
    ВыбКонПериода = КонецИнтервала();
    тФирма = Константа.БазФирма.ПолнНаименование;    
    
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |ОбрабатыватьДокументы НеПроведенные;
    |Обрабатывать НеПомеченныеНаУдаление;
    |НачДата = Документ.Путевка.НачДата;
    |КонДата = Документ.Путевка.КонДата;
    |Профсоюз = Документ.Путевка.Профсоюз;
    |Путевка = Документ.Путевка.Путевка;
    |ФИО = Документ.Путевка.ФИО;
    |Сумма = Документ.Путевка.Сумма;
    |Флаг = Документ.Путевка.Флаг;
    |Функция СуммаСумма = Сумма(Сумма);
    |Группировка Профсоюз без групп;
    |Группировка Путевка без групп; 
    |Условие(Флаг=1);
    |"//}}ЗАПРОС
;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли; 
    
    Таб = СоздатьОбъект("Таблица"); 
    Если Константа.ФормыНаУкраинском = Да Тогда
        Таб.ИсходнаяТаблица("Сформировать"); 
    КонецЕсли;
    Таб.ВывестиСекцию("Шапка|Начало");
    
    Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
    ном = 0;
    Пока Запрос.Группировка("Профсоюз") = 1 Цикл 
        Таб.Присоединитьсекцию("Шапка|Профсоюз"); 
КонецЦикла;
    ном = ном + 1; 
        Таб.ВывестиСекцию("Строка|Начало");
    Пока Запрос.Группировка("Профсоюз") = 1 Цикл 
        Таб.Присоединитьсекцию("Строка|Профсоюз"); 
    КонецЦикла;    
    
    Таб.ВывестиСекцию("Итого|Начало"); 
    Таб.Присоединитьсекцию("Итого|Профсоюз");
    // Вывод заполненной формы  
    Таб.ТолькоПросмотр(1);    
    Таб.ВывестиСекцию("Подвал");
    Таб.Показать("Печать ЖурналПутевка",""); 
КонецПроцедуры
//}}ПРОЦЕДУРА_ПЕЧАТИ

Вигляд самої таблиці

так!

Процедура ПриВыбореСубконто1() мені потрібно

Здраствуйте! Подскажите пожалуста как мне добавить отбор по группе товаров щоб в таблице увидеть только те товари которые есть в группе и которые были выписаны в Расходной Накладной?

Вот код:

//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб, ОтборСубконто1;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |Обрабатывать НеПомеченныеНаУдаление;
    |Контрагент = Документ.РасходнаяНакладная.Контрагент;
    |Наименование = Документ.РасходнаяНакладная.ТМЦ.Наименование;
    |Кво = Документ.РасходнаяНакладная.Кво;
    |ЦенаБезНДС = Документ.РасходнаяНакладная.ЦенаБезНДС;
    |Функция КвоСумма = Сумма(Кво);
    |Функция ЦенаБезНДССумма = Сумма(ЦенаБезНДС);
    |Группировка Контрагент упорядочить по Контрагент.Наименование;
    |Группировка Наименование без упорядочивания;
    |"//}}ЗАПРОС
; 
    
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

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

дуже дякую!

Добрий день! Мне нужно в 1с 7.7 Бухг. учет для Украини в отчете ОСВ по счету показать только групи контрагентов? можно ли так зделать, помогите пожалуста