Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
15 Дек 2017, 21:01
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Помогите с Итогами  (Прочитано 1639 раз)

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

Оффлайн Dadka

  • *
  • Сообщений: 9
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2010-11-22
  • Сайт: 
Доброго времени суток всем. я здесь новичек. помогите пожалуйста разобраться.
есть код (чуть ниже я его опубликую), нужно, чтобы как считается ИтогКоличество, чтобы считался ИтогМеста, ИтогNet, ИтогБрутто.
Прошу учесть, что:
Места
Брутто
это дополнительные реквизиты Справочника Номенклатура.
Заранее спасибо за ответы.


Перем мВалютаРегламентированногоУчета Экспорт;

Функция Печать()   Экспорт

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

   ЗапросПоТоварам = Новый Запрос();
   ЗапросПоТоварам.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
   
   ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("ЗапросПоУслугам");
   
   ЗапросПоТоварам.Текст =
   "ВЫБРАТЬ
   |   ЗапросПоТоварам.Номенклатура,
   |   ЗапросПоТоварам.Номенклатура.Код,
   |   ЗапросПоТоварам.Номенклатура.НаименованиеПолное КАК НаименованиеПолное,
   |   ЗапросПоТоварам.ЕдиницаИзмерения.Представление,
   |   ЗапросПоТоварам.КоличествоМест,
   |   ЗапросПоТоварам.Количество КАК Количество,
   |   ЗапросПоТоварам.Коэффициент,
   |   ЗапросПоТоварам.Цена,
   |   ЗапросПоТоварам.Сумма,
   |   ЗапросПоТоварам.НомерСтроки,
   |   3 КАК Поле2,
   |   ЕСТЬNULL(ЗначенияНетто.Значение, 0) КАК Нетто,
   |   ЕСТЬNULL(ЗначенияМеста.Значение, 0) КАК Места,
   |   ЕСТЬNULL(ЗначенияБрутто.Значение, 0) КАК Брутто
   |ИЗ
   |   (ВЫБРАТЬ
   |      ПоступлениеТоваровУслуг.Номенклатура КАК Номенклатура,
   |      СУММА(ПоступлениеТоваровУслуг.КоличествоМест) КАК КоличествоМест,
   |      СУММА(ПоступлениеТоваровУслуг.Количество) КАК Количество,
   |      ПоступлениеТоваровУслуг.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
   |      ПоступлениеТоваровУслуг.Коэффициент КАК Коэффициент,
   |      ПоступлениеТоваровУслуг.Цена КАК Цена,
   |      СУММА(ПоступлениеТоваровУслуг.Сумма) КАК Сумма,
   |      СУММА(ПоступлениеТоваровУслуг.СуммаНДС) КАК СуммаНДС,
   |      ПоступлениеТоваровУслуг.СтавкаНДС КАК СтавкаНДС,
   |      МИНИМУМ(ПоступлениеТоваровУслуг.НомерСтроки) КАК НомерСтроки
   |   ИЗ
   |      Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслуг
   |   ГДЕ
   |      ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент
   |   
   |   СГРУППИРОВАТЬ ПО
   |      ПоступлениеТоваровУслуг.Номенклатура,
   |      ПоступлениеТоваровУслуг.СтавкаНДС,
   |      ПоступлениеТоваровУслуг.Цена,
   |      ПоступлениеТоваровУслуг.ЕдиницаИзмерения,
   |      ПоступлениеТоваровУслуг.Коэффициент) КАК ЗапросПоТоварам
   |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияНетто
   |      ПО ЗапросПоТоварам.Номенклатура.Ссылка = ЗначенияНетто.Объект
   |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияМеста
   |      ПО ЗапросПоТоварам.Номенклатура.Ссылка = ЗначенияМеста.Объект
   |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияБрутто
   |      ПО ЗапросПоТоварам.Номенклатура.Ссылка = ЗначенияБрутто.Объект
   |ГДЕ
   |   ЗначенияМеста.Свойство.Наименование = ""Места""
   |   И ЗначенияНетто.Свойство.Наименование = ""Нетто""
   |   И ЗначенияБрутто.Свойство.Наименование = ""Брутто""" ;
   
   ВыборкаСтрок = ЗапросПоТоварам.Выполнить().Выгрузить();

   ТабДокумент = Новый ТабличныйДокумент;
   ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПоступлениеТоваровУслуг_ТОРГ12";
   Макет = ПолучитьМакет("ТОРГ12");
   
   ОбластьМакетаШапка            = Макет.ПолучитьОбласть("Шапка");
   ОбластьМакетаЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаб");
   ОбластьМакетаСтрока           = Макет.ПолучитьОбласть("Строка");
   ОбластьМакетаИтогоПоСтранице  = Макет.ПолучитьОбласть("ИтогоПоСтранице");
   ОбластьМакетаВсего            = Макет.ПолучитьОбласть("Всего");
   ОбластьМакетаПодвал           = Макет.ПолучитьОбласть("Подвал");
   
   ОбластьМакетаШапка.Параметры.НомерДокумента = Номер;
   ОбластьМакетаШапка.Параметры.ДатаДокумента  = Формат(Дата, "ДФ=dd.MM.yyyy");

   
   ТабДокумент.Вывести(ОбластьМакетаШапка);

   ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокТаб");
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Строка");
   
   Количество = 0;
   Места = 0;
   //Net = 0;
   Брутто = 0;
   Сумма    = 0;
   СуммаНДС = 0;

   
 
   
   Для Каждого ВыборкаСтрокТовары Из ВыборкаСтрок Цикл

      ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);
      ОбластьМакета.Параметры.НомерСтроки = ВыборкаСтрок.Индекс(ВыборкаСтрокТовары) + 1;
      ОбластьМакета.Параметры.Товар       = СокрЛП(ВыборкаСтрокТовары.НаименованиеПолное);
      ОбластьМакета.Параметры.Нетто       = ВыборкаСтрокТовары.Нетто;
      ОбластьМакета.Параметры.Места       = ВыборкаСтрокТовары.Места;
      ОбластьМакета.Параметры.Брутто      = ВыборкаСтрокТовары.Брутто;
//      
      
      Количество = Количество + ВыборкаСтрокТовары.Количество;
      Net = ВыборкаСтрокТовары.Количество * ВыборкаСтрокТовары.Нетто;
      ОбластьМакета.Параметры.Net         = Net;
        Сумма    = Сумма    + ВыборкаСтрокТовары.Сумма;
        ТабДокумент.Вывести(ОбластьМакета);

   КонецЦикла;



   // Вывести Итого
   ОбластьМакета = Макет.ПолучитьОбласть("Всего");
   ОбластьМакета.Параметры.ИтогКоличество = ОбщегоНазначения.ФорматСумм(Количество);
   ОбластьМакета.Параметры.ИтогМеста = ОбщегоНазначения.ФорматСумм(Места);
//   ОбластьМакета.Параметры.ИтогNet = ОбщегоНазначения.ФорматСумм(Net);
   ОбластьМакета.Параметры.ИтогБрутто = ОбщегоНазначения.ФорматСумм(Брутто);
   ОбластьМакета.Параметры.ИтогСуммыСНДС = ОбщегоНазначения.ФорматСумм(Сумма);
   ТабДокумент.Вывести(ОбластьМакета);

   
   // Вывести TOTAL
   ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
   ОбластьМакета.Параметры.ИтогКоличество = ОбщегоНазначения.ФорматСумм(Количество);
   
   ОбластьМакета.Параметры.ИтогСуммыСНДС = ОбщегоНазначения.ФорматСумм(Сумма);

   
   //ПервыйРазделитель   = Найти(ПолнаяДатаДокумента," ");
   //ВторойРазделитель   = Найти(Прав(ПолнаяДатаДокумента,ДлинаСтроки - ПервыйРазделитель), " ") + ПервыйРазделитель;
   
   ТабДокумент.Вывести(ОбластьМакета);

   Возврат ТабДокумент;

КонецФункции // ПечатьПоступлениеТоваров()

мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();


Оффлайн cska-fanat-kz

  • 1С:Специалист
  • Глобальный модератор
  • *****
  • Сообщений: 5745
  • РЕПУТАЦИЯ: 1099
  • КПД: 19%
  • Красная армия всех сильней!
  • Регистрация: 2010-11-06
    • Skype: cska-fanat-kz81
  • Сайт: cska-fanat-kz.ucoz.kz
  • Профессия: Разработчик 1С
И что мешает рядом с

Количество = Количество + ВыборкаСтрокТовары.Количество;

написать

Места = Места + ВыборкаСтрокТовары.Места;

???
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.


Теги:
 

Помогите срочно!! В вкладке "Сервис"--> "Журнал регистрации" отражаются все операции как можно определить сделаны ли операции "задним числом" и как вычислить первоначальную информацию какой расчет поменял на другой?

Автор 2ronРаздел Пользователям "1С - Предприятие 8"

Ответов: 1
Просмотров: 4294
Последний ответ 24 Дек 2015, 15:34
от дфтын
Помогите подобрать Back-office и Front-office

Автор avrnskРаздел Пользователям "1С - Предприятие 8"

Ответов: 1
Просмотров: 5554
Последний ответ 07 Сен 2010, 12:01
от mohock
Помогите с отчётами в УТ 10.3. (Ведомость по товарам и ведомость по заказам)

Автор chum710Раздел Пользователям "1С - Предприятие 8"

Ответов: 2
Просмотров: 5891
Последний ответ 28 Мар 2012, 13:02
от chum710
Помогите с отчетом "Валовая прибыль"

Автор Dm109Раздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 4
Просмотров: 4375
Последний ответ 10 Сен 2015, 13:57
от Dm109
помогите с отчетом "характеристики контрагентов"

Автор Vasya PovarРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 2
Просмотров: 1981
Последний ответ 07 Дек 2016, 15:53
от Kironten

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
180 Сообщений
ilyay ilyay
69 Сообщений
alex0402
54 Сообщений
oleg-x
48 Сообщений
AIFrame
46 Сообщений
andron81_81
44 Сообщений
MuI_I_Ika MuI_I_Ika
33 Сообщений
Golickoff Golickoff
31 Сообщений
BuhRust
30 Сообщений
Dima Dddd Dima Dddd
26 Сообщений

* Кто онлайн

  • Точка Гостей: 268
  • Точка Скрытых: 0
  • Точка Пользователей: 1
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal