Отражение зарплаты в бухучете: вывод изменений при перезаполнении и свертка таблиц

18.12.20

Учетные задачи - Зарплата

+5 –

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

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Расширение для документа Отражение зарплаты в бухучете .cfe 26,27Kb 5	5	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

По просьбе Расчетчика в документе "Отражение зарплаты в бухучете" сделал две доработки:

1. Свёртку результатов стандартного заполнения (кнопка "Заполнить") по нужным колонкам: Сотрудник, Подразделение в первых трёх табличках доки.
2. При перезаполнении данного документа сделал вывод отчётов по изменившимся данным заполнения. Порядок действий: если док заполнен, то при нажатии кнопки "Заполнить" перед самим заполнением делаю сохранение в отдельные хранилища текущих данных табличек, затем работает стандартное заполнение и в конце сравниваю сохранённые таблички с табличками заполненными по новому. Благодаря этим отчётам Расчетчик видит, что изменилось после "допиливания" итоговой месячной ЗП перед отражением в Бухучете. Обычно делается это при закрытии месяца и времени у Расчетчика бывает очень мало для анализа изменений обычными способами.

Сделал для ЗиКГУ 3.1.14.265

Можно без скачивания за стартмани сделать данную доработку в расширении. Модуль вставил и два скрина из конфигуратора для добавления объектов в расширение: в расширенную форму доки добавить 4-е реквизита и добавить макет.

Модуль формы доки


// перед ЗАПОЛНЕНИЕМ сохраняю текущие таблички в Хранилище
&НаСервере
Процедура таблички_сохраняю_в_хранилище()
	
	// 1-ая табла
	пред_тз = Объект.НачисленнаяЗарплатаИВзносы.выгрузить();
	адрес_хранилища = Новый УникальныйИдентификатор;
	Адрес_вр_х_1 = ПоместитьВоВременноеХранилище(пред_тз, адрес_хранилища);
	
	// 2-ая табла
	пред_НачНДФЛ = Объект.НачисленныйНДФЛ.выгрузить();
	адрес_хранилища = Новый УникальныйИдентификатор;
	Адрес_вр_х_2 = ПоместитьВоВременноеХранилище(пред_НачНДФЛ, адрес_хранилища);
	
	// 3-ья табла
	пред_УдЗП = Объект.УдержаннаяЗарплата.выгрузить();
	адрес_хранилища = Новый УникальныйИдентификатор;
	Адрес_вр_х_3 = ПоместитьВоВременноеХранилище(пред_УдЗП, адрес_хранилища);
	
	// 4-ая табла
	пред_отп = Объект.ВыплатаОтпусковЗаСчетРезерва.выгрузить();
	адрес_хранилища = Новый УникальныйИдентификатор;
	Адрес_вр_х_4 = ПоместитьВоВременноеХранилище(пред_отп, адрес_хранилища);
	
КонецПроцедуры
		
&НаКлиенте
&Перед("Заполнить")
Процедура Р_Перед_Заполнить(Команда)
	
	Если Объект.НачисленнаяЗарплатаИВзносы.Количество() > 0
		Или Объект.НачисленныйНДФЛ.Количество() > 0
		Или Объект.УдержаннаяЗарплата.Количество() > 0
		Или Объект.ВыплатаОтпусковЗаСчетРезерва.Количество() > 0 Тогда 
		
		// при ПЕРЕзаполнении нужно сравнить с предыдущим результатом. Для этого ЗАПОЛНяемые таблички сохраняю в хранилище
		таблички_сохраняю_в_хранилище();
		
	КонецЕсли;
	
КонецПроцедуры




// СВОРАЧИВАЮ таблички - отбрасываю детализацию по ФИО и Подразделениям
&НаСервере
&Перед("ЗаполнитьНаСервереЗавершение")
Процедура Р_Перед_ЗаполнитьНаСервереЗавершение(АдресРезультата)
	
	СтруктураДанных = ПолучитьИзВременногоХранилища(АдресРезультата);
	Если ТипЗнч(СтруктураДанных) <> Тип("Структура") Тогда
		Возврат;
	КонецЕсли;
	
	РезультатОтраженияЗарплатыДляБухучета = Неопределено;
	Если СтруктураДанных.Свойство("РезультатОтраженияЗарплатыДляБухучета", РезультатОтраженияЗарплатыДляБухучета) Тогда
		
		// свёртка ТРЁХ ТАБЛИЦ по ФЛ
		
		// перед свёрткой сохранение в файл на сервере
		путь_сохран = "D:\BANKI\Т_Начисл_ЗП_";
		дока_ключ = СтрЗаменить("_"+Год(Объект.ПериодРегистрации)+"_"+Месяц(Объект.ПериодРегистрации)+"_"+Объект.ИсточникФинансовогоОбеспечения
					+"_"+День(ТекущаяДата())+"_"+Час(ТекущаяДата())+"_"+Минута(ТекущаяДата())+"_"+Секунда(ТекущаяДата()), " ", "_");
		содержание_файла = "__без_свёртки.mxl";
		Попытка 
			ил_разные_инструменты.ЗаписатьТЗВMXL(путь_сохран+дока_ключ+содержание_файла, РезультатОтраженияЗарплатыДляБухучета.НачисленнаяЗарплатаИВзносы);
		Исключение
		КонецПопытки;
		
		// 1_а - подготовка списка колонок 1-ой ТАБЛЫ
		все_колонки_в_строке = "";
		все_колонки_в_строке_СУММЫ = "";
		Для каждого тек_стр из РезультатОтраженияЗарплатыДляБухучета.НачисленнаяЗарплатаИВзносы.колонки Цикл
			Если (тек_стр.ТипЗначения.КвалификаторыЧисла.Разрядность > 0)
				и   
				 (тек_стр.ТипЗначения.КвалификаторыЧисла.РазрядностьДробнойЧасти > 0) Тогда
				// это число
				все_колонки_в_строке_СУММЫ = все_колонки_в_строке_СУММЫ+", "+тек_стр.Имя;
			Иначе
				все_колонки_в_строке = все_колонки_в_строке+", "+тек_стр.Имя;
			КонецЕсли;
		КонецЦикла;
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицоНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицо", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ПодразделениеНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Подразделение", "");
		// лишнюю запятую в начале убираю - " ,"
		все_колонки_в_строке = Сред(все_колонки_в_строке, 3);
		все_колонки_в_строке_СУММЫ = Сред(все_колонки_в_строке_СУММЫ, 3);
		
// перед основной свёрткой - промежуточная для ФАЙЛА ПО фл
		тз_по_фл = РезультатОтраженияЗарплатыДляБухучета.НачисленнаяЗарплатаИВзносы.скопировать();
		тз_по_фл.Свернуть("ФизическоеЛицо", все_колонки_в_строке_СУММЫ);
		содержание_файла = "__по_ФЛ.mxl";
		Попытка 
			ил_разные_инструменты.ЗаписатьТЗВMXL(путь_сохран+дока_ключ+содержание_файла, тз_по_фл);
		Исключение
		КонецПопытки;
		
		// 1_б свёртка
		РезультатОтраженияЗарплатыДляБухучета.НачисленнаяЗарплатаИВзносы.Свернуть(все_колонки_в_строке, все_колонки_в_строке_СУММЫ);
		
		
		
		// 2_а - подготовка списка колонок 2-ой ТАБЛЫ
		все_колонки_в_строке = "";
		Для каждого тек_стр из РезультатОтраженияЗарплатыДляБухучета.НачисленныйНДФЛ.колонки Цикл
			все_колонки_в_строке = все_колонки_в_строке+", "+тек_стр.Имя;
		КонецЦикла;
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицоНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицо", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Сумма", "");
		// лишнюю запятую в начале убираю - " ,"
		все_колонки_в_строке = Сред(все_колонки_в_строке, 3);
		// 2_б свёртка
		РезультатОтраженияЗарплатыДляБухучета.НачисленныйНДФЛ.Свернуть(все_колонки_в_строке, "Сумма");
		
		// 3_а - подготовка списка колонок 3-ей ТАБЛЫ
		все_колонки_в_строке = "";
		Для каждого тек_стр из РезультатОтраженияЗарплатыДляБухучета.УдержаннаяЗарплата.колонки Цикл
			все_колонки_в_строке = все_колонки_в_строке+", "+тек_стр.Имя;
		КонецЦикла;
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицоНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ПодразделениеНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицо", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Подразделение", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Сумма", "");
		// лишнюю запятую в начале убираю - " ,"
		все_колонки_в_строке = Сред(все_колонки_в_строке, 3);
		// 3_б свёртка
		РезультатОтраженияЗарплатыДляБухучета.УдержаннаяЗарплата.Свернуть(все_колонки_в_строке, "Сумма");
		
		
		
		ВыплатаОтпусковЗаСчетРезерва = Неопределено;
		Если РезультатОтраженияЗарплатыДляБухучета.Свойство("ВыплатаОтпусковЗаСчетРезерва", ВыплатаОтпусковЗаСчетРезерва) Тогда
			
// пока отменил свёртку- 4-ой таблы
			
			//// Свёртка 4-ой таблицы
			//// 4_а - подготовка списка колонок 4-ой ТАБЛЫ
			//сообщ = Новый СообщениеПользователю;
			//сообщ.Текст = "Неотлаженная свёртка ""ВыплатаОтпусковЗаСчетРезерва"". В случае ошибки обратитесь к программисту.";
			//сообщ.Сообщить();
			//
			//все_колонки_в_строке = "";
			//Для каждого тек_стр из ВыплатаОтпусковЗаСчетРезерва.колонки Цикл
			//	все_колонки_в_строке = все_колонки_в_строке+", "+тек_стр.Имя;
			//КонецЦикла;
			//все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицоНаименование", "");
			//все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицо", "");
			//все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Сумма", "");
			//// лишнюю запятую в начале убираю - " ,"
			//все_колонки_в_строке = Сред(все_колонки_в_строке, 3);
			//// 4_б свёртка
			//ВыплатаОтпусковЗаСчетРезерва.Свернуть(все_колонки_в_строке, "Сумма");
			//
			//// обратно в структуру
			//РезультатОтраженияЗарплатыДляБухучета.Вставить("ВыплатаОтпусковЗаСчетРезерва", ВыплатаОтпусковЗаСчетРезерва);
			
		КонецЕсли;
		
		// обратно в структуру - все таблы с 4-ой
		СтруктураДанных.Свойство("РезультатОтраженияЗарплатыДляБухучета", РезультатОтраженияЗарплатыДляБухучета);
		
	КонецЕсли;
		
КонецПроцедуры




// в конце ЗАПОЛНЕНИЯ - вывожу сравнение предыдущего и текущего заполнения
&НаСервере
Процедура вывод_ТЗ_в_табл_док_универс(ТабДок, тз_инфа, заголов_текст, кол_ключ)
	
	
	
//тз_инфа = Новый ТаблицаЗначений;	
	
	
	ОбъектДока = РеквизитФормыВЗначение("Объект");
	Макет = ОбъектДока.ПолучитьМакет("Макет_разница_для_расширения");
	
	ТабДок.НачатьАвтогруппировкуКолонок();
	
	обл_Загол = Макет.ПолучитьОбласть("Заголовок");
	обл_Загол.параметры.заголовок_т = заголов_текст;
	ТабДок.вывести(обл_Загол, 1, "Заголовок", Ложь);
	
	
	// шапка таблицы - имена колонок
	//Секция = ТабДок.ПолучитьОбласть("R3C1");
	//Секция.Область("R1C1").Текст = тз_инфа.Колонки.Получить(0).Имя;
	шапка_колонка = Макет.ПолучитьОбласть("шапка_тз|колонка_тз");
	шапка_колонка.параметры.имя_колонки = тз_инфа.Колонки.Получить(0).Имя;
	ТабДок.Вывести(шапка_колонка, 2, "Группа 1", Ложь);
	
	// цикл по колонкам ключа
	Для счёт_к = 2 по кол_ключ Цикл
		шапка_колонка = Макет.ПолучитьОбласть("шапка_тз|колонка_тз");
	    шапка_колонка.параметры.имя_колонки = тз_инфа.Колонки.Получить(счёт_к - 1).Имя;
	    //шапка_колонка.Область().ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
	    ТабДок.Присоединить(шапка_колонка, 3, "Группа 2", Истина);
	КонецЦикла;
	
	// цикл по остальным колонкам
	Для счёт_к = (кол_ключ+1) по тз_инфа.колонки.Количество() Цикл
		шапка_колонка = Макет.ПолучитьОбласть("шапка_тз|колонка_тз");
	    шапка_колонка.параметры.имя_колонки = тз_инфа.Колонки.Получить(счёт_к - 1).Имя;
	    ТабДок.Присоединить(шапка_колонка, 3, "Группа 3", Истина);
	КонецЦикла;
	
	
	// цикл по строкам
	Для каждого тек_стр из тз_инфа Цикл 
		
		строка_колонка = Макет.ПолучитьОбласть("строка_тз|колонка_тз");
		строка_колонка.параметры.значение_колонки = тек_стр.Получить(0);
		ТабДок.Вывести(строка_колонка, 2, "Группа 1", Ложь);
		
		// цикл по колонкам ключа
		Для счёт_к = 2 по кол_ключ Цикл
			строка_колонка = Макет.ПолучитьОбласть("строка_тз|колонка_тз");
			строка_колонка.параметры.значение_колонки = тек_стр.Получить(счёт_к - 1);
		    ТабДок.Присоединить(строка_колонка, 3, "Группа 2", Истина);
		КонецЦикла;
		
		// цикл по остальным колонкам
		Для счёт_к = (кол_ключ+1) по тз_инфа.колонки.Количество() Цикл
			строка_колонка = Макет.ПолучитьОбласть("строка_тз|колонка_тз");
			строка_колонка.параметры.значение_колонки = тек_стр.Получить(счёт_к - 1);
		    ТабДок.Присоединить(строка_колонка, 3, "Группа 3", Истина);
		КонецЦикла;
	КонецЦикла;
	
	

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

Функция сравнение_двух_табл(ТабДок_разница, Адрес_вр_х, имя_таблы_объекта, кол_колонок_ключа, колонок_на_удаление_вначале, колонок_на_удаление_вконце)

//пред_тз = Новый ТаблицаЗначений;
//нов_тз = Новый ТаблицаЗначений;

	пред_тз = ПолучитьИзВременногоХранилища(Адрес_вр_х);
	Если (имя_таблы_объекта = "НачисленнаяЗарплатаИВзносы") Тогда 
		нов_тз = объект.НачисленнаяЗарплатаИВзносы.выгрузить();
	ИначеЕсли (имя_таблы_объекта = "НачисленныйНДФЛ") Тогда 
		нов_тз = объект.НачисленныйНДФЛ.выгрузить();
	ИначеЕсли (имя_таблы_объекта = "УдержаннаяЗарплата") Тогда 
		нов_тз = объект.УдержаннаяЗарплата.выгрузить();
	ИначеЕсли (имя_таблы_объекта = "ВыплатаОтпусковЗаСчетРезерва") Тогда 
		нов_тз = объект.ВыплатаОтпусковЗаСчетРезерва.выгрузить();
	КонецЕсли;


	равных_строк_полностью = 0;
	
	// сравниваю две таблички: сохранённый предыдущий результат и копия нового результата
	// Равные строки удаляю. Остальные выведу в отчётах.
	
	
	// подготовка ключей строк
	Для счёт_удал = 1 по колонок_на_удаление_вначале Цикл 
		пред_тз.колонки.Удалить(0);
	КонецЦикла;
	Для счёт_удал = 1 по колонок_на_удаление_вконце Цикл 
		пред_тз.колонки.Удалить(пред_тз.колонки.количество()-1);
	КонецЦикла;
	пред_тз.колонки.добавить("ключ");
	Для каждого тек_стр из пред_тз Цикл 
		//тек_стр.ключ = ""+тек_стр.ВидОперации+" ... "+тек_стр.СтатьяФинансирования+" ... "+тек_стр.СтатьяРасходов+" ... "+тек_стр.СпособОтраженияЗарплатыВБухучете+" ... "+тек_стр.ВидНачисленияОплатыТрудаДляНУ+" ... "+тек_стр.ПериодПринятияРасходов;
		тек_стр.ключ = "";
		Для счёт_кол_кл = 1 по кол_колонок_ключа Цикл
			тек_стр.ключ = тек_стр.ключ + тек_стр.Получить(счёт_кол_кл - 1) + " ... ";
		КонецЦикла;
	КонецЦикла;
	
	// подготовка ключей строк
	Для счёт_удал = 1 по колонок_на_удаление_вначале Цикл 
		нов_тз.колонки.Удалить(0);
	КонецЦикла;
	Для счёт_удал = 1 по колонок_на_удаление_вконце Цикл 
		нов_тз.колонки.Удалить(нов_тз.колонки.количество()-1);
	КонецЦикла;
	нов_тз.колонки.добавить("ключ");
	Для каждого тек_стр из нов_тз Цикл 
		//тек_стр.ключ = ""+тек_стр.ВидОперации+" ... "+тек_стр.СтатьяФинансирования+" ... "+тек_стр.СтатьяРасходов+" ... "+тек_стр.СпособОтраженияЗарплатыВБухучете+" ... "+тек_стр.ВидНачисленияОплатыТрудаДляНУ+" ... "+тек_стр.ПериодПринятияРасходов;
		тек_стр.ключ = "";
		Для счёт_кол_кл = 1 по кол_колонок_ключа Цикл
			тек_стр.ключ = тек_стр.ключ + тек_стр.Получить(счёт_кол_кл - 1) + " ... ";
		КонецЦикла;
	КонецЦикла;
	
	
	// подготовка таблицы для результатов сравнения - строк с равным ключом и НЕ раными суммами
	не_равн_сумм = Новый ТаблицаЗначений;
	Для номер_колонки = 1 по кол_колонок_ключа Цикл
		не_равн_сумм.Колонки.Добавить(пред_тз.Колонки.Получить(номер_колонки - 1).Имя);
	КонецЦикла;
	не_равн_сумм.Колонки.Добавить("Имя_суммовой_колонки");
	не_равн_сумм.Колонки.Добавить("первая_сумма");
	не_равн_сумм.Колонки.Добавить("вторая_сумма");
	
	
	
	счёт_п = 0;
	Пока счёт_п < пред_тз.количество() Цикл
		тек_пред = пред_тз.Получить(счёт_п);
		
		найд_нов = нов_тз.Найти(тек_пред.ключ, "ключ");
		Если (найд_нов <> Неопределено) Тогда 
			// ключи равные
			
			// проверка остальных колонок
			есть_различие = Ложь;
			// Первые - ключевые колонки пропускаю. Сравниваю с 11-ой: 9 ключевых и НомерСтроки 
			Для номер_колонки = (кол_колонок_ключа + 1) по (пред_тз.Колонки.Количество() - 1 - колонок_на_удаление_вконце) Цикл // без последних двух колонок: "ключ" и "ИсходныйНомерСтроки"
				Если (тек_пред.Получить(номер_колонки - 1)) <> (найд_нов.Получить(номер_колонки - 1)) Тогда
					есть_различие = Истина;
					// добавляю в отчёт "строки не равные по суммам"
					нов_различ = не_равн_сумм.Добавить();
					// копирую ключ
					Для номер2_колонки = 1 по кол_колонок_ключа Цикл
						нов_различ.Установить(номер2_колонки-1, тек_пред.Получить(номер2_колонки-1));
					КонецЦикла;
					нов_различ.Имя_суммовой_колонки = пред_тз.Колонки.Получить(номер_колонки).Имя;
					нов_различ.первая_сумма = тек_пред.Получить(номер_колонки - 1);
					нов_различ.вторая_сумма = найд_нов.Получить(номер_колонки - 1);
				КонецЕсли;
			КонецЦикла;
			
			//  в этой ветке строки удаляю всегда
			// удаление строк в обоих таблицах
			нов_тз.Удалить(найд_нов);
			пред_тз.Удалить(счёт_п);
			
			Если (есть_различие = Ложь) Тогда 
				равных_строк_полностью = равных_строк_полностью + 1;
			КонецЕсли;
			
		Иначе
			// строку оставляю для отчёта "строки не равные по ключам"
			// поэтому просто сдвиг счётчиков 
			счёт_п = счёт_п + 1;
		КонецЕсли;
	КонецЦикла;
	
	разных_по_ключу_в_пред = пред_тз.количество();
	разных_по_ключу_в_новом = нов_тз.количество();
	разных_по_суммам = не_равн_сумм.Количество();
	
	
	// итоги сравнения 
	
	есть_вывод = Ложь;
	
	Если (разных_по_ключу_в_пред > 0) Тогда
		есть_вывод = истина;
		пред_тз.колонки.Удалить(пред_тз.колонки.количество()-1);
		вывод_ТЗ_в_табл_док_универс(ТабДок_разница, пред_тз, "строки из ПРЕДыдущего заполнения НЕ РАВНЫЕ по ключевым колонкам (первые "+кол_колонок_ключа+" колонок)", кол_колонок_ключа);
	КонецЕсли;
	
	Если (разных_по_ключу_в_новом > 0) Тогда
		есть_вывод = истина;
		нов_тз.колонки.Удалить(нов_тз.колонки.количество()-1);
		вывод_ТЗ_в_табл_док_универс(ТабДок_разница, нов_тз, "строки из НОВОГО заполнения НЕ РАВНЫЕ по ключевым колонкам (первые "+кол_колонок_ключа+" колонок)", кол_колонок_ключа);
	КонецЕсли;
	
	Если (разных_по_суммам > 0) Тогда
		есть_вывод = истина;
		вывод_ТЗ_в_табл_док_универс(ТабДок_разница, не_равн_сумм, "строки равные по ключу, но разные по сумме", кол_колонок_ключа);
	КонецЕсли;
	
	Возврат есть_вывод;
КонецФункции

&НаКлиенте
&После("ЗаполнитьЗавершение")
Процедура Р_После_ЗаполнитьЗавершение(Результат, ДополнительныеПараметры)
	
	//Если ЗаданиеВыполненоВДлительнойОперации Тогда
	Если Объект.НачисленнаяЗарплатаИВзносы.Количество() > 0
		Или Объект.НачисленныйНДФЛ.Количество() > 0
		Или Объект.УдержаннаяЗарплата.Количество() > 0
		Или Объект.ВыплатаОтпусковЗаСчетРезерва.Количество() > 0 Тогда 
		
		// если таблицы не пустые, значит заполнение в длительной операции завершено
		// вывожу отчёт об изменениях при перезаполнении документа
		
		
		
		// 1-ая табла
		Если ЭтоАдресВременногоХранилища(Адрес_вр_х_1) Тогда
			ТабДок_разница = Новый ТабличныйДокумент;
			//кол_колонок_ключа = 7;
			//колонок_на_удаление_вначале = 3;
			//колонок_на_удаление_вконце = 1;
			Если сравнение_двух_табл(ТабДок_разница, Адрес_вр_х_1, "НачисленнаяЗарплатаИВзносы", 7, 3, 1) Тогда 
				ТабДок_разница.Показать("по табл ""НачисленнаяЗарплатаИВзносы"" - отличия в ПРЕДЫДУЩем и ТЕКУЩЕМ заполнении");
			КонецЕсли;
		КонецЕсли;
		
		// 2-ая табла
		Если ЭтоАдресВременногоХранилища(Адрес_вр_х_2) Тогда
			ТабДок_разница = Новый ТабличныйДокумент;
			//кол_колонок_ключа = 3;
			//колонок_на_удаление_вначале = 2;
			//колонок_на_удаление_вконце = 1;
			Если сравнение_двух_табл(ТабДок_разница, Адрес_вр_х_2, "НачисленныйНДФЛ", 3, 2, 1) Тогда 
				ТабДок_разница.Показать("по табл ""НачисленныйНДФЛ"" - отличия в ПРЕДЫДУЩем и ТЕКУЩЕМ заполнении");
			КонецЕсли;
		КонецЕсли;
			
		// 3-ья табла
		Если ЭтоАдресВременногоХранилища(Адрес_вр_х_3) Тогда
			ТабДок_разница = Новый ТабличныйДокумент;
			//кол_колонок_ключа = 4;
			//колонок_на_удаление_вначале = 3;
			//колонок_на_удаление_вконце = 1;
			Если сравнение_двух_табл(ТабДок_разница, Адрес_вр_х_3, "УдержаннаяЗарплата", 4, 3, 1) Тогда 
				ТабДок_разница.Показать("по табл ""УдержаннаяЗарплата"" - отличия в ПРЕДЫДУЩем и ТЕКУЩЕМ заполнении");
			КонецЕсли;
		КонецЕсли;
			
		// 4-ая табла
		Если ЭтоАдресВременногоХранилища(Адрес_вр_х_4) Тогда
			ТабДок_разница = Новый ТабличныйДокумент;
			//кол_колонок_ключа = 2;
			//колонок_на_удаление_вначале = 1;
			//колонок_на_удаление_вконце = 1;
			Если сравнение_двух_табл(ТабДок_разница, Адрес_вр_х_4, "ВыплатаОтпусковЗаСчетРезерва", 2, 1, 1) Тогда 
				ТабДок_разница.Показать("по табл ""ВыплатаОтпусковЗаСчетРезерва"" - отличия в ПРЕДЫДУЩем и ТЕКУЩЕМ заполнении");
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

Вступайте в нашу телеграмм-группу Инфостарт

ЗГУ отражение зарплаты

+5 –

См. также

Раздельный учет ГОЗ в 1С:Бухгалтерия 3.0 ПРОФ и КОРП

Обмен с ГосИС Бюджетный учет Регламентированный учет и отчетность Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия 3.0 1С:Управление холдингом Химическая промышленность Государственные, бюджетные структуры Электротехника и микроэлектроника Машиностроение и приборостроение Металлургическая промышленность Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Автоматизация раздельного учета в 1С:Бухгалтерии по ГОЗ в соответствии с 275-ФЗ. Готовое решение для учета госконтрактов, формирования отчетности и контроля исполнения. Поддержка военной приемки, НИОКР и требований Минпромторга. Профессиональный консалтинг и регулярные обновления продукта

40000 руб.

28.08.2020 555470 3826 145

1429

Интеграция 1С с приложением "Госключ" Электронная подпись

Бюджетный учет ЭДО и ОФД Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия государственного учреждения 1С:Документооборот 1С:ERP Управление предприятием 2 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Расширение для автоматизации процесса подписания электронных документов в мобильном приложении "Госключ" с видом подписи УКЭП/УНЭП, которое подходит для электронного подписания бухгалтерских документов, список которых утвержден в приказе Минфина №61н «Об утверждении унифицированных форм электронных документов бухгалтерского учета…»

325000 руб.

06.11.2024 21121 6 0

Гособоронзаказ: раздельный учет и отчетность 1С БП3.0 КОРП + ПРОФ + Базовая + БИТ.ФИНАНС

Бюджетный учет Обмен с ГосИС Бухгалтер 1С:Предприятие 8 1С:Бухгалтерия 3.0 Государственные, бюджетные структуры Россия Бухгалтерский учет Платные (руб)

Доработка конфигурации 1С:Бухгалтерия предприятия, редакция 3.0. реализована в виде расширения. Предназначена для ведения раздельного учета и автоматизации заполнения отчетности исполнения контрактов ГОЗ в конфигурациях 1С БП КОРП, ПРОФ, Базовая, БИТ.ФИНАНС.

62220 руб.

16.08.2019 105923 319 95

182

«Отчет ГОЗ» для 1С:Бухгалтерия 3.0 версий ПРОФ и КОРП

Регламентированный учет и отчетность Анализ учета Бюджетный учет Бизнес-аналитик Бухгалтер Пользователь Руководитель проекта 1С:Предприятие 8 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Налоговый учет Управленческий учет Платные (руб)

Расширение «Отчет ГОЗ» для 1С:Бухгалтерия 3.0 ПРОФ и КОРП позволяет автоматизировать ведение раздельного учета и подготовку отчетности для Торговых и Производственных организаций, участвующих в ГосОборонЗаказе. Эффективный инструмент ведения раздельного учета по гособоронзаказам для Торговых и Производственных компаний

97700 руб.

20.02.2024 10027 18 6

Обработка банковской выписки по правилам при загрузке + алгоритмы

Банковские операции Обмен с интернет-банком Эквайринг/ридер магнитных карт Мастера заполнения Программист Бухгалтер Пользователь 1С:Предприятие 8 1C:ERP 1С:Бухгалтерия 3.0 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:ERP. Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 1С:Розница 3.0 Платные (руб)

Корректируйте банковские документы быстро и легко! Создайте правило обработки, и оно автоматически применится при загрузке выписки, экономя ваше время (Можно настроить отбор по любому реквизиту или по регулярному выражению). Решение позволяет автоматически заполнять расшифровку платежа, исключать загрузку ненужных документов (дублей) из банка, заполнять комиссию за эквайринг и многое другое. Вам не нужно доплачивать за алгоритмы, они уже включены в решение. Автоматическая обработка применяется при загрузке данных как из файлов клиент банка, так и через DirectBank. Доступен AI чат бот который умеет консультировать по функционалу решения.

15250 руб.

20.12.2024 16498 80 29

Infostart MagicInput: улучшенный поиск по строке в 1С

Мастера заполнения Поиск данных Инструментарий разработчика Подбор и обработка объектов 1С 8.3 1С 8.5 Платные (руб)

Infostart MagicInput улучшает подбор в полях ввода 1С: ищет по любой части названия и по нескольким ключевым фрагментам, распознаёт ввод в другой раскладке и показывает иконки/статусы объектов прямо в списке. Поддерживает вставку навигационной ссылки/представления документа для автоподбора; для разработчиков доступны поиск по GUID и полному имени предопределённого. Работает в управляемых формах и подключается в большинстве конфигураций 1С 8.3/8.5.

6000 руб.

25.02.2026 4735 16 1

Гособоронзаказ в 1С:УПП 1.3

Бюджетный учет Обмен с ГосИС Бухгалтер Пользователь 1С:Предприятие 8 1С:Управление производственным предприятием Государственные, бюджетные структуры Россия Бухгалтерский учет Платные (руб)

Для 1С: УПП 1.3 предлагаем Вашему вниманию подсистему "Раздельный учет результатов финансово-хозяйственной деятельности организаций, выполняющих государственный оборонный заказ (раздельный учет ГОЗ)". Ключевые возможности подсистемы: - Автоматическое заполнение регламентированного отчета «Исполнение контрактов ГОЗ»; - Расшифровка показателей отчета об исполнении контрактов ГОЗ с детализацией до документов; - Контроль хозяйственных операций на соответствие требованиям Постановления Правительства № 47; - Автоматизированный ввод начальных данных по контрактам, заключенным ранее даты начала использования подсистемы.

91500 руб.

25.09.2020 38478 46 10

Ввод ЭПД на основании реализации для 1С:Бухгалтерия 3.0, 1С:УНФ 3.0

ЭДО и ОФД Мастера заполнения 1С 8.3 1С 8.5 1С:Бухгалтерия 3.0 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Расширение добавляет возможность создавать ЭТрН и электронный заказ (заявку) на основании документа «Реализация товаров и услуг». При создании документа автоматически заполняются основные данные: участники перевозки, адреса, транспорт, водитель и сведения о грузе. Работает как расширение, не требует изменения типовой конфигурации и быстро подключается.

6000 руб.

13.05.2026 1206 13 7