Простое закрытие забалансовых счетов в БП 2.0/БП3.0.41+

Обработки - Обработка документов

Простое закрытие забалансовых счетов в БП 2.0/БП3.0.41+

Представляю вашему вниманию простую обработку для закрытия остатком забалансовых счетов.

Обработка создает новый документ "Операция бух" или может наполнить уже существующий документ.

Скачать файлы

Наименование Файл Версия Размер
ЗакрытиеЗабалансовыхСчетов.epf
.epf 10,40Kb
22.08.17
87
.epf 10,40Kb 87 Скачать
ЗакрытиеЗабалансовыхСчетовБП30_УФ_INFOSTART.epf
.epf 10,56Kb
22.08.17
7
.epf 10,56Kb 7 Скачать

См. также

Комментарии
1. Zerg118 (ZergKRSK) 30.11.11 06:34 Сейчас в теме
Покажите готовую операцию после закрытия :)
3. Evgeny Bolshakov (boevik) 2 22.08.17 16:06 Сейчас в теме
Чуть чуть с косячком: запрос без отбора по указываемой организации. Т.е., если без правки, закроет все организации на одну :-)
4. Владимир Суворов (realsevere) 3 22.08.17 16:06 Сейчас в теме
До сих пор работает в БП 2.0, только автор забыл добавить отбор по организации в запросе, поэтому тем у кого больше одной организации придётся поправить код.
5. Игорь Фелькер (Brawler) 324 22.08.17 18:29 Сейчас в теме
(3)(4)
Добрый день.
Да, подтверждаю, что была допущена ошибка с отбором остатков по организации еще в БП 2.0, потом эта ошибка методом копипаста перешла в обработку под БП 3.0.

Обработки обновил и перевыложил.

Тем кто уже их скачал ранее перекачивать не обязательно, там минимум действий нужно чтобы исправить ошибку.

В обработке для БП 2.0
Старый участок кода
Запрос = Новый Запрос;
Запрос.Текст = 
	"ВЫБРАТЬ
	|	ХозрасчетныйОстатки.Счет,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Субконто1, НЕОПРЕДЕЛЕНО) КАК Субконто1,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Субконто2, НЕОПРЕДЕЛЕНО) КАК Субконто2,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Субконто3, НЕОПРЕДЕЛЕНО) КАК Субконто3,
	|	ХозрасчетныйОстатки.Организация,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Подразделение, НЕОПРЕДЕЛЕНО) КАК Подразделение,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаОстаток, 0) КАК Сумма,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.КоличествоОстаток, 0) КАК Количество,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.ВалютнаяСуммаОстаток, 0) КАК ВалютнаяСумма,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаНУОстаток, 0) КАК СуммаНУ,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаПРОстаток, 0) КАК СуммаПР,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаВРОстаток, 0) КАК СуммаВР,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Валюта, &РеглВалюта) КАК Валюта
	|ИЗ
	|	РегистрБухгалтерии.Хозрасчетный.Остатки(
	|			&ДатаСведений,
	|			Счет В ИЕРАРХИИ (&ЗакрываемыйСчет)
	|				И Счет.Забалансовый,
	|			,
	|			) КАК ХозрасчетныйОстатки
	|
	|УПОРЯДОЧИТЬ ПО
	|	ХозрасчетныйОстатки.Счет.Код,
	|	Подразделение,
	|	Субконто1,
	|	Субконто2,
	|	Субконто3";

Запрос.УстановитьПараметр("ДатаСведений", ДатаДокумента);
Запрос.УстановитьПараметр("ЗакрываемыйСчет", ЗакрываемыйСчет);
Запрос.УстановитьПараметр("РеглВалюта", Константы.ВалютаРегламентированногоУчета.Получить());
...Показать Скрыть

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

Запрос.УстановитьПараметр("ДатаСведений", ДатаДокумента);
Запрос.УстановитьПараметр("Организация", Организация);
Запрос.УстановитьПараметр("ЗакрываемыйСчет", ЗакрываемыйСчет);
Запрос.УстановитьПараметр("РеглВалюта", Константы.ВалютаРегламентированногоУчета.Получить());
...Показать Скрыть


В обработке для БП 3.0
Старый участок кода
Запрос = Новый Запрос;
Запрос.Текст = 
	"ВЫБРАТЬ
	|	ХозрасчетныйОстатки.Счет,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Субконто1, НЕОПРЕДЕЛЕНО) КАК Субконто1,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Субконто2, НЕОПРЕДЕЛЕНО) КАК Субконто2,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Субконто3, НЕОПРЕДЕЛЕНО) КАК Субконто3,
	|	ХозрасчетныйОстатки.Организация,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Подразделение, НЕОПРЕДЕЛЕНО) КАК Подразделение,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаОстаток, 0) КАК Сумма,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.КоличествоОстаток, 0) КАК Количество,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.ВалютнаяСуммаОстаток, 0) КАК ВалютнаяСумма,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаНУОстаток, 0) КАК СуммаНУ,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаПРОстаток, 0) КАК СуммаПР,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаВРОстаток, 0) КАК СуммаВР,
	|	ЕСТЬNULL(ХозрасчетныйОстатки.Валюта, &РеглВалюта) КАК Валюта
	|ИЗ
	|	РегистрБухгалтерии.Хозрасчетный.Остатки(
	|			&ДатаСведений,
	|			Счет В ИЕРАРХИИ (&ЗакрываемыйСчет)
	|				И Счет.Забалансовый,
	|			,
	|			) КАК ХозрасчетныйОстатки
	|
	|УПОРЯДОЧИТЬ ПО
	|	ХозрасчетныйОстатки.Счет.Код,
	|	Подразделение,
	|	Субконто1,
	|	Субконто2,
	|	Субконто3";

Запрос.УстановитьПараметр("ДатаСведений", Объект.ДатаДокумента);
Запрос.УстановитьПараметр("ЗакрываемыйСчет", Объект.ЗакрываемыйСчет);
Запрос.УстановитьПараметр("РеглВалюта", Константы.ВалютаРегламентированногоУчета.Получить());
...Показать Скрыть

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

Запрос.УстановитьПараметр("ДатаСведений", Объект.ДатаДокумента);
Запрос.УстановитьПараметр("Организация", Объект.Организация);
Запрос.УстановитьПараметр("ЗакрываемыйСчет", Объект.ЗакрываемыйСчет);
Запрос.УстановитьПараметр("РеглВалюта", Константы.ВалютаРегламентированногоУчета.Получить());
...Показать Скрыть
Оставьте свое сообщение