Ну разве может какимито внешними компонентами. Можно в реквизите диалога типа строка указать для ввода пароля. И отсюда рулить.

нет =1 возвращет если найдено искомое наименование. А ...,0,1) 0 - искать внутри установленого подчинения

НайтиПоНаименованию(<?>,,);
Синтаксис:
НайтиПоНаименованию(<Наименование>,<Режим>,<ФлагПоиска>)
Назначение:
Найти элемент справочника по наименованию.
Возвращает: 1 - если действие выполнено;
0 - если действие не выполнено (элемент не найден).
Параметры:
<Наименование> - строка с наименованием искомого элемента справочника,
<Режим> - необязательный параметр. Число: 1 - поиск внутри установленного подчинения (родителя); 0 - поиск во всем справочнике вне зависимости от родителя. Значение по умолчанию - 1.
<ФлагПоиска> - необязательный параметр. Число: 1 - найти точное соответствие наименования; 0 - найти наименование по первым символам. Значение по умолчанию - 0.
Замечание:
Метод можно использовать только для объектов, созданных функцией СоздатьОбъект.

	//Если Отделение.Наименование ="MAGNA" тогда
		
		    // для любых отделений
		    НаименованиеОтделения = СокрЛП(Отделение.Наименование);
			
			СпрСтр = СоздатьОбъект("Справочник.Сотрудники");
			Род = СоздатьОбъект("Справочник.Сотрудники");	
			Если Род.НайтиПоНаименованию(НаименованиеОтделения,0,1)=1 Тогда
				ТекРод = Род.ТекущийЭлемент();  
			Иначе
				ТекРод = "";
				Сообщить("Не найден родитель!");
			КонецЕсли;

А написали в ветке зарплата икадры. Относящейся к типой конфе.
Тогда примерно Вот так

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

Дело было вечером делать было нечего...ПРавда про счет не прочитал но думаю сможешь добавить...
http://upload.com.ua/get/901121274/

|ГДЕ
		|	ВЫБОР
		|			КОГДА (НЕ ДокументТовары.ДокументОприходования В (&ПустыеДокументыОприходования))
		|				ТОГДА ДокументТовары.ДокументОприходования = ПартииТоваровНаСкладахОстатки.ДокументОприходования
		|			ИНАЧЕ ИСТИНА
		|		КОНЕЦ
		|	И ПартииТоваровНаСкладахОстатки.КоличествоОстаток > 0
		|
		|УПОРЯДОЧИТЬ ПО
		|	Дата
		|АВТОУПОРЯДОЧИВАНИЕ";
		ПустыеДокументыОприходования = Новый СписокЗначений;
		ПустыеДокументыОприходования.Добавить(Документы.КомплектацияНоменклатуры.ПустаяС
сылка());
		ПустыеДокументыОприходования.Добавить(Документы.ВозвратТоваровОтПокупателя.Пуста
яСсылка());
		ПустыеДокументыОприходования.Добавить(Документы.ОприходованиеТоваров.ПустаяСсылк
а());
		ПустыеДокументыОприходования.Добавить(Документы.ПоступлениеТоваровУслуг.ПустаяСс
ылка());
		ПустыеДокументыОприходования.Добавить(Документы.АвансовыйОтчет.ПустаяСсылка());
		ПустыеДокументыОприходования.Добавить(Неопределено);
		Запрос.УстановитьПараметр("ПустыеДокументыОприходования", ПустыеДокументыОприходования);

УправлениеЗапасамиПартионныйУчет - ТорговляДляЧастныхПредпринимателейУкраины

Отправил СМС. Из электроники хаус не люблю предпочитаю прогрессив транс А вообще слушаю много чего.
ЗЫ А сайт чето не открылся...

ЗИКИ в пдфи
http://upload.com.ua/get/901025709/

Тогда остается наверно один вариант делать еще таблицу значений. грузить в нее из подключенной базы справочники клацать по ней и синхронизировать таким образом. Либо "альт+табать" все время.

Так бы и сразу Уже б забыл.

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

сорри. еще надо объявить переменную сп.

Вот еще пример экспорта в эксель без вывода (можно и с выводом) таблицы в 1С.
Таблицу создаем штатными методами и просто передаем готовую таблицу.

Функция ЭкспортExcel(Таблица)
	Перем Excel;
	Перем Каталог, ИмяФайла, Инд;
	Перем ЗанятыеНомера[100];
	Если ТипЗначенияСтр(Таблица) = "Таблица" Тогда
		Каталог = КаталогВременныхФайлов();
		ИмяФайла = ФС.НайтиПервыйФайл(Каталог + "1ctemp??.xls");
		Пока ПустаяСтрока(ИмяФайла) = 0 Цикл
			Инд = Число(Сред(ИмяФайла,7,2));
			ЗанятыеНомера[Инд+1] = 1;
			ФС.УдалитьФайл(Каталог + ИмяФайла);
			ИмяФайла = ФС.НайтиСледующийФайл()
		КонецЦикла;
		ИмяФайла = "";
		Для Инд = 0 По 99 Цикл
			Если ЗанятыеНомера[Инд+1] <> 1 Тогда
				ИмяФайла = Каталог + "1ctemp" + Формат(Инд, "Ч(0)2") + ".xls";
				Прервать
			КонецЕсли;
		КонецЦикла;
		Если ПустаяСтрока(ИмяФайла) = 0 Тогда
			Таблица.Записать(ИмяФайла, "XLS");
			Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
				Попытка
					Excel = СоздатьОбъект("Excel.Application");
				Исключение
				    Сообщить("Не удалось иницализировать MS Excel","!");
					Возврат 0
				КонецПопытки;
				Excel.Workbooks.Open(ИмяФайла);
				Excel.Visible = 1;
				Возврат 1
			Иначе
			    Сообщить("Ошибка записи файла """ + ИмяФайла + """","!");
				Возврат 0
			КонецЕсли
		КонецЕсли
	КонецЕсли;
	Возврат 0;
КонецФункции

Предлагаю выкладывать тут методы и примеры решения задач по взаимодействию 1С77 и Excel.
Вот что когда то находил по данному вопросу.

Получение данных из Excel.
Доступ из 1С к Excel производится посредством OLE. Например, код

Попытка
Эксель = СоздатьОбъект("Excel.Application"); 
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); 
Возврат;
КонецПопытки; 

позволит нам получить доступ через переменную "Эксель" к запущенному приложению Excel. А далее уже можно получить доступ к книге (файлу), листу и ячейке с данными. Далее примеры кода.
Открытие книги (файла):

Книга = Эксель.WorkBooks.Open(ПутьКФайлу); 

ПутьКФайлу - полный путь к файлу книги Excel.
Выбор листа книги для работы с ним:

Лист = Книга.WorkSheets(НомерЛиста); 
или
Лист = Книга.WorkSheets(ИмяЛиста); 

НомерЛиста - номер листа в книге, ИмяЛиста - имя листа в книге.
Получение значения ячейки листа:

Значение = Лист.Cells(НомерСтроки, НомерКолонки).Value; 

НомерСтроки, НомерКолонки - номер строки и номер колонки, на пересечении которых находится ячейка.
Важно: не забывайте поле выполнения нужных действий добавлять код Эксель.Quit(); , иначе запущенный процесс останется незавершенным и будет занимать память и процессор компьютера.
Вывод данных в Excel.
Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных. Открытие существующей книги описано выше, а для создания новой книги нужно использовать следующий код:

Попытка
Эксель = СоздатьОбъект("Excel.Application"); 
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); 
Возврат;
КонецПопытки; 
Книга = Эксель.WorkBooks.Add(); 

Так как при создании книги в Excel автоматически создаются листы (Сервис->Параметры->Общие->Листов в новой книге), то нужно лишь произвести выбор листа, с которым будет вестись работа:

Лист = Книга.WorkSheets(НомерЛиста); 

либо добавить в книгу новый лист, если необходимо:

Лист = Книга.Sheets.Add(); 

Следующим шагом будет установка значения ячейки:

Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение; 

НомерСтроки, НомерКолонки - номер строки и номер колонки, на пересечении которых находится ячейка.
И в конце нужно произвести запись созданной книги:

Попытка
Книга.SaveAs(ПутьКФайлу); 
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!"); 
Возврат;
КонецПопытки; 

ПутьКФайлу - полный путь к файлу книги Excel (включая имя).
Важно: не забывайте, что в имени файлов не должно содержаться символов / : * ? " > < |.

Часто используемые методы для чтения/установки значений в Excel.

Эксель = СоздатьОбъект("Excel.Application"); Получение доступа к приложению Excel.
Эксель.Visible = Видимость; 0 - Excel не виден, 1 - виден.
Книга = Эксель.WorkBooks.Add(); Создание новой книги (файла) Excel.
Книга.SaveAs(ИмяФайла); Сохранение книги Excel.
Лист = Книга.WorkSheets.Add(); Добавление нового листа в книгу.
Книга = Эксель.WorkBooks.Open(ИмяФайла); Открытие существующей книги (файла) Excel.
Лист = Книга.WorkSheets(НомерЛиста); Установка листа в качестве рабочего с номером НомерЛиста.
Лист.Name = ИмяЛиста; Задание рабочему листу имени ИмяЛиста
Лист.PageSetup.Zoom = Масштаб; Задание параметра страницы "Масштаб" (от 10 до 400).
Лист.PageSetup.Orientation = Ориентация; Ориентация: 1 - книжная, 2 - альбомная.
Лист.PageSetup.LeftMargin = Эксель.CentimetersToPoints(Сантиметры); Задание левой границы (в сантиметрах).
Лист.PageSetup.TopMargin = Эксель.CentimetersToPoints(Сантиметры); Задание верхней границы (в сантиметрах).
Лист.PageSetup.RightMargin = Эксель.CentimetersToPoints(Сантиметры); Задание правой границы (в сантиметрах).
Лист.PageSetup.BottomMargin = Эксель.CentimetersToPoints(Сантиметры); Задание нижней границы (в сантиметрах).
Лист.Columns(НомерКолонки).ColumnWidth = Ширина; Задание ширины колонке.
Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение; Ввод данных в ячейку.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Name = ИмяШрифта; Установка шрифта в ячейке.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Size = РазмерШрифта; Установка размера шрифта в ячейке.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Bold = Жирный; 1 - жирный шрифт, 0 - нормальный.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Italic = Курсив; 1 - наклонный шрифт, 0 - нормальный.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Underline = Подчеркнутый; 2 - подчеркнутый, 1 - нет.
Лист.Cells(НомерСтроки, НомерКолонки).NumberFormat = Формат; Установка формата данных ячейки.
Лист.Cells(НомерСтроки,НомерКолонки).Borders.Linestyle="ТипЛинии;" Установка рамок ячейки. 1 - тонкая сплошная.

Это нашел на Subscribe Ru точной ссылки к сожалению нет.

Попробуй: Excel.ActiveSheet.UsedRange.Rows.Count
Количество занятых строк на листе.

Я сделал вот так. Не претендую на правильность. Но результат виден.

Прикольно Особенно расширение функций. А еще говорят 77 умирает. Не дождетесь!

А конфа то какая? 7 или 8? если 7 тогда еще придется дорабатывать под УРБД. В 8-ке это просто празник какой то Практически ниче делать не надо.

Для работы в режиме реального времени ВПН и РДП самый оптимальный вариант провереный временем и практикой. Хотя. при отсутствии интернета или слабом канале работа будет невозможна в первом случае а во втором похожа на мучение из за отрисовок

У тебя скорее всего не задан обработчик ПриОткрытии в форме. Ты видимо просто написал при открытии а в свойствах формы эта процедура не определилась.



Ибо у меня получилось...


Ну и исходя из своего небольшого опыта ковыряния типовых конфигураций. Обычно При открытии никто такого не делает. Ну мы бум придерживать как по книге...

ЗЫ Битый битого везет Сам иногда не понимаю эти самоучители...

М.Г.Радченко 1С Предприятие 8.1.
Электронная! книга (*.exe) с демо конфигурацией на примере которой проводится обучение.
11.54 MB

Вверху. Форма. Вставить элемент управления. А там командная панель.

По первому пункту. не знаю

ЗЫ Кстати какой то странный Радченко. У меня глава 5 п.2 это система компоновки данных.

Меня так иногда поражают просьбы о поделится обработками для клиент банка... Почему бухгалтера жалеют свое время на разноску выписок, а время людей которые это пишут....

Добавить старую таблицу назвав ее например СчетСтарый. И изменить процедуру

Процедура Печать()
Перем ВыбЗначение;

ВариантыПечати = СоздатьОбъект("СписокЗначений");
ВариантыПечати.ДобавитьЗначение(1,"Счет старый");
ВариантыПечати.ДобавитьЗначение(2,"Счет новый");

Если ВариантыПечати.ВыбратьЗначение(выбЗначение,"",,,1) <> 1 Тогда
Возврат;
КонецЕсли;
Если ВыбЗначение = 1 Тогда
Таб.ИсходнаяТаблица("Счет");
Иначе
Таб.ИсходнаяТаблица("СчетСтарый");
КонецЕсли
//***********
//..................
КонецПроцедуры
типа того. или пригласить программиста. если сам не он

Можно выключить через гл. модуль:

// для выполнения переоценки разделим счета на группы
глСчетаОстатковВВалюте = СоздатьОбъект("СписокЗначений");
глСчетаОстатковВВалюте.ИзСтрокиСРазделителями("302,312,314,332,334,3512");

Но тогда перестанет работать переоценка валюты. Документ. который делается ещемесячно. А так из плавания курсов будет всегда переоценка по кассе и банку.

Постараюсь вечером. На "подпиливать" будешь сам Писалось под модифицированный ПУБ. И движения регистров только "Партии,Остатки,Взаиморасчеты..."

А к ручной операции еще можно прибавить кнопку Печать. И будет бух. справка

У всех разные запросы...

Как и обещал http://upload.com.ua/get/900970831/
На типовом ПУБе не тестировал.

Сделал вот еще баланс по просьбе. (Что то стали популярны такие просьбы )
И обновил фин резы из последних рег отчетов...
http://upload.com.ua/get/900945513/

Я добавлял константы "ОсновнаяЦенаРеализации" и "ОсновнаяЦенаЗакупки" как и советовал Batchir. Затем значение ты и получаешь и получаешь из Структуры учетной политики.

И еще раз предупреждаю что в данном случае выкрутился из положения Работать то оно будет ... Но мне тоже интересно правильно или нет так делать. И вообще где то читал что 1С не рекомендует такие вещи на форме списка справочника. Но а что делать если клиент хочет
ЗЫ Но помню сколько сам "долбался" что бы реализовать то что когда то делалось одной строчкой...

//Это в форме списка. Но я ставил не в колонку а в низ формы. 
//И цена меняется при переходе по строкам.
Процедура СписокПриАктивизацииСтроки(Элемент)	
ТипЦенПродажи = СтруктураУчетнойПолитики.ОсновнаяЦенаРеализации.Ссылка;	
ЭлементыФормы.ПолеВводаЦена.Значение=РасчетОстатков.ОтображениеЦенТоваровИУслуг(
ЭлементыФормы.Список.ТекущиеДанные.Ссылка,ТипЦенПродажи);
КонецПроцедуры


//и общий модуль
Функция ОтображениеЦенТоваровИУслуг(ТекНоменклатура,ТекТипЦен) Экспорт
	Цена=0;
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ЦеныНоменклатурыСрезПоследних.Номенклатура,
	|	ЦеныНоменклатурыСрезПоследних.ТипЦен,
	|	ЦеныНоменклатурыСрезПоследних.Валюта,
	|	ЦеныНоменклатурыСрезПоследних.ЕдиницаИзмерения,
	|	ЦеныНоменклатурыСрезПоследних.Цена
	|ИЗ
	|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
	|ГДЕ
	|	ЦеныНоменклатурыСрезПоследних.Номенклатура.ЭтоГруппа = 0
	|	И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура";
	
	Запрос.УстановитьПараметр("Номенклатура", ТекНоменклатура);
	Запрос.УстановитьПараметр("ТипЦен", ТекТипЦен);
	РезультатЗапроса = Запрос.Выполнить();	
	ВыборкаЗапроса = РезультатЗапроса.Выбрать();
	Если ВыборкаЗапроса.Следующий() Тогда
		Цена=ВыборкаЗапроса.Цена;
	КонецЕсли;
	Возврат Цена
	
КонецФункции // ОтображениеЦенТоваровИУслуг()

У меня работает.
ЗЫ Критика принимается так как только учусь...