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

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 569295 4034 145

1486

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

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

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

62220 руб.

16.08.2019 107379 333 97

187

SALE! %

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

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

Корректируйте банковские документы быстро и легко! Создайте правило обработки — и оно автоматически применится при загрузке выписки (отбор по любому реквизиту или регулярному выражению). Решение заполняет расшифровку платежа, комиссию эквайринга, подбирает ведомости на выплату зарплаты, помечает дубли из банка на удаление и многое другое. Доплачивать за алгоритмы не нужно — они включены в решение. Обработка работает при загрузке из файлов клиент-банка и через DirectBank. Новое — искусственный интеллект: модель приводит нестандартные назначения платежа к виду, понятному алгоритмам, а ИИ-ассистент прямо в 1С консультирует по решению и разбирает код правил и алгоритмов. Поддерживаются локальные и облачные OpenAI-совместимые модели — данные могут не покидать ваш контур.

17500 руб.

20.12.2024 19565 101 32

Интеграция 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 22100 6 0

Запрет доступа к данным по зарплате для 1C:БП 3.0 и КА 2.5

Зарплата Роли и права Системный администратор Бухгалтер 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Комплексная автоматизация 2.х Молдова Россия Казахстан Бухгалтерский учет Платные (руб)

Расширение позволяет максимально полно ограничить доступ пользователей к данным по заработной плате, а именно закрывает доступ к документам начисления и выплаты заработной платы, не позволяет просматривать бухгалтерские отчеты по счету учета зарплаты а также убирает зарплатные проводки из журнала проводок. Расширение запрещает просматривать платежные документы на выплату зарплаты, так же не доступны регламентные отчеты в ПФР и ИФНС. Расширение предлагает готовые настроенные профили "Бухгалтер без зарплаты", "Только просмотр без зарплаты".

9675 руб.

27.05.2021 59467 526 129

369

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

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

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

97700 руб.

20.02.2024 11037 20 6

Консолидация 1С:ЗУП. Создание и настройка обмена

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

Расширение для создания и настройки обмена с консолидированной базой ЗУП. Код разработки под определенные требования проекта.

85400 руб.

11.07.2025 6439 6 1

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

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

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

6000 руб.

13.05.2026 3352 33 7