Акцент

[Oleksandr]

Светлана, попробуйте так:

[cветлана]

.Trans(4, i).MiscId(19) = .Trans(4, i).AgTo.Parent.Facts(Date)("Cтатья движения денежных средств").Value2

проводка №4
номер разного "статьи движения ДС " 19
так?

[Oleksandr]

[cветлана]

Sub Template_OnRecalc(op)



Dim i
With op
For i = 1 To .TransList(4).Rows
.Trans(4, i).MiscId(19) = .Trans(4, i).AgTo.Parent.Params("статья движения ДС").Value2
Next
End With

End Sub

[cветлана]

в параметре
Группа 02. Статьи движения денежных средств

[Oleksandr]

[cветлана]

Требуется объект: 'op'

[Oleksandr]

[cветлана]

сохраняю шаблон , он спрашивает перепровести
перепроводит и ругается

[AllexL]

[Oleksandr]

[cветлана]

Sub Template_OnApply(op)
'{{ BEGIN_APPLY
'--Число проводок--
op.TransCount = 4
'--Общие--
op.FormID = 31
op.Name2 = "ст. 22 Прочие удержания зарплаты"
'--Счета--
op.TransList(1).SetAccDb 560
op.TransList(2).SetAccDb 560
op.TransList(3).SetAccDb 1165
op.TransList(4).SetAccDb 560
op.TransList(4).SetAccCr 1165
'}} END_APPLY
End Sub

Sub Template_OnEdit(op)
'{{ BEGIN_EDIT
'--Число проводок--
op.TransCount = 4
op.LockUI &H9
'--Блокировки--
op.TransList(4).LockUI &H19
'}} END_EDIT
End Sub

Sub Template_OnRecalc(op)
'{{ BEGIN_RECALC
'--Объекты учета--
op.CopyEntSeries 4, 1
'--Корреспонденты--
op.CopyAgents 4, False, 1, False
op.CopyAgents 4, True, 1, True
'--Суммы--
op.CalcSum "=T1"
op.TransList(4).CalcSum "=$1"
'--Разное--
Op.TransList(4).SetMisc 12, Op.Trans(3).MiscID(12)
Op.TransList(4).SetMisc 11, op.Trans(3).MiscID(11)
End Sub
'}} END_RECALC
Dim i
With op
For i = 1 To .TransList(4).Rows
.Trans(4, i).MiscId(19) = .Trans(4, i).AgTo.Parent.Params("Группа 02. Статьи движения денежных средств").Value2
Next
End With

[Oleksandr]

В принципе я это и подозревал. У вас процедура заканчивается раньше времени ))))) надо так:

[AllexL]

[Oleksandr]