Set prm = createlibobject("map")
Op.TransList(4).EnumTrans GetRef("SetMscRow"), prm
Function SetMscRow(Tr, ByRef prm)
SetMscRow = True
If Not prm.exists(Tr.AgToID) And Tr.AgToID <> 0 Then
If Tr.AgTo.Parent Is Nothing Then Exit Sub
prm(Tr.AgToID) = Tr.AgTo.Parent.Params("Затраты: Группа 02").Value2
End If
Tr.MiscId(19) = prm(Tr.AgToID)
End Function
End Sub
Добавлено: Чт Мар 07, 2013 12:16 pm Заголовок сообщения:
Сорри, невнимательность - мой бич
замените кусок на этот
Код:
Dim prm
set prm = createlibobject("map")
Op.TransList(4).EnumTrans GetRef("SetMscRow"), prm
end sub
function SetMscRow(Tr, byref prm)
SetMscRow = true
if Tr.AgToID = 0 then exit function
if prm.exists(Tr.AgToID) then
if Tr.AgTo.Parent is nothing then exit function
prm(Tr.AgToID) = Tr.AgTo.Parent.Params("Затраты: Группа 02").Value2
end if
Tr.MiscId(19) = prm(Tr.AgToID)
End function
Последний раз редактировалось: olimp (Чт Мар 07, 2013 12:22 pm), всего редактировалось 1 раз
Добавлено: Чт Мар 07, 2013 12:29 pm Заголовок сообщения:
olimp писал(а):
т.е. ты не понимаешь почему не работает GetRef в классах ?
Не понимаю, расскажете? Хотелось бы почитать более развернутый ответ чем этот:
You can't use GetRef() with a method of an instance of a VBScript class, it simply isn't supported. Michael Harris
Microsoft.MVP.Scripting
Seattle WA US
Добавлено: Чт Мар 07, 2013 12:55 pm Заголовок сообщения:
Oleksandr писал(а):
olimp писал(а):
т.е. ты не понимаешь почему не работает GetRef в классах ?
Не понимаю, расскажете? Хотелось бы почитать более развернутый ответ чем этот:
You can't use GetRef() with a method of an instance of a VBScript class, it simply isn't supported. Michael Harris
Microsoft.MVP.Scripting
Seattle WA US
Видимо ты прочитал это уже после того, как написал это
Oleksandr писал(а):
kris писал(а):
Или, как уже рекомендовали (и что правильнее!), выносить на BeforeSave.
Кстати EnumTrans работает в шаблонах?
А то в классах как-то не очень
Добавлено: Чт Мар 07, 2013 1:13 pm Заголовок сообщения:
как я пойму что это процедура сохранения?
по какому слову?
извините, если не в тему, но раньше я не трогала форму, а статья появлялась
я ее стерла , как я понимаю, при редактировании кода шаблона
нужно было не стереть, а убрать за какие-нибудь скобки, наверно
Этот код убрать из процедуры 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("Затраты: Группа 02").Value2
Next
End With
Последний раз редактировалось: cветлана (Чт Мар 07, 2013 1:15 pm), всего редактировалось 2 раз(а)
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах