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

Хранилище

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

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



> Отчет по Накл в разрезе оплат          
bereznoy Подменю пользователя
сообщение 14.04.12, 22:19
Сообщение #1

Оратор
*****
Группа: Пользователи
Сообщений: 329
Из: Simferopol
Спасибо сказали: 9 раз
Рейтинг: 0

Есть много расходных накладных, на основании их созданы пко, подскажите как
сделать отчет, или как запрос сформировать, что б был список документов,
а вправо создавались колонки с датами оплат


Signature
Ковыряю 1С 8.2.14.528 конфигурация УТП ред. 1.2.1.3
1С 8.3 (8.3.1.531) конфиг УТ 2.3.16.1
1С 7.7 Торговля+Склад

Pepe Подменю пользователя
сообщение 15.04.12, 9:02
Сообщение #2

Почти крутой
Иконка группы
Группа: Местный
Сообщений: 1434
Из: Ужгород
Спасибо сказали: 761 раз
Рейтинг: 230

Вы уже задавали похожий вопрос. Реализация вашей задачи через перебор накладных и проверку связанных с ними ПКО.

bereznoy Подменю пользователя
сообщение 15.04.12, 9:06
Сообщение #3

Оратор
*****
Группа: Пользователи
Сообщений: 329
Из: Simferopol
Спасибо сказали: 9 раз
Рейтинг: 0

Цитата(Pepe @ 15.04.12, 10:02) *
Вы уже задавали похожий вопрос. Реализация вашей задачи через перебор накладных и проверку связанных с ними ПКО.

При создании отчета в запросе можно делать проверку свзяных?


Signature
Ковыряю 1С 8.2.14.528 конфигурация УТП ред. 1.2.1.3
1С 8.3 (8.3.1.531) конфиг УТ 2.3.16.1
1С 7.7 Торговля+Склад

Pepe Подменю пользователя
сообщение 15.04.12, 9:24
Сообщение #4

Почти крутой
Иконка группы
Группа: Местный
Сообщений: 1434
Из: Ужгород
Спасибо сказали: 761 раз
Рейтинг: 230

Цитата(bereznoy)
При создании отчета в запросе можно делать проверку свзяных?


Нет. Запросом можете выбрать накладные, а потом их перебором в цикле перебрать связанные документы и найти ПКО.

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

Оратор
*****
Группа: Пользователи
Сообщений: 329
Из: Simferopol
Спасибо сказали: 9 раз
Рейтинг: 0

"ПодчинённыеДокументы" я присвою в отчете, помогите плиз с перебором после выборки
Задумка такая что при формировании отчета все оставалось как есть,Но была еще одна колонка в которой расшифровка была
по оплата, т.е. Дата+Сумма и через запятую


перем ВыбТМЦ; перем контаге;



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

    
    Выборка = РезультатЗапроса.Выбрать();  
    
    ПодчинённыеДокументы = 0;
Пока Выборка.Следующий() Цикл
    
    ПодчинённыеДокументы = 0;  
    Док = СоздатьОбъект("Документ");
    Док.УстановитьФильтр(1, 0, 1, 1, 1, 1);
    Док.ВыбратьПодчиненныеДокументы(,,ТекущийДокумент());
    

   Пока док.получитьДОкумент()=1 цикл
  текДок = Док.Запрос.РасходнаяРеализатора;
    ПодчинённыеДокументы = текДок.ДатаДок +" Оплачено = " + текДок.СуммаСНДС;
    
КонецЦикла;
КонецЦикла;
    
    
    
    


    
    
    
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

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


КонецПроцедуры


Signature
Ковыряю 1С 8.2.14.528 конфигурация УТП ред. 1.2.1.3
1С 8.3 (8.3.1.531) конфиг УТ 2.3.16.1
1С 7.7 Торговля+Склад

vadim007 Подменю пользователя
сообщение 16.04.12, 13:04
Сообщение #6

Почти крутой
Иконка группы
Группа: Местный
Сообщений: 1298
Из: Донецк
Спасибо сказали: 208 раз
Рейтинг: 0

Извиняюсь - удалил первоначальный ответ как неверный.

Сообщение отредактировал vadim007 - 16.04.12, 13:17

bereznoy Подменю пользователя
сообщение 16.04.12, 21:11
Сообщение #7

Оратор
*****
Группа: Пользователи
Сообщений: 329
Из: Simferopol
Спасибо сказали: 9 раз
Рейтинг: 0

help me господа 05071.gif


Signature
Ковыряю 1С 8.2.14.528 конфигурация УТП ред. 1.2.1.3
1С 8.3 (8.3.1.531) конфиг УТ 2.3.16.1
1С 7.7 Торговля+Склад

vadim007 Подменю пользователя
сообщение 17.04.12, 7:24
Сообщение #8

Почти крутой
Иконка группы
Группа: Местный
Сообщений: 1298
Из: Донецк
Спасибо сказали: 208 раз
Рейтинг: 0

Какая конфигурация?

bereznoy Подменю пользователя
сообщение 17.04.12, 20:24
Сообщение #9

Оратор
*****
Группа: Пользователи
Сообщений: 329
Из: Simferopol
Спасибо сказали: 9 раз
Рейтинг: 0

Цитата(vadim007 @ 17.04.12, 8:24) *
Какая конфигурация?

Торговля+Склад 7.70.011


Signature
Ковыряю 1С 8.2.14.528 конфигурация УТП ред. 1.2.1.3
1С 8.3 (8.3.1.531) конфиг УТ 2.3.16.1
1С 7.7 Торговля+Склад

5_kopeek Подменю пользователя
сообщение 17.04.12, 21:59
Сообщение #10

Ветеран
*******
Женщине-одинэснику
Группа: Пользователи*
Сообщений: 940
Спасибо сказали: 285 раз
Рейтинг: 0

Перем Док;

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

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

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

Почти крутой
Иконка группы
Группа: Местный
Сообщений: 1298
Из: Донецк
Спасибо сказали: 208 раз
Рейтинг: 0

Вот что есть у меня, делал когда-то:
http://pro1c.org.ua/index.php?showtopic=7048

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


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

 

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