"в 496 это не исправлено !!!
решение заменить кусок :
Функция глНомерШкалыСтраховыхВзносовПФР(ФизЛицо, ДатаОпределения = '31.12.2004') Экспорт
ДатаРождения = ФизЛицо.ФизЛицо.ДатаРождения;
Если ПустоеЗначение(ДатаРождения) = 1 Тогда
Возврат -1
ИначеЕсли ДатаРождения >= РабочаяДата() Тогда
Возврат -2
Иначе
ГодРождения = ДатаГод(ДатаРождения)
КонецЕсли;
Пол = ВРег(Строка(ФизЛицо.ФизЛицо.Пол));
Если ПустоеЗначение(Пол) = 1 Тогда
Возврат -1
КонецЕсли;
Если Найти(Пол,"М") > 0 Тогда // мужчины
глСообщениеТрассировки(глСообщенияТрассировки, "Физическое лицо _П01 является мужчиной "+ГодРождения+" года рождения", 0, 0, ФизЛицо);
Если ГодРождения < 1953 Тогда
Возврат 1
ИначеЕсли ГодРождения < 1967 Тогда
Возврат 2
Иначе
Возврат 3
КонецЕсли;
ИначеЕсли Найти(Пол,"Ж") > 0 Тогда // женщины
глСообщениеТрассировки(глСообщенияТрассировки, "Физическое лицо _П01 является женщиной "+ГодРождения+" года рождения", 0, 0, ФизЛицо);
Если ГодРождения < 1957 Тогда
Возврат 1
ИначеЕсли ГодРождения < 1967 Тогда
Возврат 2
Иначе
Возврат 3
КонецЕсли;
КонецЕсли;
Возврат -1
КонецФункции // глНомерШкалыСтраховыхВзносовПФР()
на следующий кусок :
Функция глНомерШкалыСтраховыхВзносовПФР(ФизЛицо, ДатаОпределения = '31.12.2004') Экспорт
ДатаРождения = ФизЛицо.ДатаРождения;
Если ПустоеЗначение(ДатаРождения) = 1 Тогда
Возврат -1
ИначеЕсли ДатаРождения >= РабочаяДата() Тогда
Возврат -2
Иначе
ГодРождения = ДатаГод(ДатаРождения)
КонецЕсли;
Пол = ВРег(Строка(ФизЛицо.Пол));
Если ПустоеЗначение(Пол) = 1 Тогда
Возврат -1
КонецЕсли;
Если Найти(Пол,"М") > 0 Тогда // мужчины
глСообщениеТрассировки(глСообщенияТрассировки, "Физическое лицо _П01 является мужчиной "+ГодРождения+" года рождения", 0, 0, ФизЛицо);
Если ГодРождения < 1953 Тогда
Возврат 1
ИначеЕсли ГодРождения < 1967 Тогда
Возврат 2
Иначе
Возврат 3
КонецЕсли;
ИначеЕсли Найти(Пол,"Ж") > 0 Тогда // женщины
глСообщениеТрассировки(глСообщенияТрассировки, "Физическое лицо _П01 является женщиной "+ГодРождения+" года рождения", 0, 0, ФизЛицо);
Если ГодРождения < 1957 Тогда
Возврат 1
ИначеЕсли ГодРождения < 1967 Тогда
Возврат 2
Иначе
Возврат 3
КонецЕсли;
КонецЕсли;
Возврат -1
КонецФункции // глНомерШкалыСтраховыхВзносовПФР()
"