|
в подразделении установка основного банка | ☑ | ||
---|---|---|---|---|
0
program345
15.09.14
✎
10:45
|
Доброго дня!
Распределенная база УТ 10.2. В другом городе при создании документа Платежное поручение входящее появляется банк нашего города автоматом, им приходится править вручную. Можно ли сделать им банк по умолчанию один, а нам оставить тот же? |
|||
1
program345
15.09.14
✎
10:46
|
пробовал Сервис-Настройки пользователя-Основные значения для подстановки в доки и справочники не идет - нет изменений.
|
|||
2
vicof
15.09.14
✎
10:48
|
А в код заглянуть пробовал, как там банк подставляется, или это для лохов?
|
|||
3
program345
15.09.14
✎
10:48
|
если меняю в справочнике организаций банк меняется и в нашем городе.
|
|||
4
program345
15.09.14
✎
10:50
|
(2) хотелось бы сначала средствами программы без кода , если возможно
|
|||
5
Жан Пердежон
15.09.14
✎
10:50
|
(3) берем в руки напильник...
|
|||
6
vicof
15.09.14
✎
10:51
|
(4) Так ты и разберись, что в коде происходит, чтобы сделать выбор, менять что-то в коде, или руками настроить можно.
|
|||
7
program345
15.09.14
✎
10:53
|
// По регистру "Денежные средства к получению"
Для Каждого СтрокаДвижение Из ДвиженияПоСтатьям Цикл СтрокаДвиженийПолучение = ТаблицаДвиженийПолучение.Добавить(); СтрокаДвиженийПолучение.БанковскийСчетКасса = СчетОрганизации; СтрокаДвиженийПолучение.ВидДенежныхСредств = Перечисления.ВидыДенежныхСредств.Безналичные; СтрокаДвиженийПолучение.Сумма = СтрокаДвижение.СуммаПлатежа; СтрокаДвиженийПолучение.ДокументПолучения = Ссылка; СтрокаДвиженийПолучение.СтатьяДвиженияДенежныхСредств=СтрокаДвижение.СтатьяДвиженияДенежныхСредств; КонецЦикла; по ходу встает лишь основной счет организации из справочника Организации. |
|||
8
vicof
15.09.14
✎
10:55
|
(7) Это явно не модуль формы
|
|||
9
Hans
15.09.14
✎
11:00
|
Без когда это сделать нельзя.
|
|||
10
Hans
15.09.14
✎
11:00
|
*кода
|
|||
11
program345
15.09.14
✎
11:02
|
// Процедура выполняет действия, необходимые при выборе счета организации
// // Параметры: // Нет. // Процедура ПриИзмененииСчетаОрганизации() Если СчетОрганизации.Пустая() Тогда Возврат; КонецЕсли; Если Организация.Пустая() Тогда Организация=СчетОрганизации.Владелец; КонецЕсли; СтараяСуммаДокумента=СуммаДокумента; ПересчитыватьСумму=Истина; ПриИзмененииЗначенияКассыБанковскогоСчета(ВалютаДокумента, КурсДокумента, КратностьДокумента, ?(ДатаОплаты='00010101',Дата,КонецДня(ДатаОплаты)), СуммаДокумента, СчетОрганизации.ВалютаДенежныхСредств, ПересчитыватьСумму); КоэффициентПересчета=?(СтараяСуммаДокумента=0,0,СуммаДокумента/СтараяСуммаДокумента); Если ЕстьРасчетыСКонтрагентами ИЛИ ЕстьРасчетыПоКредитам Тогда Для Каждого Строка Из РасшифровкаПлатежа Цикл Если ПересчитыватьСумму Тогда Строка.СуммаПлатежа=Строка.СуммаПлатежа*КоэффициентПересчета; ПересчитатьСуммуНДС(Строка); КонецЕсли; мТекущаяВалютаВзаиморасчетов = Строка.ДоговорКонтрагента.ВалютаВзаиморасчетов; Строка.СуммаВзаиморасчетов=ПересчитатьИзВалютыВВалюту(Строка.СуммаПлатежа, ВалютаДокумента, мТекущаяВалютаВзаиморасчетов, КурсДокумента, Строка.КурсВзаиморасчетов, КратностьДокумента, Строка.КратностьВзаиморасчетов); Если Не ЗначениеНеЗаполнено(Строка.ДокументПланированияПлатежа) Тогда ВалютаПлатежаПлан=Строка.ДокументПланированияПлатежа.ВалютаДокумента; Если НЕ (ВалютаПлатежаПлан=Справочники.Валюты.ПустаяСсылка() ИЛИ ВалютаПлатежаПлан=ВалютаДокумента) Тогда Строка.ДокументПланированияПлатежа=""; Строка.КурсВзаиморасчетовПлан=0; Строка.СуммаПлатежаПлан=0; ИначеЕсли Строка.КурсВзаиморасчетовПлан>0 Тогда Если мТекущаяВалютаВзаиморасчетов=ВалютаДокумента Тогда Строка.СуммаПлатежаПлан=Строка.СуммаВзаиморасчетов; ИначеЕсли (КурсДокумента <> 0) И (Строка.КратностьВзаиморасчетов <> 0) И (Строка.КурсВзаиморасчетовПлан <> 0) Тогда Строка.СуммаПлатежаПлан=ПересчитатьИзВалютыВВалюту(Строка.СуммаВзаиморасчетов, мТекущаяВалютаВзаиморасчетов, ВалютаДокумента, Строка.КурсВзаиморасчетовПлан,КурсДокумента, Строка.КратностьВзаиморасчетов,КратностьДокумента); Иначе Строка.СуммаПлатежаПлан = 0; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Иначе Если Не ЗначениеНеЗаполнено(СтрокаПлатеж.ДокументПланированияПлатежа) Тогда ВалютаПлатежаПлан=СтрокаПлатеж.ДокументПланированияПлатежа.ВалютаДокумента; Если НЕ (ВалютаПлатежаПлан=Справочники.Валюты.ПустаяСсылка() ИЛИ ВалютаПлатежаПлан=ВалютаДокумента) Тогда СтрокаПлатеж.ДокументПланированияПлатежа=""; СтрокаПлатеж.КурсВзаиморасчетовПлан=0; СтрокаПлатеж.СуммаПлатежаПлан=0; КонецЕсли КонецЕсли; СуммаДокументаПриИзменении(); КонецЕсли; УстановитьФокус(); УстановитьВидимость(); Если НЕ СчетКонтрагента.Пустая() И НЕ СчетОрганизации.ВалютаДенежныхСредств=СчетКонтрагента.ВалютаДенежныхСредств Тогда Сообщить("Валюта счета контрагента не соответствует валюте счета организации!"); СчетКонтрагента=""; КонецЕсли; ЭлементыФормы.НадписьВалютаДокумент.Заголовок=СчетОрганизации.ВалютаДенежныхСредств.Наименование; ЭлементыФормы.ИнфНадписьКурса.Заголовок = ПолучитьИнформациюКурсаВалютыСтрокой(СтрокаПлатеж.ДоговорКонтрагента.ВалютаВзаиморасчетов, СтрокаПлатеж.КурсВзаиморасчетов, СтрокаПлатеж.КратностьВзаиморасчетов, мВалютаРегламентированногоУчета, Истина); КонецПроцедуры // ПриИзмененииСчетаОрганизации() |
|||
12
Hans
15.09.14
✎
11:05
|
Это тоже не то что надо.
|
|||
13
Hans
15.09.14
✎
11:07
|
Начинай постепенно сюда копировать все общие модули и мы нарвемся на этот код и поможем тебе.
|
|||
14
vicof
15.09.14
✎
11:21
|
(11) Ответь на вопрос, в какой момент ненужный банк появляется?
|
|||
15
program345
15.09.14
✎
12:12
|
(14) сразу при добавлении нового документа/
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |