1. 1C / Говнокод #17551

    −120

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    //определяем сумму начисленной амортизации+ремонтов на заказы документом "РаспределениеАмортизацииНаЗаказы"

	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	               |	НезавершенноеПроизводствоБухгалтерскийУчетОбороты.СчетУчета КАК СчетУчета,
	               |	НезавершенноеПроизводствоБухгалтерскийУчетОбороты.Заказ,
	               |	НезавершенноеПроизводствоБухгалтерскийУчетОбороты.СтоимостьПриход КАК СтоимостьПриход,
	               |	НАЧАЛОПЕРИОДА(НезавершенноеПроизводствоБухгалтерскийУчетОбороты.Период, МЕСЯЦ) КАК Период,
	               |	НезавершенноеПроизводствоБухгалтерскийУчетОбороты.Регистратор КАК Регистратор
	               |ИЗ
	               |	РегистрНакопления.НезавершенноеПроизводствоБухгалтерскийУчет.Обороты(&ДатаНач, &ДатаКон, Регистратор, ) КАК НезавершенноеПроизводствоБухгалтерскийУчетОбороты
	               |ГДЕ
	               |	(НезавершенноеПроизводствоБухгалтерскийУчетОбороты.Регистратор ССЫЛКА Документ.РаспределениеАмортизацииНаЗаказы
	               |			ИЛИ НезавершенноеПроизводствоБухгалтерскийУчетОбороты.Регистратор = &Корректировка)
	               |	И НезавершенноеПроизводствоБухгалтерскийУчетОбороты.СчетУчета = &СчетУчета
	               |ИТОГИ
	               |	СУММА(СтоимостьПриход)
	               |ПО
	               |	ОБЩИЕ";
				   
	Запрос.УстановитьПараметр("ДатаНач",НачалоМесяца(ДатаНач));
	Запрос.УстановитьПараметр("ДатаКон",КонецМесяца(ДатаКон));
	Запрос.УстановитьПараметр("СчетУчета", ПланыСчетов.Хозрасчетный.НайтиПоКоду("231"));
	Запрос.УстановитьПараметр("Корректировка", Документы.ОперацияБух.НайтиПоНомеру("00000056",Дата(2011,05,01)));

	Выборка = Запрос.Выполнить().Выбрать();
	Выборка.Следующий();
	СуммаНачисления = Выборка.СтоимостьПриход;

    Есть специальная супер секретная бухгалтерская операция которую нужно исключить )))

    Запостил: yuriybilous, 31 Января 2015

    Комментарии (4) RSS

    • ava alexinzaz 02.02.2015 00:59 # 0

      да на самом деле очень часто поступаю заявки на подобного рода доработки. По крайней мере по справочникам точно. И самое грустное то, что иногда без говнокодинья не получается сделать то, что просят.
      Ответить

    • ava planaric 16.02.2015 09:53 # 0

      Наоборот, включить.
      Ответить

    • ava grandatlant 27.01.2017 16:56 # 0

      Искать по номеру документа - для слабаков! Нужно по уникальному идентификатору!
      Ответить

    Добавить комментарий