Заполняю программно из текстового файла документ «Банковская выписка», в табличной части есть реквизиты «Субконто1»,  «Субконто2» и «Субконто3» тип значения <<неопределенный>>. В текстовом файле есть конкретное текст, что надо присвоит этому субконто.  Т.е. для примера если по счету «631»,  субконто1 «контрагент», то в файле конкретно записан «Вася пупкин».  Используются только несколько счетов, у всех одинаковый набор субконто. Подскажите как можно реализовать такую загрузку? Заранее спасибо.

1.Назначаешь тип реквизиту в соответсвии с типом субконто.
2.Ищешь значение по наименованию "Вася Пупкин"
3.Присваиваешь

Выдержка из дока "Выписка"
НазначитьТип("Субконто1", УсловныйКоррСчет.ВидСубконто(1));

текс = "Субконто1";
ВидСубконто = Счет.ВидСубконто(Число(Прав(текс, 1)));
НазначитьТип(текс, ВидСубконто);
Спр = СоздатьОбъект(ВидСубконто.ТипСубконто());
Спр.НайтиПоНаименованию("Вася Пупкин", ...);
Док.УстановитьАтрибут(текс, Спр.ТекущийЭлемент());

(3)Спасибо. Не пойму в чем смысл.
ВидСубконто = Счет.ВидСубконто(Число(Прав(текс, 1)));
Можете подробней?

(4) эта строка определяет вид тек. субконто...
извращенно как то сделано)))

(1)
Можно для особо одареных. Расшифровать.
1.Назначаешь тип реквизиту в соответсвии с типом субконто.
Спасибо.

Пропадаю. HELP!

(6) Док.НазначитьТип(<ИмяРеквизита>,<ТипСубконто>,<Длина>,<Точность>)

(6)Смотри (3) ...что-то вроде

Делаю так.
НазначитьТип("Субконто1", Счет.Субконто(1));
Выдает ошибку
НазначитьТип<<?>>("Субконто1", Счет.Субконто(1));
{D:\work\Импорт_банк.ert(114)}: Процедура не обнаружена (НазначитьТип)

(10) Если ты не в модуле формы документа, а в модуле обработки, то
Док.НазначитьТип("Рекв", ТипРекв)
Счет - это что?

(10)

Док.НазначитьТип("Субконто1", Счет.ВидСубконто(1));

(12) Счет.ВидСубконто(1) вернёт "Склады", для типа "Справочник.Склады" =>
Док.НазначитьТип("Субконто1", "Справочник."+Счет.ВидСубконто(1))

(12)Но не факт, что ВидСубконто - типа справочник, это может быть перечисление или документ

(13) а если тама перечисление?
Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));

Спасибо. С НазначитьТип() вроде понял.
Сделал так:
Док.НазначитьТип("Субконто1", Док.Счет.Субконто(1));

Как найти по наименованию субконто?

(16) не очень понятен вопрос

(3, 4) можно сделать текс = ТекущаяКолонка()

(16) твой код - банален.
Док.Счет.Субконто("наименование_субконто") ??

(19) У объекта Счет нет метода Субконто

(20) зато есть ВидСубконто(). То вообще не мои проблемы чего там нет

Реализую пример приведенный в (3);

Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
СпрСуб1 = СоздатьОбъект(ВидСубконто.ТипСубконто());
СпрСуб.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+3),0);
Док.Субконто1 = Спр.ТекущийЭлемент();
При проверке.
СпрСуб1 = СоздатьОбъект(ВидСубконто<<?>>.ТипСубконто());
{D:\work\Импорт_банк.ert(115)}: Переменная не определена (ВидСубконто)
СпрСуб<<?>>.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+3),0);
{D:\work\Импорт_банк.ert(116)}: Переменная не определена (СпрСуб)
При проверке модуля обнаружены синтаксические ошибки!

Как правельно задать Создать оъект в приведеном коде.

Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
СпрСуб1 = СоздатьОбъект(Док.Счет.ВидСубконто());
СпрСуб1.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+3),0);
Док.Субконто1 = Спр.ТекущийЭлемент();

(23) щас отвечу... 5 сек

(23)
СпрСуб1 = СоздатьОбъект(СокрЛП(Док.Счет.ВидСубконто().ТипСубконто()))

(22) это не мой пример? что ты с ним сделал!?
где строка ВидСубконто = Счет.ВидСубконто(Число(Прав(текс, 1)));

(23) не
СпрСуб1 = СоздатьОбъект(Док.Счет.ВидСубконто());
а
СпрСуб1 = СоздатьОбъект(Док.Счет.ВидСубконто(1).типСубконто());

(0) А так уже не прокатывает?
Для ш = 1 По счет.КоличествоСубконто() Цикл
  Док.НазначитьТип("Субконто" + ш, Счет.ВидСубконто(ш));
КонецЦикла
счет определяется в обработке.

Большое спасибо. Но в документе реквизит остается пустой. Мой код.

Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
СпрСуб1 = СоздатьОбъект(Док.Счет.ВидСубконто(1).типСубконто());
СпрСуб1.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+3),0);
Док.Субконто1 = Спр.ТекущийЭлемент();

Обработка выполняется ошибок нет.

Реквизит Счет заполняется раньше.
Док.Счет = СчетПоКоду(Список.ПолучитьЗначение(Номер+1));

(29) дык в реквизиты после назначения типа нужно значения положить
док.Субконто1 = значение1;

Так ложу
Док.Субконто1 = Спр.ТекущийЭлемент();

(32) Кстати, если у тебя есть одинаковые контрагенты в разных группах, можешь не того найти.
Кстати, а сам-то текстовый документ из клиент-банка?

Одинаковых контрагентоа нет. Документ мой.

(34) а Спр это какой справочник и какой там ТекущийЭлемент()?

Делай так

Если СпрСуб1.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+3),0) = 1 Тогда
Док.Субконто1 = Спр.ТекущийЭлемент();
КонецЕсли;

(34) ответ на (35) в студию
(36) а ты сам то понял че написал?

Если СпрСуб1.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+3),0) = 1 Тогда
Док.Субконто1 = СпрСуб1.ТекущийЭлемент();
КонецЕсли;

(37) нет:)

где афтар?

ушел домой или по делам

(35) Взято из выше приведеных примеров.

(42) выкладывай ка весь код, что напиал.

(34) То есть ты сначала ручками набиваешь текстовый документ, а потом грузишь его в 1С? Я сейчас заплАчу. :-/

(42) читай тогда ЖКК

(44) Нет я выгружаю из другой программы.

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

(46) ты дятел

(45) какой раздел

(48) начни с введения
полезно будет

(46) Так что в результате получается?

выложи весь код, а не обрезок

DrShad надеюсь это не все что Вы знаете.
(46)Обработка работает, выдает собщения с названиями контрагентов, но в локумент они не попадают.

И что есть: Спр.ТекущийЭлемент()? в отладчике глянь

(51) весь большой, с какого момента интерисует?

(52) обработка тебе выдает значения списка, а не названия контрагентов
а знаю я очень много

(54) начни с того где Спр = СоздатьОбъект(....)

(46)попробуй
СпрСуб1.НайтиПоНаименованию(СокрЛП(Список.ПолучитьЗначение(Номер+3)),0,0)

Сообщить("Субконто1 "+Список.ПолучитьЗначение(Номер+3));

млин это что сообщение наименования справочника?

И всё-таки если есть возможность синхронизации по коду, очень бы рекомендовал именно её.

У меня не выполняется условие.
Если СпрСуб1.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+3),0,0)=1 Тогда

(60) в списке что хранится?

(60) что выдает в отладчике?
Список.ПолучитьЗначение(Номер+3)

(58)Торможу. Сейчас поменяю и посмотрю.

(63) короче
я пошел домой
некогда мне ждать пока у тебя тормоза пройдут

В списке хранятся строка, счет, название котрагента, т.д.

ВЫЛОЖИ ВЕСЬ КОД! А то, так до тяпницы будешь делать!

(60) что выдает в отладчике?
Список.ПолучитьЗначение(Номер+3)

Название контрагента из текстового файла.

Весь код

//*******************************************
Процедура Выполнить()
Перем к;
Перем м;
Док = СоздатьОбъект("Документ.БанковскаяВыписка");
ДокДог = СоздатьОбъект("Документ.Договор");
Текст = СоздатьОбъект("Текст");
Список = СоздатьОбъект("СписокЗначений");
Спр = СоздатьОбъект("Справочник.Контрагенты");
СпрТМЦ=СоздатьОбъект("Справочник.ТМЦ");
СпрЕд=СоздатьОбъект("Справочник.Единицы");
СпрМестаХранения=СоздатьОбъект("Справочник.МестаХранения");
СпрФирмы=СоздатьОбъект("Справочник.Фирмы");
СпрВал=СоздатьОбъект("Справочник.ВалДоходыРасходы");
СпрПодр=СоздатьОбъект("Справочник.Подразделения");

//Суб1 = "Субконто1";
//ВидСубконто = Счет.ВидСубконто(Число(Прав(Суб1, 1)));
//НазначитьТип(Суб1, ВидСубконто);
//СпрСуб1 = СоздатьОбъект(ВидСубконто.ТипСубконто());
//Спр.НайтиПоНаименованию("Вася Пупкин", ...);
//Док.УстановитьАтрибут(Суб1, Спр.ТекущийЭлемент());

СпрРСчет=СоздатьОбъект("Справочник.НашиДенежныеСчета");
СпрВалюта=СоздатьОбъект("Справочник.Валюты");
СпрШкалаСтавок=СоздатьОбъект("Справочник.ШкалаСтавок");



Таб = СоздатьОбъект("Таблица");
Текст.Открыть("c:\exp_imp_bk.txt");

м=0;        
Таб.ВывестиСекцию("Шапка");
//Проход по строкам файла переноса
Для Ном=1 По Текст.КоличествоСтрок() Цикл
 Стр = Текст.ПолучитьСтроку(Ном);
 Список.ИзСтрокиСРазделителями(Стр); //преобразуем строку в список значений
 
 //Проверка на наличие документа
 Если Док.НайтиПоНомеру(Список.ПолучитьЗначение(5), Список.ПолучитьЗначение(1))=1 Тогда
     Сообщить("Докумен существует"+Список.ПолучитьЗначение(5));
   Перейти ~M;
   м=1;
 КонецЕсли;
     
 //Создаем новый
 Док.Новый();
 
 //Заролняем шапку документа
 
 //Дата документа
 Док.ДатаДок = Список.ПолучитьЗначение(1);
 //Время документа
 Док.УстановитьВремя(Список.ПолучитьЗначение(2), Список.ПолучитьЗначение(3), Список.ПолучитьЗначение(4));
 //Номер документа
 Док.НомерДок =Список.ПолучитьЗначение(5);
 //Контрагент документа
 
   
 //Заполняем Расчетный счет
 Если СпрРСчет.НайтиПоНаименованию(Список.ПолучитьЗначение(6),0,1)=1 Тогда
   Док.РСчет = СпрРСчет.ТекущийЭлемент();
 Иначе
   м=1;
     Сообщить("Расчетный счет не найден"+Список.ПолучитьЗначение(6));
     Перейти ~M;
 КонецЕсли;
 
 //Заполнение СчетУчета
 Док.СчетУчета = СчетПоКоду(Список.ПолучитьЗначение(7));
 
 //Заполняем валюта
 Если СпрВалюта.НайтиПоНаименованию(Список.ПолучитьЗначение(8),0,1)=1 Тогда
   Док.Валюта = Спр.ТекущийЭлемент();
 Иначе
   м=1;
     Сообщить("Валюта не найдена"+Список.ПолучитьЗначение(8));
     Перейти ~M;
 КонецЕсли;
 
 //Заполнение табличной части*************************************
 к=1;
 Для Номер = 9 По Список.РазмерСписка() Цикл
   Док.НоваяСтрока();
   
   //Заполнение Вид Движения
   Если Список.ПолучитьЗначение(Номер)="Поступление" Тогда
     Док.ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Поступление;    
   ИначеЕсли Список.ПолучитьЗначение(Номер)="Выплата" Тогда
     Док.ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Списание;
   Иначе
     м=1;
     Сообщить("Вид движения не найден"+Список.ПолучитьЗначение(Номер));
       Таб.ВывестиСекцию("Стр_1");
     Перейти ~M;    
   КонецЕсли;    
   
   //Заполнение Счет
   
   Док.Счет = СчетПоКоду(Список.ПолучитьЗначение(Номер+1));
   
   
   //Заполнение ВидНДС
   Если СпрШкалаСтавок.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+2),0)=1 Тогда
     Док.ВидНДС = СпрШкалаСтавок.ТекущийЭлемент();
   Иначе          
     м=1;
     Сообщить("ВидНДС не найден "+Список.ПолучитьЗначение(Номер+2));
       Таб.ВывестиСекцию("Стр_1");
     Перейти ~M;
     КонецЕсли;
     
   //Заполнение субконто1 Номер+3
   
   Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
   СпрСуб1 = СоздатьОбъект(Док.Счет.ВидСубконто(1).типСубконто());
   
   Если СпрСуб1.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+3),0,0)=1 Тогда
     Док.Субконто1 = Спр.ТекущийЭлемент();
   Иначе          
     м=1;
     Сообщить("Субконто1 "+Список.ПолучитьЗначение(Номер+3));
       Таб.ВывестиСекцию("Стр_1");
     Перейти ~M;
     КонецЕсли;
   
   //Заполнение субконто2 Номер+4
   
   //Док.НазначитьТип("Субконто2", Док.Счет.ВидСубконто(2));
   //СпрСуб2 = СоздатьОбъект(Док.Счет.ВидСубконто(2).типСубконто());
   
   //Если СпрСуб2.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+4),0,0)=1 Тогда
   //  Док.Субконто1 = Спр.ТекущийЭлемент();
   //Иначе          
   //  м=1;
   //  Сообщить("Субконто2 "+Список.ПолучитьЗначение(Номер+4));
     //  Таб.ВывестиСекцию("Стр_1");
   //  Перейти ~M;
     //КонецЕсли;    
   
   
   
           
   Док.СуммаСНДС = Список.ПолучитьЗначение(Номер+5);
   Док.НДС=Список.ПолучитьЗначение(Номер+6);
   
   //Заполнение Вид оплат
   Если Список.ПолучитьЗначение(Номер+7)="Оплата" Тогда
     Док.ВидОплаты = Перечисление.ВидыОплаты.Оплата;    
   ИначеЕсли Список.ПолучитьЗначение(Номер+7)="Возрат" Тогда
     Док.ВидОплаты = Перечисление.ВидыОплаты.Возрат;
   Иначе
     м=1;
     Сообщить("Вид оплат не найден ? "+Список.ПолучитьЗначение(Номер+7));
       Таб.ВывестиСекцию("Стр_1");
     Перейти ~M;    
   КонецЕсли;
   
   
   //Заполнение Субконто Валовых Доходов Номер+8
   //Если СпрВал.НайтиПоНаименованию(Список.ПолучитьЗначение(Номер+8),0,0)=1 Тогда
   //  Док.СубконтоВалДохРасх=СпрВал.ТекущийЭлемент();
   //Иначе          
   //  м=1;
   //  Сообщить("СубконтоВалДохРасх не найден "+Список.ПолучитьЗначение(Номер+8));
     //  Таб.ВывестиСекцию("Стр_1");
   //  Перейти ~M;
     //КонецЕсли;
   
   
   //Содержание Номер+9
   
   //Режим оплаты Номер+10
   
   Номер=Номер+10;
 КонецЦикла;    
 Док.Записать();
 ~M: Если м=0 Тогда
         Сообщить("Документ: "+Док.НомерДок+" Успешно записан");
     Иначе    
       Сообщить("Документ: "+Док.НомерДок+" Не записан");
     КонецЕсли;
Таб.Показать();
КонецЦикла;  
 
КонецПроцедуры

Прочитай (57) ещё раз

Сделал (57) стало, через раз выполнятся условие. В документе пусто.

(70)
Док.Субконто1 = Спр.ТекущийЭлемент();
Конечно круто, но
Док.Субконто1 = СпрСуб1.ТекущийЭлемент();
однако, лучше будет

Мдя, я конечно, промолчу на счет того что в (68)... но:
1. Спр.ТекущийЭлемент() - у тебя ничего, сначала спозиционируйся на нужном элементе!
Спр.НайтиПоНаименованию(Список.ПолучитьЗначение(№))
2. Почему тут это:
 //Заполняем валюта
 Если СпрВалюта.НайтиПоНаименованию(Список.ПолучитьЗначение(8),0,1)=1 Тогда
   Док.Валюта = !!!Спр.ТекущийЭлемент();!!!
 Иначе ...
3. В отладчик.

(71)->(38)

(72) А как хочется, чтоб 1С сама додумалась. Незачот 1С!!!

(73) Дык в (68) то же самое. Автор идёт своим, непростым путём.

Большое спасибо.

(76) Обращайся. я на обмене через текстовые файлы стаю борзых схавал. %)

А вот так всегда, когда (7) - накопируешь кусков кода, а глаза не видят:)