Выгрузка из ЗиКа в Бухгалтерию НДФЛ по обособленным подразделениям
04.08.2007
14:39
#1
Вобщем вопрос в заголовке - как выгрузить начисления по НДФЛ из ЗиКа в Бухию по подразделениям? Можно ли это сделать пользовательскими средствами или придется менять обе конфы?
Спасибо
Спасибо
05.08.2007
10:04
#2
Пользовательскими нельзя, а в ЗиК нужно подправить одну из процедур глобального модуля.
19.08.2007
22:19
#3
> Пользовательскими нельзя, а в ЗиК нужно подправить одну из процедур глобального модуля.
Можете подсказать какую? Тогда, как понимаю придется и в бухгалтерии на счете 68.1
делать субконто "подразделения"?
Можете подсказать какую? Тогда, как понимаю придется и в бухгалтерии на счете 68.1
делать субконто "подразделения"?
20.08.2007
05:23
#4
"Да, добавлять в бухгалтерии субконто на 68.1
В ЗиК в глПроводкиЗаПериод()
Пока ЗапросУдержания.Группировка("ЗаписьЖР")=1 Цикл
ВР=ЗапросУдержания.ВР; //вид расчета
РезультатВР= ЗапросУдержания.РезультатВР; //результат по ВР, нулевые значения отсекли запросом
ДокументВР = ЗапросУдержания.ТекущийДокумент; //документ основание ВР
ЗаписьЖР = ЗапросУдержания.ЗаписьЖР; //ссылка на запись ЖР
УдержаниеРаспределятьПропорционально = 0;
Если (ЭтоУдержаниеПроцентом(ВР, ДокументВР) = 1) тогда
УдержаниеРаспределятьПропорционально = глПолучитьВариантРаспределенияУдержания(ВР);
КонецЕсли;
Если ВР = ВидРасчета.НДФЛ Тогда
Если (ЗаписьЖР.ПериодРегистрации.ДатаНачала<>ЗаписьЖР.ДатаНачала) Тогда
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковДругойПериод,РезультатВР,БюджетнаяОрганизация);
Иначе
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковНДФЛПарам,РезультатВР,БюджетнаяОрганизация);
КонецЕсли;
Иначе
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковНДФЛПарам,РезультатВР,БюджетнаяОрганизация);
КонецЕсли;
//ВСТАВКА\
Если ВР=ВидРасчета.НДФЛ Тогда
ПодрНДФЛ=Сотрудник.Подразделение.Получить(ЗаписьЖР.ДатаОкончания);
Для СчН=1 По ВсегоПроводок Цикл
ТаблицаРаспределения.ПолучитьСтрокуПоНомеру(СчН);
ШаблонПроводки=ТаблицаРаспределения.Шаблон;
Если (ТаблицаРаспределения.Шаблон.СчетКредита.Субконто2.Наименование="Подразделения") Тогда
ТаблицаРаспределения.Шаблон=глПодобратьШаблонПроводки("НДФЛ-"+ПодрНДФЛ.Наименование, ШаблонПроводки.СчетДебета, ШаблонПроводки.Субконто1Дебета,ШаблонПроводки.Субконто2Дебета,ШаблонПроводки.Субконто3Дебета,ШаблонПроводки.Субконто4Дебета,ШаблонПроводки.Субконто5Дебета,ШаблонПроводки.Субконто6Дебета, ШаблонПроводки.Субконто7Дебета,
ШаблонПроводки.СчетКредита, ШаблонПроводки.Субконто1Кредита,ПодрНДФЛ,ШаблонПроводки.Субконто3Кредита,ШаблонПроводки.Субконто4Кредита,
ШаблонПроводки.ПодпадаетПодЕНВД,);
КонецЕсли;
КонецЦикла;
КонецЕсли;
//ВСТАВКА/
ВсегоПроводок = ТаблицаРаспределения.КоличествоСтрок();
Если ВсегоПроводок = 0 Тогда
Продолжить;
КонецЕсли;
Накопили=0;
Для Сч = 1 По ВсегоПроводок Цикл
.............
Это кусок из релиза 273"
В ЗиК в глПроводкиЗаПериод()
Пока ЗапросУдержания.Группировка("ЗаписьЖР")=1 Цикл
ВР=ЗапросУдержания.ВР; //вид расчета
РезультатВР= ЗапросУдержания.РезультатВР; //результат по ВР, нулевые значения отсекли запросом
ДокументВР = ЗапросУдержания.ТекущийДокумент; //документ основание ВР
ЗаписьЖР = ЗапросУдержания.ЗаписьЖР; //ссылка на запись ЖР
УдержаниеРаспределятьПропорционально = 0;
Если (ЭтоУдержаниеПроцентом(ВР, ДокументВР) = 1) тогда
УдержаниеРаспределятьПропорционально = глПолучитьВариантРаспределенияУдержания(ВР);
КонецЕсли;
Если ВР = ВидРасчета.НДФЛ Тогда
Если (ЗаписьЖР.ПериодРегистрации.ДатаНачала<>ЗаписьЖР.ДатаНачала) Тогда
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковДругойПериод,РезультатВР,БюджетнаяОрганизация);
Иначе
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковНДФЛПарам,РезультатВР,БюджетнаяОрганизация);
КонецЕсли;
Иначе
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковНДФЛПарам,РезультатВР,БюджетнаяОрганизация);
КонецЕсли;
//ВСТАВКА\
Если ВР=ВидРасчета.НДФЛ Тогда
ПодрНДФЛ=Сотрудник.Подразделение.Получить(ЗаписьЖР.ДатаОкончания);
Для СчН=1 По ВсегоПроводок Цикл
ТаблицаРаспределения.ПолучитьСтрокуПоНомеру(СчН);
ШаблонПроводки=ТаблицаРаспределения.Шаблон;
Если (ТаблицаРаспределения.Шаблон.СчетКредита.Субконто2.Наименование="Подразделения") Тогда
ТаблицаРаспределения.Шаблон=глПодобратьШаблонПроводки("НДФЛ-"+ПодрНДФЛ.Наименование, ШаблонПроводки.СчетДебета, ШаблонПроводки.Субконто1Дебета,ШаблонПроводки.Субконто2Дебета,ШаблонПроводки.Субконто3Дебета,ШаблонПроводки.Субконто4Дебета,ШаблонПроводки.Субконто5Дебета,ШаблонПроводки.Субконто6Дебета, ШаблонПроводки.Субконто7Дебета,
ШаблонПроводки.СчетКредита, ШаблонПроводки.Субконто1Кредита,ПодрНДФЛ,ШаблонПроводки.Субконто3Кредита,ШаблонПроводки.Субконто4Кредита,
ШаблонПроводки.ПодпадаетПодЕНВД,);
КонецЕсли;
КонецЦикла;
КонецЕсли;
//ВСТАВКА/
ВсегоПроводок = ТаблицаРаспределения.КоличествоСтрок();
Если ВсегоПроводок = 0 Тогда
Продолжить;
КонецЕсли;
Накопили=0;
Для Сч = 1 По ВсегоПроводок Цикл
.............
Это кусок из релиза 273"
Читают тему
(гостей: 1)