op.CopyAgents 6, Op.Trans(1).MiscID(34)
помогите, если я не вычерпала лимит вопросов
это последний, дальше буду заниматься бухгалтерской работой дальше
Добавлено: Вт Мар 05, 2013 11:04 am Заголовок сообщения:
снова нужна помощь, подскажите, пожалуйста, как в программе шаблона прописать разное, чтобы подтягивалось из корреспондента (вернее из его группы)
чтобы было понятней, нужно статью движения денежных средств при выплате з/пл (разное) записать в проводку из группы, куда корреспондент входит
Добавлено: Вт Мар 05, 2013 12:18 pm Заголовок сообщения:
cветлана писал(а):
снова нужна помощь, подскажите, пожалуйста, как в программе шаблона прописать разное, чтобы подтягивалось из корреспондента (вернее из его группы)
чтобы было понятней, нужно статью движения денежных средств при выплате з/пл (разное) записать в проводку из группы, куда корреспондент входит
Хмммммм.переформулируйте вопрос:
есть корреспондент, что значит "группа", и в каком месте у этого корреспондента хранится идентификатор аналитики "Разное"?
Ну, в качестве примера, "с потолка" может быть взята такая модель:
Код:
Sub Template_BeforeSave(ByVal op, ByRef Cancel)
Dim i
for i = 1 to op.translist(1).Rows
with op.trans(1,i)
.miscId(<mscNo>) = .AgFromBind.FactValue("Нужный мне факт",Op.Date)
end with
DoEvent
Next
End Sub
Добавлено: Вт Мар 05, 2013 12:23 pm Заголовок сообщения:
есть корреспондент, что значит "группа"- это подразделение предприятия, и в каком месте у этого корреспондента хранится идентификатор аналитики "Разное"- он хранится в названии группы-подразделения
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 19, Op.Trans(3).MiscID(19)
'}} END_RECALC
End Sub
в последней строке, как я понимаю, взять разное из проводки 3, а мне нужно из свойств группы-подразделения, куда входит корреспондент
Добавлено: Вт Мар 05, 2013 12:31 pm Заголовок сообщения:
cветлана писал(а):
снова нужна помощь, подскажите, пожалуйста, как в программе шаблона прописать разное, чтобы подтягивалось из корреспондента (вернее из его группы)
чтобы было понятней, нужно статью движения денежных средств при выплате з/пл (разное) записать в проводку из группы, куда корреспондент входит
По идее так:
Код:
Sub Template_OnRecalc(op)
'{{ BEGIN_RECALC
' Num - номер Аналитики "Cтатья движения денежных средств"
' TNum - номер проводки, в которой нужно прописать
Dim i
With op
For i = 1 To .TransList(TNum).Rows
.Trans(TNum, i).MiscId(Num) = .Trans(TNum, i).AgTo.Parent.Params("Cтатья движения денежных средств").Value2
Next
End With
'}} END_RECALC
Добавлено: Вт Мар 05, 2013 12:42 pm Заголовок сообщения:
'{{ BEGIN_RECALC
' Num - номер Аналитики "Cтатья движения денежных средств"19
' TNum - номер проводки, в которой нужно прописать 4
Dim i
With op
For i = 1 To .TransList(4).Rows
.Trans(4, i).MiscId(19) = .Trans(4, i).AgTo.Parent.Params("Cтатья движения денежных средств").Value2
Next
End With
'}} END_RECALC
так? пишет параметр не найден, может там номер, а не название
Добавлено: Вт Мар 05, 2013 12:47 pm Заголовок сообщения:
Поправка:
Нужно писать вне скобок, иначе затрется при изменении шаблона:
Код:
Sub Template_OnRecalc(op)
'{{ BEGIN_RECALC
'}} END_RECALC
' Num - номер Аналитики "Cтатья движения денежных средств"
' TNum - номер проводки, в которой нужно прописать
Dim i
With op
For i = 1 To .TransList(TNum).Rows
.Trans(TNum, i).MiscId(Num) = .Trans(TNum, i).AgTo.Parent.Params("Cтатья движения денежных средств").Value2
Next
End With
Добавлено: Вт Мар 05, 2013 12:52 pm Заголовок сообщения:
cветлана писал(а):
в каком месте у этого корреспондента хранится идентификатор аналитики "Разное"- он хранится в названии группы-подразделения
Светлана, в названии может храниться исключительно текстовые значения, даже если в качестве названия выберете значение 17, то для программы это значение будет текстовым "17".
Правильней будет создать параметр или факт - ссылку на аналитику разное, и в программе "выцарапывать" это значение для проводки.
Код:
Sub Template_BeforeSave(ByVal op, ByRef Cancel)
Dim i
for i = 1 to op.translist(1).Rows
with op.trans(1,i)
if .agFromId<>0 then
if not(.agFrom.pArent is nothing) then
.miscId(19) = .AgFromBind.parent.FactValue("Нужный мне факт", op.date)
end if
end if
end with
DoEvent
Next
End Sub
Добавлено: Вт Мар 05, 2013 12:54 pm Заголовок сообщения:
нет это я вас запутала про название,
подразделение, а у него свойство-статья движения ДС, которое должно распространятся на всех сотрудников подразделения
в нужный мне факт что нужно подставить?
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
