Имя: Пароль:
1C
 
в подразделении установка основного банка
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) сразу при добавлении нового документа/
Ошибка? Это не ошибка, это системная функция.