Акцент официальный форум разработчика программы Акцент
Предыдущая тема :: Следующая тема
Автор
Сообщение
cветлана Гость
Добавлено: Вт Дек 04, 2012 4:12 pm Заголовок сообщения:
да в шаблоне, захожу в разное там много позиций
мне нужно чтобы одна позиция разного во второй проводке наследовалась из первой проводки
в разном я нахожу нужную строку и в ячейке значения ставлю =М1
не дает сохранить, пишет не найдено значение
не воспринимает как формулу, а ищет такое значение в разном
Вернуться к началу
olimp Site Admin Зарегистрирован: 10.03.2005 Сообщения: 2661
Добавлено: Ср Дек 05, 2012 12:12 am Заголовок сообщения:
cветлана писал(а): да в шаблоне, захожу в разное там много позиций
мне нужно чтобы одна позиция разного во второй проводке наследовалась из первой проводки
в разном я нахожу нужную строку и в ячейке значения ставлю =М1
не дает сохранить, пишет не найдено значение
не воспринимает как формулу, а ищет такое значение в разном
Макрос работает только в Акцент 7.4
Вернуться к началу
cветлана Гость
Добавлено: Ср Дек 05, 2012 8:39 am Заголовок сообщения:
может как-то в программу шаблона можно записать
или только руками теперь в каждую проводку дублировать?
Вернуться к началу
nikman Зарегистрирован: 10.03.2005 Сообщения: 786 Откуда: Украина, Донецк
Добавлено: Ср Дек 05, 2012 9:25 am Заголовок сообщения:
cветлана писал(а): может как-то в программу шаблона можно записать
или только руками теперь в каждую проводку дублировать?
Да пожалуйста, например можете дописать в программу шаблона:
Код: Op.TransList(2).SetMisc MiscNo, Op.Trans(1).MiscID(MiscNo)
Вернуться к началу
olimp Site Admin Зарегистрирован: 10.03.2005 Сообщения: 2661
Добавлено: Ср Дек 05, 2012 9:34 am Заголовок сообщения:
nikman писал(а): cветлана писал(а): может как-то в программу шаблона можно записать
или только руками теперь в каждую проводку дублировать?
Да пожалуйста, например можете дописать в программу шаблона:
Код: Op.TransList(2).SetMisc MiscNo, Op.Trans(1).MiscID(MiscNo)
Только размещайте код за "скобками"
'{{ BEGIN_RECALC
'}} END_RECALC
чтобы изменения шаблона из интерфейса не убивали код.
Вернуться к началу
cветлана Гость
Добавлено: Ср Дек 05, 2012 9:39 am Заголовок сообщения:
спасибо, сейчас попробую
а не нужно указывать номер строки разного после SetMisc MiscNo?
Вернуться к началу
kris Зарегистрирован: 12.01.2006 Сообщения: 371
Добавлено: Ср Дек 05, 2012 9:52 am Заголовок сообщения:
cветлана писал(а): спасибо, сейчас попробую
а не нужно указывать номер строки разного после SetMisc MiscNo?
MiscNo - это и есть номер аналитики, заменяете его на нужный вам.
Вернуться к началу
cветлана Гость
Добавлено: Ср Дек 05, 2012 9:53 am Заголовок сообщения:
вместо No номер и вместо ID тоже номер, правильно?
Вернуться к началу
cветлана Гость
Добавлено: Ср Дек 05, 2012 10:00 am Заголовок сообщения:
Sub Template_OnRecalc(op)
'{{ BEGIN_RECALC
'--Объекты учета--
op.CopyEntities 2, 1
op.CopyEntities 6, 1
'--Корреспонденты--
op.CopyAgents 2, False, 1, False
op.CopyAgents 2, True, 1, True
op.CopyAgents 3, False, 1, False
op.CopyAgents 3, True, 1, True
op.CopyAgents 4, False, 1, False, True
op.CopyAgents 4, True, 1, True, True
op.CopyAgents 5, False, 1, False
op.CopyAgents 5, True, 1, True
op.CopyAgents 6, True, 1, True
'--Количества--
op.TransList(6).CalcQty "=-Q1"
'--Суммы--
op.TransList(6).CalcSum "=-T1"
op.TransList(6).SetMisc Misc 9, Op.Trans(1).MiscID(Misc 9)
'}} END_RECALC
End Sub
пишет предполагает наличие завершения инструкции
Вернуться к началу
nikman Зарегистрирован: 10.03.2005 Сообщения: 786 Откуда: Украина, Донецк
Добавлено: Ср Дек 05, 2012 10:16 am Заголовок сообщения:
Если 9 -- это номер разного, то так:
Код: op.TransList(6).SetMisc 9, Op.Trans(1).MiscID(9)
и
olimp писал(а):
Только размещайте код за "скобками"
'{{ BEGIN_RECALC
'}} END_RECALC
чтобы изменения шаблона из интерфейса не убивали код.
Вернуться к началу
cветлана Гость
Добавлено: Ср Дек 05, 2012 10:27 am Заголовок сообщения:
не получилось, а после id почему тоже 9, может там не номер строки, а номер id
хотя так тоже не работает
Вернуться к началу
olimp Site Admin Зарегистрирован: 10.03.2005 Сообщения: 2661
Добавлено: Ср Дек 05, 2012 10:40 am Заголовок сообщения:
cветлана писал(а): не получилось, а после id почему тоже 9, может там не номер строки, а номер id
хотя так тоже не работает
Sub Template_OnRecalc(op)
'{{ BEGIN_RECALC
'--Объекты учета--
op.CopyEntities 2, 1
op.CopyEntities 6, 1
'--Корреспонденты--
op.CopyAgents 2, False, 1, False
op.CopyAgents 2, True, 1, True
op.CopyAgents 3, False, 1, False
op.CopyAgents 3, True, 1, True
op.CopyAgents 4, False, 1, False, True
op.CopyAgents 4, True, 1, True, True
op.CopyAgents 5, False, 1, False
op.CopyAgents 5, True, 1, True
op.CopyAgents 6, True, 1, True
'--Количества--
op.TransList(6).CalcQty "=-Q1"
'--Суммы--
op.TransList(6).CalcSum "=-T1"
'}} END_RECALC
op.TransList(6).SetMisc 9, Op.Trans(1).MiscID(9)
end sub
Вернуться к началу
cветлана Гость
Добавлено: Ср Дек 05, 2012 10:48 am Заголовок сообщения:
я так пробовала не получается, не копирует разное
Вернуться к началу
nikman Зарегистрирован: 10.03.2005 Сообщения: 786 Откуда: Украина, Донецк
Добавлено: Ср Дек 05, 2012 10:58 am Заголовок сообщения:
Проверьте, что 9 -- это номер разного, а не ID разного.
Вернуться к началу
cветлана Гость
Добавлено: Ср Дек 05, 2012 11:00 am Заголовок сообщения:
в проводке я захожу в разное и по строке девять разное, которое мне нужно наследовать
id этого разного 83
Вернуться к началу
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
Powered by phpBB © 2001, 2005 phpBB Group