Налоговая карточка 1-НДФЛ

[Mikhail]

Всем привет!
После обновления (6.03.01.01) удалось ли кому-нибудь сформировать справку 1-НДФЛ ("Расчет Зарплаты - Документы - Справки - Налоговая карточка 1-НДФЛ") ?

У меня формирование прерывается ошибкой:


В версии до обновления такой ошибки нет. Объектов замещения и доп. сегментов не создано.
Ошибка возникает при выполнении кода процедуры "zrp_prc_NC2011":

[DUCKKK]

Процедура zrp_prc_NC2011

-- ПП НДФЛ
Let _j := _i * 4 + 1;
Let vb.lnDoh := _i * 47 + 103;
----->
| VB
| {
| PP1 = ""
| PP2 = ""
| PP3 = ""
| PP4 = ""
| };
|
| SCAN @PlatP _PlatPP
| execute
| {
| IF @PlatP:tyear == _yy THEN
| {
| Let vb.N := @PlatP:DocNum[""];
| Let vb.Dt := @PlatP:2[""];
| Let vb.M := @PlatP:tmonth[""];
------------------------------------------ Let vb.vpMonth := _j;

VB
{
if IsComma then
M = clng(replace(M,".",","))
else
M = clng(M)
end if

Select Case M
Case clng(vpMonth): PP1 = PP1 + " " + N + " от " + Dt +", "
Case clng(vpMonth+1): PP2 = PP2 + " " + N + " от " + Dt +", "
Case clng(vpMonth+2): PP3 = PP3 + " " + N + " от " + Dt +", "
Case clng(vpMonth+3): PP4 = PP4 + " " + N + " от " + Dt +", "
End Select
};
};
};


строку, выделенную жирным

Let vb.vpMonth := _j;

перенести после строк

-- ПП НДФЛ
Let _j := _i * 4 + 1;
Let vb.lnDoh := _i * 47 + 103;

(тама стрелочка нарисована)

[Mikhail]

DUCKKK, благодарю за столь быстрый ответ!
Все заработало!