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

18.12.20

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

+5 –

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

Скачать файл

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

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

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

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 по 275-ФЗ

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

Раздельный учет гособоронзаказа в 1С: Отчеты по исполнению госконтрактов, расчетно-калькуляционные материалы и контроль операций для исполнения в срок в 1С: Бухгалтерия 3.0 и Управление Холдингом 3.2. Простая настройка и полное соответствие законодательству. Профессиональный консалтинг и регулярные обновления продукта.

44000 руб.

28.08.2020 349127 2325 135

1044

Обновление конфигураций Бухгалтерия 2, КА 1.1, ЗУП 2.5

Зарплата Регламентированный учет и отчетность Кадровый учет Обновление 1С Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Зарплата и Управление Персоналом 2.5 Бухгалтерский учет Налоговый учет Управленческий учет Акцизы ЕНВД ЕСН Земельный налог ИП, ПБОЮЛ, КФХ Налог на имущество Налог на прибыль НДС НДФЛ ФОМС, ЕФС Транспортный налог УСН ПСН (патентная система налогообложения) Платные (руб)

Пакет обновлений для старых конфигураций 1С:КА 1.1, ЗУП 2.5 и БУХ 2.0 - УСН, НДС 5%, 7%, НДФЛ новая шкала 2025, ЕФС-1, Расчет страховых взносов, Статистика, СЗВ-ТД, 2-НДФЛ, Регламентированная отчетность, Кадровый учет, Прослеживаемость импортных товаров

27900 руб.

01.04.2020 150131 538 390

247

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

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

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

55200 руб.

16.08.2019 92975 243 87

142

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

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

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

500000 руб.

06.11.2024 2425 1 0

Перенос данных из Парус 7.хх в ЗГУ ред.3

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

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 7.хх учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

84000 руб.

24.04.2017 52027 104 165

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Перенос данных 1C Системный администратор Программист Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 8 учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

120000 руб.

19.08.2020 25904 25 1

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

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

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

90000 руб.

25.09.2020 31264 42 10

Запретить доступ к зарплате

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

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

5940 руб.

27.05.2021 39263 284 100

218