Имя: Пароль:
1C
1C 7.7
v7: Поле агрегатного объекта не обнаружено
0 vnarkom
 
25.07.14
11:47
1Сv77. Конфигурация "Торговля+Склад для Украины" разработана
на основе компоненты "Оперативный учет"

Я из Крыма, давече переехали в Россию вместе с территорией.
Бухи выписывали "Платежное поручение", в этой конфе, Укр банки принимали.

Теперь нужно прикрутить Корреспондентский Счет, для Рус Банков.

Сделал следующее в конфиге

1. Справочники-НашиДенежныеСчета - добавил реквизит БанкКорСчет, (строка 20 знаков).
2. Справочники-НашиДенежныеСчета-диалог - добавил поле БанкКорСчет. (строка 20 знаков).
3. Справочники-НашиДенежныеСчета-модуль - добавил

Процедура ПриЗакрытии()
....
Если БезНал = 1 тогда
   ВнКонтекст.СписокСчетов.Счет = БанкСчет;
   ВнКонтекст.СписокСчетов.Банк = БанкНазвание;
   ВнКонтекст.СписокСчетов.БанкКорСчет = БанкКорСчет;
Иначе
   ВнКонтекст.СписокСчетов.Счет = "";
   ВнКонтекст.СписокСчетов.Банк = "";
   ВнКонтекст.СписокСчетов.БанкКорСчет = "";
КонецЕсли;    
...
КонецПроцедуры.

в результате система запоминает то что я вводил в добавленном мною поле но при нажатии "ок" или "Закрыть" выдает ошибку при заполнении формы и

"ВнКонтекст.СписокСчетов.БанкКорСчет = БанкКорСчет;
{Справочник.НашиДенежныеСчета.Форма.Модуль(119)}: Поле агрегатного объекта не обнаружено (БанкКорСчет)"

не судите строго, подскажите как победить :).
1 ДенисЧ
 
25.07.14
11:50
Ну нету у тебя в переменной ВнКнтекст в реквизите СписокСчетов такого реквизита...
2 vnarkom
 
25.07.14
11:52
не подскажеш как его можно добавить?
3 ДенисЧ
 
25.07.14
11:53
Я не знаю, что такое внКонтекст вообще, как я могу что-то советовать?
4 vnarkom
 
25.07.14
11:54
Могу кинуть содержимое модуля
5 vnarkom
 
25.07.14
11:55
Перем ИнформационнаяСтрока;
Перем ВводНового;
Перем ВнКонтекст;
Перем Записали;

// ===============================
Процедура УстВидимость()
    Если БезНал = 1 тогда
        Если Форма.Закладки.РазмерСписка() = 1 Тогда
            Форма.Закладки.ДобавитьЗначение(2,"Банковские реквизиты");            
        КонецЕсли;
    Иначе
        Если Форма.Закладки.РазмерСписка() = 2 Тогда
            Форма.Закладки.УдалитьЗначение(2);            
        КонецЕсли;
    КонецЕсли;    
КонецПроцедуры

// ===============================
Процедура ПриВыбореЗакладки(Ном,Значен);
    НомерЗакладки=Значен;
    Если Значен=1 Тогда
        Форма.ИспользоватьСлой("Основной,Доп",2);
        УстВидимость();
    ИначеЕсли Значен=2 Тогда
        Форма.ИспользоватьСлой("Счет,Доп",2);
    КонецЕсли;
КонецПроцедуры

// ===============================
Процедура ВводНового();
    ВводНового=1;

    Если ПустаяСтрока(Наименование) = 0 Тогда
        Возврат;
    КонецЕсли;

    ВидСчета="Расчетный (текущий)";
    Валюта = Константа.БазоваяВалюта;
    Наименование="Касса основная";

КонецПроцедуры // ВводНового

// ===============================
Процедура ПриОткрытии();
    Если ТипЗначенияСтр(Форма.Параметр)="ГрупповойКонтекст" Тогда
        ВнКонтекст=Форма.Параметр;
    КонецЕсли;

    Форма.ИспользоватьЗакладки(1);
    Форма.Закладки.ДобавитьЗначение(1,"Счет");
    Если БезНал = 1 тогда
        Форма.Закладки.ДобавитьЗначение(2,"Банковские реквизиты");
    КонецЕсли;    

    Форма.ИспользоватьСлой("Основной,Доп",2);
    
    Если (Валюта.Выбран()=1) и (ВводНового<>1) Тогда
        // нельзя менять валюту счета
        Форма.Валюта.Доступность(0);
    КонецЕсли;
    УстВидимость();
        
КонецПроцедуры

// ===============================
Процедура ПриЗаписи()
    // в процедуре при записи проверятся заполнение обязательных реквизитов
    Перем Описание;
    Перем ФлагОшибки;
    
    Описание = "Не заполнено поле ";
                    
    // изначально считаем, что не все обязательные поля заполнены
    ФлагОшибки = 1;
    
    // проверка обязательных полей
    Если ПустоеЗначение(Наименование) = 1 Тогда
        Описание = Описание + "'Наименование'";
    ИначеЕсли ПустоеЗначение(Валюта) = 1 Тогда
        Описание = Описание + "'Валюта'";
    Иначе
        // все обязательные поля заполнены
        ФлагОшибки = 0;
    КонецЕсли;
    
    Если ФлагОшибки=1 Тогда
        
        // не заполнено обязательное поле
        Предупреждение(Описание);
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;
    
    Форма.Валюта.Доступность(0);
    
    Записали=1;
КонецПроцедуры

// ===============================
Процедура ПриЗакрытии()
    Если ТипЗначенияСтр(ВнКонтекст)="ГрупповойКонтекст" Тогда
        Если Записали = 1 Тогда

            Позиция = 0;
            ВнКонтекст.СписокСчетов.НайтиЗначение(ТекущийЭлемент(),Позиция,"ТекущийСчет");
            Если Позиция > 0 Тогда    
                ВнКонтекст.СписокСчетов.ТекущаяСтрока(Позиция);
            Иначе
                ВнКонтекст.СписокСчетов.НоваяСтрока();
            КонецЕсли;
            
            ВнКонтекст.СписокСчетов.ТекущийСчет  = ТекущийЭлемент();
            ВнКонтекст.СписокСчетов.Валюта            = Валюта.Наименование;
            ВнКонтекст.СписокСчетов.БезНал            = ?(БезНал = 1, "+", "");
            Если БезНал = 1 тогда
                ВнКонтекст.СписокСчетов.Счет = БанкСчет;
                ВнКонтекст.СписокСчетов.Банк = БанкНазвание;
                ВнКонтекст.СписокСчетов.БанкКорСчет = БанкКорСчет;
            Иначе
                ВнКонтекст.СписокСчетов.Счет = "";
                ВнКонтекст.СписокСчетов.Банк = "";
                ВнКонтекст.СписокСчетов.БанкКорСчет = "";
            КонецЕсли;    

            ВнКонтекст.СписокСчетов.Сортировать("БезНал-, ТекущийСчет, Валюта, Банк");
            
            Позиция = 0;
            ВнКонтекст.СписокСчетов.НайтиЗначение(ТекущийЭлемент(),Позиция,"ТекущийСчет");
            ВнКонтекст.СписокСчетов.ТекущаяСтрока(Позиция);
            
            ВнКонтекст.Форма.Обновить();

        КонецЕсли;
    КонецЕсли;
КонецПроцедуры
6 vnarkom
 
25.07.14
11:56
если что-то нужно то еще буду кидать, говори.
7 ДенисЧ
 
25.07.14
11:56
У тебя ВнКонтект снаружи передаётся. Поэтому нужно окпать место вызова этой обработки
8 vnarkom
 
25.07.14
11:58
ВнКонтект - поиск во всех текстах результата не дал. Не подскажешь как его можно найти
9 Ёпрст
 
25.07.14
11:59
(8) ищи ОткрытьФорму(имя твоей поделки)
10 ДенисЧ
 
25.07.14
12:00
Ищи, где открывается обработка. Там третий параметр в ОткрытьФорму()
11 Ёпрст
 
25.07.14
12:00
короче, ищи место, где твой справочник открывается
12 vnarkom
 
25.07.14
12:00
понял секундочку, сейчас поищу
13 Ёпрст
 
25.07.14
12:01
(10) эт ж форма списка справочника, на сколько я понял :)
14 Ёпрст
 
25.07.14
12:02
и у тебя в документах, стоит поди ПриНачалеВыбораЗначения + ОткрытьФорму("Справочник.ДенежныеСредства",ПараметрыТвоиКоторыеНужноПоправить);
15 Ёпрст
 
25.07.14
12:03
ну и для Крыма.. проще было перейти на любую рос конфу, чем свою допиливать, туппо с ввода останков.
16 vnarkom
 
25.07.14
12:05
Похоже?


// ===============================
// НАЗВАНИЕ: ЗаполнитьСписокБанковскихСчетов()
// ПАРАМЕТРЫ:
// нет
// ВОЗВРАЩАЕМОЕ ЗНАЧЕНИЕ:
// нет
// ОПИСАНИЕ:
// заполняет таблицу "СписокСчетов" из справочника "БакновскиеСчета"
// расчетными счетами собственной фирпмы.
Процедура ЗаполнитьСписокБанковскихСчетов()
    Перем СчетаФирмы;
    Перем СтроковоеПредставлениеСчета;
    
    // очистим список банковских счетов
    СписокСчетов.УдалитьСтроки();
    
    СчетаФирмы = СоздатьОбъект("Справочник.НашиДенежныеСчета");
    СчетаФирмы.ИспользоватьВладельца(ТекущийЭлемент());
    СчетаФирмы.ВыбратьЭлементы();
    Пока СчетаФирмы.ПолучитьЭлемент()=1 Цикл
        Если СчетаФирмы.ПометкаУдаления()=1 Тогда
            // помеченные на удаление не добавляем
            Продолжить;
        КонецЕсли;  
        СписокСчетов.НоваяСтрока();  
        СписокСчетов.ТекущийСчет  = СчетаФирмы.ТекущийЭлемент();
        СписокСчетов.Валюта       = СчетаФирмы.Валюта.Наименование;
        СписокСчетов.БезНал       = ?(СчетаФирмы.БезНал = 1, "+", "");
        Если СчетаФирмы.БезНал = 1 тогда
            СписокСчетов.Счет = СчетаФирмы.БанкСчет;
            СписокСчетов.Банк = СчетаФирмы.БанкНазвание;
        КонецЕсли;                              
    КонецЦикла;
    
    СписокСчетов.Сортировать("БезНал-, ТекущийСчет, Валюта, Банк");
    
    Если СписокСчетов.КоличествоСтрок()=0 Тогда
        // список пуст. Кнопки "Изменить" и "Удалить" делаем недоступными
        Форма.кИзменить.Доступность(0);
        Форма.кУдалить.Доступность(0);
    КонецЕсли;

КонецПроцедуры    // ЗаполнитьСписокБанковскихСчетов

// ===============================
// НАЗВАНИЕ: ДобавитьБанковскийСчет()
// ПАРАМЕТРЫ:
// нет
// ВОЗВРАЩАЕМОЕ ЗНАЧЕНИЕ:
// нет
// ВЫЗЫВАЕТСЯ ИЗ ФОРМУЛ ЭЛЕМЕНТОВ ДИАЛОГА:
// кнопка "Добавить" в слое "РасчСчет"
// ОПИСАНИЕ:
// Открывает форму нового расчетного счета
Процедура ДобавитьБанковскийСчет()
    Перем Параметр;
    
    Параметр = глВзятьКонтекст(Контекст);
    ОткрытьФормуМодально("Элемент.НашиДенежныеСчета",Параметр,,,ТекущийЭлемент());
    
    Если СписокСчетов.КоличествоСтрок()>0 Тогда
        // если в списке есть строки, то кнопки "Изменить" и "Удалить"
        // делаем доступными
        Форма.кИзменить.Доступность(1);
        Форма.кУдалить.Доступность(1);      
        СписокСчетов.Сортировать("БезНал-, ТекущийСчет, Валюта, Банк");
    КонецЕсли;

КонецПроцедуры

// ===============================
// НАЗВАНИЕ: ИзменитьБанковскийСчет()
// ПАРАМЕТРЫ:
// нет
// ВОЗВРАЩАЕМОЕ ЗНАЧЕНИЕ:
// нет
// ВЫЗЫВАЕТСЯ ИЗ ФОРМУЛ ЭЛЕМЕНТОВ ДИАЛОГА:
// кнопка "Изменить" в слое "РасчСчет"
// ОПИСАНИЕ:
// Открывает форму текущего в списке расчетного счета для редактирования
Процедура ИзменитьБанковскийСчет()
    Перем Параметр, ТекущийСчет, Позиция;
    
    Позиция = СписокСчетов.ТекущаяСтрока();
    Если Позиция > 0 Тогда
        ТекущийСчет = СписокСчетов.ПолучитьЗначение(Позиция,"ТекущийСчет");
        Параметр = глВзятьКонтекст(Контекст);
        ОткрытьФормуМодально(ТекущийСчет,Параметр);

        СписокСчетов.Сортировать("БезНал-, ТекущийСчет, Валюта, Банк");

        Позиция = 0;
        СписокСчетов.НайтиЗначение(ТекущийСчет,Позиция,"ТекущийСчет");
        СписокСчетов.ТекущаяСтрока(Позиция);
    КонецЕсли;
КонецПроцедуры

// ===============================
// НАЗВАНИЕ: УдалитьБанковскийСчет()
// ПАРАМЕТРЫ:
// нет
// ВОЗВРАЩАЕМОЕ ЗНАЧЕНИЕ:
// нет
// ВЫЗЫВАЕТСЯ ИЗ ФОРМУЛ ЭЛЕМЕНТОВ ДИАЛОГА:
// кнопка "Удалить" в слое "РасчСчет"
// ОПИСАНИЕ:
// Удаляет из списка текущий расчетный счет и помечает его на
// удаление в базе
Процедура УдалитьБанковскийСчет()
    Перем ТекущийСчет, Позиция, СчетаФирмы;
    
    Если Вопрос("Удалить банковский счет?",1)=2 Тогда
        Возврат;
    КонецЕсли;
    
    Позиция = СписокСчетов.ТекущаяСтрока();
    Если Позиция = 0 Тогда
        // если страка в списке не выбрана, то выход
        Возврат;
    КонецЕсли;

    ТекущийСчет = СписокСчетов.ПолучитьЗначение(Позиция,"ТекущийСчет");
    СчетаФирмы = СоздатьОбъект("Справочник.НашиДенежныеСчета");
    СчетаФирмы.ИспользоватьВладельца(ТекущийЭлемент());
    Если СчетаФирмы.НайтиЭлемент(ТекущийСчет) = 1 Тогда
        // нашли в базе текущий в списке счет
        Если СчетПоУмолчанию = СчетаФирмы.ТекущийЭлемент() Тогда
            СчетПоУмолчанию = 0;
        КонецЕсли;
        СчетаФирмы.Удалить(0);
        глЗаписьЖурналаРегистрации("Автоматическое изменение" , 1, 3, СчетаФирмы.ТекущийЭлемент());    
        СписокСчетов.УдалитьСтроку(Позиция);
        СписокСчетов.ТекущаяСтрока(?(Позиция > 1, Позиция - 1, 1));
        Если СписокСчетов.КоличествоСтрок()=0 Тогда
            // в списке не осталось ни одного счета
            // делаем недоступными кнопки "Изменить" и "Удалить"
            Форма.кИзменить.Доступность(0);
            Форма.кУдалить.Доступность(0);
        КонецЕсли;
        Форма.Обновить();
        СписокСчетов.Сортировать("БезНал-, ТекущийСчет, Валюта, Банк");
    КонецЕсли;
КонецПроцедуры

// ===============================
// Название: ПоказатьИсторию()
// Параметры:
// НЕТ
// Возвращаемое значение:
// НЕТ
// Вызывается из формул элементов диалога:
// Кнопка "История",.
// Описание:
// Открывается форма обработки для редактирования периодических реквизитов
Процедура ПоказатьИсторию()
    Если Выбран()=0 Тогда
         Предупреждение("Историю периодических реквизитов можно" + РазделительСтрок +
                                  "смотреть только для сохраненного элемента");
        Возврат;
    КонецЕсли;

    глРедактироватьИсториюЗначений(Контекст,"",
    "История периодических реквизитов ("+ТекущийЭлемент()+")",1);
КонецПроцедуры // ПоказатьИсторию

// ===============================
// Название: ИзмНаименование()
// Параметры:
// НЕТ
// Возвращаемое значение:
// НЕТ
// Вызывается из формул элементов диалога:
// Наименование,.
// Описание:
// процедура предназначена для автоматического формирования
// поля "ПолнНаименование" на основе поля "Наименование"
Процедура ИзмНаименование()
    Если ПустоеЗначение(ПолнНаименование) = 1 Тогда
        // только если "ПолноеНаименование" не заполнено
        ПолнНаименование = Наименование;
    КонецЕсли;
    Если ПустоеЗначение(ОфициальноеНаименование) = 1 Тогда
        // только если "ОфициальноеНаименование" не заполнено
        ОфициальноеНаименование = Наименование;
    КонецЕсли;
    
    Если пустоеЗначение(ПрефиксНомеровДокументов)  = 1 Тогда
        ПрефиксНомеровДокументов = Лев(Наименование,3)+"-";
    КонецЕсли;
КонецПроцедуры    // ПриИзмененииНаименования

// ===============================
Процедура ИзмМетодФинУчета()
    Перем ТекстВопроса;
    ТекстВопроса="Этот реквизит является элементом учетной политики предприятия."+РазделительСтрок+
             "Он должен устанавливаться 1 раз в начале года. Его изменение"+РазделительСтрок+
             "в течение года может привести к нарушениям в работе системы."+РазделительСтрок+РазделительСтрок+
             "Вы уверены, что хотите изменить этот реквизит?";

    Если  Вопрос(ТекстВопроса,4) = 7 Тогда
        // нажали кнопку нет
        // нужно восстановить позицию выпадающего списка
        Позиция = СписокМетодовРасчета.НайтиЗначение(МетодРасчетаСебестоимостиФинансовогоУчета);
        Если Позиция > 0 Тогда
            СписокМетодовРасчета.ТекущаяСтрока(Позиция);
        Иначе
            СписокМетодовРасчета.ТекущаяСтрока(1);
        КонецЕсли;
        Возврат;
    КонецЕсли;
    
    МетодРасчетаСебестоимостиФинансовогоУчета =
    СписокМетодовРасчета.ПолучитьЗначение(СписокМетодовРасчета.ТекущаяСтрока());
КонецПроцедуры

// ===============================
Процедура ВводНового(ПризнКопирования)    // Предопределенная процедура
    Если  ПризнКопирования=0 Тогда
        МетодРасчетаСебестоимостиФинансовогоУчета=Перечисление.МетодыРасчетаСебестоимости.ПоСреднему;
    Иначе
        // при копировании фирмы нужно очистить реквизит СчетПоУмолчанию
        СчетПоУмолчанию = ПолучитьПустоеЗначение("Справочник.НашиДенежныеСчета");
    КонецЕсли;
    // для новых элементов устанавливаем
    // дату записи периодических реквизитов на '01.01.1980'
    ИспользоватьДату('01.01.1980');
КонецПроцедуры    // ВводНового

// ===============================
Процедура ПриВыбореЗакладки(БанкСчет,Значение)    // Предопределенная процедура
    Перем СтрокаСписка;
    
    // эти слои показываем всегда
    СтрокаСписка = "Основной,Кнопки";
    
    Если Значение = "Дополнительные" Тогда
        СтрокаСписка = СтрокаСписка + ",Дополнительный";

    ИначеЕсли Значение = "Расчетные счета" Тогда
        // Расчетные счета
        СтрокаСписка = СтрокаСписка + ",РасчСчета";

    Иначе
        СтрокаСписка = СтрокаСписка + ",Общий";
    КонецЕсли;
    
    Форма.ИспользоватьСлой(СтрокаСписка,2);
КонецПроцедуры    // ПриВыбореЗакладки

// ===============================
Процедура ПриОткрытии()    // Предопределенная процедура
        
    Форма.Наименование.ВыполнятьФормулуТолькоПриИзменении(1);
    СохранениеПериодическихРеквизитов(2, "*");
    Форма.ИспользоватьЗакладки(1);

    // добавляем закладки, которые используются всегда
    Форма.Закладки.ДобавитьЗначение("Общие");
    Форма.Закладки.ДобавитьЗначение("Дополнительные");
    
    Если Выбран()=1 Тогда
        // выполнить действия для существующего элемента
        ЗаполнитьСписокБанковскихСчетов();
        
        Форма.Закладки.ДобавитьЗначение("Расчетные счета");
        Парам = СокрП(Форма.Параметр);
        НомЗакладки = Форма.Закладки.НайтиЗначение(Парам);
        Если НомЗакладки>0 Тогда
            Форма.Закладки.ТекущаяСтрока(НомЗакладки);
        КонецЕсли;
        ПриВыбореЗакладки(,Парам);
    Иначе
        ПриВыбореЗакладки(,);
    КонецЕсли;
    
    // Заполним список методов расчета
    СписокМетодовРасчета.ДобавитьЗначение("Не вести фин. учет");
    Для Счетчик=1 По Перечисление.МетодыРасчетаСебестоимости.КоличествоЗначений() Цикл
        СписокМетодовРасчета.ДобавитьЗначение(Перечисление.МетодыРасчетаСебестоимости.ЗначениеПоНомеру(Счетчик));
    КонецЦикла;
    
    // установим строку списка
    Позиция = СписокМетодовРасчета.НайтиЗначение(МетодРасчетаСебестоимостиФинансовогоУчета);
    Если Позиция > 1 Тогда
        СписокМетодовРасчета.ТекущаяСтрока(Позиция);
    КонецЕсли;
КонецПроцедуры    // ПриОткрытии


// ===============================
Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр)    // Предопределенная процедура
    Перем ТекстВопроса;
    Перем ТекущаяФирма;
    
    ТекстВопроса="Этот реквизит является элементом учетной политики предприятия."+РазделительСтрок+
             "Он должен устанавливаться 1 раз в начале года. Его изменение"+РазделительСтрок+
             "в течение года может привести к нарушениям в работе системы."+РазделительСтрок+РазделительСтрок+
             "Вы уверены, что хотите изменить этот реквизит?";

    Если Найти("МетодРасчетаСебестоимостиФинансовогоУчета",ИдентЭлемДиалога) > 0 Тогда
        Если  Вопрос(ТекстВопроса,4) = 7 Тогда
            // нажали кнопку нет
            // отменяем стандартную обработку
            ФлагСтандОбр = 0;
        КонецЕсли;
    ИначеЕсли ИдентЭлемДиалога = "СчетПоУмолчанию" Тогда
        ФлагСтандОбр = 0;
        Если Выбран() = 0 Тогда
            // элемент не записан
            Предупреждение("Нельзя выбрать банковский счет." + РазделительСтрок +
                                       "Сохраните элемент справочника.");
            
            Возврат;
        КонецЕсли;
        ТекущаяФирма = ТекущийЭлемент();
        ВыбСчета = СоздатьОбъект("Справочник.НашиДенежныеСчета");
        ВыбСчета.ИспользоватьВладельца(ТекущаяФирма);
        ВыбСчета.НайтиЭлемент(СчетПоУмолчанию);
        Если ВыбСчета.Выбрать("Выберите счет по умолчанию","") = 1 Тогда
            СчетПоУмолчанию = ВыбСчета.ТекущийЭлемент();
        КонецЕсли;
    КонецЕсли;
    
КонецПроцедуры    // ПриНачалеВыбораЗначения

// ===============================
Процедура ПриЗаписи()    // Предопределенная процедура
    // в процедуре при записи проверятся заполнение обязательных реквизитов
    Перем Описание;
    Перем ФлагОшибки;
    
    Описание = "Не заполнено поле ";
                    
    // изначально считаем, что не все обязательные поля заполнены
    ФлагОшибки = 1;
    
    // проверка обязательных полей
    Если ПустоеЗначение(Наименование) = 1 Тогда
        Описание = Описание + "'Наименование'";
    ИначеЕсли ПустоеЗначение(ПолнНаименование) = 1 Тогда
        Описание = Описание + "'Полное наименование'";
    Иначе
        // все обязательные поля заполнены
        ФлагОшибки = 0;
    КонецЕсли;
    
    Если ФлагОшибки=1 Тогда
        
        // не заполнено обязательное поле
        Предупреждение(Описание);
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;

    глЗаписьПериодическихРеквизитов(Контекст);
    
    Если Форма.Закладки.НайтиЗначение("Расчетные счета")=0 Тогда
        // если нет закладки "Расчетные счета", то ее нужно добавить
        Форма.Закладки.ДобавитьЗначение("Расчетные счета");
        // и установить доступность кнопок  
        Если СписокСчетов.КоличествоСтрок()=0 Тогда
            // список пуст. Кнопки "Изменить" и "Удалить" делаем недоступными
            Форма.кИзменить.Доступность(0);
            Форма.кУдалить.Доступность(0);
        КонецЕсли;
    КонецЕсли;
    
КонецПроцедуры    // ПриЗаписи


СписокСчетов.НоваяКолонка("БезНал","Строка",1,,"Б/н",5);  
СписокСчетов.НоваяКолонка("ТекущийСчет","Справочник",,,"Наименование",22);  
СписокСчетов.НоваяКолонка("Валюта","Строка",12,,"Валюта",8);  
СписокСчетов.НоваяКолонка("Счет","Строка",20,,"Счет",22);  
СписокСчетов.НоваяКолонка("Банк","Строка",56,,"Банк",18);
17 vnarkom
 
25.07.14
12:07
Это полугодовое решение. Потом перейду с концами. :)))
18 vnarkom
 
25.07.14
12:29
Я Временно, отойду. извиняюсь.
19 8troyan8
 
25.07.14
12:29
Не спеши, может придется еще назад на Украину переходить )
20 ALoHA
 
25.07.14
12:45
Перенос донных в русконфу.
21 vnarkom
 
25.07.14
14:29
Спасибо за совет. Лучше-бы подсказали как решить.
Докину информации. За исключением той информации, что "Поле агрегатного объекта не обнаружено", все остальное работает на ура, кореспонд счет добавляется и выводиться на печать, из любых документов.
Немного раздражает, но работает. Думаю забить и оставить все как есть.
22 vnarkom
 
25.07.14
14:34
(19) - судя по тому что я вижу, пока что, я не представляю как это будет осуществимо, без 3й мировой.
(20) - будет переход на 1С8 Бухгалтерия, официальный, с поддержкой. Но это будет еще с месяц Бух въезжать.
23 Franchiser
 
гуру
25.07.14
14:42
смотри что у тебя в глобальной функции глВзятьКонтекст()
24 Franchiser
 
гуру
25.07.14
14:44
судя по всему в обработке просто должен быть реквизит БанкКорСчет, которого нет.
25 vnarkom
 
25.07.14
14:50
(24) Спасибо за совет. теперь уже в понедельник посмотрю, на сегодня раб день закончен.:). Обязательно отпишусь.
26 Franchiser
 
гуру
25.07.14
15:30
В обработке наверно ТЗ СписокСчетов, в ней д.б. колонка БанкКорСчет
27 Ёпрст
 
25.07.14
16:02
(16) да, это оно
добавть в параметры свой корсчет, наслаждайся
28 Ёпрст
 
25.07.14
16:04
+27 в СписокСчетов.НоваяКолонка (в конце модуля) воткни свой корсчет, в местах где создается новая строка ТЗ - заполни его.. наслаждайся