Перенос остатков со счета на счет (только хозрасчетное)

24.08.16

Задачи пользователя - Корректировка данных

Обработка по переносу остатков между бух. счетами.

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

Наименование Файл Версия Размер
Перенос остатков БУХ
.epf 9,26Kb
18
.epf 9,26Kb 18 Скачать

Ранним пасмурным утром пришел я на работу в плохом настроении, связанным с чрезмерным пивовозлиянием по поводу дня рождения моего кота. Сел на свой трон вседержителя 1С (шутка), и решил поспать. Как вдруг, неожиданно, прибегает ко мне бухгалтер и просит, дословно:

Б - мне нужно срочно закрыть 62 счет

Я - А я при чем?

Б - Помоги я знаю ты можешь закрыть остатки по 62.02 да 91 автоматом.

Я - ок.

Б - только потом еще надо будет так же 60 закрыть

Я - ок.

Делаю обработку для буха, чтобы сам закрывал.

Суть: Обработка состоит из двух частей 

Левая - это дебетовая часть, Правая Кредитовая, в зависимости от значения переключателя Ведущее на форме обработки остатки по бух регистру (оборотке то есть для буха) снимаются либо по счету дебета либо по счету кредита, так же имеют значения выбраны или нет субконто у ведущего ибо при выбранных субконто остатки буду так же и по ним.

Итак выбрали ведущее выбрали счет и субконто или не выбрали субконто тогда остаток снимется по всему счету.

Выбираем не ведущую чать, туда отвалятся остатки.

Выбираем там субконто если нужно.

Жмем выполнить, рождается документ операция.

Проверял на КА 1, перенос с 62.02 на 91.02.1 заполняет работает.

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

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

Может кому пригодится.

Дополнение: Переносит сумму и количество.

Разработано и протестировано на платформе 1С:Предприятие 8.2 (8.2.19.83) для Windows 2000 и выше

Конфигурация Комплексная автоматизация, редакция 1.1 (1.1.73.3) 

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

Исправление: при АП счете не верно выбирает сумму списания с ведущего, исправлено

Добавлено получение остатков и формирование операции на дату

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

		
	Иначе   //Дт
		СчОпр = ЭлементыФормы.ПолеВвода5.Значение;
        Сб1 = ЭлементыФормы.ПолеВвода6.Значение;
		Сб2 = ЭлементыФормы.ПолеВвода7.Значение;
        Сб3 = ЭлементыФормы.ПолеВвода8.Значение;
        ДобТекст = "ВЫБРАТЬ  ХозрасчетныйОстатки.Счет КАК СчетКТ, &Сч2 КАК СчетДТ, &ТД КАК Период, ";
        Сч2 = ЭлементыФормы.ПолеВвода1.Значение;
	КонецЕсли;
	//Исправление 31.08 начало
	Запрос = Новый Запрос;
	Запрос.Текст = ДобТекст + 
	"	ХозрасчетныйОстатки.Субконто1,
	|	ХозрасчетныйОстатки.Субконто2,
	|	ХозрасчетныйОстатки.Субконто3,
	|	ХозрасчетныйОстатки.Организация,
	|	ХозрасчетныйОстатки.Валюта, 
	|  ВЫБОР КОГДА ХозрасчетныйОстатки.СуммаОстаток < 0 Тогда
	|	-ХозрасчетныйОстатки.СуммаОстаток 
    |  ИНАЧЕ
	|   ХозрасчетныйОстатки.СуммаОстаток
	|  КОНЕЦ КАК Сумма,
	|	ХозрасчетныйОстатки.КоличествоОстаток КАК КоличествоДТ, 
	|	ХозрасчетныйОстатки.КоличествоОстаток КАК КоличествоКТ
	| ИЗ	РегистрБухгалтерии.Хозрасчетный.Остатки(&ДатаОс, Счет = &сч, , ) КАК ХозрасчетныйОстатки";
	
	
	//Исправление конец
	Запрос.УстановитьПараметр("Сч", СчОпр);
	Запрос.УстановитьПараметр("Сч2", Сч2);
	Запрос.УстановитьПараметр("ДатаОс",ДатаОс);
    Запрос.УстановитьПараметр("ТД", ТекущаяДата());

	
	Если ЗначениеЗаполнено(Сб1) Тогда
		Запрос.Текст = Запрос.Текст + " ГДЕ ХозрасчетныйОстатки.Субконто1 = &Сб1";
		Запрос.УстановитьПараметр("Сб1", Сб1);
	КонецЕсли;

	Если ЗначениеЗаполнено(Сб2) и ЗначениеЗаполнено(Сб1)  Тогда
		Запрос.Текст = Запрос.Текст + " И ХозрасчетныйОстатки.Субконто1 = &Сб2";
		Запрос.УстановитьПараметр("Сб2", Сб2);
	ИначеЕсли ЗначениеЗаполнено(Сб2) Тогда
		Запрос.Текст = Запрос.Текст + " ГДЕ ХозрасчетныйОстатки.Субконто1 = &Сб2";
		Запрос.УстановитьПараметр("Сб2", Сб2);

	КонецЕсли;
	
	Если ЗначениеЗаполнено(Сб3) и (ЗначениеЗаполнено(Сб2) или ЗначениеЗаполнено(Сб1)) Тогда
		Запрос.Текст = Запрос.Текст + " И ХозрасчетныйОстатки.Субконто1 = &Сб3";
		Запрос.УстановитьПараметр("Сб3", Сб3);
	ИначеЕсли ЗначениеЗаполнено(Сб3) Тогда
		Запрос.Текст = Запрос.Текст + " ГДЕ ХозрасчетныйОстатки.Субконто1 = &Сб3";
		Запрос.УстановитьПараметр("Сб3", Сб3);
    КонецЕсли;

	Рез = Запрос.Выполнить().Выгрузить();
	
	Если рез.Количество() = 0 Тогда
		Предупреждение("На ведущем счете нет остатка");
		Возврат;
	КонецЕсли;
	
	Опер = Документы.ОперацияБух.СоздатьДокумент();
	
	Опер.дата = ДатаОс;
	Опер.Организация = Рез[0].Организация;
	Опер.СуммаОперации = Рез.Итог("Сумма");
	Опер.Записать();

	НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
	НаборЗаписей.Отбор.Регистратор.Установить(Опер.Ссылка); 
	НаборЗаписей.Записать();
	
	Для Каждого Выборка из Рез Цикл

		Движение = НаборЗаписей.Добавить(); 
		Движение.Регистратор = Опер.Ссылка; 
		Движение.Период = Опер.Дата; 
		
		Движение.СчетДт = Выборка.СчетДТ;
		Движение.СчетКт = Выборка.СчетКТ;
		
		Движение.Организация = Опер.Организация; 
		Движение.Сумма = Выборка.Сумма;
		Движение.ВалютаКт = Рез[0].Валюта;
		Движение.ВалютаДт = Рез[0].Валюта;
	
			
		Если Движение.СчетДт.Количественный = Истина Тогда
			Движение.КоличествоДт = Выборка.КоличествоДт;	
		КонецЕсли;	
		Если Движение.СчетКт.Количественный = Истина Тогда
			Движение.КоличествоКт = Выборка.КоличествоКт;	
		КонецЕсли;	
		Если НЕ ЭлементыФормы.Переключатель2.Значение Тогда
			
			ВидыСубконто = Выборка.СчетДТ.ВидыСубконто;
			
			Для Каждого Стр Из ВидыСубконто Цикл
				
				Движение.СубконтоДт[Стр.ВидСубконто] = Выборка["Субконто" + СокрЛП(стр.НомерСтроки)];
				
			КонецЦикла;
			
			ВидыСубконто = Выборка.СчетКТ.ВидыСубконто;
			
			Для Каждого Стр Из ВидыСубконто Цикл
				
			  Движение.СубконтоКт[Стр.ВидСубконто] = ЭлементыФормы["ПолеВвода" + СокрЛП(стр.НомерСтроки + 5)].Значение;


			КонецЦикла;

		Иначе
			ВидыСубконто = Выборка.СчетКТ.ВидыСубконто;
			
			Для Каждого Стр Из ВидыСубконто Цикл
				
				Движение.СубконтоКт[Стр.ВидСубконто] = Выборка["Субконто" + СокрЛП(стр.НомерСтроки)];
				
			КонецЦикла;
			
			ВидыСубконто = Выборка.СчетДТ.ВидыСубконто;
			
			Для Каждого Стр Из ВидыСубконто Цикл
				
				Движение.СубконтоДт[Стр.ВидСубконто] = ЭлементыФормы["ПолеВвода" + СокрЛП(стр.НомерСтроки + 1)].Значение;

			КонецЦикла;

			
		КонецЕсли;
	
			
	КонецЦикла;	
	
	НаборЗаписей.Записать();

См. также

Исправление в 1С:ЗУП/ЗКГУ ошибок по НДФЛ и взаиморасчетам с сотрудниками на начало расчетного года.

Корректировка данных Зарплата Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ Платные (руб)

Обработка исправляет технические ошибки по НДФЛ, взаиморасчетам с сотрудниками в 1С:ЗУП (1С:ЗКГУ) на начало года. Фактически все ошибки, которые проявляются в ведомостях на выплату, расчетных листках, при заполнении ведомостей на выплату и отчетах 6-НДФЛ и т.д. нужно начинать исправлять с начала расчетного года. Это позволит быть уверенными, что после завершения расчетов предыдущего года, начали работать с «чистого листа» без ошибочных остатков.

4800 руб.

06.10.2023    2138    28    14    

32

Тестирование и исправление ключей аналитики ERP, УТ11, КА

Корректировка данных Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Незаменимая обработка для сопровождения конфигураций: ERP, УТ, КА. Позволяет вычистить многие ошибки в ключах аналитики, в ключевых справочниках конфигурации.

3600 руб.

10.02.2017    106546    631    173    

673

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27137    78    146    

59

Заполнение документа "Корректировка регистров" произвольными данными

Закрытие периода Корректировка данных Платформа 1С v8.3 Система компоновки данных 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Внешняя обработка, позволяющая произвольным образом заполнять документ "Корректировка регистров" Предназначена для использования в конфигурациях "Управление торговлей 11", "Управление небольшой фирмой", "ERP Управление предприятием", а также в других конфигурациях, в состав которых входит библиотека стандартных подсистем (БСП) версии 2.2+ и указанный выше документ.

2400 руб.

13.07.2015    50089    171    29    

121

Исправление ошибки закрытия месяца "Обнаружены ненулевые остатки по суммам при нулевом остатке по количеству в регистре себестоимости по организации". УТ 11.4,УТ 11.5, КА 2.4,КА 2.5, ERP 2.4, ERP 2.5, КА 2 Казахстан, Управление торговлей 3 для Казахстана

Закрытие периода Корректировка данных Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Закрытие месяца - важный процесс в современных конфигурациях, таких как УТ 11.4, УТ 11.5, КА 2.4, КА 2.5 ERP 2.4,ERP 2.5, КА 2 Казахстан, УТ 3 Казахстан регламентные операции влияют на расчет себестоимости, и ошибки в данном расчете не дают картины деятельности организации.

2400 руб.

27.10.2021    22221    298    35    

71

Исправление ошибок по НДФЛ и взаиморасчетам с сотрудниками в 1С:Бухгалтерия 3.0

Корректировка данных Зарплата Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Внешняя обработка предназначена для исправления самых различных ошибок, возникших по самым разным причинам. Общее проявление этих ошибок видно в различии данных между: проводками и различными отчетами по НДФЛ, заполнении ведомостей на выдачу зарплаты, неверным расчетом НДФЛ при начислении ЗП и т.д.

3600 руб.

09.02.2024    565    1    4    

3
Оставьте свое сообщение