Допоможіть вияснити, чому не підтягується субконто. Має стояти "Оплата труда (консервация)". Дякую.
в журналі проводок також немає цього субконто...
Какой документ делает проводку и почему, по-вашему, субконто должно заполняться?
Приведите скрин отчета Ж/О по субконто по этому-же счету за этот-же период.
А теперь, кликните по сумме 517,91 сч.651, и сумме 1392,60 сч.661.
Какие документы сформировали эти проводки? Покажите скрин.
Сколько у вас субконто на счете 471? Приведите их названия.
См. Операции, план счетов.
Субконто1=Виды деятельности
Субконто2=Виды затрат
Посмотрел в конфигураторе модуль документа НачислениеЗП. Вот строка формирования проблемной проводки:
глПроводка(Контекст,"47.1",тбНиО.НиО.Счет,СуммаОтчисленийСОтпуска,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,, тбНиО.НиО,,, ,,"ЗП");
Процедура ПроводкиДно()
//Базы.Свернуть("СчетЗатрат,ВидЗатрат,ВидДеятельности,НиО","Оклад,Отпускные,ОблагаемаяМатПомощь,ОблагаемаяМатПомощьВР,Индексация,Больничные,БольничныеЗаСчетПредприятия");
тбБазы.Свернуть("СчетЗатрат,ВидЗатрат,ВидДеятельности,НиО","Оклад,Отпускные,ОблагаемаяМатПомощь,ОблагаемаяМатПомощьВР,Индексация,Больничные,БольничныеЗаСчетПредприятия,БольничныеИнв,БольничныеЗаСчетПредприятияИнв");
тбБазы.Сортировать("НиО,СчетЗатрат,ВидДеятельности,ВидЗатрат");
глСписокОшибокОкругления.УдалитьВсе();
ИтСуммаОтчислениеБУ = 0;
//для расчета взносов ФОП больничных инвалидов
ПолучитьНиО("ФЗПЕСВИнв");
СтавкаИнв = тбНиО.Ставка;
СпрВидыЗатрат = СоздатьОбъект("Справочник.ВидыЗатрат");
тбБазы.ВыбратьСтроки();
Пока тбБазы.ПолучитьСтроку() = 1 Цикл
ПолучитьНиО(тбБазы.НиО);
Если НачалоПериода<'01.12.2011' Тогда
//по общей ставке
СтавкаИнв = тбНиО.Ставка;
КонецЕсли;
//СуммаОтчисленийБезОтпуска = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Оклад + тбБазы.ОблагаемаяМатПомощь + тбБазы.ОблагаемаяМатПомощьВР + тбБазы.Индексация + тбБазы.Больничные + тбБазы.БольничныеЗаСчетПредприятия)
// +(тбБазы.БольничныеЗаСчетПредприятияИнв+тбБазы.БольничныеИнв)*СтавкаИнв, 2);
СуммаОтчисленийБезОтпуска = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Оклад + тбБазы.ОблагаемаяМатПомощь + тбБазы.ОблагаемаяМатПомощьВР + тбБазы.Индексация), 2);
//теперь считаем больничный отдельно
СуммаОтчисленийБольничного = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Больничные + тбБазы.БольничныеЗаСчетПредприятия)
+(тбБазы.БольничныеЗаСчетПредприятияИнв+тбБазы.БольничныеИнв)*СтавкаИнв, 2);
СуммаОтчисленийСОтпуска = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Отпускные), 2);
СуммаОтчисленийВсего = СуммаОтчисленийБезОтпуска + СуммаОтчисленийСОтпуска;
ОтчисленияСФОТНУ = 0;
Если (Найти(тбБазы.НиО.Код,"ФЗПЕСВБольн")>0) Тогда
ОтчисленияСФОТНУ = глОкрКорр("Нал",(тбБазы.Оклад+тбБазы.ОблагаемаяМатПомощьВР+тбБазы.Отпускные+тбБазы.Индексация)*тбНиО.Ставка, 2);
КонецЕсли;
СчетЗатрат = тбБазы.СчетЗатрат;
Если ПустоеЗначение(СчетЗатрат)=1 Тогда
// используем счета по умолчанию
СчетЗатрат = тбНиО.СчетЗатрат;
КонецЕсли;
Если Константа.ИспользоватьОбеспечениеОтпусков.Получить(КонецПериода) = Да Тогда
глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийБезОтпуска,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
тбНиО.НиО,,, ,,"ЗП");
//ВидЗатратФондыДляРезерваОтпусков +Релиз 291.04-------------------------------------------
кодЗатратОтпуск = 0;
Если Лев(СчетЗатрат.Код,2) = "23" Тогда
кодЗатратОтпуск = 60;
ИначеЕсли Лев(СчетЗатрат.Код,2) = "92" Тогда
кодЗатратОтпуск = 121;
ИначеЕсли Лев(СчетЗатрат.Код,2) = "93" Тогда
кодЗатратОтпуск = 157;
ИначеЕсли Лев(СчетЗатрат.Код,2) = "94" Тогда
кодЗатратОтпуск = 281;
КонецЕсли;
ВидЗатратОтпуск = "";
Если СпрВидыЗатрат.НайтиПоКоду(кодЗатратОтпуск,0) = 1 Тогда
ВидЗатратОтпуск = СпрВидыЗатрат.ТекущийЭлемент();
КонецЕсли;
глПроводка(Контекст,"47.1",тбНиО.НиО.Счет,СуммаОтчисленийСОтпуска,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,ВидЗатратОтпуск,,
тбНиО.НиО,,, ,,"ЗП");
глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийБольничного,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
тбНиО.НиО,,, ,,"ЗП");
Иначе
глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийВсего,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
тбНиО.НиО,,, ,,"ЗП");
глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийБольничного,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
тбНиО.НиО,,, ,,"ЗП");
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Да, и еще. Вид деятельности и Вид затрат - периодические. Посмотрите историю. М.б. они заданы на май, а документ - за апрель.
найшлось рішення, все підтягує.
СпрВидыЗатрат = СоздатьОбъект("Справочник.ВидыЗатрат");
кодЗатратОтпуск = 0;
Если Лев(ТекСчетЗатрат.Код,2) = "23" Тогда
кодЗатратОтпуск = 40; // 60;
ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "92" Тогда
кодЗатратОтпуск = 117; // 121;
ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "93" Тогда
кодЗатратОтпуск = 153; // 157;
ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "94" Тогда
кодЗатратОтпуск = 280; // 281;
ИначеЕсли Лев(ТекСчетЗатрат.Код,3) = "977" Тогда
ТекВидЗатратОтпуск = ТекВидЗатрат;
ИначеЕсли Лев(ТекСчетЗатрат.Код,3) = "471" Тогда
ТекВидЗатратОтпуск = ТекВидЗатрат
КонецЕсли;
//ВидЗатратОтпуск = "";
Если СпрВидыЗатрат.НайтиПоКоду(кодЗатратОтпуск,0) = 1 Тогда
ТекВидЗатратОтпуск = СпрВидыЗатрат.ТекущийЭлемент();
КонецЕсли;
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua