Добрый день !

Столкнулся с тем что в релизе 366 ЗиК 77 при расчёте Страховых взносов
не считаются взносы в ПФР с превышения (1021000 руб.) в 2018 году.
Для предыдущих периодов до 2018 года этот релиз 366 считает нормально.

Кто уже сталкивался с такой проблемой ?? Подскажите, пожалуйста,
как решить проблему.

С форума кубани

Исправляем:

//************************************************** ****************************
// глРассчитыватьВзносыСБазыПревышения()
//
// Параметры:
//    
//
// Возвращаемое значение:
//    
//
//    Описание:
//    
//
Функция глРассчитыватьВзносыСБазыПревышения(ВидТарифа, ДатаПериода) Экспорт

//Если ДатаГод(ДатаПериода)>=2018 Тогда
//    Возврат 0;
//КонецЕсли;

ДатаАктуальности = КонГода(ДатаПериода);

(0) Закопать стюардессу и трахаться как все приличные люди - с ЗУПом.

(1) Это они специально?
Или одно из двух? )))

(1) Огромное СПАСИБО !!!

(3) Специально, т.к хорошие заняты 8.х. А на 7 по остатку)))
Там еще при сохранении СЗВ-СТАЖ в файл вылетает... пока подозреваю что больше 1000 сотров не тянет, т.к в списке все номером строки "999"
Сегодня разберусь наверное.
(0) Федеральный закон от 27 ноября 2017 г. N 361-ФЗ
"Президентом РФ подписан Закон о сохранении на период до 2020 г. включительно тарифов страховых взносов, действующих в 2017-2019 гг. для основной категории плательщиков"

Вернее будет :
  Если ДатаГод(ДатаПериода)>=2020 Тогда

+(5)
Если в списке больше 1000 сотрудников, то внести изменение в Отчет.ПодготовкаСведенийДляПФР2017

стр.1936 (длину с 3 изменяем на 4)
    СведенияСотрудников.НоваяКолонка("Ном","Число",4,0, "№ п/п",2);

справки 2-НДФЛ там старые?
есть у кого информация, когда они новый релиз собираются выпустить?

Вот же хитрые жо (пы)

в 366 релизе СЗВ-СТАЖ при записи в файл "схлопывается" 1С (задача потерпела неудачу).
Я подозреваю на строки 1804-1817
    // Сохраняем файл в кодировке UTF-8
    АдоДБСтрим = CreateObject("Adodb.Stream");
    АдоДБСтрим.Charset="windows-1251";
    АдоДБСтрим.Type = 2;
    АдоДБСтрим.Mode= 3;
    АдоДБСтрим.Open();
    АдоДБСтрим.LoadFromFile(ПолноеИмяФайла);
    ТекстАдоДБСтрим = АдоДБСтрим.ReadText();
    АдоДБСтрим.Close();
    АдоДБСтрим.Charset = "utf-8";
    АдоДБСтрим.Open();
    АдоДБСтрим.WriteText(ТекстАдоДБСтрим);
    АдоДБСтрим.SaveToFile(ПолноеИмяФайла, 2);
    АдоДБСтрим.Close();

При этом сам xml файл сформирован. При попытке поменять кодировку - вызывает ошибку.
Кто покажет направление?

+(9) зачем так мутить...?

(9) Исправление.
1) Открой в текстовом редакторе файл и сохрани ручками в формате ютф.
2) Или доработай как в реготчетах в файле RSV14.ERT
        //Сохраняем файл в кодировке UTF-8
        Если КолДопЛистов <= 2500 Тогда
            АдоДБСтрим = СоздатьОбъект("Adodb.Stream");
            АдоДБСтрим.Charset = "windows-1251";
            АдоДБСтрим.Type = 2;
            АдоДБСтрим.Mode= 3;
            АдоДБСтрим.Open();
            АдоДБСтрим.LoadFromFile(ИмяФайлаВыгрузкиФЛ);
            ТекстАдоДБСтрим = АдоДБСтрим.ReadText();
            АдоДБСтрим.Close();
            АдоДБСтрим.Charset = "utf-8";
            АдоДБСтрим.Open();
            АдоДБСтрим.WriteText(ТекстАдоДБСтрим);
            АдоДБСтрим.SaveToFile(ИмяФайлаВыгрузкиФЛ, 2);
            АдоДБСтрим.Close();
            Сообщить("Сформирован файл: " + ИмяФайлаВыгрузкиФЛ);
        Иначе
            Сообщить("Сформирован файл: " + ИмяФайлаВыгрузкиФЛ);
            Сообщить("Сформированый файл содержит данные более 2500 физических лиц и его не удалось сохранить в кодировке UTF-8.", "!");
            Сообщить("Рекомендуется сформированный файл открыть в текстовом редакторе и сохранить в кодировке UTF-8.", "!");
        КонецЕсли;

(10) А как из 7.7 сохранить в формате ютф большой файл?

с3.1415жено

      АдоДБСтрим = CreateObject("Adodb.Stream");    
    АдоДБСтрим.Charset="windows-1251";
    АдоДБСтрим.Type = 2;
    АдоДБСтрим.Mode= 3;
    АдоДБСтрим.Open();
    АдоДБСтрим.LoadFromFile(ПолноеИмяФайла);
    Байт=255;
    СтримВход=АдоДБСтрим;
    СтримВыход=СоздатьОбъект("ADODB.Stream");
    СтримВыход.Type=2;
    СтримВыход.charset="utf-8";
    СтримВыход.LineSeparator=-1;
    СтримВыход.Open();
    Всего=СтримВход.size;
    Пока СтримВход.EOS=0 Цикл
        СтримВыход.WriteText(СтримВход.ReadText(Байт),?(Байт=-2,1,0));
        Состояние("" + Формат(100 * СтримВход.position/Всего,"Ч(0)5.2")+"%");
    КонецЦикла;
    СтримВыход.SaveToFile(ПолноеИмяФайла,2);


работает

(13) Благодарю, проверяю...

В файле у сотрудников с вредными условиями код позиции отсутствует(((

(13) Работает. (с3.1415женый код рабочий) )))

Для код позиции пришлось подправить в процедуре записи в файл, выгрузились.
Далее в ПУ-6 загрузились хорошо, там расчетчики будут шаманить с "вредниками", которым не считают не полные дни - вредными. А отпуск и больничные идут как вредные.
Чудеса у нас в законе.
Кто не понял, если сотрудник отработал меньше 6 часов на  вредных условиях (отпросился, заняли в другом участке...), то этот день считается без вредных условий. Тут без смеха ни как.